Commit 7450e89b authored by paulatto's avatar paulatto

d3 fixed



git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/[email protected] c92efa57-630b-4861-b058-cf58834340f0
parent d1057f2a
......@@ -101,7 +101,7 @@ SUBROUTINE openfild3
!
IF ( me_pool == root_pool ) THEN
!
filint = TRIM(fildrho)//".u"
filint = TRIM(fildrho) !//".u"
! FIXME: workaround for filename mess
tmp_dir_save=tmp_dir
if ( lgamma) tmp_dir=TRIM(tmp_dir)//'_ph0/'
......@@ -115,7 +115,7 @@ SUBROUTINE openfild3
! Not needed if q=0
!
IF (.NOT.lgamma) THEN
filint = TRIM(fild0rho)//".u"
filint = TRIM(fild0rho) !//".u"
CALL diropn (iud0rho, filint, lrdrho, exst)
ENDIF
!
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment