remove read statements from tests so that can be run in CI

replaced with loops to run all the tests

Author: jacobwilliams

test/file15.f90

@@ -27,7 +27,7 @@ program test
 !
 !     **********
       integer i , ic , info , k , lwa , n , NFEv , NPRob , nread ,      &
-            & ntries , nwrite
+              ntries , nwrite, icase
       integer na(60) , nf(60) , np(60) , nx(60)
       double precision factor , fnorm1 , fnorm2 , one , ten , tol
       double precision fnm(60) , fvec(40) , wa(2660) , x(40)
@@ -44,9 +44,10 @@ program test
       tol = dsqrt(dpmpar(1))
       lwa = 2660
       ic = 0
- 100  read (nread,99001) NPRob , n , ntries
-99001 format (3i5)
-      if ( NPRob<=0 ) then
+      n = 5
+      ntries = 1
+      do NPRob = 1, 16
+      if ( NPRob==16 ) then
          write (nwrite,99002) ic
 99002    format ('1SUMMARY OF ',i3,' CALLS TO HYBRD1'/)
          write (nwrite,99003)
@@ -82,12 +83,9 @@ program test
                    &' FINAL APPROXIMATE SOLUTION'//(5x,5d15.7))
             factor = ten*factor
          enddo
-         goto 100
       endif
-!
-!     LAST CARD OF DRIVER.
-!
-      end
+      end do
+      end program test
 
       subroutine fcn(n,x,Fvec,Iflag)
       implicit none

test/file16.f90

@@ -46,9 +46,10 @@ program test
       ldfjac = 40
       lwa = 1060
       ic = 0
- 100  read (nread,99001) NPRob , n , ntries
-99001 format (3i5)
-      if ( NPRob<=0 ) then
+      n = 5
+      ntries = 1
+      do NPRob = 1, 16
+      if ( NPRob==16 ) then
          write (nwrite,99002) ic
 99002    format ('1SUMMARY OF ',i3,' CALLS TO HYBRJ1'/)
          write (nwrite,99003)
@@ -88,12 +89,9 @@ program test
                    &' FINAL APPROXIMATE SOLUTION'//(5x,5d15.7))
             factor = ten*factor
          enddo
-         goto 100
       endif
-!
-!     LAST CARD OF DRIVER.
-!
-      end
+      end do
+      end program test
 
       subroutine fcn(n,x,Fvec,Fjac,Ldfjac,Iflag)
       implicit none

test/file17.f90

@@ -47,9 +47,11 @@ program test
       ldfjac = 65
       lwa = 265
       ic = 0
- 100  read (nread,99001) NPRob , n , m , ntries
-99001 format (4i5)
-      if ( NPRob<=0 ) then
+      n = 40
+      m = 65
+      ntries = 1
+      do NPRob = 1, 20
+      if ( NPRob==20) then
          write (nwrite,99002) ic
 99002    format ('1SUMMARY OF ',i3,' CALLS TO LMDER1'/)
          write (nwrite,99003)
@@ -91,12 +93,9 @@ program test
                    &' FINAL APPROXIMATE SOLUTION'//(5x,5d15.7))
             factor = ten*factor
          enddo
-         goto 100
       endif
-!
-!     LAST CARD OF DRIVER.
-!
-      end
+      end do
+      end program test
 
       subroutine fcn(m,n,x,Fvec,Fjac,Ldfjac,Iflag)
       implicit none

test/file19.f90

@@ -45,9 +45,11 @@ program test
       tol = dsqrt(dpmpar(1))
       lwa = 2865
       ic = 0
- 100  read (nread,99001) NPRob , n , m , ntries
-99001 format (4i5)
-      if ( NPRob<=0 ) then
+      n = 40
+      m = 65
+      ntries = 1
+      do NPRob = 1, 20
+      if ( NPRob==20 ) then
          write (nwrite,99002) ic
 99002    format ('1SUMMARY OF ',i3,' CALLS TO LMDIF1'/)
          write (nwrite,99003)
@@ -90,12 +92,9 @@ program test
                    &' FINAL APPROXIMATE SOLUTION'//(5x,5d15.7))
             factor = ten*factor
          enddo
-         goto 100
       endif
-!
-!     LAST CARD OF DRIVER.
-!
-      end
+      end do
+      end program test
 
       subroutine fcn(m,n,x,Fvec,Iflag)
       implicit none

test/file20.f90

@@ -41,9 +41,9 @@ program test
          & .false./
       data cp , one/1.23d-1 , 1.0d0/
       ldfjac = 10
- 100  read (nread,99001) nprob , n
-99001 format (2i5)
-      if ( nprob<=0 ) then
+      n = 10
+      do nprob = 1, 15
+      if ( nprob==15 ) then
          write (nwrite,99002) lnp
 99002    format ('1SUMMARY OF ',i3,' TESTS OF CHKDER'/)
          write (nwrite,99003)
@@ -86,12 +86,9 @@ program test
 99007    format (//5x,' FUNCTION DIFFERENCE VECTOR'//(5x,5d15.7))
          write (nwrite,99008) (err(i),i=1,n)
 99008    format (//5x,' ERROR VECTOR'//(5x,5d15.7))
-         goto 100
       endif
-!
-!     LAST CARD OF DERIVATIVE CHECK TEST DRIVER.
-!
-      end
+      end do
+      end program test
 
       subroutine errjac(n,x,Fjac,Ldfjac,Nprob)
       implicit none