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

Removed nonstandard call to "system" 

git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@11741 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
giannozz 2015-09-19 20:35:38 +00:00
parent 561a50bd63
commit 10fcd8489e
2 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
PHonon/FD/fd.f90
View File

@ -23,6 +23,7 @@ program fd
USE kinds, ONLY : dp USE kinds, ONLY : dp
USE wvfct, ONLY : ecutwfc USE wvfct, ONLY : ecutwfc
USE gvect, ONLY : ecutrho USE gvect, ONLY : ecutrho
USE wrappers, ONLY : f_mkdir_safe
USE symm_base USE symm_base
USE symme USE symme
@ -104,7 +105,7 @@ program fd
prefix=trim(fd_prefix) prefix=trim(fd_prefix)
outdir=trim(fd_outdir) outdir=trim(fd_outdir)
tmp_dir = trimcheck( outdir ) tmp_dir = trimcheck( outdir )
call system('mkdir '//trim(fd_outfile_dir)) ios = f_mkdir_safe( TRIM( fd_outfile_dir ) )
endif endif
CALL mp_bcast( outdir, ionode_id, world_comm ) CALL mp_bcast( outdir, ionode_id, world_comm )

1
PHonon/FD/make.depend
View File

@ -10,6 +10,7 @@ fd.o : ../../Modules/mp.o
fd.o : ../../Modules/mp_global.o fd.o : ../../Modules/mp_global.o
fd.o : ../../Modules/mp_world.o fd.o : ../../Modules/mp_world.o
fd.o : ../../Modules/recvec.o fd.o : ../../Modules/recvec.o
fd.o : ../../Modules/wrappers.o
fd.o : ../../PW/src/pwcom.o fd.o : ../../PW/src/pwcom.o
fd.o : ../../PW/src/symm_base.o fd.o : ../../PW/src/symm_base.o
fd.o : ../../PW/src/symme.o fd.o : ../../PW/src/symme.o