From 318430905798ec642db43fc8e4976d8ed806776c Mon Sep 17 00:00:00 2001 From: cavazzon Date: Sat, 12 Aug 2006 12:38:35 +0000 Subject: [PATCH] - again scradir git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@3328 c92efa57-630b-4861-b058-cf58834340f0 --- CPV/fpmdpp.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/CPV/fpmdpp.f90 b/CPV/fpmdpp.f90 index a096deef7..8d7cfcc54 100644 --- a/CPV/fpmdpp.f90 +++ b/CPV/fpmdpp.f90 @@ -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, &