diff -u ORG/anam/adeq.f90 anam/adeq.f90
--- ORG/anam/adeq.f90	2017-12-23 18:00:00.000000000 +0900
+++ anam/adeq.f90	2018-05-15 18:18:10.000000000 +0900
@@ -206,6 +206,7 @@
   dv = sqrt(ss / float(ndpt))
   write(6,'(a,i4,a,f8.2,a,f7.2)')   &
     ' loop', klp, '   rms.Step :', ds, '   rms.Residual :', dv
+  flush(6)        !--- or  call flush(6)
   open(9,status='scratch')
   write(9,*) klp, ds, dv
 
@@ -230,6 +231,7 @@
     dv = sqrt(ss / float(ndpt))
     write(6,'(a,i4,a,f8.2,a,f7.2)')   &
     ' loop', klp, '   rms.Step :', ds, '   rms.Residual :', dv
+    flush(6)        !--- or  call flush(6)
     write(9,*) klp, ds, dv
   enddo
   close(20)
diff -u ORG/anam/adeqc.f90 anam/adeqc.f90
--- ORG/anam/adeqc.f90	2017-12-23 18:00:00.000000000 +0900
+++ anam/adeqc.f90	2018-05-15 18:18:10.000000000 +0900
@@ -205,6 +205,7 @@
   lp = 0
   write(6,'(a,i4,i3,a,f8.2,a,f7.2)')   &
     ' loop', klp, lp, '   rms.Step :', ds, '   rms.Residual :', dv
+  flush(6)        !--- or  call flush(6)
   open(9,status='scratch')
   write(9,*) klp, lp, ds, dv
 
@@ -235,6 +236,7 @@
     endif
     write(6,'(a,i4,i3,a,f8.2,a,f7.2)')   &
       ' loop', klp, lp, '   rms.Step :', ds, '   rms.Residual :', dv
+    flush(6)        !--- or  call flush(6)
     write(9,*) klp, lp, ds, dv
     if ((lp >= 5) .or. (dv < 0.1) .or. (ilp >= nloop)) exit
   enddo
diff -u ORG/anam/adeqs.f90 anam/adeqs.f90
--- ORG/anam/adeqs.f90	2017-12-23 18:00:00.000000000 +0900
+++ anam/adeqs.f90	2018-05-15 18:18:10.000000000 +0900
@@ -209,6 +209,7 @@
   dv = sqrt(ss / float(ndpt))
   write(6,'(a,i4,a,f8.2,a,f7.2)')   &
     ' loop', klp, '   rms.Step :', ds, '   rms.Residual :', dv
+  flush(6)        !--- or  call flush(6)
   open(9,status='scratch')
   write(9,*) klp, ds, dv
 
@@ -233,6 +234,7 @@
     dv = sqrt(ss / float(ndpt))
     write(6,'(a,i4,a,f8.2,a,f7.2)')   &
       ' loop', klp, '   rms.Step :', ds, '   rms.Residual :', dv
+    flush(6)        !--- or  call flush(6)
     write(9,*) klp, ds, dv
   enddo
   close(20)
diff -u ORG/anam/adeqsc.f90 anam/adeqsc.f90
--- ORG/anam/adeqsc.f90	2017-12-23 18:00:00.000000000 +0900
+++ anam/adeqsc.f90	2018-05-15 18:18:10.000000000 +0900
@@ -209,6 +209,7 @@
   lp = 0
   write(6,'(a,i4,i3,a,f8.2,a,f7.2)')   &
     ' loop', klp, lp, '   rms.Step :', ds, '   rms.Residual :', dv
+  flush(6)        !--- or  call flush(6)
   open(9,status='scratch')
   write(9,*) klp, lp, ds, dv
 
@@ -239,6 +240,7 @@
     endif
     write(6,'(a,i4,i3,a,f8.2,a,f7.2)')   &
       ' loop', klp, lp, '   rms.Step :', ds, '   rms.Residual :', dv
+    flush(6)        !--- or  call flush(6)
     write(9,*) klp, lp, ds, dv
     if ((lp >= 5) .or. (dv < 0.1) .or. (ilp >= nloop)) exit
   enddo
diff -u ORG/anam/amag.f90 anam/amag.f90
--- ORG/anam/amag.f90	2017-12-23 18:00:00.000000000 +0900
+++ anam/amag.f90	2018-05-15 18:18:08.000000000 +0900
@@ -245,6 +245,7 @@
   dv = sqrt(ss / float(n))
   write(6,'(a,i4,a,f9.3,a,f7.2)')   &
     ' loop', klp, '   rms.Step :', ds, '   rms.Residual :', dv
+  flush(6)        !--- or  call flush(6)
   open(9,status='scratch')
   write(9,*) klp, ds, dv
 
@@ -272,6 +273,7 @@
     dv = sqrt(ss / float(n))
     write(6,'(a,i4,a,f9.3,a,f7.2)')   &
       ' loop', klp, '   rms.Step :', ds, '   rms.Residual :', dv
+    flush(6)        !--- or  call flush(6)
     write(9,*) klp, ds, dv
   enddo
   write(6,'(1x)')
