diff options
author | schnetter <schnetter@ef6f4158-a8ee-47d1-ba14-cb73256398e0> | 2010-06-06 16:42:30 +0000 |
---|---|---|
committer | schnetter <schnetter@ef6f4158-a8ee-47d1-ba14-cb73256398e0> | 2010-06-06 16:42:30 +0000 |
commit | c420ccbc97500e3296265abda67dd7a685c74188 (patch) | |
tree | f946904430bf733778cf5a10f92cafbedd77d0c7 | |
parent | fee45d4de6d1b6a86553eb9f034cb7616197de86 (diff) |
Correct Fortran syntax
git-svn-id: https://svn.cct.lsu.edu/repos/numrel/LSUThorns/QuasiLocalMeasures/trunk@17 ef6f4158-a8ee-47d1-ba14-cb73256398e0
-rw-r--r-- | src/qlm_calculate.F90 | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/qlm_calculate.F90 b/src/qlm_calculate.F90 index 1361266..da460b3 100644 --- a/src/qlm_calculate.F90 +++ b/src/qlm_calculate.F90 @@ -115,8 +115,8 @@ subroutine qlm_calculate (CCTK_ARGUMENTS) if (output_vtk_every /= 0) then if (mod(cctk_iteration,output_vtk_every) == 0) then - write(slabel,'(I2.2)'), hn - write(ilabel,'(I8.8)'), cctk_iteration + write(slabel,'(I2.2)') hn + write(ilabel,'(I8.8)') cctk_iteration call CCTK_ParameterValString (nchars, "out_dir", "IOUtil", odir) call qlm_outputvtk (CCTK_PASS_FTOF, hn, odir(1:nchars)//'/surface'//slabel//'_'//ilabel//'.vtk', 1) end if |