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

conversion from logical to integer is not implemented in all compilers, made explicit 

git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@13396 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
pietrodelugas 2017-03-13 18:21:05 +00:00
parent 3f364d671f
commit 98f22ae144
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Modules/qexml.f90
View File

@ -1091,7 +1091,11 @@ CONTAINS
CALL add_attributes_hdf5(g_hdf5_write,ecutwfc,"WFC_CUTOFF")
CALL add_attributes_hdf5(g_hdf5_write,ecutrho,"RHO_CUTOFF")
CALL add_attributes_hdf5(g_hdf5_write,npwx,"MAX_NUMBER_OF_GK-VECTORS")
write(gammaonly,'(I1)') gamma_only
IF ( gamma_only) THEN
write(gammaonly,'(I1)') 1
ELSE
write(gammaonly,'(I1)') 0
END IF
CALL add_attributes_hdf5(g_hdf5_write,gammaonly,"GAMMA_ONLY")
CALL add_attributes_hdf5(g_hdf5_write,trim(cutoff_units),"UNITS_FOR_CUTOFF")
CALL add_attributes_hdf5(g_hdf5_write,nr1,"nr1")