From 1e09b841772b0e7709d27c3730b00aedd1487c90 Mon Sep 17 00:00:00 2001 From: cavazzon Date: Sun, 15 Feb 2004 10:15:06 +0000 Subject: [PATCH] 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 --- Modules/read_namelists.f90 | 6 ------ 1 file changed, 6 deletions(-) diff --git a/Modules/read_namelists.f90 b/Modules/read_namelists.f90 index 69760288c..3934cce77 100644 --- a/Modules/read_namelists.f90 +++ b/Modules/read_namelists.f90 @@ -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