- again scradir

git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@3328 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
cavazzon 2006-08-12 12:38:35 +00:00
parent 7e701901c3
commit 3184309057
1 changed files with 2 additions and 2 deletions

View File

@ -44,7 +44,7 @@ PROGRAM fpmd_postproc
REAL(DP), ALLOCATABLE :: sigma(:,:), force(:,:)
REAL(DP), ALLOCATABLE :: stau0(:,:), svel0(:,:), force0(:,:)
CHARACTER(len=256) :: filepp, fileout, output, outdir
CHARACTER(len=256) :: filepp, fileout, output
CHARACTER(len=256) :: filecel, filepos, filefor, filepdb
CHARACTER(len=256) :: print_state
CHARACTER(len=3) :: atm( maxsp ), lab
@ -59,7 +59,7 @@ PROGRAM fpmd_postproc
REAL(DP) :: euler(6)
NAMELIST /inputpp/ prefix, outdir, fileout, output, outdir, &
NAMELIST /inputpp/ prefix, fileout, output, outdir, &
lcharge, lforces, ldynamics, lpdb, lrotation, &
ns1, ns2, ns3, np1, np2, np3, print_state, &
atomic_number, nframes, ndr, charge_density, &