scnc
/
quantum-espresso
mirror of https://gitlab.com/QEF/q-e.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

some more checks when allocating large arrays, 

to know why and where the program stops
when there is no more memory


git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@599 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
cavazzon 2004-02-15 10:15:06 +00:00
parent ce9d9804c9
commit 1e09b84177
1 changed files with 0 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Modules/read_namelists.f90
View File

@ -925,8 +925,6 @@ MODULE read_namelists_module
IF( ekincw <= 0.0d0 ) &
CALL errore( sub_name, ' ekincw less or equal 0 ',-1)
IF( prog == 'FP' ) THEN
IF( grease /= 0.0d0 ) &
CALL errore( sub_name, ' grease not used in FPMD ',-1)
IF( twall ) &
CALL errore( sub_name, ' twall not used in FPMD ',-1)
END IF
@ -1056,10 +1054,6 @@ MODULE read_namelists_module
IF( prog == 'FP' ) THEN
IF( temph /= 0.0d0 ) &
CALL errore( sub_name,' temph not used in FPMD ',-1)
IF( fnoseh /= 0.0d0 ) &
CALL errore( sub_name,' fnoseh not used in FPMD ',-1)
IF( greash /= 0.0d0 ) &
CALL errore( sub_name,' greash not used in FPMD ',-1)
IF( cell_factor /= 0.0d0 ) &
CALL errore( sub_name,' cell_factor not used in FPMD ',-1)
END IF