mirror of https://gitlab.com/QEF/q-e.git
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:
parent
561a50bd63
commit
10fcd8489e
|
@ -23,6 +23,7 @@ program fd
|
|||
USE kinds, ONLY : dp
|
||||
USE wvfct, ONLY : ecutwfc
|
||||
USE gvect, ONLY : ecutrho
|
||||
USE wrappers, ONLY : f_mkdir_safe
|
||||
|
||||
USE symm_base
|
||||
USE symme
|
||||
|
@ -104,7 +105,7 @@ program fd
|
|||
prefix=trim(fd_prefix)
|
||||
outdir=trim(fd_outdir)
|
||||
tmp_dir = trimcheck( outdir )
|
||||
call system('mkdir '//trim(fd_outfile_dir))
|
||||
ios = f_mkdir_safe( TRIM( fd_outfile_dir ) )
|
||||
endif
|
||||
|
||||
CALL mp_bcast( outdir, ionode_id, world_comm )
|
||||
|
|
|
@ -10,6 +10,7 @@ fd.o : ../../Modules/mp.o
|
|||
fd.o : ../../Modules/mp_global.o
|
||||
fd.o : ../../Modules/mp_world.o
|
||||
fd.o : ../../Modules/recvec.o
|
||||
fd.o : ../../Modules/wrappers.o
|
||||
fd.o : ../../PW/src/pwcom.o
|
||||
fd.o : ../../PW/src/symm_base.o
|
||||
fd.o : ../../PW/src/symme.o
|
||||
|
|
Loading…
Reference in New Issue