diff options
Diffstat (limited to 'src/Extract.F')
-rw-r--r-- | src/Extract.F | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/Extract.F b/src/Extract.F index e087293..67259fe 100644 --- a/src/Extract.F +++ b/src/Extract.F @@ -168,11 +168,11 @@ c Create 1D coordinate arrays c See if the ADM mass should be calculated and output IF (doADMmass == 1) THEN do_ADMmass(1) = 1 - IF (conformal_state == 1) THEN + IF (conformal_state == 1) THEN do_ADMmass(2) = 1 ELSE do_ADMmass(2) = 0 - ENDIF + ENDIF ELSE do_ADMmass(:) = 0 END IF @@ -214,7 +214,7 @@ c ------------------------------------------------------------------ IF (all_modes == 1) THEN lmin = 2 - lmax = lmode + lmax = lmode c Get m_mode in this case too, or the T3E has a junk value (PW) mmode = 0 ALLOCATE(Qodd(2,2:lmode,0:lmode),Qeven(2,2:lmode,0:lmode)) @@ -547,11 +547,11 @@ c Cannot use the conformal equation for ADM mass now IF (verbose == 1) THEN IF (openfile == 1) THEN - WRITE(*,*) "Extracting at ",ndet," detectors " + WRITE(*,*) "Extracting at ",ndet," detectors " DO idet=1,ndet WRITE(*,*) " r = ",detector(idet) ENDDO - END IF + END IF END IF detector_loop: DO idet = 1,ndet |