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

- added the possibility to use the "-input" flag to specify 

the input file. Contributed by A.Ferretti


git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@3273 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
cavazzon 2006-07-17 08:45:12 +00:00
parent 02cba3b365
commit 0fbc4b6190
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
PP/pw_export.f90
View File

@ -303,12 +303,21 @@ program pp_punch
! Reading input file
!
IF ( ionode ) THEN
!
CALL input_from_file ( )
!
READ(5,inputpp,IOSTAT=ios)
!
IF (ios /= 0) CALL errore ('pw_export', 'reading inputpp namelist', ABS(ios) )
!
IF( pp_file == ' ' ) THEN
!
pp_file = TRIM(prefix)//".export/index.xml"
if(ionode) ios = C_MKDIR( TRIM(outdir)//"/"//TRIM(prefix)//".export" , LEN(TRIM(outdir)//"/"//TRIM(prefix)//".export") )
!
if(ionode) ios = C_MKDIR( TRIM(outdir)//"/"//TRIM(prefix)// &
".export" , LEN(TRIM(outdir)//"/"//TRIM(prefix)//".export") )
ENDIF
!
ENDIF
!
! ... Broadcasting variables