diff options
-rw-r--r-- | src/Extract.F | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Extract.F b/src/Extract.F index a7a2248..e097471 100644 --- a/src/Extract.F +++ b/src/Extract.F @@ -58,9 +58,10 @@ c Output variables from D3_extract c Local variables + CCTK_INT :: nchar INTEGER :: & ix,iy,iz,fn1,fn2,lmin,lmax,mmin,mmax,lstep,mstep, - & il,im,it,ndet,idet,nx_parfile,nchar,iconv,ioutput + & il,im,it,ndet,idet,nx_parfile,iconv,ioutput INTEGER,SAVE :: openfile = 1 INTEGER,PARAMETER :: & max_detectors = 9,number_timecoords = 2 |