Moves the closing ']' to the end of the loop to better handle

multiple execs.
jawatson · Mar 12, 2018 · 0b52885 · 0b52885
1 parent 216ab4b
commit 0b52885
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/voacapw/hfmufs2.for b/src/voacapw/hfmufs2.for
@@ -195,6 +195,7 @@ C
       CALL OUTLIN
   400 CONTINUE             !  end of DISTANCE loop
   405 CONTINUE             !  end of   HOUR   loop
+      if(iquiet.eq.0) write(*,"(a)") " ]" ! Close the progress display and newline
       method=meth          !  reset METHOD
       GO TO 100
 C.....END OF RUN
@@ -203,7 +204,6 @@ ccc      write(*,601) meth,method,mspec,gcdkm,gcdlng
 ccc601   format('601=',3i5,2f10.2)
       WRITE(LUO,1504) VERSN
  1504 FORMAT(1H ,'*****END OF RUN*****',5X,'VOACAP ',a8)
-      if(iquiet.eq.0) write(*,"(a)") " ]" ! Close the progress display and newline
       RETURN
       END
 C--------------------------------