diff -u ORG/anam/amagc.f90 anam/amagc.f90
--- ORG/anam/amagc.f90	2017-12-23 18:00:00.000000000 +0900
+++ anam/amagc.f90	2018-05-15 18:18:08.000000000 +0900
@@ -241,6 +241,7 @@
   dv = sqrt(ss / float(n));  lp = 0
   write(6,'(a,i4,i3,a,f9.3,a,f7.2)')   &
     ' loop', klp, lp, '   rms.Step :', ds, '   rms.Residual :', dv
+  flush(6)        !--- or  call flush(6)
   open(9,status='scratch')
   write(9,*) klp, lp, ds, dv
 
@@ -273,6 +274,7 @@
     endif
     write(6,'(a,i4,i3,a,f9.3,a,f7.2)')   &
       ' loop', klp, lp, '   rms.Step :', ds, '   rms.Residual :', dv
+    flush(6)        !--- or  call flush(6)
     write(9,*) klp, lp, ds, dv
     if ((lp >= 5) .or. (dv < 0.1) .or. (ilp >= nloop)) exit
   enddo
diff -u ORG/anam/ameq.f90 anam/ameq.f90
--- ORG/anam/ameq.f90	2017-12-23 18:00:00.000000000 +0900
+++ anam/ameq.f90	2018-05-15 18:18:10.000000000 +0900
@@ -239,6 +239,7 @@
   dv = sqrt(ss / float(n))
   write(6,'(a,i4,a,f8.2,a,f7.2)')   &
     ' loop', klp, '   rms.Step :', ds, '   rms.Residual :', dv
+  flush(6)        !--- or  call flush(6)
   open(9,status='scratch')
   write(9,*) klp, ds, dv
 
@@ -268,6 +269,7 @@
     dv = sqrt(ss / float(n))
     write(6,'(a,i4,a,f8.2,a,f7.2)')   &
     ' loop', klp, '   rms.Step :', ds, '   rms.Residual :', dv
+    flush(6)        !--- or  call flush(6)
     write(9,*) klp, ds, dv
   enddo
   close(20)
diff -u ORG/anam/ameqc.f90 anam/ameqc.f90
--- ORG/anam/ameqc.f90	2017-12-23 18:00:00.000000000 +0900
+++ anam/ameqc.f90	2018-05-15 18:18:10.000000000 +0900
@@ -237,6 +237,7 @@
   lp = 0
   write(6,'(a,i4,i3,a,f8.2,a,f7.2)')   &
     ' loop', klp, lp, '   rms.Step :', ds, '   rms.Residual :', dv
+  flush(6)        !--- or  call flush(6)
   open(9,status='scratch')
   write(9,*) klp, lp, ds, dv
 
@@ -271,6 +272,7 @@
     endif
     write(6,'(a,i4,i3,a,f8.2,a,f7.2)')   &
       ' loop', klp, lp, '   rms.Step :', ds, '   rms.Residual :', dv
+    flush(6)        !--- or  call flush(6)
     write(9,*) klp, lp, ds, dv
     if ((lp >= 5) .or. (dv < 0.1) .or. (ilp >= nloop)) exit
   enddo
diff -u ORG/anam/ameqs.f90 anam/ameqs.f90
--- ORG/anam/ameqs.f90	2017-12-23 18:00:00.000000000 +0900
+++ anam/ameqs.f90	2018-05-15 18:18:10.000000000 +0900
@@ -242,6 +242,7 @@
   dv = sqrt(ss / float(n))
   write(6,'(a,i4,a,f8.2,a,f7.2)')   &
     ' loop', klp, '   rms.Step :', ds, '   rms.Residual :', dv
+  flush(6)        !--- or  call flush(6)
   open(9,status='scratch')
   write(9,*) klp, ds, dv
 
@@ -271,6 +272,7 @@
     dv = sqrt(ss / float(n))
     write(6,'(a,i4,a,f8.2,a,f7.2)')   &
     ' loop', klp, '   rms.Step :', ds, '   rms.Residual :', dv
+    flush(6)        !--- or  call flush(6)
     write(9,*) klp, ds, dv
   enddo
   close(20)
diff -u ORG/anam/ameqsc.f90 anam/ameqsc.f90
--- ORG/anam/ameqsc.f90	2017-12-23 18:00:00.000000000 +0900
+++ anam/ameqsc.f90	2018-05-15 18:18:08.000000000 +0900
@@ -241,6 +241,7 @@
   lp = 0
   write(6,'(a,i4,i3,a,f8.2,a,f7.2)')   &
     ' loop', klp, lp, '   rms.Step :', ds, '   rms.Residual :', dv
+  flush(6)        !--- or  call flush(6)
   open(9,status='scratch')
   write(9,*) klp, lp, ds, dv
 
@@ -276,6 +277,7 @@
     endif
     write(6,'(a,i4,i3,a,f8.2,a,f7.2)')   &
       ' loop', klp, lp, '   rms.Step :', ds, '   rms.Residual :', dv
+    flush(6)        !--- or  call flush(6)
     write(9,*) klp, lp, ds, dv
     if ((lp >= 5) .or. (dv < 0.1) .or. (ilp >= nloop)) exit
   enddo
