--- Dependency check [begin] ---


--- Dependency check [end] ---



--- Distribution check [begin] ---

Version 1.49.1 - 2022-07-05 (EO)
Information: this ChangeLog entry matches the version number:
 Version 1.49.1 - 2022-07-05 (EO)

Now checking git repository...


--- Distribution check [end] ---

Dependencies for slatecf77
Dependencies for toms
Dependencies for testtoms526
Dependencies for testtoms660
Dependencies for testtoms661
Dependencies for testtoms760
Dependencies for slatecxx
Dependencies for slatec
Dependencies for testcurve
Dependencies for testErrorFunction
Dependencies for interpolant
Dependencies for interpolant2Dscatter
Dependencies for interpolant2Drect
Dependencies for fft_toandfro
Dependencies for fft_convolve
Dependencies for testcxxtoms660
Dependencies for cubichermite
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  externals.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  aaaaaa.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  acosh.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  ai.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  aie.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  albeta.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  algams.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  ali.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  alngam.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  alnrel.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  asinh.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  asyik.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  asyjy.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  atanh.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  avint.f
avint.f:98:72:

   98 |       IF (XLO-XUP) 3,100,200
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
avint.f:152:72:

  152 |       IF (I-ISTART) 30,30,35
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  bakvec.f
bakvec.f:112:72:

  112 |          DO 120 I = 2, N
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 120 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  balanc.f
balanc.f:160:72:

  160 |   180 SCALE(I) = 1.0E0
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 180 at (1)
balanc.f:194:72:

  194 |   250    A(I,J) = A(I,J) * G
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 250 at (1)
balanc.f:197:72:

  197 |   260    A(J,I) = A(J,I) * F
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 260 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  balbak.f
balbak.f:96:72:

   96 |   100    Z(I,J) = Z(I,J) * S
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  bandr.f
bandr.f:115:72:

  115 |    30 D(J) = 1.0E0
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1)
bandr.f:122:72:

  122 |    40    Z(J,K) = 0.0E0
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1)
bandr.f:128:72:

  128 |       IF (M1 - 1) 900, 800, 70
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
bandr.f:247:72:

  247 |   610       A(J,L) = DMINRT * A(J,L)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 610 at (1)
bandr.f:261:72:

  261 |   640       Z(L,J) = DMINRT * Z(L,J)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 640 at (1)
bandr.f:270:72:

  270 |   810 E(J) = SQRT(D(J))
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 810 at (1)
bandr.f:277:72:

  277 |   820    Z(J,K) = E(K) * Z(J,K)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 820 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  bandv.f
bandv.f:323:72:

  323 |   640       XU = XU + RV6(I) * Z(I,J)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 640 at (1)
bandv.f:326:72:

  326 |   660       RV6(I) = RV6(I) - XU * Z(I,J)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 660 at (1)
bandv.f:333:72:

  333 |   720    NORM = NORM + ABS(RV6(I))
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 720 at (1)
bandv.f:344:72:

  344 |   760    RV6(I) = XU
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 760 at (1)
bandv.f:357:72:

  357 |   860    U = U + RV6(I)**2
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 860 at (1)
bandv.f:362:72:

  362 |   900    Z(I,R) = RV6(I) * XU
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 900 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  bcrh.f
bcrh.f:41:72:

   41 |       IF (SGN*F(X,IZ,C,A,BH)) 103,105,102
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
bcrh.f:46:72:

   46 |       IF (DX-CNV) 105,105,101
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  bdiff.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  besi.f
besi.f:129:72:

  129 |       IF (N-1) 590, 10, 20
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
besi.f:133:72:

  133 |       IF (X) 600, 30, 80
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
besi.f:134:72:

  134 |    30 IF (ALPHA) 580, 40, 50
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
besi.f:286:72:

  286 |       IF (NN-1) 340, 290, 130
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
besi.f:296:72:

  296 |       IF (NN-1) 340, 310, 320
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  besi0.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  besi0e.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  besi1.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  besi1e.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  besj.f
besj.f:127:72:

  127 |       IF (N-1) 720, 10, 20
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
besj.f:130:72:

  130 |       IF (X) 730, 30, 80
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
besj.f:131:72:

  131 |    30 IF (ALPHA) 710, 40, 50
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
besj.f:252:72:

  252 |       IF (NN-1) 440, 390, 130
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
besj.f:262:72:

  262 |       IF (NN-1) 440, 410, 420
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  besj0.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  besj1.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  besk.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  besk0.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  besk0e.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  besk1.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  besk1e.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  beskes.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  besknu.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  besks.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  besy.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  besy0.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  besy1.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  besynu.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  beta.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  betai.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  bfqad.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  bi.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  bie.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  binom.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  bint4.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  bintk.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  bisect.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  bkias.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  bkisr.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  bksol.f
bksol.f:58:72:

   58 |    10 X(J)=X(J)*A(M) - SDOT(K,A(M+1),1,X(J+1),1)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  blktr1.f
blktr1.f:69:72:

   69 |             IF (I-NM) 101,101,108
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
blktr1.f:74:72:

   74 |             IF (I-IF) 102,108,108
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
blktr1.f:82:72:

   82 |             IF (IPI2-NM) 105,105,103
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
blktr1.f:97:72:

   97 |       IF (NPP) 132,110,132
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
blktr1.f:139:72:

  139 |             IF (I-I2-IZR) 117,114,117
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
blktr1.f:140:72:

  140 |   114       IF (I-NM) 115,115,118
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
blktr1.f:153:72:

  153 |             IF (I-NM) 117,119,117
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
blktr1.f:161:72:

  161 |       IF (NCMPLX) 121,122,121
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
blktr1.f:204:72:

  204 |             IF (IPI2-IZR) 127,128,127
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
blktr1.f:205:72:

  205 |   127       IF (I-IZR) 130,131,130
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
blktr1.f:233:72:

  233 |             IF (I-NM) 133,133,143
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
blktr1.f:243:72:

  243 |             IF (I-I2) 134,134,136
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
blktr1.f:250:72:

  250 |   137       IF (IPI2-NM) 140,140,138
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  blktri.f
blktri.f:223:72:

  223 |       IF (M-5) 101,102,102
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
blktri.f:226:72:

  226 |   102 IF (NM-3) 103,104,104
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
blktri.f:229:72:

  229 |   104 IF (IDIMY-M) 105,106,106
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
blktri.f:234:72:

  234 |       IF (NPP) 107,108,107
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
blktri.f:240:72:

  240 |       IF (NH-IK) 110,110,109
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
blktri.f:245:72:

  245 |       IF (NPP) 111,112,111
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
blktri.f:260:72:

  260 |   113 IF (IERROR) 119,114,119
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
blktri.f:266:72:

  266 |       IF (IFLG) 116,115,116
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
blktri.f:269:72:

  269 |   116 IF (MP) 117,118,117
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  bndacc.f
bndacc.f:234:72:

  234 |         DO 10 J=1,NBP1
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 10 at (1)
bndacc.f:241:72:

  241 |         DO 20 J=1,NBP1
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1)
bndacc.f:261:72:

  261 |         DO 50 I=1,K
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 50 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  bndsol.f
bndsol.f:245:72:

  245 |    70      IF (G(I,L+1)) 80,130,80
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
bndsol.f:246:72:

  246 |    80      X(I)=(X(I)-S)/G(I,L+1)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 80 at (1)
bndsol.f:260:72:

  260 |            IF (G(J,L+1)) 120,130,120
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
bndsol.f:261:72:

  261 |   120      X(J)=(X(J)-S)/G(J,L+1)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  bnfac.f
bnfac.f:103:72:

  103 |       IF (NROWM1) 120, 110, 10
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  bnslv.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  bqr.f
bqr.f:171:72:

  171 |    80 A(I,MB) = A(I,MB) - G
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 80 at (1)
bqr.f:174:72:

  174 |   100 RV(K) = 0.0E0
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1)
bqr.f:184:72:

  184 |   110    RV(K) = 0.0E0
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1)
bqr.f:239:72:

  239 |   180    SCALE = SCALE + ABS(RV(K))
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 180 at (1)
bqr.f:244:72:

  244 |   190    S = S + (RV(K)/SCALE)**2
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 190 at (1)
bqr.f:269:72:

  269 |   240    RV(K) = 0.0E0
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 240 at (1)
bqr.f:297:72:

  297 |             DO 320 K = 1, M1
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 320 at (1)
bqr.f:310:72:

  310 |   380 A(I,MB) = A(I,MB) - G
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 380 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  bsgq8.f
bsgq8.f:155:72:

  155 |       IF (EE-AE) 40, 40, 50
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
bsgq8.f:158:72:

  158 |       IF (LR(L)) 60, 60, 80
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
bsgq8.f:188:72:

  188 |       IF (LR(L)) 100, 100, 110
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  bskin.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  bspdoc.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  bspdr.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  bspev.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  bsplvd.f
bsplvd.f:51:72:

   51 |    11       VNIKX(J-1,IDERVM) = VNIKX(J,IDERIV)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 11 at (1)
bsplvd.f:58:72:

   58 |    19       A(I,J) = 0.
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 19 at (1)
bsplvd.f:59:72:

   59 |    20    A(I,I) = 1.
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1)
bsplvd.f:72:72:

   72 |    24          A(L,J) = (A(L,J) - A(L,J-1))/DIFF*FKMD
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 24 at (1)
bsplvd.f:79:72:

   79 |    30    DO 40 I=1,K
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1)
bsplvd.f:83:72:

   83 |    35          V = A(I,J)*VNIKX(J,M) + V
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 35 at (1)
bsplvd.f:84:72:

   84 |    40       VNIKX(I,M) = V
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  bsplvn.f
bsplvn.f:57:72:

   57 |    26       VMPREV = VM*DELTAM(JP1ML)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 26 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  bsppp.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  bspvd.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  bspvn.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  bsqad.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  bsrh.f
bsrh.f:41:72:

   41 |       IF (SGN*F(X,IZ,C,A,BH)) 103,105,102
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
bsrh.f:46:72:

   46 |       IF (DX-CNV) 105,105,101
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  bvalu.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  c0lgmc.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  c1merg.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  c9lgmc.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  c9ln2r.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  cacai.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  cacon.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  cacos.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  cacosh.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  cairy.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  carg.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  casin.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  casinh.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  casyi.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  catan.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  catan2.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  catanh.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  caxpy.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  cbabk2.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  cbal.f
cbal.f:173:72:

  173 |   180 SCALE(I) = 1.0E0
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 180 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  cbesh.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  cbesi.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  cbesj.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  cbesk.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  cbesy.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  cbeta.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  cbinu.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  cbiry.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  cbknu.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  cblkt1.f
cblkt1.f:71:72:

   71 |             IF (I-NM) 101,101,108
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
cblkt1.f:76:72:

   76 |             IF (I-IF) 102,108,108
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
cblkt1.f:84:72:

   84 |             IF (IPI2-NM) 105,105,103
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
cblkt1.f:99:72:

   99 |       IF (NPP) 132,110,132
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
cblkt1.f:141:72:

  141 |             IF (I-I2-IZR) 117,114,117
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
cblkt1.f:142:72:

  142 |   114       IF (I-NM) 115,115,118
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
cblkt1.f:155:72:

  155 |             IF (I-NM) 117,119,117
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
cblkt1.f:163:72:

  163 |       IF (NCMPLX) 121,122,121
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
cblkt1.f:206:72:

  206 |             IF (IPI2-IZR) 127,128,127
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
cblkt1.f:207:72:

  207 |   127       IF (I-IZR) 130,131,130
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
cblkt1.f:235:72:

  235 |             IF (I-NM) 133,133,143
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
cblkt1.f:245:72:

  245 |             IF (I-I2) 134,134,136
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
cblkt1.f:252:72:

  252 |   137       IF (IPI2-NM) 140,140,138
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  cblktr.f
cblktr.f:226:72:

  226 |       IF (M-5) 101,102,102
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
cblktr.f:229:72:

  229 |   102 IF (NM-3) 103,104,104
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
cblktr.f:232:72:

  232 |   104 IF (IDIMY-M) 105,106,106
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
cblktr.f:237:72:

  237 |       IF (NPP) 107,108,107
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
cblktr.f:243:72:

  243 |       IF (NH-IK) 110,110,109
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
cblktr.f:248:72:

  248 |       IF (NPP) 111,112,111
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
cblktr.f:263:72:

  263 |   113 IF (IERROR) 119,114,119
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
cblktr.f:269:72:

  269 |       IF (IFLG) 116,115,116
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
cblktr.f:272:72:

  272 |   116 IF (MP) 117,118,117
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  cbrt.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  cbuni.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  cbunk.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  ccbrt.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  cchdc.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  cchdd.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  cchex.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  cchud.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  ccmpb.f
ccmpb.f:52:72:

   52 |          IF (ARG) 119,101,101
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
ccmpb.f:66:72:

   66 |             IF (NB) 108,108,103
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
ccmpb.f:76:72:

   76 |             IF (IERROR) 118,105,118
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
ccmpb.f:87:72:

   87 |       IF (NPP) 117,110,117
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
ccmpb.f:94:72:

   94 |          IF (ARG) 119,111,111
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
ccmpb.f:99:72:

   99 |       IF (IERROR) 118,113,118
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
ccmpb.f:112:72:

  112 |       IF (J2-N2M2) 114,114,116
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
ccmpb.f:115:72:

  115 |       IF (J2-N2M2) 114,114,116
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  ccopy.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  ccosh.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  ccot.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  cdcdot.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  cdcor.f
cdcor.f:58:72:

   58 |  100        SAVE1(I) = (H*SAVE2(I) - YH(I,2) - SAVE1(I))/YWT(I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1)
cdcor.f:67:72:

   67 |  105      SAVE1(I) = H*SAVE2(I) - YH(I,2)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 105 at (1)
cdcor.f:71:72:

   71 |  130        SAVE2(I) = H*SAVE2(I) - YH(I,2) - SAVE1(I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 130 at (1)
cdcor.f:83:72:

   83 |  150        SAVE2(I) = H*SAVE2(I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 150 at (1)
cdcor.f:85:72:

   85 |             DO 160 I = 1,N
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 160 at (1)
cdcor.f:86:72:

   86 |  160          SAVE2(I) = SAVE2(I) - A(I,J)*(YH(J,2) + SAVE1(J))
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 160 at (1)
cdcor.f:98:72:

   98 |  180        SAVE2(I) = H*SAVE2(I) - A(I,1)*(YH(I,2) + SAVE1(I))
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 180 at (1)
cdcor.f:110:72:

  110 |  140        SAVE2(I) = H*SAVE2(I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 140 at (1)
cdcor.f:112:72:

  112 |             DO 170 I = 1,NDE
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 170 at (1)
cdcor.f:113:72:

  113 |  170          SAVE2(I) = SAVE2(I) - A(I,J)*(YH(J,2) + SAVE1(J))
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 170 at (1)
cdcor.f:119:72:

  119 |  200        SAVE2(I) = SAVE2(I)/YWT(I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 200 at (1)
cdcor.f:123:72:

  123 |  205        SAVE2(I) = SAVE2(I)/MAX(ABS(Y(I)), ABS(YWT(I)))
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 205 at (1)
cdcor.f:129:72:

  129 |  230        SAVE2(I) = H*SAVE2(I) - YH(I,2) - SAVE1(I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 230 at (1)
cdcor.f:141:72:

  141 |  250        SAVE2(I) = H*SAVE2(I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 250 at (1)
cdcor.f:144:72:

  144 |             DO 260 I = MAX(ML+1, MW+1-J), MIN(MW+N-J, MW+ML)
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 260 at (1)
cdcor.f:159:72:

  159 |  280        SAVE2(I) = H*SAVE2(I) - A(I,1)*(YH(I,2) + SAVE1(I))
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 280 at (1)
cdcor.f:171:72:

  171 |  270        SAVE2(I) = H*SAVE2(I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 270 at (1)
cdcor.f:174:72:

  174 |             DO 290 I = MAX(ML+1, MW+1-J), MIN(MW+NDE-J, MW+ML)
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 290 at (1)
cdcor.f:183:72:

  183 |  300        SAVE2(I) = SAVE2(I)/YWT(I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 300 at (1)
cdcor.f:187:72:

  187 |  305        SAVE2(I) = SAVE2(I)/MAX(ABS(Y(I)), ABS(YWT(I)))
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 305 at (1)
cdcor.f:201:72:

  201 |  320        SAVE2(I) = SAVE2(I)/YWT(I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 320 at (1)
cdcor.f:205:72:

  205 |  325        SAVE2(I) = SAVE2(I)/MAX(ABS(Y(I)), ABS(YWT(I)))
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 325 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  cdcst.f
cdcst.f:57:72:

   57 |  10     FACTRL(I) = I*FACTRL(I-1)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1)
cdcst.f:64:72:

   64 |  30         SUM = SUM - GAMMA(J)/(I-J+2)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1)
cdcst.f:65:72:

   65 |  40       GAMMA(I+1) = SUM
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1)
cdcst.f:73:72:

   73 |  50         EL(I,J) = (J-1)*EL(I,J-1) + EL(I-1,J-1)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 50 at (1)
cdcst.f:74:72:

   74 |  60       EL(J+1,J) = 1.E0
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 60 at (1)
cdcst.f:78:72:

   78 |           DO 80 I = 3,J+1
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 80 at (1)
cdcst.f:79:72:

   79 |  80         EL(I,J) = EL(I,J)/((I-1)*FACTRL(J-1))
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 80 at (1)
cdcst.f:83:72:

   83 |  100      TQ(3,J) = -1.E0/GAMMA(J+2)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1)
cdcst.f:91:72:

   91 |  120        EL(I,J) = J*EL(I,J-1) + EL(I-1,J-1)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1)
cdcst.f:92:72:

   92 |  130      EL(J+1,J) = 1.E0
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 130 at (1)
cdcst.f:96:72:

   96 |           DO 150 I = 1,J+1
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 150 at (1)
cdcst.f:97:72:

   97 |  150        EL(I,J) = EL(I,J)/(FACTRL(J)*SUM)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 150 at (1)
cdcst.f:101:72:

  101 |  170      TQ(3,J) = (J+2)/EL(1,J)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 170 at (1)
cdcst.f:113:72:

  113 |  180          SUM = SUM - GAMMA(J)/(I-J+2)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 180 at (1)
cdcst.f:114:72:

  114 |  190        GAMMA(I+1) = SUM
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 190 at (1)
cdcst.f:119:72:

  119 |  200      EL(1+I,1) = -(I+1)*SUM*GAMMA(I+1)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 200 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  cdiv.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  cdntl.f
cdntl.f:140:72:

  140 |  155          A(I,1) = 0.E0
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 155 at (1)
cdntl.f:170:72:

  170 |  170      SAVE1(I) = SAVE2(I)/MAX(1.E0, ABS(YWT(I)))
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 170 at (1)
cdntl.f:174:72:

  174 |  180      YH(I,2) = H*SAVE2(I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 180 at (1)
cdntl.f:177:72:

  177 |  20         FAC(I) = SQRT(UROUND)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  cdntp.f
cdntp.f:44:72:

   44 |  10       Y(I) = YH(I,NQ+1)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1)
cdntp.f:48:72:

   48 |           DO 20 I = 1,N
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1)
cdntp.f:49:72:

   49 |  20         Y(I) = YH(I,J) + R*Y(I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1)
cdntp.f:54:72:

   54 |  40       FACTOR = FACTOR*(NQ+1-KK)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1)
cdntp.f:56:72:

   56 |  50       Y(I) = FACTOR*YH(I,NQ+1)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 50 at (1)
cdntp.f:62:72:

   62 |  60         FACTOR = FACTOR*(J-KK)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 60 at (1)
cdntp.f:64:72:

   64 |  70         Y(I) = FACTOR*YH(I,J) + R*Y(I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 70 at (1)
cdntp.f:67:72:

   67 |  100      Y(I) = Y(I)*H**(-KUSED)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  cdotc.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  cdotu.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  cdpsc.f
cdpsc.f:44:72:

   44 |           DO 10 J2 = J1,NQ
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 10 at (1)
cdpsc.f:46:72:

   46 |             DO 10 I = 1,N
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 10 at (1)
cdpsc.f:47:72:

   47 |  10           YH(I,J) = YH(I,J) + YH(I,J+1)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1)
cdpsc.f:50:72:

   50 |           DO 30 J2 = J1,NQ
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1)
cdpsc.f:52:72:

   52 |             DO 30 I = 1,N
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1)
cdpsc.f:53:72:

   53 |  30           YH(I,J) = YH(I,J) - YH(I,J+1)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  cdpst.f
cdpst.f:67:72:

   67 |             DO 110 I = 1,N
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 110 at (1)
cdpst.f:68:72:

   68 |  110          DFDY(I,J) = FACTOR*DFDY(I,J)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1)
cdpst.f:100:72:

  100 |  140          DFDY(I,J) = (SAVE1(I) - SAVE2(I))*CFCTR
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 140 at (1)
cdpst.f:129:72:

  129 |  190        DFDY(I,I) = DFDY(I,I) + 1.E0
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 190 at (1)
cdpst.f:137:72:

  137 |             DO 210 I = 1,N
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 210 at (1)
cdpst.f:138:72:

  138 |  210          DFDY(I,J) = DFDY(I,J) + A(I,J)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 210 at (1)
cdpst.f:146:72:

  146 |  230        DFDY(I,I) = DFDY(I,I) + A(I,1)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 230 at (1)
cdpst.f:154:72:

  154 |             DO 220 I = 1,NDE
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 220 at (1)
cdpst.f:155:72:

  155 |  220          DFDY(I,J) = DFDY(I,J) + A(I,J)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 220 at (1)
cdpst.f:169:72:

  169 |             DO 260 I = MAX(ML+1, MW+1-J), MIN(MW+N-J, MW+ML)
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 260 at (1)
cdpst.f:170:72:

  170 |  260          DFDY(I,J) = FACTOR*DFDY(I,J)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 260 at (1)
cdpst.f:196:72:

  196 |  290          Y(K) = Y(K) + DY
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 290 at (1)
cdpst.f:207:72:

  207 |  300            DFDY(I,K) = CFCTR*(SAVE1(I+K-MW) - SAVE2(I+K-MW))
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 300 at (1)
cdpst.f:237:72:

  237 |             DO 345 I = MAX(ML+1, MW+1-J), MIN(MW+N-J, MW+ML)
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 345 at (1)
cdpst.f:246:72:

  246 |               DO 350 I = MAX(ML+1, MW+1-J), MIN(MW+N-J, MW+ML)
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 350 at (1)
cdpst.f:255:72:

  255 |  360        DFDY(MW,J) = DFDY(MW,J) + 1.E0
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 360 at (1)
cdpst.f:263:72:

  263 |             DO 380 I = MAX(ML+1, MW+1-J), MIN(MW+N-J, MW+ML)
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 380 at (1)
cdpst.f:264:72:

  264 |  380          DFDY(I,J) = DFDY(I,J) + A(I,J)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 380 at (1)
cdpst.f:272:72:

  272 |  400        DFDY(MW,J) =  DFDY(MW,J) + A(J,1)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 400 at (1)
cdpst.f:280:72:

  280 |             DO 390 I = MAX(ML+1, MW+1-J), MIN(MW+NDE-J, MW+ML)
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 390 at (1)
cdpst.f:281:72:

  281 |  390          DFDY(I,J) = DFDY(I,J) + A(I,J)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 390 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  cdriv1.f
cdriv1.f:365:72:

  365 |  20       IWORK(I) = WORK(I+LENWCM)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1)
cdriv1.f:372:72:

  372 |  40     WORK(I+LENWCM) = IWORK(I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  cdriv2.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  cdriv3.f
cdriv3.f:1000:72:

 1000 |  30       WORK(I+IYH-1) = Y(I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1)
cdriv3.f:1025:72:

 1025 |         DO 35 I = 1,13
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 35 at (1)
cdriv3.f:1026:72:

 1026 |  35       EL(I,J) = WORK(I+IEL+(J-1)*13-1)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 35 at (1)
cdriv3.f:1028:72:

 1028 |         DO 40 I = 1,3
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1)
cdriv3.f:1029:72:

 1029 |  40       TQ(I,J) = WORK(I+ITQ+(J-1)*3-1)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1)
cdriv3.f:1213:72:

 1213 |  190    Y(I) = WORK(I+IYH-1)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 190 at (1)
cdriv3.f:1226:72:

 1226 |  230      WORK(I+IYWT-1) = 1.E0
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 230 at (1)
cdriv3.f:1230:72:

 1230 |  250      WORK(I+IYWT-1) = EWT(I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 250 at (1)
cdriv3.f:1237:72:

 1237 |  280      WORK(I+IYWT-1) = Y(I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 280 at (1)
cdriv3.f:1287:72:

 1287 |  340          WORK(I+ISAVE2-1) = WORK(I+ISAVE2-1)/WORK(I+IA-1)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 340 at (1)
cdriv3.f:1327:72:

 1327 |  380      WORK(I+IYWT-1) = MAX(EWT(1), ABS(Y(I)))
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 380 at (1)
cdriv3.f:1330:72:

 1330 |  400      WORK(I+IYWT-1) = MAX(EWT(I), ABS(Y(I)))
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 400 at (1)
cdriv3.f:1334:72:

 1334 |  420    WORK(I+ISAVE2-1) = Y(I)/WORK(I+IYWT-1)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 420 at (1)
cdriv3.f:1429:72:

 1429 |  480                Y(J) = WORK(IYH+J-1)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 480 at (1)
cdriv3.f:1511:72:

 1511 |  570    Y(I) = WORK(I+IYH-1)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 570 at (1)
cdriv3.f:1525:72:

 1525 |         DO 582 I = 1,13
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 582 at (1)
cdriv3.f:1526:72:

 1526 |  582      WORK(I+IEL+(J-1)*13-1) = EL(I,J)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 582 at (1)
cdriv3.f:1528:72:

 1528 |         DO 584 I = 1,3
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 584 at (1)
cdriv3.f:1529:72:

 1529 |  584      WORK(I+ITQ+(J-1)*3-1) = TQ(I,J)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 584 at (1)
cdriv3.f:1546:72:

 1546 |  662    Y(I) = WORK(I + IYH - 1)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 662 at (1)
cdriv3.f:1560:72:

 1560 |         DO 664 I = 1,13
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 664 at (1)
cdriv3.f:1561:72:

 1561 |  664      WORK(I+IEL+(J-1)*13-1) = EL(I,J)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 664 at (1)
cdriv3.f:1563:72:

 1563 |         DO 666 I = 1,3
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 666 at (1)
cdriv3.f:1564:72:

 1564 |  666      WORK(I+ITQ+(J-1)*3-1) = TQ(I,J)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 666 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  cdscl.f
cdscl.f:49:72:

   49 |         DO 10 I = 1,N
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 10 at (1)
cdscl.f:50:72:

   50 |  10       YH(I,J+1) = YH(I,J+1)*R1
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  cdstp.f
cdstp.f:134:72:

  134 |  115    Y(I) = YH(I,1)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 115 at (1)
cdstp.f:153:72:

  153 |  125    SAVE1(I) = 0.E0
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 125 at (1)
cdstp.f:177:72:

  177 |  132        DFDY(1,I) = SAVE1(I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 132 at (1)
cdstp.f:182:72:

  182 |  134        DFDY(1,I) = SAVE1(I) - DFDY(1,I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 134 at (1)
cdstp.f:191:72:

  191 |  136        DFDY(1,I) = SAVE1(I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 136 at (1)
cdstp.f:203:72:

  203 |  140      Y(I) = YH(I,1) + EL(1,NQ)*SAVE1(I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 140 at (1)
cdstp.f:242:72:

  242 |  180      SAVE2(I) = SAVE1(I)/YWT(I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 180 at (1)
cdstp.f:245:72:

  245 |  185      SAVE2(I) = SAVE1(I)/MAX(ABS(Y(I)), ABS(YWT(I)))
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 185 at (1)
cdstp.f:264:72:

  264 |  190            SAVE2(I) = YH(I,NQ+1)/YWT(I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 190 at (1)
cdstp.f:267:72:

  267 |  195            SAVE2(I) = YH(I,NQ+1)/MAX(ABS(Y(I)), ABS(YWT(I)))
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 195 at (1)
cdstp.f:295:72:

  295 |  215      Y(I) = YH(I,1)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 215 at (1)
cdstp.f:314:72:

  314 |         DO 230 I = 1,N
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 230 at (1)
cdstp.f:315:72:

  315 |  230      YH(I,J) = YH(I,J) + EL(J,NQ)*SAVE1(I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 230 at (1)
cdstp.f:317:72:

  317 |  235    Y(I) = YH(I,1)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 235 at (1)
cdstp.f:384:72:

  384 |  250        YH(I,MAXORD+1) = SAVE1(I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 250 at (1)
cdstp.f:403:72:

  403 |  270          SAVE2(I) = YH(I,NQ+1)/YWT(I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 270 at (1)
cdstp.f:406:72:

  406 |  275          SAVE2(I) = YH(I,NQ+1)/MAX(ABS(Y(I)), ABS(YWT(I)))
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 275 at (1)
cdstp.f:417:72:

  417 |  290          SAVE2(I) = (SAVE1(I) - YH(I,MAXORD+1))/YWT(I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 290 at (1)
cdstp.f:439:72:

  439 |  360        YH(I,NQ+2) = SAVE1(I)*EL(NQ+1,NQ)/(NQ+1)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 360 at (1)
cdstp.f:459:72:

  459 |  405    Y(I) = YH(I,1)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 405 at (1)
cdstp.f:473:72:

  473 |  435    Y(I) = YH(I,1)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 435 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  cdzro.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  cexprl.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  cfftb.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  cfftb1.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  cfftf.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  cfftf1.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  cffti.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  cffti1.f
cffti1.f:78:72:

   78 |       IF (J-4) 102,102,103
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
cffti1.f:84:72:

   84 |       IF (NR) 101,105,101
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  cfod.f
cfod.f:98:72:

   98 |  110      PC(I) = PC(I-1) + FNQM1*PC(I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1)
cfod.f:107:72:

  107 |  120      XPIN = XPIN + TSIGN*PC(I)/(I+1)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1)
cfod.f:112:72:

  112 |  130      ELCO(I+1,NQ) = RQ1FAC*PC(I)/I
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 130 at (1)
cfod.f:135:72:

  135 |  210      PC(I) = PC(I-1) + FNQ*PC(I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 210 at (1)
cfod.f:139:72:

  139 |  220      ELCO(I,NQ) = PC(I)/PC(2)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 220 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  cg.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  cgamma.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  cgamr.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  cgbco.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  cgbdi.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  cgbfa.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  cgbmv.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  cgbsl.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  cgeco.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  cgedi.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  cgeev.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  cgefa.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  cgefs.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  cgeir.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  cgemm.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  cgemv.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  cgerc.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  cgeru.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  cgesl.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  cgtsl.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  ch.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  chbmv.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  chemm.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  chemv.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  cher.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  cher2.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  cher2k.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  cherk.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  chfcm.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  chfdv.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  chfev.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  chfie.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  chico.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  chidi.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  chiev.f
chiev.f:187:72:

  187 |    16   V(I) = 0.
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 16 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  chifa.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  chisl.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  chkder.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  chkpr4.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  chkprm.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  chksn4.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  chksng.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  chpco.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  chpdi.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  chpfa.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  chpmv.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  chpr.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  chpr2.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  chpsl.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  chu.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  cinvit.f
cinvit.f:163:72:

  163 |   160       X = X + PYTHAG(AR(I,J),AI(I,J))
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 160 at (1)
cinvit.f:293:72:

  293 |   860    RV1(I) = Y
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 860 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  ckscl.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  clbeta.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  clngam.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  clnrel.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  clog10.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  cmgnbn.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  cmlri.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  cmpcsg.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  cmposd.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  cmposn.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  cmposp.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  cmptr3.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  cmptrx.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  cnbco.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  cnbdi.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  cnbfa.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  cnbfs.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  cnbir.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  cnbsl.f
cnbsl.f:142:27:

  139 |         DO 60 K = 1, N
      |                                                                        2
......
  142 |           T = CDOTC(LM,ABE(K-1,ML+2),LDB,B(LB),1)
      |                           1
Warning: Array reference at (1) out of bounds (0 < 1) in loop beginning at (2)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  combak.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  comhes.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  comlr.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  comlr2.f
comlr2.f:131:72:

  131 |          DO 100 J = 1, N
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 100 at (1)
comlr2.f:325:72:

  325 |          DO 720 J = I, N
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 720 at (1)
comlr2.f:381:72:

  381 |          DO 880 I = LOW, IGH
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 880 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  compb.f
compb.f:52:72:

   52 |          IF (ARG) 119,101,101
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
compb.f:66:72:

   66 |             IF (NB) 108,108,103
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
compb.f:76:72:

   76 |             IF (IERROR) 118,105,118
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
compb.f:87:72:

   87 |       IF (NPP) 117,110,117
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
compb.f:94:72:

   94 |          IF (ARG) 119,111,111
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
compb.f:99:72:

   99 |       IF (IERROR) 118,113,118
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
compb.f:112:72:

  112 |       IF (J2-N2M2) 114,114,116
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
compb.f:115:72:

  115 |       IF (J2-N2M2) 114,114,116
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  comqr.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  comqr2.f
comqr2.f:133:72:

  133 |          DO 100 J = 1, N
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 100 at (1)
comqr2.f:141:72:

  141 |       IF (IEND) 180, 150, 105
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
comqr2.f:369:72:

  369 |          DO 720 J = I, N
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 720 at (1)
comqr2.f:424:72:

  424 |          DO 880 I = LOW, IGH
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 880 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  cortb.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  corth.f
corth.f:104:72:

  104 |    90    SCALE = SCALE + ABS(AR(I,M-1)) + ABS(AI(I,M-1))
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 90 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  cosdg.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  cosgen.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  cosqb.f
cosqb.f:92:72:

   92 |       IF (N-2) 101,102,103
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  cosqb1.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  cosqf.f
cosqf.f:92:72:

   92 |       IF (N-2) 102,101,103
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  cosqf1.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  cosqi.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  cost.f
cost.f:92:72:

   92 |       IF (N-2) 106,101,102
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  costi.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  cot.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  cpadd.f
cpadd.f:58:72:

   58 |       IF (BP(N)-BP(1)) 101,142,103
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
cpadd.f:70:72:

   70 |       IF (MODIZ) 106,107,106
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
cpadd.f:71:72:

   71 |   106 IF (A(1)) 110,142,107
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
cpadd.f:75:72:

   75 |       IF (PGSF(XL,IZ,C,A,BH)) 108,108,109
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
cpadd.f:80:72:

   80 |       IF (MODIZ) 111,112,111
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
cpadd.f:81:72:

   81 |   111 IF (A(1)) 112,142,115
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
cpadd.f:85:72:

   85 |       IF (PGSF(XR,IZ,C,A,BH)) 113,114,114
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
cpadd.f:95:72:

   95 |          IF (ABS(PSG)-EPS) 118,118,116
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
cpadd.f:96:72:

   96 |   116    IF (PSG*PPGSF(XM,IZ,C,A,BH)) 117,118,119
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
cpadd.f:128:72:

  128 |          IF (MODIZ) 123,122,123
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
cpadd.f:133:72:

  133 |          IF (ABS(FP)) 126,126,125
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
cpadd.f:136:72:

  136 |   126    IF (ABS(FPP)) 132,132,127
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
cpadd.f:140:72:

  140 |          IF (ABS(R1)-ABS(R2)) 129,129,128
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
cpadd.f:146:72:

  146 |          IF (I3) 133,133,131
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
cpadd.f:154:72:

  154 |          IF (ICV) 134,134,135
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
cpadd.f:160:72:

  160 |       IF (ABS(CBP(N))-ABS(CBP(1))) 137,142,139
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
cpadd.f:170:72:

  170 |          IF (AIMAG(CBP(J))) 143,140,143
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  cpbco.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  cpbdi.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  cpbfa.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  cpbsl.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  cpevl.f
cpevl.f:76:72:

   76 |             DO 1 I=1,MINI
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 1 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  cpevlr.f
cpevlr.f:41:72:

   41 |             DO 1 I=1,MINI
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 1 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  cpoco.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  cpodi.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  cpofa.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  cpofs.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  cpoir.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  cposl.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  cppco.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  cppdi.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  cppfa.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  cppsl.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  cpqr79.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  cproc.f
cproc.f:65:72:

   65 |       IF (ID) 109,109,103
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
cproc.f:80:72:

   80 |       IF (ABS(DEN)) 105,106,105
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
cproc.f:87:72:

   87 |   109 IF (M1) 110,110,112
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
cproc.f:88:72:

   88 |   110 IF (M2) 121,121,111
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
cproc.f:92:72:

   92 |   112 IF (M2) 113,113,114
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
cproc.f:96:72:

   96 |   114 IF (ABS(BM1(M1))-ABS(BM2(M2))) 116,116,115
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
cproc.f:103:72:

  103 |       IF (MM-2) 120,118,118
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
cproc.f:116:72:

  116 |   121 IF (IA) 124,124,122
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
cproc.f:126:72:

  126 |   124 IF (IFLG) 125,125,102
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  cprocp.f
cprocp.f:68:72:

   68 |       IF (ID) 111,111,103
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
cprocp.f:82:72:

   82 |       IF (MM2-2) 106,104,104
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
cprocp.f:99:72:

   99 |       IF (ABS(DEN)) 107,108,107
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
cprocp.f:108:72:

  108 |   111 IF (M1) 112,112,114
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
cprocp.f:109:72:

  109 |   112 IF (M2) 123,123,113
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
cprocp.f:113:72:

  113 |   114 IF (M2) 115,115,116
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
cprocp.f:117:72:

  117 |   116 IF (ABS(BM1(M1))-ABS(BM2(M2))) 118,118,117
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
cprocp.f:128:72:

  128 |       IF (MM-2) 122,120,120
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
cprocp.f:138:72:

  138 |   123 IF (IA) 126,126,124
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
cprocp.f:148:72:

  148 |   126 IF (IFLG) 127,127,102
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  cprod.f
cprod.f:64:72:

   64 |       IF (ID) 109,109,103
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
cprod.f:79:72:

   79 |       IF (ABS(DEN)) 105,106,105
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
cprod.f:86:72:

   86 |   109 IF (M1) 110,110,112
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
cprod.f:87:72:

   87 |   110 IF (M2) 121,121,111
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
cprod.f:91:72:

   91 |   112 IF (M2) 113,113,114
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
cprod.f:95:72:

   95 |   114 IF (ABS(BM1(M1))-ABS(BM2(M2))) 116,116,115
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
cprod.f:102:72:

  102 |       IF (MM-2) 120,118,118
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
cprod.f:115:72:

  115 |   121 IF (IA) 124,124,122
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
cprod.f:125:72:

  125 |   124 IF (IFLG) 125,125,102
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  cprodp.f
cprodp.f:69:72:

   69 |       IF (ID) 111,111,103
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
cprodp.f:83:72:

   83 |       IF (MM2-2) 106,104,104
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
cprodp.f:100:72:

  100 |       IF (ABS(DEN)) 107,108,107
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
cprodp.f:109:72:

  109 |   111 IF (M1) 112,112,114
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
cprodp.f:110:72:

  110 |   112 IF (M2) 123,123,113
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
cprodp.f:114:72:

  114 |   114 IF (M2) 115,115,116
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
cprodp.f:118:72:

  118 |   116 IF (ABS(BM1(M1))-ABS(BM2(M2))) 118,118,117
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
cprodp.f:129:72:

  129 |       IF (MM-2) 122,120,120
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
cprodp.f:139:72:

  139 |   123 IF (IA) 126,126,124
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
cprodp.f:149:72:

  149 |   126 IF (IFLG) 127,127,102
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  cpsi.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  cptsl.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  cpzero.f
cpzero.f:112:72:

  112 |    13    R(I)=MAX(X,.001*ABS(TEMP))*CMPLX(COS(U),SIN(U))+TEMP
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 13 at (1)
cpzero.f:129:72:

  129 |    17             IF(J .NE. I) TEMP=TEMP*(R(I)-R(J))
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 17 at (1)
cpzero.f:133:72:

  133 |    15       R(I)=R(I)-T(I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 15 at (1)
cpzero.f:148:72:

  148 |    23       S(NR)=MAX(S(NR),(ABS(TEMP)/X)**(1./I))
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 23 at (1)
cpzero.f:149:72:

  149 |    25    S(NR)=1./S(NR)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1)
cpzero.f:101:43:

   92 |       CALL CPEVL(N,N,A,TEMP,T,T,.FALSE.)
      |                            2               
......
  101 |          CALL CPEVL(N,0,T(N1),CMPLX(X,0.0),PN,PN,.FALSE.)
      |                                           1
Warning: Rank mismatch between actual argument at (1) and actual argument at (2) (rank-1 and scalar)
cpzero.f:101:46:

   92 |       CALL CPEVL(N,N,A,TEMP,T,T,.FALSE.)
      |                              2                
......
  101 |          CALL CPEVL(N,0,T(N1),CMPLX(X,0.0),PN,PN,.FALSE.)
      |                                              1
Warning: Rank mismatch between actual argument at (1) and actual argument at (2) (rank-1 and scalar)
cpzero.f:106:43:

   92 |       CALL CPEVL(N,N,A,TEMP,T,T,.FALSE.)
      |                            2               
......
  106 |          CALL CPEVL(N,0,T(N1),CMPLX(X,0.0),PN,PN,.FALSE.)
      |                                           1
Warning: Rank mismatch between actual argument at (1) and actual argument at (2) (rank-1 and scalar)
cpzero.f:106:46:

   92 |       CALL CPEVL(N,N,A,TEMP,T,T,.FALSE.)
      |                              2                
......
  106 |          CALL CPEVL(N,0,T(N1),CMPLX(X,0.0),PN,PN,.FALSE.)
      |                                              1
Warning: Rank mismatch between actual argument at (1) and actual argument at (2) (rank-1 and scalar)
cpzero.f:121:37:

   92 |       CALL CPEVL(N,N,A,TEMP,T,T,.FALSE.)
      |                            2         
......
  121 |                CALL CPEVL(N,0,A,R(I),PN,TEMP,.TRUE.)
      |                                     1
Warning: Rank mismatch between actual argument at (1) and actual argument at (2) (rank-1 and scalar)
cpzero.f:121:40:

   92 |       CALL CPEVL(N,N,A,TEMP,T,T,.FALSE.)
      |                              2          
......
  121 |                CALL CPEVL(N,0,A,R(I),PN,TEMP,.TRUE.)
      |                                        1
Warning: Rank mismatch between actual argument at (1) and actual argument at (2) (rank-1 and scalar)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  cqrdc.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  cqrsl.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  crati.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  crotg.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  cs1s2.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  cscal.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  cscale.f
cscale.f:51:72:

   51 |     5    COLS(K)=SDOT(NROW,A(1,K),1,A(1,K),1)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 5 at (1)
cscale.f:61:72:

   61 |    30    SCALES(K)=1.
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1)
cscale.f:80:72:

   80 |    80       A(J,K)=S*A(J,K)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 80 at (1)
cscale.f:88:72:

   88 |   200    ANORM=ANORM+ROWS(K)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 200 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  cseri.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  csevl.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  cshch.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  csico.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  csidi.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  csifa.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  csinh.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  csisl.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  cspco.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  cspdi.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  cspfa.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  cspsl.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  csroot.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  csrot.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  csscal.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  csvdc.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  cswap.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  csymm.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  csyr2k.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  csyrk.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  ctan.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  ctanh.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  ctbmv.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  ctbsv.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  ctpmv.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  ctpsv.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  ctrco.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  ctrdi.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  ctrmm.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  ctrmv.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  ctrsl.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  ctrsm.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  ctrsv.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  cuchk.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  cunhj.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  cuni1.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  cuni2.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  cunik.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  cunk1.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  cunk2.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  cuoik.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  cv.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  cwrsk.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  d1mach.f
d1mach.f:170:72:

  170 |  10               CRAY1(J+1) = CRAY1(J) + CRAY1(J)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1)
d1mach.f:173:72:

  173 |  20               CRAY1(J+1) = CRAY1(J) + CRAY1(J)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  d1merg.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  d1mpyq.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  d1updt.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  d9aimp.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  d9atn1.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  d9b0mp.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  d9b1mp.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  d9chu.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  d9gmic.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  d9gmit.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  d9knus.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  d9lgic.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  d9lgit.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  d9lgmc.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  d9ln2r.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  d9pak.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  d9upak.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dacosh.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dai.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  daie.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dasinh.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dasum.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dasyik.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dasyjy.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  datanh.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  davint.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  daws.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  daxpy.f
daxpy.f:67:72:

   67 |       IF (INCX .EQ. INCY) IF (INCX-1) 5,20,60
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dbcg.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dbdiff.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dbesi.f
dbesi.f:134:72:

  134 |       IF (N-1) 590, 10, 20
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
dbesi.f:138:72:

  138 |       IF (X) 600, 30, 80
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
dbesi.f:139:72:

  139 |    30 IF (ALPHA) 580, 40, 50
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
dbesi.f:291:72:

  291 |       IF (NN-1) 340, 290, 130
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
dbesi.f:301:72:

  301 |       IF (NN-1) 340, 310, 320
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dbesi0.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dbesi1.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dbesj.f
dbesj.f:132:72:

  132 |       IF (N-1) 720, 10, 20
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
dbesj.f:135:72:

  135 |       IF (X) 730, 30, 80
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
dbesj.f:136:72:

  136 |    30 IF (ALPHA) 710, 40, 50
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
dbesj.f:257:72:

  257 |       IF (NN-1) 440, 390, 130
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
dbesj.f:267:72:

  267 |       IF (NN-1) 440, 410, 420
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dbesj0.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dbesj1.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dbesk.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dbesk0.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dbesk1.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dbesks.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dbesy.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dbesy0.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dbesy1.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dbeta.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dbetai.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dbfqad.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dbhin.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dbi.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dbie.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dbinom.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dbint4.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dbintk.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dbkias.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dbkisr.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dbksol.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dbndac.f
dbndac.f:233:72:

  233 |         DO 10 J=1,NBP1
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 10 at (1)
dbndac.f:240:72:

  240 |         DO 20 J=1,NBP1
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1)
dbndac.f:260:72:

  260 |         DO 50 I=1,K
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 50 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dbndsl.f
dbndsl.f:244:72:

  244 |    70      IF (G(I,L+1)) 80,130,80
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
dbndsl.f:245:72:

  245 |    80      X(I)=(X(I)-S)/G(I,L+1)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 80 at (1)
dbndsl.f:259:72:

  259 |            IF (G(J,L+1)) 120,130,120
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
dbndsl.f:260:72:

  260 |   120      X(J)=(X(J)-S)/G(J,L+1)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dbnfac.f
dbnfac.f:105:72:

  105 |       IF (NROWM1) 120, 110, 10
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dbnslv.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dbocls.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dbols.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dbolsm.f
dbolsm.f:863:27:

  807 |           CALL IVOUT(NCOLS,IBASIS,'('' INTERNAL VARIABLE ORDER'')',-4)
      |                           2
......
  863 |               CALL IVOUT(0,I,'('' FOUND NO VARIABLE TO ENTER'')',-4)
      |                           1
Warning: Rank mismatch between actual argument at (1) and actual argument at (2) (rank-1 and scalar)
dbolsm.f:872:23:

  807 |           CALL IVOUT(NCOLS,IBASIS,'('' INTERNAL VARIABLE ORDER'')',-4)
      |                           2
......
  872 |      *    CALL IVOUT(1,JBIG,'('' TRY TO BRING IN THIS COL.'')',-4)
      |                       1
Warning: Rank mismatch between actual argument at (1) and actual argument at (2) (rank-1 and scalar)
dbolsm.f:893:27:

  807 |           CALL IVOUT(NCOLS,IBASIS,'('' INTERNAL VARIABLE ORDER'')',-4)
      |                           2
......
  893 |      *        CALL IVOUT(0,I,'('' VARIABLE IS DEPENDENT, NOT USED.'')',
      |                           1
Warning: Rank mismatch between actual argument at (1) and actual argument at (2) (rank-1 and scalar)
dbolsm.f:933:27:

  807 |           CALL IVOUT(NCOLS,IBASIS,'('' INTERNAL VARIABLE ORDER'')',-4)
      |                           2
......
  933 |               CALL IVOUT(0,I,'('' PIVOT IS ZERO, NOT USED.'')',-4)
      |                           1
Warning: Rank mismatch between actual argument at (1) and actual argument at (2) (rank-1 and scalar)
dbolsm.f:957:23:

  807 |           CALL IVOUT(NCOLS,IBASIS,'('' INTERNAL VARIABLE ORDER'')',-4)
      |                           2
......
  957 |      *    CALL IVOUT(0,I,'('' VARIABLE HAS BAD DIRECTION, NOT USED.'')',
      |                       1
Warning: Rank mismatch between actual argument at (1) and actual argument at (2) (rank-1 and scalar)
dbolsm.f:979:27:

  729 |       CALL DCOPY(NCOLS,ZERO,0,X,1)
      |                       2    
......
  979 |           CALL DCOPY(NSETB,RW,1,X,1)
      |                           1
Warning: Rank mismatch between actual argument at (1) and actual argument at (2) (scalar and rank-1)
dbolsm.f:1047:27:

  729 |       CALL DCOPY(NCOLS,ZERO,0,X,1)
      |                       2    
......
 1047 |           CALL DCOPY(NSETB,RW,1,X,1)
      |                           1
Warning: Rank mismatch between actual argument at (1) and actual argument at (2) (scalar and rank-1)
dbolsm.f:1113:23:

  729 |       CALL DCOPY(NCOLS,ZERO,0,X,1)
      |                       2
......
 1113 |       CALL DCOPY(JDROP,RW,1,W(1,NSETB),1)
      |                       1
Warning: Rank mismatch between actual argument at (1) and actual argument at (2) (scalar and rank-1)
dbolsm.f:1179:23:

  729 |       CALL DCOPY(NCOLS,ZERO,0,X,1)
      |                       2
......
 1179 |   130 CALL DCOPY(NSETB,X,1,RW,1)
      |                       1
Warning: Rank mismatch between actual argument at (1) and actual argument at (2) (scalar and rank-1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dbsgq8.f
dbsgq8.f:157:72:

  157 |       IF (EE-AE) 40, 40, 50
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
dbsgq8.f:160:72:

  160 |       IF (LR(L)) 60, 60, 80
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
dbsgq8.f:190:72:

  190 |       IF (LR(L)) 100, 100, 110
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dbsi0e.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dbsi1e.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dbsk0e.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dbsk1e.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dbskes.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dbskin.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dbsknu.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dbspdr.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dbspev.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dbsppp.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dbspvd.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dbspvn.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dbsqad.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dbsynu.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dbvalu.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dcbrt.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dcdot.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dcfod.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dcg.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dcgn.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dcgs.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dchdc.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dchdd.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dchex.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dchfcm.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dchfdv.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dchfev.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dchfie.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dchkw.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dchu.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dchud.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dckder.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dcoef.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dcopy.f
dcopy.f:65:72:

   65 |       IF (INCX .EQ. INCY) IF (INCX-1) 5,20,60
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dcopym.f
dcopym.f:55:72:

   55 |       IF (INCX .EQ. INCY) IF (INCX-1) 5,20,60
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dcosdg.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dcot.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dcov.f
dcov.f:210:72:

  210 | 120   R(I,I)=WA1(I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1)
dcov.f:268:72:

  268 |       DO 290 J=I,N
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 290 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dcpplt.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dcscal.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dcsevl.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dcv.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  ddaini.f
ddaini.f:110:72:

  110 | 100      PHI(I,2)=YPRIME(I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1)
ddaini.f:124:72:

  124 | 250     Y(I)=Y(I)+H*YPRIME(I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 250 at (1)
ddaini.f:157:72:

  157 | 320      DELTA(I)=DELTA(I)*DAMP
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 320 at (1)
ddaini.f:167:72:

  167 | 330      YPRIME(I)=YPRIME(I)-CJ*DELTA(I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 330 at (1)
ddaini.f:203:72:

  203 | 410      DELTA(I)=MIN(Y(I),0.0D0)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 410 at (1)
ddaini.f:210:72:

  210 | 420      YPRIME(I)=YPRIME(I)-CJ*DELTA(I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 420 at (1)
ddaini.f:227:72:

  227 | 510      E(I)=Y(I)-PHI(I,1)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 510 at (1)
ddaini.f:246:72:

  246 | 610      YPRIME(I)=PHI(I,2)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 610 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  ddajac.f
ddajac.f:103:72:

  103 | 110      WM(NPDM1+I)=0.0D0
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1)
ddajac.f:124:72:

  124 | 220      WM(NROW+L)=(E(L)-DELTA(L))*DELINV
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 220 at (1)
ddajac.f:143:72:

  143 | 410      WM(NPDM1+I)=0.0D0
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 410 at (1)
ddajac.f:168:72:

  168 | 510       YPRIME(N)=YPRIME(N)+CJ*DEL
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 510 at (1)
ddajac.f:183:72:

  183 | 520         WM(II+I)=(E(I)-DELTA(I))*DELINV
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 520 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  ddanrm.f
ddanrm.f:57:72:

   57 | 20      SUM = SUM + ((V(I)/WT(I))/VMAX)**2
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  ddaslv.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  ddassl.f
ddassl.f:1180:72:

 1180 | 370      RWORK(ITEMP + I - 1) = H*YPRIME(I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 370 at (1)
ddassl.f:1313:72:

 1313 | 524        ATOL(I)=R*ATOL(I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 524 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  ddastp.f
ddastp.f:240:72:

  240 | 260         PHI(I,J)=BETA(J)*PHI(I,J)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 260 at (1)
ddastp.f:261:72:

  261 | 310      YPRIME(I)=0.0D0
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 310 at (1)
ddastp.f:265:72:

  265 | 320         YPRIME(I)=YPRIME(I)+GAMMA(J)*PHI(I,J)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 320 at (1)
ddastp.f:302:72:

  302 | 345      E(I)=0.0D0
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 345 at (1)
ddastp.f:311:72:

  311 | 355     DELTA(I) = DELTA(I) * TEMP1
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 355 at (1)
ddastp.f:321:72:

  321 | 360      YPRIME(I)=YPRIME(I)-CJ*DELTA(I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 360 at (1)
ddastp.f:367:72:

  367 | 377      DELTA(I) = MIN(Y(I),0.0D0)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 377 at (1)
ddastp.f:371:72:

  371 | 378      E(I) = E(I) - DELTA(I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 378 at (1)
ddastp.f:402:72:

  402 | 405     DELTA(I) = PHI(I,KP1) + E(I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 405 at (1)
ddastp.f:410:72:

  410 | 415     DELTA(I) = PHI(I,K) + DELTA(I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 415 at (1)
ddastp.f:455:72:

  455 | 510      DELTA(I)=E(I)-PHI(I,KP2)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 510 at (1)
ddastp.f:500:72:

  500 | 580      PHI(I,KP2)=E(I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 580 at (1)
ddastp.f:503:72:

  503 | 590      PHI(I,KP1)=PHI(I,KP1)+E(I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 590 at (1)
ddastp.f:506:72:

  506 |          DO 595 I=1,NEQ
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 595 at (1)
ddastp.f:507:72:

  507 | 595      PHI(I,J)=PHI(I,J)+PHI(I,J+1)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 595 at (1)
ddastp.f:530:72:

  530 | 610         PHI(I,J)=TEMP1*PHI(I,J)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 610 at (1)
ddastp.f:534:72:

  534 | 640      PSI(I-1)=PSI(I)-H
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 640 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  ddatrp.f
ddatrp.f:66:72:

   66 | 10       YPOUT(I)=0.0D0
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1)
ddatrp.f:76:72:

   76 | 20          YPOUT(I)=YPOUT(I)+D*PHI(I,J)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  ddaws.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  ddawts.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  ddcor.f
ddcor.f:57:72:

   57 |  100        SAVE1(I) = (H*SAVE2(I) - YH(I,2) - SAVE1(I))/YWT(I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1)
ddcor.f:66:72:

   66 |  105      SAVE1(I) = H*SAVE2(I) - YH(I,2)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 105 at (1)
ddcor.f:70:72:

   70 |  130        SAVE2(I) = H*SAVE2(I) - YH(I,2) - SAVE1(I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 130 at (1)
ddcor.f:82:72:

   82 |  150        SAVE2(I) = H*SAVE2(I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 150 at (1)
ddcor.f:84:72:

   84 |             DO 160 I = 1,N
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 160 at (1)
ddcor.f:85:72:

   85 |  160          SAVE2(I) = SAVE2(I) - A(I,J)*(YH(J,2) + SAVE1(J))
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 160 at (1)
ddcor.f:97:72:

   97 |  180        SAVE2(I) = H*SAVE2(I) - A(I,1)*(YH(I,2) + SAVE1(I))
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 180 at (1)
ddcor.f:109:72:

  109 |  140        SAVE2(I) = H*SAVE2(I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 140 at (1)
ddcor.f:111:72:

  111 |             DO 170 I = 1,NDE
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 170 at (1)
ddcor.f:112:72:

  112 |  170          SAVE2(I) = SAVE2(I) - A(I,J)*(YH(J,2) + SAVE1(J))
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 170 at (1)
ddcor.f:118:72:

  118 |  200        SAVE2(I) = SAVE2(I)/YWT(I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 200 at (1)
ddcor.f:122:72:

  122 |  205        SAVE2(I) = SAVE2(I)/MAX(ABS(Y(I)), YWT(I))
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 205 at (1)
ddcor.f:128:72:

  128 |  230        SAVE2(I) = H*SAVE2(I) - YH(I,2) - SAVE1(I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 230 at (1)
ddcor.f:140:72:

  140 |  250        SAVE2(I) = H*SAVE2(I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 250 at (1)
ddcor.f:143:72:

  143 |             DO 260 I = MAX(ML+1, MW+1-J), MIN(MW+N-J, MW+ML)
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 260 at (1)
ddcor.f:158:72:

  158 |  280        SAVE2(I) = H*SAVE2(I) - A(I,1)*(YH(I,2) + SAVE1(I))
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 280 at (1)
ddcor.f:170:72:

  170 |  270        SAVE2(I) = H*SAVE2(I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 270 at (1)
ddcor.f:173:72:

  173 |             DO 290 I = MAX(ML+1, MW+1-J), MIN(MW+NDE-J, MW+ML)
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 290 at (1)
ddcor.f:182:72:

  182 |  300        SAVE2(I) = SAVE2(I)/YWT(I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 300 at (1)
ddcor.f:186:72:

  186 |  305        SAVE2(I) = SAVE2(I)/MAX(ABS(Y(I)), YWT(I))
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 305 at (1)
ddcor.f:200:72:

  200 |  320        SAVE2(I) = SAVE2(I)/YWT(I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 320 at (1)
ddcor.f:204:72:

  204 |  325        SAVE2(I) = SAVE2(I)/MAX(ABS(Y(I)), YWT(I))
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 325 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  ddcst.f
ddcst.f:57:72:

   57 |  10     FACTRL(I) = I*FACTRL(I-1)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1)
ddcst.f:64:72:

   64 |  30         SUM = SUM - GAMMA(J)/(I-J+2)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1)
ddcst.f:65:72:

   65 |  40       GAMMA(I+1) = SUM
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1)
ddcst.f:73:72:

   73 |  50         EL(I,J) = (J-1)*EL(I,J-1) + EL(I-1,J-1)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 50 at (1)
ddcst.f:74:72:

   74 |  60       EL(J+1,J) = 1.D0
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 60 at (1)
ddcst.f:78:72:

   78 |           DO 80 I = 3,J+1
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 80 at (1)
ddcst.f:79:72:

   79 |  80         EL(I,J) = EL(I,J)/((I-1)*FACTRL(J-1))
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 80 at (1)
ddcst.f:83:72:

   83 |  100      TQ(3,J) = -1.D0/GAMMA(J+2)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1)
ddcst.f:91:72:

   91 |  120        EL(I,J) = J*EL(I,J-1) + EL(I-1,J-1)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1)
ddcst.f:92:72:

   92 |  130      EL(J+1,J) = 1.D0
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 130 at (1)
ddcst.f:96:72:

   96 |           DO 150 I = 1,J+1
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 150 at (1)
ddcst.f:97:72:

   97 |  150        EL(I,J) = EL(I,J)/(FACTRL(J)*SUM)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 150 at (1)
ddcst.f:101:72:

  101 |  170      TQ(3,J) = (J+2)/EL(1,J)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 170 at (1)
ddcst.f:113:72:

  113 |  180          SUM = SUM - GAMMA(J)/(I-J+2)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 180 at (1)
ddcst.f:114:72:

  114 |  190        GAMMA(I+1) = SUM
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 190 at (1)
ddcst.f:119:72:

  119 |  200      EL(1+I,1) = -(I+1)*SUM*GAMMA(I+1)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 200 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  ddeabm.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  ddebdf.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dderkf.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  ddes.f
ddes.f:294:72:

  294 |   215    YPOUT(L) = YP(L)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 215 at (1)
ddes.f:306:72:

  306 |   230   YY(L) = Y(L)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 230 at (1)
ddes.f:340:72:

  340 |   270   Y(L) = YY(L) + DT*YP(L)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 270 at (1)
ddes.f:354:72:

  354 |   290   YPOUT(L) = YP(L)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 290 at (1)
ddes.f:378:72:

  378 |   320   YPOUT(L) = YP(L)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 320 at (1)
ddes.f:406:72:

  406 |   370   YPOUT(L) = YP(L)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 370 at (1)
ddes.f:428:72:

  428 |   390   ATOL(L) = EPS*ATOL(L)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 390 at (1)
ddes.f:431:72:

  431 |   410   YPOUT(L) = YP(L)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 410 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  ddntl.f
ddntl.f:139:72:

  139 |  155          A(I,1) = 0.D0
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 155 at (1)
ddntl.f:169:72:

  169 |  170      SAVE1(I) = SAVE2(I)/MAX(1.D0, YWT(I))
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 170 at (1)
ddntl.f:173:72:

  173 |  180      YH(I,2) = H*SAVE2(I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 180 at (1)
ddntl.f:176:72:

  176 |  20         FAC(I) = SQRT(UROUND)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  ddntp.f
ddntp.f:43:72:

   43 |  10       Y(I) = YH(I,NQ+1)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1)
ddntp.f:47:72:

   47 |           DO 20 I = 1,N
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1)
ddntp.f:48:72:

   48 |  20         Y(I) = YH(I,J) + R*Y(I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1)
ddntp.f:53:72:

   53 |  40       FACTOR = FACTOR*(NQ+1-KK)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1)
ddntp.f:55:72:

   55 |  50       Y(I) = FACTOR*YH(I,NQ+1)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 50 at (1)
ddntp.f:61:72:

   61 |  60         FACTOR = FACTOR*(J-KK)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 60 at (1)
ddntp.f:63:72:

   63 |  70         Y(I) = FACTOR*YH(I,J) + R*Y(I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 70 at (1)
ddntp.f:66:72:

   66 |  100      Y(I) = Y(I)*H**(-KUSED)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  ddoglg.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  ddot.f
ddot.f:66:72:

   66 |       IF (INCX .EQ. INCY) IF (INCX-1) 5,20,60
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  ddpsc.f
ddpsc.f:44:72:

   44 |           DO 10 J2 = J1,NQ
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 10 at (1)
ddpsc.f:46:72:

   46 |             DO 10 I = 1,N
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 10 at (1)
ddpsc.f:47:72:

   47 |  10           YH(I,J) = YH(I,J) + YH(I,J+1)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1)
ddpsc.f:50:72:

   50 |           DO 30 J2 = J1,NQ
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1)
ddpsc.f:52:72:

   52 |             DO 30 I = 1,N
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1)
ddpsc.f:53:72:

   53 |  30           YH(I,J) = YH(I,J) - YH(I,J+1)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  ddpst.f
ddpst.f:67:72:

   67 |             DO 110 I = 1,N
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 110 at (1)
ddpst.f:68:72:

   68 |  110          DFDY(I,J) = FACTOR*DFDY(I,J)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1)
ddpst.f:101:72:

  101 |  140          DFDY(I,J) = (SAVE1(I) - SAVE2(I))*FACTOR
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 140 at (1)
ddpst.f:130:72:

  130 |  190        DFDY(I,I) = DFDY(I,I) + 1.D0
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 190 at (1)
ddpst.f:138:72:

  138 |             DO 210 I = 1,N
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 210 at (1)
ddpst.f:139:72:

  139 |  210          DFDY(I,J) = DFDY(I,J) + A(I,J)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 210 at (1)
ddpst.f:147:72:

  147 |  230        DFDY(I,I) = DFDY(I,I) + A(I,1)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 230 at (1)
ddpst.f:155:72:

  155 |             DO 220 I = 1,NDE
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 220 at (1)
ddpst.f:156:72:

  156 |  220          DFDY(I,J) = DFDY(I,J) + A(I,J)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 220 at (1)
ddpst.f:170:72:

  170 |             DO 260 I = MAX(ML+1, MW+1-J), MIN(MW+N-J, MW+ML)
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 260 at (1)
ddpst.f:171:72:

  171 |  260          DFDY(I,J) = FACTOR*DFDY(I,J)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 260 at (1)
ddpst.f:198:72:

  198 |  290          Y(K) = Y(K) + DY
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 290 at (1)
ddpst.f:217:72:

  217 |  300            DFDY(I,K) = FACTOR*(SAVE1(I+K-MW) - SAVE2(I+K-MW))
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 300 at (1)
ddpst.f:247:72:

  247 |             DO 345 I = MAX(ML+1, MW+1-J), MIN(MW+N-J, MW+ML)
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 345 at (1)
ddpst.f:248:72:

  248 |  345          DFDYMX = MAX(DFDYMX, ABS(DFDY(I,J)))
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 345 at (1)
ddpst.f:252:72:

  252 |               DO 350 I = MAX(ML+1, MW+1-J), MIN(MW+N-J, MW+ML)
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 350 at (1)
ddpst.f:253:72:

  253 |  350            BND = BND + (DFDY(I,J)/DFDYMX)**2
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 350 at (1)
ddpst.f:259:72:

  259 |  360        DFDY(MW,J) = DFDY(MW,J) + 1.D0
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 360 at (1)
ddpst.f:267:72:

  267 |             DO 380 I = MAX(ML+1, MW+1-J), MIN(MW+N-J, MW+ML)
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 380 at (1)
ddpst.f:268:72:

  268 |  380          DFDY(I,J) = DFDY(I,J) + A(I,J)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 380 at (1)
ddpst.f:276:72:

  276 |  400        DFDY(MW,J) =  DFDY(MW,J) + A(J,1)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 400 at (1)
ddpst.f:284:72:

  284 |             DO 390 I = MAX(ML+1, MW+1-J), MIN(MW+NDE-J, MW+ML)
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 390 at (1)
ddpst.f:285:72:

  285 |  390          DFDY(I,J) = DFDY(I,J) + A(I,J)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 390 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  ddriv1.f
ddriv1.f:363:72:

  363 |  20       IWORK(I) = WORK(I+LENWCM)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1)
ddriv1.f:370:72:

  370 |  40     WORK(I+LENWCM) = IWORK(I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  ddriv2.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  ddriv3.f
ddriv3.f:995:72:

  995 |  30       WORK(I+IYH-1) = Y(I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1)
ddriv3.f:1195:72:

 1195 |  190    Y(I) = WORK(I+IYH-1)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 190 at (1)
ddriv3.f:1208:72:

 1208 |  230      WORK(I+IYWT-1) = 1.D0
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 230 at (1)
ddriv3.f:1212:72:

 1212 |  250      WORK(I+IYWT-1) = EWT(I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 250 at (1)
ddriv3.f:1219:72:

 1219 |  280      WORK(I+IYWT-1) = ABS(Y(I))
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 280 at (1)
ddriv3.f:1269:72:

 1269 |  340          WORK(I+ISAVE2-1) = WORK(I+ISAVE2-1)/WORK(I+IA-1)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 340 at (1)
ddriv3.f:1309:72:

 1309 |  380      WORK(I+IYWT-1) = MAX(EWT(1), ABS(Y(I)))
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 380 at (1)
ddriv3.f:1312:72:

 1312 |  400      WORK(I+IYWT-1) = MAX(EWT(I), ABS(Y(I)))
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 400 at (1)
ddriv3.f:1316:72:

 1316 |  420    WORK(I+ISAVE2-1) = Y(I)/WORK(I+IYWT-1)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 420 at (1)
ddriv3.f:1417:72:

 1417 |  480                Y(J) = WORK(IYH+J-1)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 480 at (1)
ddriv3.f:1499:72:

 1499 |  570    Y(I) = WORK(I+IYH-1)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 570 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  ddscl.f
ddscl.f:48:72:

   48 |         DO 10 I = 1,N
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 10 at (1)
ddscl.f:49:72:

   49 |  10       YH(I,J+1) = YH(I,J+1)*R1
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  ddstp.f
ddstp.f:133:72:

  133 |  115    Y(I) = YH(I,1)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 115 at (1)
ddstp.f:152:72:

  152 |  125    SAVE1(I) = 0.D0
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 125 at (1)
ddstp.f:176:72:

  176 |  132        DFDY(1,I) = SAVE1(I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 132 at (1)
ddstp.f:181:72:

  181 |  134        DFDY(1,I) = SAVE1(I) - DFDY(1,I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 134 at (1)
ddstp.f:190:72:

  190 |  136        DFDY(1,I) = SAVE1(I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 136 at (1)
ddstp.f:202:72:

  202 |  140      Y(I) = YH(I,1) + EL(1,NQ)*SAVE1(I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 140 at (1)
ddstp.f:241:72:

  241 |  180      SAVE2(I) = SAVE1(I)/YWT(I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 180 at (1)
ddstp.f:244:72:

  244 |  185      SAVE2(I) = SAVE1(I)/MAX(ABS(Y(I)), YWT(I))
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 185 at (1)
ddstp.f:263:72:

  263 |  190            SAVE2(I) = YH(I,NQ+1)/YWT(I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 190 at (1)
ddstp.f:266:72:

  266 |  195            SAVE2(I) = YH(I,NQ+1)/MAX(ABS(Y(I)), YWT(I))
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 195 at (1)
ddstp.f:294:72:

  294 |  215      Y(I) = YH(I,1)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 215 at (1)
ddstp.f:313:72:

  313 |         DO 230 I = 1,N
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 230 at (1)
ddstp.f:314:72:

  314 |  230      YH(I,J) = YH(I,J) + EL(J,NQ)*SAVE1(I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 230 at (1)
ddstp.f:316:72:

  316 |  235    Y(I) = YH(I,1)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 235 at (1)
ddstp.f:383:72:

  383 |  250        YH(I,MAXORD+1) = SAVE1(I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 250 at (1)
ddstp.f:402:72:

  402 |  270          SAVE2(I) = YH(I,NQ+1)/YWT(I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 270 at (1)
ddstp.f:405:72:

  405 |  275          SAVE2(I) = YH(I,NQ+1)/MAX(ABS(Y(I)), YWT(I))
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 275 at (1)
ddstp.f:416:72:

  416 |  290          SAVE2(I) = (SAVE1(I) - YH(I,MAXORD+1))/YWT(I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 290 at (1)
ddstp.f:438:72:

  438 |  360        YH(I,NQ+2) = SAVE1(I)*EL(NQ+1,NQ)/(NQ+1)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 360 at (1)
ddstp.f:458:72:

  458 |  405    Y(I) = YH(I,1)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 405 at (1)
ddstp.f:472:72:

  472 |  435    Y(I) = YH(I,1)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 435 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  ddzro.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  de1.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  deabm.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  debdf.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  defc.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  defcmn.f
defcmn.f:111:25:

   67 |       CALL DCOPY (N, 0.D0, 0, COEFF, 1)
      |                     2    
......
  111 |       CALL DCOPY (NBKPT, BKPTIN, 1, BKPT, 1)
      |                         1
Warning: Rank mismatch between actual argument at (1) and actual argument at (2) (scalar and rank-1)
defcmn.f:125:25:

   67 |       CALL DCOPY (N, 0.D0, 0, COEFF, 1)
      |                     2    
......
  125 |       CALL DCOPY (NDATA, XDATA, 1, XTEMP, 1)
      |                         1
Warning: Rank mismatch between actual argument at (1) and actual argument at (2) (scalar and rank-1)
defcmn.f:131:28:

  112 |       CALL DSORT (BKPT, DUMMY, NBKPT, 1)
      |                        2    
......
  131 |          CALL DSORT (XTEMP, PTEMP, NDATA, 2)
      |                            1
Warning: Rank mismatch between actual argument at (1) and actual argument at (2) (scalar and rank-1)
defcmn.f:192:27:

   67 |       CALL DCOPY (N, 0.D0, 0, COEFF, 1)
      |                     2      
......
  192 |          CALL DCOPY (NORD, BF, 1, G(IROW,1), MDG)
      |                           1
Warning: Rank mismatch between actual argument at (1) and actual argument at (2) (scalar and rank-2)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  defe4.f
defe4.f:63:72:

   63 |          DO 30 J=JS,NS
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  defehl.f
defehl.f:74:72:

   74 |   230   YS(K)=Y(K)+CH*YP(K)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 230 at (1)
defehl.f:79:72:

   79 |   240   YS(K)=Y(K)+CH*(YP(K)+3.*F1(K))
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 240 at (1)
defehl.f:84:72:

   84 |   250   YS(K)=Y(K)+CH*(1932.*YP(K)+(7296.*F2(K)-7200.*F1(K)))
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 250 at (1)
defehl.f:90:72:

   90 |      1                            (29440.*F2(K)-32832.*F1(K)))
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 260 at (1)
defehl.f:96:72:

   96 |      1                             (41040.*F1(K)-28352.*F2(K)))
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 270 at (1)
defehl.f:104:72:

  104 |      1                (3953664.*F2(K)+277020.*F5(K)))
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 290 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  defer.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dei.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  denorm.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  derf.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  derfc.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  derkf.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  derkfs.f
derkfs.f:323:72:

  323 |    75   F1(K)=TOL
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 75 at (1)
derkfs.f:353:72:

  353 |    90   Y(K)=Y(K)+DT*YP(K)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 90 at (1)
derkfs.f:487:72:

  487 |   350   EEOET=MAX(EEOET,EE/ET)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 350 at (1)
derkfs.f:523:72:

  523 |   525   Y(K)=YS(K)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 525 at (1)
derkfs.f:606:72:

  606 |   939   ATOL(K)=TOLFAC*ATOL(K)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 939 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  des.f
des.f:297:72:

  297 |   215    YPOUT(L) = YP(L)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 215 at (1)
des.f:309:72:

  309 |   230   YY(L) = Y(L)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 230 at (1)
des.f:343:72:

  343 |   270   Y(L) = YY(L) + DT*YP(L)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 270 at (1)
des.f:357:72:

  357 |   290   YPOUT(L) = YP(L)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 290 at (1)
des.f:381:72:

  381 |   320   YPOUT(L) = YP(L)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 320 at (1)
des.f:409:72:

  409 |   370   YPOUT(L) = YP(L)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 370 at (1)
des.f:431:72:

  431 |   390   ATOL(L) = EPS*ATOL(L)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 390 at (1)
des.f:434:72:

  434 |   410   YPOUT(L) = YP(L)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 410 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dexint.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dexprl.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dfac.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dfc.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dfcmn.f
dfcmn.f:217:31:

  134 |       CALL DSORT (BKPT, DUMMY, NBKPT, 1)
      |                        2       
......
  217 |             CALL DSORT (XTEMP, PTEMP, NDATA, 2)
      |                               1
Warning: Rank mismatch between actual argument at (1) and actual argument at (2) (scalar and rank-1)
dfcmn.f:290:29:

  133 |       CALL DCOPY (NBKPT, BKPTIN, 1, BKPT, 1)
      |                         2    
......
  290 |          CALL DCOPY (NORDP1, 0.D0, 0, G(IR,1), MDG)
      |                             1
Warning: Rank mismatch between actual argument at (1) and actual argument at (2) (rank-1 and scalar)
dfcmn.f:344:29:

  133 |       CALL DCOPY (NBKPT, BKPTIN, 1, BKPT, 1)
      |                         2    
......
  344 |             CALL DCOPY (NP1, 0.D0, 0, W(NEQCON,1), MDW)
      |                             1
Warning: Rank mismatch between actual argument at (1) and actual argument at (2) (rank-1 and scalar)
dfcmn.f:369:24:

  133 |       CALL DCOPY (NBKPT, BKPTIN, 1, BKPT, 1)
      |                         2
......
  369 |          CALL DCOPY (N, 0.D0, 0, W(IROW,1), MDW)
      |                        1
Warning: Rank mismatch between actual argument at (1) and actual argument at (2) (rank-1 and scalar)
dfcmn.f:393:27:

  133 |       CALL DCOPY (NBKPT, BKPTIN, 1, BKPT, 1)
      |                         2  
......
  393 |             CALL DCOPY (N, 0.D0, 0, W(IROW,1), MDW)
      |                           1
Warning: Rank mismatch between actual argument at (1) and actual argument at (2) (rank-1 and scalar)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dfdjc1.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dfdjc3.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dfehl.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dfspvd.f
dfspvd.f:54:72:

   54 |    11       VNIKX(J-1,IDERVM) = VNIKX(J,IDERIV)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 11 at (1)
dfspvd.f:61:72:

   61 |    19       A(I,J) = 0.D0
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 19 at (1)
dfspvd.f:62:72:

   62 |    20    A(I,I) = 1.D0
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1)
dfspvd.f:75:72:

   75 |    24          A(L,J) = (A(L,J) - A(L,J-1))/DIFF*FKMD
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 24 at (1)
dfspvd.f:82:72:

   82 |    30    DO 40 I=1,K
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1)
dfspvd.f:86:72:

   86 |    35          V = A(I,J)*VNIKX(J,M) + V
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 35 at (1)
dfspvd.f:87:72:

   87 |    40       VNIKX(I,M) = V
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dfspvn.f
dfspvn.f:60:72:

   60 |    26       VMPREV = VM*DELTAM(JP1ML)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 26 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dfulmt.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dfzero.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dgami.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dgamic.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dgamit.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dgamlm.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dgamln.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dgamma.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dgamr.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dgamrn.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dgaus8.f
dgaus8.f:164:72:

  164 |       IF (EE-AE) 40, 40, 50
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
dgaus8.f:167:72:

  167 |       IF (LR(L)) 60, 60, 80
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
dgaus8.f:197:72:

  197 |       IF (LR(L)) 100, 100, 110
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dgbco.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dgbdi.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dgbfa.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dgbmv.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dgbsl.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dgeco.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dgedi.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dgefa.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dgefs.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dgemm.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dgemv.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dger.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dgesl.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dglss.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dgmres.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dgtsl.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dh12.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dhels.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dheqr.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dhfti.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dhkseq.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dhstrt.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dhvnrm.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dintp.f
dintp.f:95:72:

   95 |  10     W(IQ) = XIQ/TEMP1
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1)
dintp.f:109:72:

  109 |  40     GDI = OW(KP2-I) - ALPHA(I)*GDI
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1)
dintp.f:125:72:

  125 |  70       W(JQ) = GAMMA*W(JQ) - ALP*W(JQ+1)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 70 at (1)
dintp.f:127:72:

  127 |  80     C(I+1) = GAMMA*C(I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 80 at (1)
dintp.f:140:72:

  140 |  100    YPOUT(L) = 0.0D0
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1)
dintp.f:148:72:

  148 |  110      YPOUT(L) = YPOUT(L) + TEMP3*PHI(L,I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1)
dintp.f:154:72:

  154 |      1                (YPOUT(L) + (C(1) + RMU*OG(1))*PHI(L,1))
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 130 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dintrv.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dintyd.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dir.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  djairy.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dlbeta.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dlgams.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dli.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dllsia.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dllti2.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dlngam.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dlnrel.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dlpdoc.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dlpdp.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dlsei.f
dlsei.f:609:26:

  492 |       CALL DCOPY (N, 1.D0, 0, WS(N1), 1)
      |                     2     
......
  609 |   160 CALL DCOPY (KRANKE, W, MDW+1, WS(KRANKE+1), 1)
      |                          1
Warning: Rank mismatch between actual argument at (1) and actual argument at (2) (scalar and rank-2)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dlsi.f
dlsi.f:229:24:

  137 |       CALL DCOPY (N, 0.D0, 0, WS, 1)
      |                     2   
......
  229 |          CALL DCOPY (N, WS, 1, X, 1)
      |                        1
Warning: Rank mismatch between actual argument at (1) and actual argument at (2) (scalar and rank-1)
dlsi.f:241:25:

  137 |       CALL DCOPY (N, 0.D0, 0, WS, 1)
      |                     2    
......
  241 |       CALL DCOPY (KRANK, W, MDW+1, WS(N2), 1)
      |                         1
Warning: Rank mismatch between actual argument at (1) and actual argument at (2) (scalar and rank-2)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dlsod.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dlssud.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dmacon.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dmgsbv.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dmout.f
dmout.f:94:72:

   94 |       DO 5 I = 1, M
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 5 at (1)
dmout.f:105:72:

  105 |       DO 10 I = 1, M
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 10 at (1)
dmout.f:116:72:

  116 |       DO 30 I = 1, M
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1)
dmout.f:127:72:

  127 |       DO 50 I = 1, M
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 50 at (1)
dmout.f:136:72:

  136 |       DO 70 I = 1, M
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 70 at (1)
dmout.f:147:72:

  147 |       DO 85 I = 1, M
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 85 at (1)
dmout.f:156:72:

  156 |       DO 90 I = 1, M
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 90 at (1)
dmout.f:167:72:

  167 |       DO 110 I = 1, M
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 110 at (1)
dmout.f:178:72:

  178 |       DO 130 I = 1, M
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 130 at (1)
dmout.f:187:72:

  187 |       DO 150 I = 1, M
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 150 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dmpar.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dnbco.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dnbdi.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dnbfa.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dnbfs.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dnbsl.f
dnbsl.f:142:26:

  139 |         DO 60 K = 1, N
      |                                                                        2
......
  142 |           T = DDOT(LM,ABE(K-1,ML+2),LDB,B(LB),1)
      |                          1
Warning: Array reference at (1) out of bounds (0 < 1) in loop beginning at (2)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dnls1.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dnls1e.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dnrm2.f
dnrm2.f:104:72:

  104 |    10 ASSIGN 30 TO NEXT
      |                                                                        1
Warning: Deleted feature: ASSIGN statement at (1)
dnrm2.f:111:20:

  111 |    20    GO TO NEXT,(30, 50, 70, 110)
      |                    1
Warning: Deleted feature: Assigned GOTO statement at (1)
dnrm2.f:113:72:

  113 |       ASSIGN 50 TO NEXT
      |                                                                        1
Warning: Deleted feature: ASSIGN statement at (1)
dnrm2.f:123:72:

  123 |       ASSIGN 70 TO NEXT
      |                                                                        1
Warning: Deleted feature: ASSIGN statement at (1)
dnrm2.f:129:72:

  129 |       ASSIGN 110 TO NEXT
      |                                                                        1
Warning: Deleted feature: ASSIGN statement at (1)
dnrm2.f:163:72:

  163 |    95    SUM = SUM + DX(J)**2
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 95 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dnsq.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dnsqe.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dogleg.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dohtrl.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  domn.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dorth.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dorthr.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dp1vlu.f
dp1vlu.f:92:72:

   92 |  1      YP(I) = 0.0D0
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 1 at (1)
dp1vlu.f:118:72:

  118 |  5      A(I) = 0.0D0
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 5 at (1)
dp1vlu.f:138:72:

  138 |  6        YP(N) = DIF*A(K3PN) + N*A(K3PN-1) - A(K1I)*A(K4PN)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 6 at (1)
dp1vlu.f:146:72:

  146 |  7        A(K3PN) = YP(N)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 7 at (1)
dp1vlu.f:148:72:

  148 |  9      A(K3P1) = VAL
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 9 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dpbco.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dpbdi.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dpbfa.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dpbsl.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dpchbs.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dpchce.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dpchci.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dpchcm.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dpchcs.f
dpchcs.f:138:72:

  138 |          IF ( DPCHST(SLOPE(I-1),SLOPE(I)) )  100, 300, 900
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
dpchcs.f:161:72:

  161 |             IF ( DPCHST(DEXT, SLOPE(I-1)) )  200, 900, 250
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dpchdf.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dpchfd.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dpchfe.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dpchia.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dpchic.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dpchid.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dpchim.f
dpchim.f:228:72:

  228 |          IF ( DPCHST(DEL1,DEL2) )  42, 41, 45
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dpchkt.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dpchng.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dpchsp.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dpchst.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dpchsw.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dpcoef.f
dpcoef.f:84:72:

   84 |  1      TC(I) = TC(I)/FAC
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 1 at (1)
dpcoef.f:92:72:

   92 |  3      TC(NEW) = SAVE
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 3 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dpfqad.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dpigmr.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dpincw.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dpinit.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dpintm.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dpjac.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dplint.f
dplint.f:67:72:

   67 |       DO 10010 I=1,KM1
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 10010 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dplpce.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dplpdm.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dplpfe.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dplpfl.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dplpmn.f
dplpmn.f:219:72:

  219 |       ASSIGN 20013 TO NPR004
      |                                                                        1
Warning: Deleted feature: ASSIGN statement at (1)
dplpmn.f:228:72:

  228 | 20014 ASSIGN 20018 TO NPR005
      |                                                                        1
Warning: Deleted feature: ASSIGN statement at (1)
dplpmn.f:230:72:

  230 | 20018 ASSIGN 20019 TO NPR006
      |                                                                        1
Warning: Deleted feature: ASSIGN statement at (1)
dplpmn.f:232:72:

  232 | 20019 ASSIGN 20020 TO NPR007
      |                                                                        1
Warning: Deleted feature: ASSIGN statement at (1)
dplpmn.f:235:72:

  235 |       ASSIGN 20024 TO NPR008
      |                                                                        1
Warning: Deleted feature: ASSIGN statement at (1)
dplpmn.f:248:72:

  248 |       ASSIGN 20029 TO NPR009
      |                                                                        1
Warning: Deleted feature: ASSIGN statement at (1)
dplpmn.f:250:72:

  250 | 20029 ASSIGN 20030 TO NPR010
      |                                                                        1
Warning: Deleted feature: ASSIGN statement at (1)
dplpmn.f:252:72:

  252 | 20030 ASSIGN 20031 TO NPR006
      |                                                                        1
Warning: Deleted feature: ASSIGN statement at (1)
dplpmn.f:254:72:

  254 | 20031 ASSIGN 20032 TO NPR008
      |                                                                        1
Warning: Deleted feature: ASSIGN statement at (1)
dplpmn.f:264:72:

  264 |       ASSIGN 20036 TO NPR007
      |                                                                        1
Warning: Deleted feature: ASSIGN statement at (1)
dplpmn.f:266:72:

  266 | 20036 ASSIGN 20037 TO NPR009
      |                                                                        1
Warning: Deleted feature: ASSIGN statement at (1)
dplpmn.f:268:72:

  268 | 20037 ASSIGN 20038 TO NPR010
      |                                                                        1
Warning: Deleted feature: ASSIGN statement at (1)
dplpmn.f:270:72:

  270 | 20038 ASSIGN 20039 TO NPR006
      |                                                                        1
Warning: Deleted feature: ASSIGN statement at (1)
dplpmn.f:272:72:

  272 | 20039 ASSIGN 20040 TO NPR008
      |                                                                        1
Warning: Deleted feature: ASSIGN statement at (1)
dplpmn.f:281:72:

  281 |       ASSIGN 20044 TO NPR009
      |                                                                        1
Warning: Deleted feature: ASSIGN statement at (1)
dplpmn.f:298:72:

  298 |       ASSIGN 20050 TO NPR009
      |                                                                        1
Warning: Deleted feature: ASSIGN statement at (1)
dplpmn.f:303:72:

  303 | 20035 ASSIGN 20051 TO NPR011
      |                                                                        1
Warning: Deleted feature: ASSIGN statement at (1)
dplpmn.f:399:72:

  399 |       ASSIGN 20096 TO NPR012
      |                                                                        1
Warning: Deleted feature: ASSIGN statement at (1)
dplpmn.f:458:19:

  458 |       GO TO NPR010, (20030,20038)
      |                   1
Warning: Deleted feature: Assigned GOTO statement at (1)
dplpmn.f:460:72:

  460 | 30009 ASSIGN 20134 TO NPR013
      |                                                                        1
Warning: Deleted feature: ASSIGN statement at (1)
dplpmn.f:462:72:

  462 | 20134 ASSIGN 20135 TO NPR014
      |                                                                        1
Warning: Deleted feature: ASSIGN statement at (1)
dplpmn.f:468:72:

  468 | 20139 ASSIGN 20141 TO NPR015
      |                                                                        1
Warning: Deleted feature: ASSIGN statement at (1)
dplpmn.f:479:72:

  479 | 20153 ASSIGN 20154 TO NPR005
      |                                                                        1
Warning: Deleted feature: ASSIGN statement at (1)
dplpmn.f:490:19:

  490 |       GO TO NPR009, (20029,20037,20044,20050)
      |                   1
Warning: Deleted feature: Assigned GOTO statement at (1)
dplpmn.f:564:19:

  564 |       GO TO NPR004, (20013,20204,20242)
      |                   1
Warning: Deleted feature: Assigned GOTO statement at (1)
dplpmn.f:605:19:

  605 |       GO TO NPR007, (20020,20036)
      |                   1
Warning: Deleted feature: Assigned GOTO statement at (1)
dplpmn.f:628:72:

  628 |       ASSIGN 20204 TO NPR004
      |                                                                        1
Warning: Deleted feature: ASSIGN statement at (1)
dplpmn.f:640:19:

  640 |       GO TO NPR005, (20018,20154,20243)
      |                   1
Warning: Deleted feature: Assigned GOTO statement at (1)
dplpmn.f:697:19:

  697 |       GO TO NPR008, (20024,20032,20040)
      |                   1
Warning: Deleted feature: Assigned GOTO statement at (1)
dplpmn.f:707:19:

  707 |       GO TO NPR014, (20135,20246)
      |                   1
Warning: Deleted feature: Assigned GOTO statement at (1)
dplpmn.f:712:72:

  712 |       ASSIGN 20233 TO NPR011
      |                                                                        1
Warning: Deleted feature: ASSIGN statement at (1)
dplpmn.f:716:72:

  716 |       ASSIGN 20237 TO NPR012
      |                                                                        1
Warning: Deleted feature: ASSIGN statement at (1)
dplpmn.f:737:72:

  737 |       ASSIGN 20242 TO NPR004
      |                                                                        1
Warning: Deleted feature: ASSIGN statement at (1)
dplpmn.f:739:72:

  739 | 20242 ASSIGN 20243 TO NPR005
      |                                                                        1
Warning: Deleted feature: ASSIGN statement at (1)
dplpmn.f:741:72:

  741 | 20243 ASSIGN 20244 TO NPR006
      |                                                                        1
Warning: Deleted feature: ASSIGN statement at (1)
dplpmn.f:743:72:

  743 | 20244 ASSIGN 20245 TO NPR013
      |                                                                        1
Warning: Deleted feature: ASSIGN statement at (1)
dplpmn.f:745:72:

  745 | 20245 ASSIGN 20246 TO NPR014
      |                                                                        1
Warning: Deleted feature: ASSIGN statement at (1)
dplpmn.f:757:72:

  757 | 20249 ASSIGN 20251 TO NPR015
      |                                                                        1
Warning: Deleted feature: ASSIGN statement at (1)
dplpmn.f:770:19:

  770 |       GO TO NPR006, (20019,20031,20039,20244,20275)
      |                   1
Warning: Deleted feature: Assigned GOTO statement at (1)
dplpmn.f:791:19:

  791 |       GO TO NPR013, (20134,20245,20267)
      |                   1
Warning: Deleted feature: Assigned GOTO statement at (1)
dplpmn.f:800:19:

  800 |       GO TO NPR015, (20141,20251)
      |                   1
Warning: Deleted feature: Assigned GOTO statement at (1)
dplpmn.f:832:72:

  832 | 30011 ASSIGN 20267 TO NPR013
      |                                                                        1
Warning: Deleted feature: ASSIGN statement at (1)
dplpmn.f:843:72:

  843 | 20268 ASSIGN 20275 TO NPR006
      |                                                                        1
Warning: Deleted feature: ASSIGN statement at (1)
dplpmn.f:899:19:

  899 |       GO TO NPR011, (20051,20233)
      |                   1
Warning: Deleted feature: Assigned GOTO statement at (1)
dplpmn.f:967:19:

  967 |       GO TO NPR012, (20096,20237)
      |                   1
Warning: Deleted feature: Assigned GOTO statement at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dplpmu.f
dplpmu.f:90:72:

   90 |       ASSIGN 20009 TO NPR001
      |                                                                        1
Warning: Deleted feature: ASSIGN statement at (1)
dplpmu.f:101:72:

  101 |       ASSIGN 20013 TO NPR001
      |                                                                        1
Warning: Deleted feature: ASSIGN statement at (1)
dplpmu.f:112:72:

  112 |       ASSIGN 20017 TO NPR001
      |                                                                        1
Warning: Deleted feature: ASSIGN statement at (1)
dplpmu.f:147:72:

  147 |       ASSIGN 20028 TO NPR001
      |                                                                        1
Warning: Deleted feature: ASSIGN statement at (1)
dplpmu.f:210:72:

  210 |       ASSIGN 20042 TO NPR003
      |                                                                        1
Warning: Deleted feature: ASSIGN statement at (1)
dplpmu.f:310:72:

  310 | 20039 ASSIGN 20074 TO NPR003
      |                                                                        1
Warning: Deleted feature: ASSIGN statement at (1)
dplpmu.f:395:72:

  395 | 20029 ASSIGN 20109 TO NPR003
      |                                                                        1
Warning: Deleted feature: ASSIGN statement at (1)
dplpmu.f:419:19:

  419 |       GO TO NPR001, (20009,20013,20017,20028)
      |                   1
Warning: Deleted feature: Assigned GOTO statement at (1)
dplpmu.f:448:19:

  448 |       GO TO NPR003, (20042,20074,20109)
      |                   1
Warning: Deleted feature: Assigned GOTO statement at (1)
dplpmu.f:423:24:

  204 |       CALL DCOPY(MRELAS,ZERO,0,ERD,1)
      |                        2
......
  423 | 30002 CALL DCOPY(MRELAS,RHS,1,WW,1)
      |                        1
Warning: Rank mismatch between actual argument at (1) and actual argument at (2) (scalar and rank-1)
dplpmu.f:426:24:

  204 |       CALL DCOPY(MRELAS,ZERO,0,ERD,1)
      |                        2
......
  426 |       CALL DCOPY(MRELAS,WW,1,RPRIM,1)
      |                        1
Warning: Rank mismatch between actual argument at (1) and actual argument at (2) (scalar and rank-1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dplpup.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dpnnzr.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dpoch.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dpoch1.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dpoco.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dpodi.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dpofa.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dpofs.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dpolcf.f
dpolcf.f:104:72:

  104 |       DO 10030 I=2,NMKP1
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 10030 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dpolft.f
dpolft.f:170:72:

  170 |  3      W(I) = 1.0D0
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 3 at (1)
dpolft.f:194:72:

  194 |  9      A(I) = 0.0D0
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 9 at (1)
dpolft.f:203:72:

  203 |  10     W11 = W11 + W(I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1)
dpolft.f:210:72:

  210 |  12     W11 = W11 + W(I)*A(K4PI)**2
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 12 at (1)
dpolft.f:228:72:

  228 |  15     SIGJ = SIGJ + W(I)*((Y(I)-R(I)) - A(K5PI))**2
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 15 at (1)
dpolft.f:233:72:

  233 |       IF (EPS) 24,26,27
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
dpolft.f:267:72:

  267 |  19     W11 = W11 + W(I)*A(K4PI)**2
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 19 at (1)
dpolft.f:277:72:

  277 |  20     TEMD1 = TEMD1 + TEMD2
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1)
dpolft.f:294:72:

  294 |  21     SIGJ = SIGJ + W(I)*((Y(I)-R(I)) - A(K5PI))**2
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 21 at (1)
dpolft.f:299:72:

  299 |       IF (EPS) 23,26,27
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dpolvl.f
dpolvl.f:197:72:

  197 |       DO 10090 I=2,NMKP1
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 10090 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dpopt.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dposl.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dppco.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dppdi.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dpperm.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dppfa.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dppgq8.f
dppgq8.f:159:72:

  159 |       IF (EE-AE) 40, 40, 50
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
dppgq8.f:162:72:

  162 |       IF (LR(L)) 60, 60, 80
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
dppgq8.f:192:72:

  192 |       IF (LR(L)) 100, 100, 110
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dppqad.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dppsl.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dppval.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dprvec.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dprwpg.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dprwvr.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dpsi.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dpsifn.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dpsixn.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dpsort.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dptsl.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dqag.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dqage.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dqagi.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dqagie.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dqagp.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dqagpe.f
dqagpe.f:324:72:

  324 |         DO 20 J = IP1,NINTP1
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dqags.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dqagse.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dqawc.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dqawce.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dqawf.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dqawfe.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dqawo.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dqawoe.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dqaws.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dqawse.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dqc25c.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dqc25f.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dqc25s.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dqcheb.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dqdota.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dqdoti.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dqelg.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dqform.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dqk15.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dqk15i.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dqk15w.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dqk21.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dqk31.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dqk41.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dqk51.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dqk61.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dqmomo.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dqnc79.f
dqnc79.f:204:72:

  204 |       IF (EE-TEST) 150,150,170
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
dqnc79.f:222:72:

  222 |       IF (LR(L)) 190,190,210
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
dqnc79.f:272:72:

  272 |       IF (LR(L)) 230,230,240
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dqng.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dqpsrt.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dqrdc.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dqrfac.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dqrsl.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dqrslv.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dqwgtc.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dqwgtf.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dqwgts.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  drc.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  drc3jj.f
drc3jj.f:219:72:

  219 |       IF(NDIM-NFIN)  21, 23, 23
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
drc3jj.f:252:72:

  252 |       IF(LSTEP-2)  32, 32, 31
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
drc3jj.f:295:72:

  295 |    70 THRCOF(I) = THRCOF(I) / SRHUGE
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 70 at (1)
drc3jj.f:305:72:

  305 |    80 IF(C1OLD-ABS(C1))   100, 100, 30
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
drc3jj.f:382:72:

  382 |   130 THRCOF(INDEX) = THRCOF(INDEX) / SRHUGE
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 130 at (1)
drc3jj.f:407:72:

  407 |   210 THRCOF(N) = RATIO * THRCOF(N)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 210 at (1)
drc3jj.f:414:72:

  414 |   212 THRCOF(N) = RATIO * THRCOF(N)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 212 at (1)
drc3jj.f:429:72:

  429 |       IF(SIGN1*SIGN2) 235,235,236
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
drc3jj.f:435:72:

  435 |   240 THRCOF(N) = CNORM * THRCOF(N)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 240 at (1)
drc3jj.f:441:72:

  441 |   251 THRCOF(N) = CNORM * THRCOF(N)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 251 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  drc3jm.f
drc3jm.f:220:72:

  220 |       IF(NDIM-NFIN)   21, 23, 23
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
drc3jm.f:253:72:

  253 |       IF(LSTEP-2)  32, 32, 31
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
drc3jm.f:291:72:

  291 |    70 THRCOF(I) = THRCOF(I) / SRHUGE
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 70 at (1)
drc3jm.f:302:72:

  302 |    80 IF(C1OLD-ABS(C1))   100, 100, 30
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
drc3jm.f:375:72:

  375 |   111 THRCOF(INDEX) = THRCOF(INDEX) / SRHUGE
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 111 at (1)
drc3jm.f:400:72:

  400 |   210 THRCOF(N) = RATIO * THRCOF(N)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 210 at (1)
drc3jm.f:407:72:

  407 |   212 THRCOF(N) = RATIO * THRCOF(N)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 212 at (1)
drc3jm.f:422:72:

  422 |       IF(SIGN1*SIGN2)  235,235,236
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
drc3jm.f:428:72:

  428 |   240 THRCOF(N) = CNORM * THRCOF(N)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 240 at (1)
drc3jm.f:434:72:

  434 |   251 THRCOF(N) = CNORM * THRCOF(N)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 251 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  drc6j.f
drc6j.f:224:72:

  224 |       IF(NDIM-NFIN)   21, 23, 23
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
drc6j.f:259:72:

  259 |       IF(LSTEP-2)  32, 32, 31
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
drc6j.f:304:72:

  304 |    70 SIXCOF(I) = SIXCOF(I) / SRHUGE
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 70 at (1)
drc6j.f:315:72:

  315 |    80 IF(C1OLD-ABS(C1))   100, 100, 30
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
drc6j.f:394:72:

  394 |   130 SIXCOF(INDEX) = SIXCOF(INDEX) / SRHUGE
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 130 at (1)
drc6j.f:418:72:

  418 |   210 SIXCOF(N) = RATIO * SIXCOF(N)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 210 at (1)
drc6j.f:425:72:

  425 |   212 SIXCOF(N) = RATIO * SIXCOF(N)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 212 at (1)
drc6j.f:440:72:

  440 |       IF(SIGN1*SIGN2) 235,235,236
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
drc6j.f:446:72:

  446 |   240 SIXCOF(N) = CNORM * SIXCOF(N)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 240 at (1)
drc6j.f:452:72:

  452 |   251 SIXCOF(N) = CNORM * SIXCOF(N)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 251 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  drd.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dreadp.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dreort.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  drf.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  drj.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  drkfs.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  drlcal.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  drot.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  drotg.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  drotm.f
drotm.f:87:72:

   87 |                IF (DFLAG) 50,10,30
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
drotm.f:126:72:

  126 |           IF (DFLAG) 120,80,100
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  drotmg.f
drotmg.f:157:16:

  157 |       GO TO IGO,(120,150,180,210)
      |                1
Warning: Deleted feature: Assigned GOTO statement at (1)
drotmg.f:163:72:

  163 |                ASSIGN 120 TO IGO
      |                                                                        1
Warning: Deleted feature: ASSIGN statement at (1)
drotmg.f:175:72:

  175 |                ASSIGN 150 TO IGO
      |                                                                        1
Warning: Deleted feature: ASSIGN statement at (1)
drotmg.f:188:72:

  188 |                ASSIGN 180 TO IGO
      |                                                                        1
Warning: Deleted feature: ASSIGN statement at (1)
drotmg.f:199:72:

  199 |                ASSIGN 210 TO IGO
      |                                                                        1
Warning: Deleted feature: ASSIGN statement at (1)
drotmg.f:208:72:

  208 |           IF (DFLAG) 250,230,240
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  drsco.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  ds2lt.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  ds2y.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dsbmv.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dscal.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dsd2s.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dsdbcg.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dsdcg.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dsdcgn.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dsdcgs.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dsdgmr.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dsdi.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dsdomn.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dsdot.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dsds.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dsdscl.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dsgs.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dsiccg.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dsico.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dsics.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dsidi.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dsifa.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dsilur.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dsilus.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dsindg.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dsisl.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dsjac.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dsli.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dsli2.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dsllti.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dslubc.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dslucn.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dslucs.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dslugm.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dslui.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dslui2.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dslui4.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dsluom.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dsluti.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dslvs.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dsmmi2.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dsmmti.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dsmtv.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dsmv.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dsort.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dsos.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dsoseq.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dsossl.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dspco.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dspdi.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dspenc.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dspfa.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dsplp.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dspmv.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dspr.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dspr2.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dspsl.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dsteps.f
dsteps.f:237:72:

  237 |  10     ROUND = ROUND + (Y(L)/WT(L))**2
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1)
dsteps.f:254:72:

  254 |    20   PHI(L,2) = 0.0D0
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1)
dsteps.f:276:72:

  276 |  25     PHI(L,15) = 0.0D0
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1)
dsteps.f:315:72:

  315 |  105    SIG(I+1) = REALI*ALPHA(I)*SIG(I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 105 at (1)
dsteps.f:326:72:

  326 |  115    W(IQ) = V(IQ)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 115 at (1)
dsteps.f:353:72:

  353 |  125    W(I) = V(I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 125 at (1)
dsteps.f:364:72:

  364 |  135    W(IQ) = V(IQ)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 135 at (1)
dsteps.f:383:72:

  383 |  145      W(IQ) = W(IQ) - TEMP6*W(IQ+1)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 145 at (1)
dsteps.f:384:72:

  384 |  150    G(I) = W(1)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 150 at (1)
dsteps.f:404:72:

  404 |  205      PHI(L,I) = TEMP1*PHI(L,I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 205 at (1)
dsteps.f:412:72:

  412 |  220    P(L) = 0.0D0
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 220 at (1)
dsteps.f:419:72:

  419 |  225      PHI(L,I) = PHI(L,I) + PHI(L,IP1)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 225 at (1)
dsteps.f:425:72:

  425 |  235    PHI(L,16) = (P(L) - Y(L)) - TAU
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 235 at (1)
dsteps.f:428:72:

  428 |  245    P(L) = Y(L) + H*P(L)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 245 at (1)
dsteps.f:442:72:

  442 |         IF(KM2)265,260,255
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
dsteps.f:445:72:

  445 |  265    ERK = ERK + (TEMP4*TEMP3)**2
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 265 at (1)
dsteps.f:446:72:

  446 |       IF(KM2)280,275,270
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
dsteps.f:456:72:

  456 |       IF(KM2)299,290,285
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
dsteps.f:482:72:

  482 |  305      PHI(L,I) = TEMP1*(PHI(L,I) - PHI(L,IP1))
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 305 at (1)
dsteps.f:486:72:

  486 |  315    PSI(I-1) = PSI(I) - H
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 315 at (1)
dsteps.f:493:72:

  493 |       IF(IFAIL - 3) 335,330,325
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
dsteps.f:524:72:

  524 |  405    P(L) = TEMP3
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 405 at (1)
dsteps.f:529:72:

  529 |  415    P(L) = TEMP3
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 415 at (1)
dsteps.f:536:72:

  536 |  425    PHI(L,KP2) = PHI(L,KP1) - PHI(L,KP2)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 425 at (1)
dsteps.f:539:72:

  539 |  430      PHI(L,I) = PHI(L,I) + PHI(L,KP1)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 430 at (1)
dsteps.f:553:72:

  553 |  440    ERKP1 = ERKP1 + (PHI(L,KP2)/WT(L))**2
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 440 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dstod.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dstor1.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dstway.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dsuds.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dsvco.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dsvdc.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dswap.f
dswap.f:66:72:

   66 |       IF (INCX .EQ. INCY) IF (INCX-1) 5,20,60
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dsymm.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dsymv.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dsyr.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dsyr2.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dsyr2k.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dsyrk.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dtbmv.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dtbsv.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dtin.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dtout.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dtpmv.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dtpsv.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dtrco.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dtrdi.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dtrmm.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dtrmv.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dtrsl.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dtrsm.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dtrsv.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  du11ls.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  du11us.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  du12ls.f
du12ls.f:59:72:

   59 |       DO 406 I=1,N
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 406 at (1)
du12ls.f:133:72:

  133 |       DO 460 I=KP1,N
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 460 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  du12us.f
du12us.f:59:72:

   59 |       DO 406 I=1,N
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 406 at (1)
du12us.f:131:72:

  131 |       DO 460 I=KP1,N
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 460 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dulsia.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dusrmt.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dvecs.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dvnrms.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dvout.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dwnlit.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dwnlsm.f
dwnlsm.f:456:28:

  135 |       CALL DCOPY (N, 1.D0, 0, D, 1)
      |                     2       
......
  456 |          CALL DCOPY (NSOLN, Z, 1, X, 1)
      |                            1
Warning: Rank mismatch between actual argument at (1) and actual argument at (2) (scalar and rank-1)
dwnlsm.f:624:25:

  135 |       CALL DCOPY (N, 1.D0, 0, D, 1)
      |                     2    
......
  624 |       CALL DCOPY (NSOLN, Z, 1, X, 1)
      |                         1
Warning: Rank mismatch between actual argument at (1) and actual argument at (2) (scalar and rank-1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dwnlt1.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dwnlt2.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dwnlt3.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dwnnls.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dwritp.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dwupdt.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dx.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dx4.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dxadd.f
dxadd.f:95:72:

   95 |       IF (I) 80, 50, 90
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dxadj.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dxc210.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dxcon.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dxlcal.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dxlegf.f
dxlegf.f:157:72:

  157 |   290 IPQA(I)=0
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 290 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dxnrmp.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dxpmu.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dxpmup.f
dxpmup.f:70:72:

   70 |   220 CALL DXADJ(PROD,IPROD,IERROR)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 220 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dxpnrm.f
dxpnrm.f:76:72:

   76 |   510 CALL DXADJ(PROD,IPROD,IERROR)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 510 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dxpqnu.f
dxpqnu.f:74:72:

   74 |    50 CALL DXADJ(FACTMU,IF,IERROR)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 50 at (1)
dxpqnu.f:119:72:

  119 |    77 CALL DXADJ(X1,IPQ,IERROR)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 77 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dxpsi.f
dxpsi.f:64:72:

   64 |    12 C=(C+CNUM(K)/CDENOM(K))/B**2
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 12 at (1)
dxpsi.f:72:72:

   72 |    15 B=B+1.D0/(N-M+A)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 15 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dxqmu.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dxqnu.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dxred.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dxset.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dy.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dy4.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  dyairy.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  e1.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  efc.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  efcmn.f
efcmn.f:111:25:

   67 |       CALL SCOPY (N, 0.E0, 0, COEFF, 1)
      |                     2    
......
  111 |       CALL SCOPY (NBKPT, BKPTIN, 1, BKPT, 1)
      |                         1
Warning: Rank mismatch between actual argument at (1) and actual argument at (2) (scalar and rank-1)
efcmn.f:125:25:

   67 |       CALL SCOPY (N, 0.E0, 0, COEFF, 1)
      |                     2    
......
  125 |       CALL SCOPY (NDATA, XDATA, 1, XTEMP, 1)
      |                         1
Warning: Rank mismatch between actual argument at (1) and actual argument at (2) (scalar and rank-1)
efcmn.f:131:28:

  112 |       CALL SSORT (BKPT, DUMMY, NBKPT, 1)
      |                        2    
......
  131 |          CALL SSORT (XTEMP, PTEMP, NDATA, 2)
      |                            1
Warning: Rank mismatch between actual argument at (1) and actual argument at (2) (scalar and rank-1)
efcmn.f:192:27:

   67 |       CALL SCOPY (N, 0.E0, 0, COEFF, 1)
      |                     2      
......
  192 |          CALL SCOPY (NORD, BF, 1, G(IROW,1), MDG)
      |                           1
Warning: Rank mismatch between actual argument at (1) and actual argument at (2) (scalar and rank-2)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  ei.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  eisdoc.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  elmbak.f
elmbak.f:106:72:

  106 |   100       Z(I,J) = Z(I,J) + X * Z(MP,J)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  elmhes.f
elmhes.f:127:72:

  127 |   140       A(I,J) = A(I,J) - Y * A(M,J)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 140 at (1)
elmhes.f:130:72:

  130 |   150       A(J,M) = A(J,M) + Y * A(J,I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 150 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  eltran.f
eltran.f:91:72:

   91 |    60    Z(I,J) = 0.0E0
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 60 at (1)
eltran.f:104:72:

  104 |   100    Z(I,MP) = A(I,MP-1)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  enorm.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  erf.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  erfc.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  exint.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  exprel.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  ezfft1.f
ezfft1.f:52:72:

   52 |       IF (J-4) 102,102,103
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
ezfft1.f:58:72:

   58 |       IF (NR) 101,105,101
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  ezfftb.f
ezfftb.f:120:72:

  120 |       IF (N-2) 101,102,103
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  ezfftf.f
ezfftf.f:91:72:

   91 |       IF (N-2) 101,102,103
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  ezffti.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  fac.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  fc.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  fcmn.f
fcmn.f:216:31:

  133 |       CALL SSORT (BKPT, DUMMY, NBKPT, 1)
      |                        2       
......
  216 |             CALL SSORT (XTEMP, PTEMP, NDATA, 2)
      |                               1
Warning: Rank mismatch between actual argument at (1) and actual argument at (2) (scalar and rank-1)
fcmn.f:289:29:

  132 |       CALL SCOPY (NBKPT, BKPTIN, 1, BKPT, 1)
      |                         2    
......
  289 |          CALL SCOPY (NORDP1, 0.E0, 0, G(IR,1), MDG)
      |                             1
Warning: Rank mismatch between actual argument at (1) and actual argument at (2) (rank-1 and scalar)
fcmn.f:343:29:

  132 |       CALL SCOPY (NBKPT, BKPTIN, 1, BKPT, 1)
      |                         2    
......
  343 |             CALL SCOPY (NP1, 0.E0, 0, W(NEQCON,1), MDW)
      |                             1
Warning: Rank mismatch between actual argument at (1) and actual argument at (2) (rank-1 and scalar)
fcmn.f:368:24:

  132 |       CALL SCOPY (NBKPT, BKPTIN, 1, BKPT, 1)
      |                         2
......
  368 |          CALL SCOPY (N, 0.E0, 0, W(IROW,1), MDW)
      |                        1
Warning: Rank mismatch between actual argument at (1) and actual argument at (2) (rank-1 and scalar)
fcmn.f:392:27:

  132 |       CALL SCOPY (NBKPT, BKPTIN, 1, BKPT, 1)
      |                         2  
......
  392 |             CALL SCOPY (N, 0.E0, 0, W(IROW,1), MDW)
      |                           1
Warning: Rank mismatch between actual argument at (1) and actual argument at (2) (rank-1 and scalar)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  fdjac1.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  fdjac3.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  fdump.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  fftdoc.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  figi.f
figi.f:102:72:

  102 |          IF (E2(I)) 1000, 60, 80
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  figi2.f
figi2.f:102:72:

  102 |    50    Z(I,J) = 0.0E0
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 50 at (1)
figi2.f:106:72:

  106 |          IF (H) 900, 60, 80
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  fulmat.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  fundoc.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  fzero.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  gami.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  gamic.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  gamit.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  gamlim.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  gamln.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  gamma.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  gamr.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  gamrn.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  gaus8.f
gaus8.f:158:72:

  158 |       IF (EE-AE) 40, 40, 50
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
gaus8.f:161:72:

  161 |       IF (LR(L)) 60, 60, 80
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
gaus8.f:191:72:

  191 |       IF (LR(L)) 100, 100, 110
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  genbun.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  h12.f
h12.f:72:72:

   72 |    10     CL=MAX(ABS(U(1,J)),CL)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1)
h12.f:73:72:

   73 |       IF (CL) 130,130,20
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
h12.f:77:72:

   77 |    30     SM=SM+(U(1,J)*CLINV)**2
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1)
h12.f:79:72:

   79 |       IF (U(1,LPIVOT)) 50,50,40
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
h12.f:86:72:

   86 |    60 IF (CL) 130,130,70
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
h12.f:91:72:

   91 |       IF (B) 80,130,130
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
h12.f:104:72:

  104 |    90         I3=I3+ICE
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 90 at (1)
h12.f:105:72:

  105 |           IF (SM) 100,120,100
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
h12.f:110:72:

  110 |   110         I4=I4+ICE
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  hfti.f
hfti.f:202:72:

  202 |    30             H(L)=H(L)+A(I,L)**2
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1)
hfti.f:217:72:

  217 |    60         A(I,LMAX)=TMP
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 60 at (1)
hfti.f:223:72:

  223 |    80     CALL H12 (2,J,J+1,M,A(1,J),1,H(J),B,1,MDB,NB)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 80 at (1)
hfti.f:242:72:

  242 |   120         TMP=TMP+B(I,JB)**2
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1)
hfti.f:243:72:

  243 |   130     RNORM(JB)=SQRT(TMP)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 130 at (1)
hfti.f:249:72:

  249 |               DO 150 I=1,N
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 150 at (1)
hfti.f:250:72:

  250 |   150         B(I,JB)=SZERO
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 150 at (1)
hfti.f:259:72:

  259 |   170     CALL H12 (1,I,KP1,N,A(I,1),MDA,G(I),A,MDA,1,I-1)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 170 at (1)
hfti.f:274:72:

  274 |   190             SM=SM+A(I,J)*DBLE(B(J,JB))
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 190 at (1)
hfti.f:276:72:

  276 |   210         B(I,JB)=(B(I,JB)-SM1)/A(I,I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 210 at (1)
hfti.f:282:72:

  282 |   220         B(J,JB)=SZERO
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 220 at (1)
hfti.f:284:72:

  284 |   230         CALL H12 (2,I,KP1,N,A(I,1),MDA,G(I),B(1,JB),1,MDB,1)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 230 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  hkseq.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  hpperm.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  hpsort.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  hqr.f
hqr.f:108:72:

  108 |    40    NORM = NORM + ABS(H(I,J))
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1)
hqr.f:146:72:

  146 |   120 H(I,I) = H(I,I) - X
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  hqr2.f
hqr2.f:126:72:

  126 |    40    NORM = NORM + ABS(H(I,J))
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1)
hqr2.f:164:72:

  164 |   120 H(I,I) = H(I,I) - X
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1)
hqr2.f:322:72:

  322 |          IF (Q) 710, 600, 800
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
hqr2.f:335:72:

  335 |   610       R = R + H(I,J) * H(J,EN)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 610 at (1)
hqr2.f:426:72:

  426 |   820    Z(I,J) = H(I,J)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 820 at (1)
hqr2.f:436:72:

  436 |          DO 880 I = LOW, IGH
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 880 at (1)
hqr2.f:440:72:

  440 |   860       ZZ = ZZ + Z(I,K) * H(K,J)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 860 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  hstart.f
hstart.f:185:72:

  185 |    10   PV(J) = SPY(J) - YP(J)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1)
hstart.f:191:72:

  191 |    30   PV(J) = SPY(J) - YP(J)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1)
hstart.f:223:72:

  223 |    50   YP(J) = YPRIME(J)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 50 at (1)
hstart.f:229:72:

  229 |    70   YP(J) = ETOL(J)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 70 at (1)
hstart.f:250:72:

  250 |   130     PV(J) = Y(J) + DELX*YP(J)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 130 at (1)
hstart.f:256:72:

  256 |   140     PV(J) = YP(J) - YPRIME(J)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 140 at (1)
hstart.f:262:72:

  262 |   160     PV(J) = YP(J) - SF(J)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 160 at (1)
hstart.f:267:72:

  267 |   180     YP(J) = YP(J)/ETOL(J)**POWER
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 180 at (1)
hstart.f:270:72:

  270 |   200     YP(J) = YP(J)/ETOL(J)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 200 at (1)
hstart.f:291:72:

  291 |   250     YP(J) = DY
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 250 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  hstcrt.f
hstcrt.f:395:72:

  395 |       IF (ELMBDA) 133,126,125
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  hstcs1.f
hstcs1.f:151:72:

  151 |   129 IF (ELMBDA) 137,131,130
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  hstcsp.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  hstcyl.f
hstcyl.f:430:72:

  430 |       IF (ELMBDA) 130,123,122
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  hstplr.f
hstplr.f:446:72:

  446 |       IF (ELMBDA) 133,125,124
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  hstssp.f
hstssp.f:518:72:

  518 |       IF (ELMBDA) 139,131,130
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  htrib3.f
htrib3.f:99:72:

   99 |          DO 50 J = 1, M
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 50 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  htribk.f
htribk.f:103:72:

  103 |          DO 50 J = 1, M
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 50 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  htrid3.f
htrid3.f:113:72:

  113 |   120    SCALE = SCALE + ABS(A(I,K)) + ABS(A(K,I))
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  htridi.f
htridi.f:105:72:

  105 |   100 D(I) = AR(I,I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1)
htridi.f:115:72:

  115 |   120    SCALE = SCALE + ABS(AR(I,K)) + ABS(AI(I,K))
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1)
htridi.f:181:72:

  181 |             DO 260 K = 1, J
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 260 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  hvnrm.f
hvnrm.f:45:72:

   45 |    10   HVNRM=MAX(HVNRM,ABS(V(K)))
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  hw3crt.f
hw3crt.f:541:72:

  541 |   158 IF (ELMBDA) 172,160,159
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  hwscrt.f
hwscrt.f:421:72:

  421 |       IF (ELMBDA) 144,137,136
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  hwscs1.f
hwscs1.f:49:72:

   49 |          IF (SINT(I)) 101,102,101
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
hwscs1.f:152:72:

  152 |   124 IF (ELMBDA) 132,125,125
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
hwscs1.f:155:72:

  155 |       IF (ICTR) 126,127,126
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
hwscs1.f:194:72:

  194 |   148 IF (MBDCND-3) 155,149,155
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
hwscs1.f:219:72:

  219 |       IF (ISING) 161,170,161
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
hwscs1.f:222:72:

  222 |       IF (ICTR) 162,163,162
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
hwscs1.f:252:72:

  252 |       IF (IFLG-1) 174,173,174
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
hwscs1.f:253:72:

  253 |   174 IF (NBDCND) 177,175,177
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
hwscs1.f:257:72:

  257 |   177 IF (MBDCND) 180,178,180
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
hwscs1.f:262:72:

  262 |       IF (ICTR) 181,188,181
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
hwscs1.f:263:72:

  263 |   181 IF (ISING) 186,182,186
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  hwscsp.f
hwscsp.f:402:72:

  402 |       IF (NCK-L) 105,105,104
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  hwscyl.f
hwscyl.f:453:72:

  453 |       IF (ELMBDA) 146,136,135
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  hwsplr.f
hwsplr.f:468:72:

  468 |       IF (ELMBDA) 144,136,135
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  hwsss1.f
hwsss1.f:57:72:

   57 |          IF (SINT(I)) 101,102,101
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
hwsss1.f:106:72:

  106 |       IF (ISP) 116,116,113
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
hwsss1.f:118:72:

  118 |   116 IF (INP) 120,120,117
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
hwsss1.f:171:72:

  171 |   131 IF (ELMBDA) 138,132,132
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
hwsss1.f:174:72:

  174 |       IF (INP) 134,134,133
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
hwsss1.f:176:72:

  176 |   134 IF (ISP) 136,136,135
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
hwsss1.f:186:72:

  186 |   139 IF (NBDCND-3) 146,140,146
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
hwsss1.f:200:72:

  200 |   147 IF (NBDCND-3) 154,148,154
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
hwsss1.f:231:72:

  231 |       IF (ISING) 165,176,165
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
hwsss1.f:234:72:

  234 |       IF (INP) 167,167,166
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
hwsss1.f:236:72:

  236 |   167 IF (ISP) 169,169,168
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
hwsss1.f:276:72:

  276 |       IF (ISING) 186,186,179
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
hwsss1.f:277:72:

  277 |   179 IF (INP) 183,183,180
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
hwsss1.f:278:72:

  278 |   180 IF (ISP) 181,181,186
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
hwsss1.f:283:72:

  283 |   183 IF (ISP) 186,186,184
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
hwsss1.f:288:72:

  288 |   186 IF (INP) 193,193,187
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
hwsss1.f:296:72:

  296 |       IF (ISP) 189,189,194
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
hwsss1.f:308:72:

  308 |   193 IF (ISP) 209,209,194
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
hwsss1.f:316:72:

  316 |       IF (INP) 196,196,200
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
hwsss1.f:330:72:

  330 |       IF (ISING) 202,202,201
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
hwsss1.f:334:72:

  334 |   202 IF (ABS(DNN)-ABS(DSN)) 204,204,203
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
hwsss1.f:354:72:

  354 |   209 IF (NBDCND) 212,210,212
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  hwsssp.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  i1mach.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  i1merg.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  icamax.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  icopy.f
icopy.f:58:72:

   58 |       IF (INCX .EQ. INCY) IF (INCX-1) 5,20,60
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  idamax.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  idloc.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  imtql1.f
imtql1.f:95:72:

   95 |   100 E(I-1) = E(I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  imtql2.f
imtql2.f:115:72:

  115 |   100 E(I-1) = E(I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  imtqlv.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  indxa.f
indxa.f:38:72:

   38 |       IF (I-NM) 102,102,101
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  indxb.f
indxb.f:40:72:

   40 |       IF (IR) 107,101,103
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
indxb.f:41:72:

   41 |   101 IF (I-NM) 102,102,107
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
indxb.f:50:72:

   50 |       IF (I-IPL-NM) 105,105,104
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
indxb.f:53:72:

   53 |   105 IF (I+IPL-NM) 107,107,106
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  indxc.f
indxc.f:38:72:

   38 |       IF (IDXC+NC-1-NM) 102,102,101
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  initds.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  inits.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  intrv.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  intyd.f
intyd.f:86:72:

   86 |  10     IC = IC*JJ
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1)
intyd.f:89:72:

   89 |  20     DKY(I) = C*YH(I,L)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1)
intyd.f:99:72:

   99 |  30       IC = IC*JJ
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1)
intyd.f:102:72:

  102 |  40       DKY(I) = C*YH(I,JP1) + S*DKY(I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1)
intyd.f:107:72:

  107 |  60     DKY(I) = R*DKY(I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 60 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  invit.f
invit.f:183:72:

  183 |   160       X = X + ABS(A(I,J))
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 160 at (1)
invit.f:224:72:

  224 |   300       RM1(J,I) = A(I,J)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 300 at (1)
invit.f:253:72:

  253 |   380       RM1(J,I) = RM1(J,I) - X * RM1(J,MP)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 380 at (1)
invit.f:267:72:

  267 |   460       Y = Y - RM1(J,I) * RV1(J)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 460 at (1)
invit.f:286:72:

  286 |   540    RM1(1,I) = 0.0E0
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 540 at (1)
invit.f:422:72:

  422 |   860    RV1(I) = Y
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 860 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  inxca.f
inxca.f:38:72:

   38 |       IF (I-NM) 102,102,101
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  inxcb.f
inxcb.f:38:72:

   38 |       IF (IR) 107,101,103
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
inxcb.f:39:72:

   39 |   101 IF (I-NM) 102,102,107
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
inxcb.f:48:72:

   48 |       IF (I-IPL-NM) 105,105,104
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
inxcb.f:51:72:

   51 |   105 IF (I+IPL-NM) 107,107,106
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  inxcc.f
inxcc.f:38:72:

   38 |       IF (IDXC+NC-1-NM) 102,102,101
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  iploc.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  ipperm.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  ipsort.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  isamax.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  isdbcg.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  isdcg.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  isdcgn.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  isdcgs.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  isdgmr.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  isdir.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  isdomn.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  isort.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  issbcg.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  isscg.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  isscgn.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  isscgs.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  issgmr.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  issir.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  issomn.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  iswap.f
iswap.f:63:72:

   63 |       IF (INCX-1) 5,20,60
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  ivout.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  j4save.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  jairy.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  la05ad.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  la05as.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  la05bd.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  la05bs.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  la05cd.f
la05cd.f:260:72:

  260 |          IF (II-LAST1) 560, 590, 560
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  la05cs.f
la05cs.f:261:72:

  261 |          IF (II-LAST1) 560, 590, 560
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  la05ed.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  la05es.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  llsia.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  lmpar.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  lpdp.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  lsame.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  lsei.f
lsei.f:608:26:

  491 |       CALL SCOPY (N, 1.E0, 0, WS(N1), 1)
      |                     2     
......
  608 |   160 CALL SCOPY (KRANKE, W, MDW+1, WS(KRANKE+1), 1)
      |                          1
Warning: Rank mismatch between actual argument at (1) and actual argument at (2) (scalar and rank-2)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  lsi.f
lsi.f:227:24:

  135 |       CALL SCOPY (N, 0.E0, 0, WS, 1)
      |                     2   
......
  227 |          CALL SCOPY (N, WS, 1, X, 1)
      |                        1
Warning: Rank mismatch between actual argument at (1) and actual argument at (2) (scalar and rank-1)
lsi.f:239:25:

  135 |       CALL SCOPY (N, 0.E0, 0, WS, 1)
      |                     2    
......
  239 |       CALL SCOPY (KRANK, W, MDW+1, WS(N2), 1)
      |                         1
Warning: Rank mismatch between actual argument at (1) and actual argument at (2) (scalar and rank-2)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  lsod.f
lsod.f:273:72:

  273 |   210    YPOUT(L) = YH(L,2)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 210 at (1)
lsod.f:287:72:

  287 |   225   EWT(L) = TOL
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 225 at (1)
lsod.f:297:72:

  297 |   230   YH(L,2) = H*YH(L,2)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 230 at (1)
lsod.f:330:72:

  330 |   280   Y(L) = YH(L,1) + (DT/H)*YH(L,2)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 280 at (1)
lsod.f:383:72:

  383 |   360   ATOL(L) = TOLFAC*ATOL(L)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 360 at (1)
lsod.f:420:72:

  420 |   555   YPOUT(L) = YH(L,2)/H
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 555 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  lssods.f
lssods.f:168:72:

  168 |          DO 10 K=1,M
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 10 at (1)
lssods.f:169:72:

  169 |    10       Q(K,J)=A(K,J)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1)
lssods.f:189:72:

  189 |    13    DIV(K)=DIAG(K)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 13 at (1)
lssods.f:199:72:

  199 |    20    X(K)=0.
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1)
lssods.f:212:72:

  212 |    30    R(K)=B(K)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1)
lssods.f:227:72:

  227 |             DO 35 K=J,M
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 35 at (1)
lssods.f:228:72:

  228 |    35          R(K)=R(K)+GAMMA*Q(K,J)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 35 at (1)
lssods.f:237:72:

  237 |    40       Z(K)=(R(K)-SDOT(L,Q(K,KP),NRDA,Z(KP),1))/DIV(K)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1)
lssods.f:246:72:

  246 |    50       Z(K)=0.
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 50 at (1)
lssods.f:251:72:

  251 |             DO 55 J=IRP,N
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 55 at (1)
lssods.f:252:72:

  252 |    55          Z(J)=Z(J)+GAM*Q(K,J)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 55 at (1)
lssods.f:260:72:

  260 |    65       X(L)=X(L)+Z(K)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 65 at (1)
lssods.f:283:72:

  283 |    85       R(K)=-SDSDOT(N,-B(K),A(K,1),NRDA,X(1),1)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 85 at (1)
lssods.f:309:72:

  309 |   100    ZNRM0=ZNORM
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  lssuds.f
lssuds.f:168:72:

  168 |          DO 10 J=1,N
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 10 at (1)
lssuds.f:169:72:

  169 |    10       Q(J,K)=A(J,K)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1)
lssuds.f:190:72:

  190 |    20    DIV(K)=DIAG(K)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1)
lssuds.f:215:72:

  215 |    45    X(K)=B(KP)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 45 at (1)
lssuds.f:217:72:

  217 |    50    S(K)=X(K)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 50 at (1)
lssuds.f:235:72:

  235 |          DO 55 J=IRP,N
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 55 at (1)
lssuds.f:236:72:

  236 |    55       S(J)=S(J)+GAM*Q(J,K)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 55 at (1)
lssuds.f:249:72:

  249 |    65    S(K)=(S(K)-SDOT(K-1,Q(K,1),NRDA,S(1),1))/DIV(K)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 65 at (1)
lssuds.f:262:72:

  262 |          DO 80 K=J,M
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 80 at (1)
lssuds.f:263:72:

  263 |    80       X(K)=X(K)+GAMMA*Q(J,K)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 80 at (1)
lssuds.f:268:72:

  268 |    85    X(K)=X(K)*SCALES(K)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 85 at (1)
lssuds.f:281:72:

  281 |          DO 100 JR=1,IRANK
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 100 at (1)
lssuds.f:285:72:

  285 |             DO 100 I=J,M
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 100 at (1)
lssuds.f:286:72:

  286 |   100          U(I,K)=U(I,K)+GAMMA*Q(J,I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  macon.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  mc20ad.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  mc20as.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  mgsbv.f
mgsbv.f:157:72:

  157 |    50 KJ=KJ+NN-J
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 50 at (1)
mgsbv.f:175:72:

  175 |    65 KJ=KJ+NFCC-K
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 65 at (1)
mgsbv.f:185:72:

  185 |    70 A(L,NR)=T
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 70 at (1)
mgsbv.f:215:72:

  215 |    90 A(I,J)=A(I,J)-P(JP)*A(I,NR)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 90 at (1)
mgsbv.f:227:72:

  227 |    95 A(L,J)=A(L,J)+PJP*A(K,NR)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 95 at (1)
mgsbv.f:255:72:

  255 |   130 V(I)=V(I)-W(LR)*A(I,NR)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 130 at (1)
mgsbv.f:262:72:

  262 |   135 V(L)=V(L)-W(LR)*A(K,NR)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 135 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  minfit.f
minfit.f:132:72:

  132 |   120    SCALE = SCALE + ABS(A(K,I))
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1)
minfit.f:151:72:

  151 |   140       S = S + A(K,I) * A(K,J)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 140 at (1)
minfit.f:155:72:

  155 |             DO 150 K = I, M
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 150 at (1)
minfit.f:165:72:

  165 |   170       S = S + A(K,I) * B(K,J)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 170 at (1)
minfit.f:169:72:

  169 |             DO 180 K = I, M
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 180 at (1)
minfit.f:174:72:

  174 |   200    A(K,I) = SCALE * A(K,I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 200 at (1)
minfit.f:183:72:

  183 |   220    SCALE = SCALE + ABS(A(I,K))
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 220 at (1)
minfit.f:198:72:

  198 |   240    RV1(K) = A(I,K) / H
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 240 at (1)
minfit.f:206:72:

  206 |   250       S = S + A(J,K) * A(I,K)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 250 at (1)
minfit.f:208:72:

  208 |             DO 260 K = L, N
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 260 at (1)
minfit.f:213:72:

  213 |   280    A(I,K) = SCALE * A(I,K)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 280 at (1)
minfit.f:226:72:

  226 |   320    A(J,I) = (A(I,J) / A(I,L)) / G
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 320 at (1)
minfit.f:232:72:

  232 |   340       S = S + A(I,K) * A(K,J)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 340 at (1)
minfit.f:234:72:

  234 |             DO 350 K = L, N
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 350 at (1)
minfit.f:253:72:

  253 |          DO 500 J = 1, IP
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 500 at (1)
minfit.f:364:72:

  364 |   690    A(J,K) = -A(J,K)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 690 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  minso4.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  minsol.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  mpadd.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  mpadd2.f
mpadd2.f:88:72:

   88 |       IF (ED) 90, 70, 120
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
mpadd2.f:92:72:

   92 |       IF (X(J+2) - Y(J+2)) 100, 80, 130
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  mpadd3.f
mpadd3.f:97:72:

   97 |   100 R(I+1) = R(I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  mpblas.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  mpcdm.f
mpcdm.f:57:72:

   57 |       IF (DX) 20, 10, 30
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
mpcdm.f:86:72:

   86 |    80 DJ = DJ - DBLE(R(I))
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 80 at (1)
mpcdm.f:92:72:

   92 |       IF (IE) 90, 130, 110
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  mpchk.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  mpcmd.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  mpdivi.f
mpdivi.f:51:72:

   51 |       IF (J) 30, 10, 40
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
mpdivi.f:84:72:

   84 |       IF (R1) 210, 70, 80
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
mpdivi.f:96:72:

   96 |    90 C = B*(C - J*R(K))
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 90 at (1)
mpdivi.f:101:72:

  101 |   110 C = B*(C - J*R(K))
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1)
mpdivi.f:116:72:

  116 |       IF (C-J1) 140, 150, 160
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  mperr.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  mpmaxr.f
mpmaxr.f:50:72:

   50 |    10 X(I+2) = IT
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  mpmlp.f
mpmlp.f:41:72:

   41 |    10 U(I) = U(I) + W*V(I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  mpmul.f
mpmul.f:69:72:

   69 |    20 R(I) = 0
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1)
mpmul.f:88:72:

   88 |    30 R(J1) = RI - B*C
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1)
mpmul.f:100:72:

  100 |    50 R(J1) = RI - B*C
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 50 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  mpmul2.f
mpmul2.f:55:72:

   55 |       IF (J) 20, 10, 50
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
mpmul2.f:87:72:

   87 |    60 R(I+4) = RI - B*C
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 60 at (1)
mpmul2.f:95:72:

   95 |    70 R(I) = RI - B*C
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 70 at (1)
mpmul2.f:100:72:

  100 |    90 R(I+1) = R(I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 90 at (1)
mpmul2.f:105:72:

  105 |       IF (C) 130, 100, 80
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
mpmul2.f:122:72:

  122 |   120 R(I+4) = RI - B*IS
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1)
mpmul2.f:123:72:

  123 |       IF (C) 130, 100, 80
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  mpmuli.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  mpnzr.f
mpnzr.f:74:72:

   74 |    70 R(J) = R(K)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 70 at (1)
mpnzr.f:77:72:

   77 |    80 R(J) = 0
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 80 at (1)
mpnzr.f:86:72:

   86 |       IF (R(T+1) - B2) 150, 100, 110
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
mpnzr.f:94:72:

   94 |   120 R(I) = 0
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1)
mpnzr.f:102:72:

  102 |       IF (R(IT) - B2) 150, 140, 110
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
mpnzr.f:116:72:

  116 |   180 Z(I+2) = R(I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 180 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  mpovfl.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  mpstr.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  mpunfl.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  numxer.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  ohtrol.f
ohtrol.f:64:72:

   64 |    10          Q(L,J)=Q(L,J)+QS*Q(L,KIR)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  ohtror.f
ohtror.f:64:72:

   64 |    10          Q(J,L)=Q(J,L)+QS*Q(KIR,L)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  ortbak.f
ortbak.f:107:72:

  107 |   100    ORT(I) = A(I,MP-1)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1)
ortbak.f:113:72:

  113 |   110       G = G + ORT(I) * Z(I,J)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1)
ortbak.f:119:72:

  119 |   120       Z(I,J) = Z(I,J) + G * ORT(I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  orthes.f
orthes.f:99:72:

   99 |    90    SCALE = SCALE + ABS(A(I,M-1))
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 90 at (1)
orthes.f:125:72:

  125 |   120       A(I,J) = A(I,J) - F * ORT(I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1)
orthes.f:140:72:

  140 |   150       A(I,J) = A(I,J) - F * ORT(J)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 150 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  ortho4.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  orthog.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  orthol.f
orthol.f:171:72:

  171 |    20       A(L,JCOL)=ASAVE
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1)
orthol.f:197:72:

  197 |    35          A(L,J)=A(L,J)+AS*A(L,K)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 35 at (1)
orthol.f:198:72:

  198 |    40       COLS(J)=COLS(J)-A(K,J)**2
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  orthor.f
orthor.f:169:72:

  169 |    20       A(JROW,L)=ASAVE
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1)
orthor.f:195:72:

  195 |    35          A(J,L)=A(J,L)+AS*A(K,L)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 35 at (1)
orthor.f:196:72:

  196 |    40       ROWS(J)=ROWS(J)-A(J,K)**2
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  ortran.f
ortran.f:94:72:

   94 |    60    Z(I,J) = 0.0E0
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 60 at (1)
ortran.f:108:72:

  108 |   100    ORT(I) = A(I,MP-1)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1)
ortran.f:114:72:

  114 |   110       G = G + ORT(I) * Z(I,J)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1)
ortran.f:120:72:

  120 |   120       Z(I,J) = Z(I,J) + G * ORT(I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  passb.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  passb2.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  passb3.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  passb4.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  passb5.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  passf.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  passf2.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  passf3.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  passf4.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  passf5.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  pchbs.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  pchce.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  pchci.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  pchcm.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  pchcs.f
pchcs.f:136:72:

  136 |          IF ( PCHST(SLOPE(I-1),SLOPE(I)) )  100, 300, 900
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
pchcs.f:159:72:

  159 |             IF ( PCHST(DEXT, SLOPE(I-1)) )  200, 900, 250
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  pchdf.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  pchdoc.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  pchfd.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  pchfe.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  pchia.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  pchic.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  pchid.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  pchim.f
pchim.f:225:72:

  225 |          IF ( PCHST(DEL1,DEL2) )  42, 41, 45
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  pchkt.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  pchngs.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  pchsp.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  pchst.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  pchsw.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  pcoef.f
pcoef.f:84:72:

   84 |  1      TC(I) = TC(I)/FAC
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 1 at (1)
pcoef.f:92:72:

   92 |  3      TC(NEW) = SAVE
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 3 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  pfqad.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  pgsf.f
pgsf.f:41:72:

   41 |       IF (MOD(IZ,2)) 103,102,103
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  pimach.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  pinitm.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  pjac.f
pjac.f:96:72:

   96 |  110    WM(I+2) = 0.0E0
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1)
pjac.f:100:72:

  100 |  120    WM(I+2) = WM(I+2)*CON
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1)
pjac.f:115:72:

  115 |  220      WM(I+J1) = (FTEM(I) - SAVF(I))*FAC
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 220 at (1)
pjac.f:124:72:

  124 |  250    J = J + (N + 1)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 250 at (1)
pjac.f:133:72:

  133 |  310    Y(I) = Y(I) + R*(H*SAVF(I) - YH(I,2))
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 310 at (1)
pjac.f:155:72:

  155 |  410    WM(I+2) = 0.0E0
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 410 at (1)
pjac.f:159:72:

  159 |  420    WM(I+2) = WM(I+2)*CON
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 420 at (1)
pjac.f:176:72:

  176 |  530      Y(I) = Y(I) + R
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 530 at (1)
pjac.f:187:72:

  187 |  540        WM(II+I) = (FTEM(I) - SAVF(I))*FAC
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 540 at (1)
pjac.f:195:72:

  195 |  580    II = II + MEBAND
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 580 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  pnnzrs.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  poch.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  poch1.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  pois3d.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  poisd2.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  poisn2.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  poisp2.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  poistg.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  polcof.f
polcof.f:102:72:

  102 |       DO 10030 I=2,NMKP1
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 10030 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  polfit.f
polfit.f:165:72:

  165 |  3      W(I) = 1.0
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 3 at (1)
polfit.f:189:72:

  189 |  9      A(I) = 0.0
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 9 at (1)
polfit.f:198:72:

  198 |  10     W11 = W11 + W(I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1)
polfit.f:205:72:

  205 |  12     W11 = W11 + W(I)*A(K4PI)**2
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 12 at (1)
polfit.f:223:72:

  223 |  15     SIGJ = SIGJ + W(I)*((Y(I)-R(I)) - A(K5PI))**2
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 15 at (1)
polfit.f:228:72:

  228 |       IF (EPS) 24,26,27
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
polfit.f:262:72:

  262 |  19     W11 = W11 + W(I)*A(K4PI)**2
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 19 at (1)
polfit.f:272:72:

  272 |  20     TEMD1 = TEMD1 + TEMD2
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1)
polfit.f:289:72:

  289 |  21     SIGJ = SIGJ + W(I)*((Y(I)-R(I)) - A(K5PI))**2
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 21 at (1)
polfit.f:294:72:

  294 |       IF (EPS) 23,26,27
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  polint.f
polint.f:66:72:

   66 |       DO 10010 I=1,KM1
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 10010 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  polyvl.f
polyvl.f:193:72:

  193 |       DO 10090 I=2,NMKP1
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 10090 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  pos3d1.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  postg2.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  ppadd.f
ppadd.f:58:72:

   58 |       IF (BP(N)-BP(1)) 101,142,103
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
ppadd.f:70:72:

   70 |       IF (MODIZ) 106,107,106
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
ppadd.f:71:72:

   71 |   106 IF (A(1)) 110,142,107
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
ppadd.f:75:72:

   75 |       IF (PSGF(XL,IZ,C,A,BH)) 108,108,109
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
ppadd.f:80:72:

   80 |       IF (MODIZ) 111,112,111
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
ppadd.f:81:72:

   81 |   111 IF (A(1)) 112,142,115
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
ppadd.f:85:72:

   85 |       IF (PSGF(XR,IZ,C,A,BH)) 113,114,114
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
ppadd.f:95:72:

   95 |          IF (ABS(PSG)-EPS) 118,118,116
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
ppadd.f:96:72:

   96 |   116    IF (PSG*PPSGF(XM,IZ,C,A,BH)) 117,118,119
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
ppadd.f:128:72:

  128 |          IF (MODIZ) 123,122,123
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
ppadd.f:133:72:

  133 |          IF (ABS(FP)) 126,126,125
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
ppadd.f:136:72:

  136 |   126    IF (ABS(FPP)) 132,132,127
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
ppadd.f:140:72:

  140 |          IF (ABS(R1)-ABS(R2)) 129,129,128
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
ppadd.f:146:72:

  146 |          IF (I3) 133,133,131
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
ppadd.f:154:72:

  154 |          IF (ICV) 134,134,135
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
ppadd.f:160:72:

  160 |       IF (ABS(CBP(N))-ABS(CBP(1))) 137,142,139
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
ppadd.f:170:72:

  170 |          IF (AIMAG(CBP(J))) 143,140,143
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  ppgq8.f
ppgq8.f:155:72:

  155 |       IF (EE-AE) 40, 40, 50
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
ppgq8.f:158:72:

  158 |       IF (LR(L)) 60, 60, 80
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
ppgq8.f:188:72:

  188 |       IF (LR(L)) 100, 100, 110
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  ppgsf.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  pppsf.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  ppqad.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  ppsgf.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  ppspf.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  ppval.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  proc.f
proc.f:66:72:

   66 |   102 IF (IA) 105,105,103
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
proc.f:76:72:

   76 |   105 IF (ID) 125,125,106
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
proc.f:93:72:

   93 |       IF (ABS(DEN)) 108,109,108
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
proc.f:98:72:

   98 |       IF (NA) 113,113,102
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
proc.f:104:72:

  104 |   113 IF (M1) 114,114,115
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
proc.f:105:72:

  105 |   114 IF (M2) 111,111,120
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
proc.f:106:72:

  106 |   115 IF (M2) 117,117,116
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
proc.f:107:72:

  107 |   116 IF (ABS(BM1(M1))-ABS(BM2(M2))) 120,120,117
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
proc.f:108:72:

  108 |   117 IF (IBR) 118,118,119
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
proc.f:109:72:

  109 |   118 IF (ABS(BM1(M1)-BD(ID))-ABS(BM1(M1)-RT)) 111,119,119
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
proc.f:113:72:

  113 |   120 IF (IBR) 121,121,122
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
proc.f:114:72:

  114 |   121 IF (ABS(BM2(M2)-BD(ID))-ABS(BM2(M2)-RT)) 111,122,122
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  procp.f
procp.f:68:72:

   68 |   102 IF (IA) 105,105,103
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
procp.f:75:72:

   75 |   105 IF (ID) 128,128,106
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
procp.f:89:72:

   89 |       IF (MM2-2) 109,107,107
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
procp.f:106:72:

  106 |       IF (ABS(DEN)) 110,111,110
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
procp.f:115:72:

  115 |       IF (NA) 116,116,102
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
procp.f:121:72:

  121 |   116 IF (M1) 117,117,118
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
procp.f:122:72:

  122 |   117 IF (M2) 114,114,123
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
procp.f:123:72:

  123 |   118 IF (M2) 120,120,119
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
procp.f:124:72:

  124 |   119 IF (ABS(BM1(M1))-ABS(BM2(M2))) 123,123,120
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
procp.f:125:72:

  125 |   120 IF (IBR) 121,121,122
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
procp.f:126:72:

  126 |   121 IF (ABS(BM1(M1)-BD(ID))-ABS(BM1(M1)-RT)) 114,122,122
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
procp.f:130:72:

  130 |   123 IF (IBR) 124,124,125
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
procp.f:131:72:

  131 |   124 IF (ABS(BM2(M2)-BD(ID))-ABS(BM2(M2)-RT)) 114,125,125
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  prod.f
prod.f:63:72:

   63 |   102 IF (IA) 105,105,103
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
prod.f:73:72:

   73 |   105 IF (ID) 125,125,106
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
prod.f:90:72:

   90 |       IF (DEN) 108,109,108
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
prod.f:95:72:

   95 |       IF (NA) 113,113,102
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
prod.f:101:72:

  101 |   113 IF (M1) 114,114,115
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
prod.f:102:72:

  102 |   114 IF (M2) 111,111,120
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
prod.f:103:72:

  103 |   115 IF (M2) 117,117,116
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
prod.f:104:72:

  104 |   116 IF (ABS(BM1(M1))-ABS(BM2(M2))) 120,120,117
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
prod.f:105:72:

  105 |   117 IF (IBR) 118,118,119
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
prod.f:106:72:

  106 |   118 IF (ABS(BM1(M1)-BD(ID))-ABS(BM1(M1)-RT)) 111,119,119
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
prod.f:110:72:

  110 |   120 IF (IBR) 121,121,122
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
prod.f:111:72:

  111 |   121 IF (ABS(BM2(M2)-BD(ID))-ABS(BM2(M2)-RT)) 111,122,122
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  prodp.f
prodp.f:64:72:

   64 |   102 IF (IA) 105,105,103
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
prodp.f:71:72:

   71 |   105 IF (ID) 128,128,106
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
prodp.f:85:72:

   85 |       IF (MM2-2) 109,107,107
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
prodp.f:102:72:

  102 |       IF (DEN) 110,111,110
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
prodp.f:111:72:

  111 |       IF (NA) 116,116,102
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
prodp.f:117:72:

  117 |   116 IF (M1) 117,117,118
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
prodp.f:118:72:

  118 |   117 IF (M2) 114,114,123
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
prodp.f:119:72:

  119 |   118 IF (M2) 120,120,119
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
prodp.f:120:72:

  120 |   119 IF (ABS(BM1(M1))-ABS(BM2(M2))) 123,123,120
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
prodp.f:121:72:

  121 |   120 IF (IBR) 121,121,122
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
prodp.f:122:72:

  122 |   121 IF (ABS(BM1(M1)-BD(ID))-ABS(BM1(M1)-RT)) 114,122,122
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
prodp.f:126:72:

  126 |   123 IF (IBR) 124,124,125
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
prodp.f:127:72:

  127 |   124 IF (ABS(BM2(M2)-BD(ID))-ABS(BM2(M2)-RT)) 114,125,125
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  prvec.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  prwpge.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  prwvir.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  psgf.f
psgf.f:41:72:

   41 |       IF (MOD(IZ,2)) 103,102,103
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  psi.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  psifn.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  psixn.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  pvalue.f
pvalue.f:89:72:

   89 |  1      YP(I) = 0.0
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 1 at (1)
pvalue.f:115:72:

  115 |  5      A(I) = 0.0
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 5 at (1)
pvalue.f:135:72:

  135 |  6        YP(N) = DIF*A(K3PN) + N*A(K3PN-1) - A(K1I)*A(K4PN)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 6 at (1)
pvalue.f:143:72:

  143 |  7        A(K3PN) = YP(N)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 7 at (1)
pvalue.f:145:72:

  145 |  9      A(K3P1) = VAL
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 9 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  pythag.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  qag.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  qage.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  qagi.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  qagie.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  qagp.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  qagpe.f
qagpe.f:327:72:

  327 |         DO 20 J = IP1,NINTP1
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  qags.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  qagse.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  qawc.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  qawce.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  qawf.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  qawfe.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  qawo.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  qawoe.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  qaws.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  qawse.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  qc25c.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  qc25f.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  qc25s.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  qcheb.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  qelg.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  qform.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  qk15.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  qk15i.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  qk15w.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  qk21.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  qk31.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  qk41.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  qk51.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  qk61.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  qmomo.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  qnc79.f
qnc79.f:201:72:

  201 |       IF (EE-TEST) 150,150,170
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
qnc79.f:219:72:

  219 |       IF (LR(L)) 190,190,210
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
qnc79.f:269:72:

  269 |       IF (LR(L)) 230,230,240
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  qng.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  qpdoc.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  qpsrt.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  qrfac.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  qrsolv.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  qs2i1d.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  qs2i1r.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  qwgtc.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  qwgtf.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  qwgts.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  qzhes.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  qzit.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  qzval.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  qzvec.f
qzvec.f:138:72:

  138 |   610       R = R + (BETM * A(I,J) - ALFM * B(I,J)) * B(J,EN)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 610 at (1)
qzvec.f:253:72:

  253 |          DO 880 I = 1, N
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 880 at (1)
qzvec.f:257:72:

  257 |   860       ZZ = ZZ + Z(I,K) * B(K,J)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 860 at (1)
qzvec.f:274:72:

  274 |   900    Z(I,J) = Z(I,J) / D
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 900 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  r1mach.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  r1mpyq.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  r1updt.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  r9aimp.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  r9atn1.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  r9chu.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  r9gmic.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  r9gmit.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  r9knus.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  r9lgic.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  r9lgit.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  r9lgmc.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  r9ln2r.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  r9pak.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  r9upak.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  radb2.f
radb2.f:43:72:

   43 |       IF (IDO-2) 107,105,102
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  radb3.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  radb4.f
radb4.f:53:72:

   53 |       IF (IDO-2) 107,105,102
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  radb5.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  radbg.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  radf2.f
radf2.f:43:72:

   43 |       IF (IDO-2) 107,105,102
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  radf3.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  radf4.f
radf4.f:51:72:

   51 |       IF (IDO-2) 107,105,102
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  radf5.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  radfg.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  rand.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  ratqr.f
ratqr.f:162:72:

  162 |    20 W(I) = D(I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1)
ratqr.f:193:72:

  193 |   110 W(I) = W(I) - TOT
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1)
ratqr.f:278:72:

  278 |   500 W(I) = -W(I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 500 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  rc.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  rc3jj.f
rc3jj.f:218:72:

  218 |       IF(NDIM-NFIN)  21, 23, 23
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
rc3jj.f:251:72:

  251 |       IF(LSTEP-2)  32, 32, 31
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
rc3jj.f:294:72:

  294 |    70 THRCOF(I) = THRCOF(I) / SRHUGE
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 70 at (1)
rc3jj.f:304:72:

  304 |    80 IF(C1OLD-ABS(C1))   100, 100, 30
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
rc3jj.f:381:72:

  381 |   130 THRCOF(INDEX) = THRCOF(INDEX) / SRHUGE
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 130 at (1)
rc3jj.f:406:72:

  406 |   210 THRCOF(N) = RATIO * THRCOF(N)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 210 at (1)
rc3jj.f:413:72:

  413 |   212 THRCOF(N) = RATIO * THRCOF(N)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 212 at (1)
rc3jj.f:428:72:

  428 |       IF(SIGN1*SIGN2) 235,235,236
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
rc3jj.f:434:72:

  434 |   240 THRCOF(N) = CNORM * THRCOF(N)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 240 at (1)
rc3jj.f:440:72:

  440 |   251 THRCOF(N) = CNORM * THRCOF(N)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 251 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  rc3jm.f
rc3jm.f:219:72:

  219 |       IF(NDIM-NFIN)   21, 23, 23
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
rc3jm.f:252:72:

  252 |       IF(LSTEP-2)  32, 32, 31
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
rc3jm.f:290:72:

  290 |    70 THRCOF(I) = THRCOF(I) / SRHUGE
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 70 at (1)
rc3jm.f:301:72:

  301 |    80 IF(C1OLD-ABS(C1))   100, 100, 30
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
rc3jm.f:374:72:

  374 |   111 THRCOF(INDEX) = THRCOF(INDEX) / SRHUGE
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 111 at (1)
rc3jm.f:399:72:

  399 |   210 THRCOF(N) = RATIO * THRCOF(N)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 210 at (1)
rc3jm.f:406:72:

  406 |   212 THRCOF(N) = RATIO * THRCOF(N)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 212 at (1)
rc3jm.f:421:72:

  421 |       IF(SIGN1*SIGN2)  235,235,236
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
rc3jm.f:427:72:

  427 |   240 THRCOF(N) = CNORM * THRCOF(N)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 240 at (1)
rc3jm.f:433:72:

  433 |   251 THRCOF(N) = CNORM * THRCOF(N)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 251 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  rc6j.f
rc6j.f:224:72:

  224 |       IF(NDIM-NFIN)   21, 23, 23
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
rc6j.f:259:72:

  259 |       IF(LSTEP-2)  32, 32, 31
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
rc6j.f:304:72:

  304 |    70 SIXCOF(I) = SIXCOF(I) / SRHUGE
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 70 at (1)
rc6j.f:315:72:

  315 |    80 IF(C1OLD-ABS(C1))   100, 100, 30
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
rc6j.f:394:72:

  394 |   130 SIXCOF(INDEX) = SIXCOF(INDEX) / SRHUGE
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 130 at (1)
rc6j.f:418:72:

  418 |   210 SIXCOF(N) = RATIO * SIXCOF(N)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 210 at (1)
rc6j.f:425:72:

  425 |   212 SIXCOF(N) = RATIO * SIXCOF(N)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 212 at (1)
rc6j.f:440:72:

  440 |       IF(SIGN1*SIGN2) 235,235,236
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
rc6j.f:446:72:

  446 |   240 SIXCOF(N) = CNORM * SIXCOF(N)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 240 at (1)
rc6j.f:452:72:

  452 |   251 SIXCOF(N) = CNORM * SIXCOF(N)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 251 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  rd.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  rebak.f
rebak.f:93:72:

   93 |          DO 100 II = 1, N
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 100 at (1)
rebak.f:100:72:

  100 |    60       X = X - B(K,I) * Z(K,J)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 60 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  rebakb.f
rebakb.f:93:72:

   93 |          DO 100 II = 1, N
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 100 at (1)
rebakb.f:100:72:

  100 |    60       X = X + B(I,K) * Z(K,J)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 60 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  reduc.f
reduc.f:103:72:

  103 |          DO 80 J = I, N
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 80 at (1)
reduc.f:108:72:

  108 |    20       X = X - B(I,K) * B(J,K)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1)
reduc.f:123:72:

  123 |          DO 200 J = I, NN
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 200 at (1)
reduc.f:128:72:

  128 |   160       X = X - B(I,K) * A(J,K)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 160 at (1)
reduc.f:136:72:

  136 |          DO 300 I = J, NN
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 300 at (1)
reduc.f:142:72:

  142 |   220       X = X - A(K,J) * B(I,K)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 220 at (1)
reduc.f:147:72:

  147 |   260       X = X - A(J,K) * B(I,K)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 260 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  reduc2.f
reduc2.f:105:72:

  105 |          DO 80 J = I, N
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 80 at (1)
reduc2.f:110:72:

  110 |    20       X = X - B(I,K) * B(J,K)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1)
reduc2.f:124:72:

  124 |          DO 200 J = 1, I
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 200 at (1)
reduc2.f:130:72:

  130 |   120       X = X + A(K,I) * B(K,J)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1)
reduc2.f:135:72:

  135 |   160       X = X + A(I,K) * B(K,J)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 160 at (1)
reduc2.f:144:72:

  144 |          DO 300 J = 1, I
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 300 at (1)
reduc2.f:149:72:

  149 |   260       X = X + A(K,J) * B(K,I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 260 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  reort.f
reort.f:175:72:

  175 |    65 Y(J,L) = Y(J,L)*VNORM
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 65 at (1)
reort.f:188:72:

  188 |    80 YP(J) = YP(J) / YPNM
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 80 at (1)
reort.f:190:72:

  190 |    90 W(J) = C * W(J)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 90 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  rf.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  rfftb.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  rfftb1.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  rfftf.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  rfftf1.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  rffti.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  rffti1.f
rffti1.f:77:72:

   77 |       IF (J-4) 102,102,103
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
rffti1.f:83:72:

   83 |       IF (NR) 101,105,101
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  rg.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  rgauss.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  rgg.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  rj.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  rpqr79.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  rpzero.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  rs.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  rsb.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  rsco.f
rsco.f:56:72:

   56 |  10     RLS(I) = RSAV(I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1)
rsco.f:58:72:

   58 |  20     ILS(I) = ISAV(I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  rsg.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  rsgab.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  rsgba.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  rsp.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  rst.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  rt.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  runif.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  rwupdt.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  s1merg.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  sasum.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  saxpy.f
saxpy.f:67:72:

   67 |       IF (INCX .EQ. INCY) IF (INCX-1) 5,20,60
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  sbcg.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  sbhin.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  sbocls.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  sbols.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  sbolsm.f
sbolsm.f:860:27:

  804 |           CALL IVOUT(NCOLS,IBASIS,'('' INTERNAL VARIABLE ORDER'')',-4)
      |                           2
......
  860 |               CALL IVOUT(0,I,'('' FOUND NO VARIABLE TO ENTER'')',-4)
      |                           1
Warning: Rank mismatch between actual argument at (1) and actual argument at (2) (rank-1 and scalar)
sbolsm.f:869:23:

  804 |           CALL IVOUT(NCOLS,IBASIS,'('' INTERNAL VARIABLE ORDER'')',-4)
      |                           2
......
  869 |      *    CALL IVOUT(1,JBIG,'('' TRY TO BRING IN THIS COL.'')',-4)
      |                       1
Warning: Rank mismatch between actual argument at (1) and actual argument at (2) (rank-1 and scalar)
sbolsm.f:890:27:

  804 |           CALL IVOUT(NCOLS,IBASIS,'('' INTERNAL VARIABLE ORDER'')',-4)
      |                           2
......
  890 |      *        CALL IVOUT(0,I,'('' VARIABLE IS DEPENDENT, NOT USED.'')',
      |                           1
Warning: Rank mismatch between actual argument at (1) and actual argument at (2) (rank-1 and scalar)
sbolsm.f:930:27:

  804 |           CALL IVOUT(NCOLS,IBASIS,'('' INTERNAL VARIABLE ORDER'')',-4)
      |                           2
......
  930 |               CALL IVOUT(0,I,'('' PIVOT IS ZERO, NOT USED.'')',-4)
      |                           1
Warning: Rank mismatch between actual argument at (1) and actual argument at (2) (rank-1 and scalar)
sbolsm.f:954:23:

  804 |           CALL IVOUT(NCOLS,IBASIS,'('' INTERNAL VARIABLE ORDER'')',-4)
      |                           2
......
  954 |      *    CALL IVOUT(0,I,'('' VARIABLE HAS BAD DIRECTION, NOT USED.'')',
      |                       1
Warning: Rank mismatch between actual argument at (1) and actual argument at (2) (rank-1 and scalar)
sbolsm.f:976:27:

  726 |       CALL SCOPY(NCOLS,ZERO,0,X,1)
      |                       2    
......
  976 |           CALL SCOPY(NSETB,RW,1,X,1)
      |                           1
Warning: Rank mismatch between actual argument at (1) and actual argument at (2) (scalar and rank-1)
sbolsm.f:1044:27:

  726 |       CALL SCOPY(NCOLS,ZERO,0,X,1)
      |                       2    
......
 1044 |           CALL SCOPY(NSETB,RW,1,X,1)
      |                           1
Warning: Rank mismatch between actual argument at (1) and actual argument at (2) (scalar and rank-1)
sbolsm.f:1110:23:

  726 |       CALL SCOPY(NCOLS,ZERO,0,X,1)
      |                       2
......
 1110 |       CALL SCOPY(JDROP,RW,1,W(1,NSETB),1)
      |                       1
Warning: Rank mismatch between actual argument at (1) and actual argument at (2) (scalar and rank-1)
sbolsm.f:1176:23:

  726 |       CALL SCOPY(NCOLS,ZERO,0,X,1)
      |                       2
......
 1176 |   130 CALL SCOPY(NSETB,X,1,RW,1)
      |                       1
Warning: Rank mismatch between actual argument at (1) and actual argument at (2) (scalar and rank-1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  scasum.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  scg.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  scgn.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  scgs.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  schdc.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  schdd.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  schex.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  schkw.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  schud.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  sclosm.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  scnrm2.f
scnrm2.f:105:72:

  105 |    10 ASSIGN 30 TO NEXT
      |                                                                        1
Warning: Deleted feature: ASSIGN statement at (1)
scnrm2.f:114:20:

  114 |          GO TO NEXT,(30, 50, 70, 90, 110)
      |                    1
Warning: Deleted feature: Assigned GOTO statement at (1)
scnrm2.f:116:72:

  116 |       ASSIGN 50 TO NEXT
      |                                                                        1
Warning: Deleted feature: ASSIGN statement at (1)
scnrm2.f:126:72:

  126 |       ASSIGN 70 TO NEXT
      |                                                                        1
Warning: Deleted feature: ASSIGN statement at (1)
scnrm2.f:131:72:

  131 |   100 ASSIGN 110 TO NEXT
      |                                                                        1
Warning: Deleted feature: ASSIGN statement at (1)
scnrm2.f:157:72:

  157 |    85 ASSIGN 90 TO NEXT
      |                                                                        1
Warning: Deleted feature: ASSIGN statement at (1)
scnrm2.f:176:17:

  176 |       GO TO NEXT,(  50, 70, 90, 110 )
      |                 1
Warning: Deleted feature: Assigned GOTO statement at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  scoef.f
scoef.f:103:72:

  103 |     1 BY(K,L) = SDOT(NCOMP,B(K,1),NROWB,YH(1,J),1)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 1 at (1)
scoef.f:144:72:

  144 |    14 COEF(K)=0.
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 14 at (1)
scoef.f:151:72:

  151 |       DO 15 I=J,NFCC
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 15 at (1)
scoef.f:152:72:

  152 |    15 COEF(I)=COEF(I)+GAM*BY(J,I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 15 at (1)
scoef.f:156:72:

  156 |    20 COEF(K)=WORK(KI)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1)
scoef.f:169:72:

  169 |    30 BN = MAX(BN,ABS(B(1,K)))
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  scopy.f
scopy.f:65:72:

   65 |       IF (INCX .EQ. INCY) IF (INCX-1) 5,20,60
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  scopym.f
scopym.f:56:72:

   56 |       IF (INCX .EQ. INCY) IF (INCX-1) 5,20,60
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  scov.f
scov.f:201:72:

  201 | 120   R(I,I)=WA1(I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1)
scov.f:259:72:

  259 |       DO 290 J=I,N
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 290 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  scpplt.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  sdaini.f
sdaini.f:108:72:

  108 | 100      PHI(I,2)=YPRIME(I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1)
sdaini.f:122:72:

  122 | 250     Y(I)=Y(I)+H*YPRIME(I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 250 at (1)
sdaini.f:155:72:

  155 | 320      DELTA(I)=DELTA(I)*DAMP
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 320 at (1)
sdaini.f:165:72:

  165 | 330      YPRIME(I)=YPRIME(I)-CJ*DELTA(I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 330 at (1)
sdaini.f:201:72:

  201 | 410      DELTA(I)=MIN(Y(I),0.0E0)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 410 at (1)
sdaini.f:208:72:

  208 | 420      YPRIME(I)=YPRIME(I)-CJ*DELTA(I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 420 at (1)
sdaini.f:225:72:

  225 | 510      E(I)=Y(I)-PHI(I,1)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 510 at (1)
sdaini.f:244:72:

  244 | 610      YPRIME(I)=PHI(I,2)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 610 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  sdajac.f
sdajac.f:102:72:

  102 | 110      WM(NPDM1+I)=0.0E0
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1)
sdajac.f:123:72:

  123 | 220      WM(NROW+L)=(E(L)-DELTA(L))*DELINV
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 220 at (1)
sdajac.f:142:72:

  142 | 410      WM(NPDM1+I)=0.0E0
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 410 at (1)
sdajac.f:167:72:

  167 | 510       YPRIME(N)=YPRIME(N)+CJ*DEL
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 510 at (1)
sdajac.f:182:72:

  182 | 520         WM(II+I)=(E(I)-DELTA(I))*DELINV
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 520 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  sdanrm.f
sdanrm.f:57:72:

   57 | 20      SUM = SUM + ((V(I)/WT(I))/VMAX)**2
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  sdaslv.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  sdassl.f
sdassl.f:1174:72:

 1174 | 370      RWORK(ITEMP + I - 1) = H*YPRIME(I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 370 at (1)
sdassl.f:1307:72:

 1307 | 524        ATOL(I)=R*ATOL(I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 524 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  sdastp.f
sdastp.f:238:72:

  238 | 260         PHI(I,J)=BETA(J)*PHI(I,J)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 260 at (1)
sdastp.f:259:72:

  259 | 310      YPRIME(I)=0.0E0
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 310 at (1)
sdastp.f:263:72:

  263 | 320         YPRIME(I)=YPRIME(I)+GAMMA(J)*PHI(I,J)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 320 at (1)
sdastp.f:300:72:

  300 | 345      E(I)=0.0E0
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 345 at (1)
sdastp.f:309:72:

  309 | 355     DELTA(I) = DELTA(I) * TEMP1
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 355 at (1)
sdastp.f:319:72:

  319 | 360      YPRIME(I)=YPRIME(I)-CJ*DELTA(I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 360 at (1)
sdastp.f:365:72:

  365 | 377      DELTA(I) = MIN(Y(I),0.0E0)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 377 at (1)
sdastp.f:369:72:

  369 | 378      E(I) = E(I) - DELTA(I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 378 at (1)
sdastp.f:400:72:

  400 | 405     DELTA(I) = PHI(I,KP1) + E(I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 405 at (1)
sdastp.f:408:72:

  408 | 415     DELTA(I) = PHI(I,K) + DELTA(I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 415 at (1)
sdastp.f:453:72:

  453 | 510      DELTA(I)=E(I)-PHI(I,KP2)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 510 at (1)
sdastp.f:498:72:

  498 | 580      PHI(I,KP2)=E(I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 580 at (1)
sdastp.f:501:72:

  501 | 590      PHI(I,KP1)=PHI(I,KP1)+E(I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 590 at (1)
sdastp.f:504:72:

  504 |          DO 595 I=1,NEQ
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 595 at (1)
sdastp.f:505:72:

  505 | 595      PHI(I,J)=PHI(I,J)+PHI(I,J+1)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 595 at (1)
sdastp.f:528:72:

  528 | 610         PHI(I,J)=TEMP1*PHI(I,J)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 610 at (1)
sdastp.f:532:72:

  532 | 640      PSI(I-1)=PSI(I)-H
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 640 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  sdatrp.f
sdatrp.f:66:72:

   66 | 10       YPOUT(I)=0.0E0
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1)
sdatrp.f:76:72:

   76 | 20          YPOUT(I)=YPOUT(I)+D*PHI(I,J)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  sdawts.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  sdcor.f
sdcor.f:56:72:

   56 |  100        SAVE1(I) = (H*SAVE2(I) - YH(I,2) - SAVE1(I))/YWT(I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1)
sdcor.f:65:72:

   65 |  105      SAVE1(I) = H*SAVE2(I) - YH(I,2)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 105 at (1)
sdcor.f:69:72:

   69 |  130        SAVE2(I) = H*SAVE2(I) - YH(I,2) - SAVE1(I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 130 at (1)
sdcor.f:81:72:

   81 |  150        SAVE2(I) = H*SAVE2(I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 150 at (1)
sdcor.f:83:72:

   83 |             DO 160 I = 1,N
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 160 at (1)
sdcor.f:84:72:

   84 |  160          SAVE2(I) = SAVE2(I) - A(I,J)*(YH(J,2) + SAVE1(J))
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 160 at (1)
sdcor.f:96:72:

   96 |  180        SAVE2(I) = H*SAVE2(I) - A(I,1)*(YH(I,2) + SAVE1(I))
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 180 at (1)
sdcor.f:108:72:

  108 |  140        SAVE2(I) = H*SAVE2(I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 140 at (1)
sdcor.f:110:72:

  110 |             DO 170 I = 1,NDE
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 170 at (1)
sdcor.f:111:72:

  111 |  170          SAVE2(I) = SAVE2(I) - A(I,J)*(YH(J,2) + SAVE1(J))
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 170 at (1)
sdcor.f:117:72:

  117 |  200        SAVE2(I) = SAVE2(I)/YWT(I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 200 at (1)
sdcor.f:121:72:

  121 |  205        SAVE2(I) = SAVE2(I)/MAX(ABS(Y(I)), YWT(I))
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 205 at (1)
sdcor.f:127:72:

  127 |  230        SAVE2(I) = H*SAVE2(I) - YH(I,2) - SAVE1(I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 230 at (1)
sdcor.f:139:72:

  139 |  250        SAVE2(I) = H*SAVE2(I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 250 at (1)
sdcor.f:142:72:

  142 |             DO 260 I = MAX(ML+1, MW+1-J), MIN(MW+N-J, MW+ML)
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 260 at (1)
sdcor.f:157:72:

  157 |  280        SAVE2(I) = H*SAVE2(I) - A(I,1)*(YH(I,2) + SAVE1(I))
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 280 at (1)
sdcor.f:169:72:

  169 |  270        SAVE2(I) = H*SAVE2(I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 270 at (1)
sdcor.f:172:72:

  172 |             DO 290 I = MAX(ML+1, MW+1-J), MIN(MW+NDE-J, MW+ML)
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 290 at (1)
sdcor.f:181:72:

  181 |  300        SAVE2(I) = SAVE2(I)/YWT(I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 300 at (1)
sdcor.f:185:72:

  185 |  305        SAVE2(I) = SAVE2(I)/MAX(ABS(Y(I)), YWT(I))
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 305 at (1)
sdcor.f:199:72:

  199 |  320        SAVE2(I) = SAVE2(I)/YWT(I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 320 at (1)
sdcor.f:203:72:

  203 |  325        SAVE2(I) = SAVE2(I)/MAX(ABS(Y(I)), YWT(I))
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 325 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  sdcst.f
sdcst.f:56:72:

   56 |  10     FACTRL(I) = I*FACTRL(I-1)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1)
sdcst.f:63:72:

   63 |  30         SUM = SUM - GAMMA(J)/(I-J+2)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1)
sdcst.f:64:72:

   64 |  40       GAMMA(I+1) = SUM
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1)
sdcst.f:72:72:

   72 |  50         EL(I,J) = (J-1)*EL(I,J-1) + EL(I-1,J-1)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 50 at (1)
sdcst.f:73:72:

   73 |  60       EL(J+1,J) = 1.E0
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 60 at (1)
sdcst.f:77:72:

   77 |           DO 80 I = 3,J+1
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 80 at (1)
sdcst.f:78:72:

   78 |  80         EL(I,J) = EL(I,J)/((I-1)*FACTRL(J-1))
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 80 at (1)
sdcst.f:82:72:

   82 |  100      TQ(3,J) = -1.E0/GAMMA(J+2)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1)
sdcst.f:90:72:

   90 |  120        EL(I,J) = J*EL(I,J-1) + EL(I-1,J-1)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1)
sdcst.f:91:72:

   91 |  130      EL(J+1,J) = 1.E0
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 130 at (1)
sdcst.f:95:72:

   95 |           DO 150 I = 1,J+1
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 150 at (1)
sdcst.f:96:72:

   96 |  150        EL(I,J) = EL(I,J)/(FACTRL(J)*SUM)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 150 at (1)
sdcst.f:100:72:

  100 |  170      TQ(3,J) = (J+2)/EL(1,J)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 170 at (1)
sdcst.f:112:72:

  112 |  180          SUM = SUM - GAMMA(J)/(I-J+2)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 180 at (1)
sdcst.f:113:72:

  113 |  190        GAMMA(I+1) = SUM
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 190 at (1)
sdcst.f:118:72:

  118 |  200      EL(1+I,1) = -(I+1)*SUM*GAMMA(I+1)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 200 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  sdntl.f
sdntl.f:138:72:

  138 |  155          A(I,1) = 0.E0
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 155 at (1)
sdntl.f:168:72:

  168 |  170      SAVE1(I) = SAVE2(I)/MAX(1.E0, YWT(I))
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 170 at (1)
sdntl.f:172:72:

  172 |  180      YH(I,2) = H*SAVE2(I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 180 at (1)
sdntl.f:175:72:

  175 |  20         FAC(I) = SQRT(UROUND)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  sdntp.f
sdntp.f:43:72:

   43 |  10       Y(I) = YH(I,NQ+1)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1)
sdntp.f:47:72:

   47 |           DO 20 I = 1,N
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1)
sdntp.f:48:72:

   48 |  20         Y(I) = YH(I,J) + R*Y(I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1)
sdntp.f:53:72:

   53 |  40       FACTOR = FACTOR*(NQ+1-KK)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1)
sdntp.f:55:72:

   55 |  50       Y(I) = FACTOR*YH(I,NQ+1)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 50 at (1)
sdntp.f:61:72:

   61 |  60         FACTOR = FACTOR*(J-KK)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 60 at (1)
sdntp.f:63:72:

   63 |  70         Y(I) = FACTOR*YH(I,J) + R*Y(I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 70 at (1)
sdntp.f:66:72:

   66 |  100      Y(I) = Y(I)*H**(-KUSED)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  sdot.f
sdot.f:66:72:

   66 |       IF (INCX .EQ. INCY) IF (INCX-1) 5,20,60
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  sdpsc.f
sdpsc.f:44:72:

   44 |           DO 10 J2 = J1,NQ
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 10 at (1)
sdpsc.f:46:72:

   46 |             DO 10 I = 1,N
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 10 at (1)
sdpsc.f:47:72:

   47 |  10           YH(I,J) = YH(I,J) + YH(I,J+1)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1)
sdpsc.f:50:72:

   50 |           DO 30 J2 = J1,NQ
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1)
sdpsc.f:52:72:

   52 |             DO 30 I = 1,N
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1)
sdpsc.f:53:72:

   53 |  30           YH(I,J) = YH(I,J) - YH(I,J+1)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  sdpst.f
sdpst.f:66:72:

   66 |             DO 110 I = 1,N
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 110 at (1)
sdpst.f:67:72:

   67 |  110          DFDY(I,J) = FACTOR*DFDY(I,J)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1)
sdpst.f:100:72:

  100 |  140          DFDY(I,J) = (SAVE1(I) - SAVE2(I))*FACTOR
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 140 at (1)
sdpst.f:129:72:

  129 |  190        DFDY(I,I) = DFDY(I,I) + 1.E0
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 190 at (1)
sdpst.f:137:72:

  137 |             DO 210 I = 1,N
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 210 at (1)
sdpst.f:138:72:

  138 |  210          DFDY(I,J) = DFDY(I,J) + A(I,J)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 210 at (1)
sdpst.f:146:72:

  146 |  230        DFDY(I,I) = DFDY(I,I) + A(I,1)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 230 at (1)
sdpst.f:154:72:

  154 |             DO 220 I = 1,NDE
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 220 at (1)
sdpst.f:155:72:

  155 |  220          DFDY(I,J) = DFDY(I,J) + A(I,J)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 220 at (1)
sdpst.f:169:72:

  169 |             DO 260 I = MAX(ML+1, MW+1-J), MIN(MW+N-J, MW+ML)
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 260 at (1)
sdpst.f:170:72:

  170 |  260          DFDY(I,J) = FACTOR*DFDY(I,J)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 260 at (1)
sdpst.f:197:72:

  197 |  290          Y(K) = Y(K) + DY
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 290 at (1)
sdpst.f:216:72:

  216 |  300            DFDY(I,K) = FACTOR*(SAVE1(I+K-MW) - SAVE2(I+K-MW))
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 300 at (1)
sdpst.f:246:72:

  246 |             DO 345 I = MAX(ML+1, MW+1-J), MIN(MW+N-J, MW+ML)
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 345 at (1)
sdpst.f:247:72:

  247 |  345          DFDYMX = MAX(DFDYMX, ABS(DFDY(I,J)))
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 345 at (1)
sdpst.f:251:72:

  251 |               DO 350 I = MAX(ML+1, MW+1-J), MIN(MW+N-J, MW+ML)
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 350 at (1)
sdpst.f:252:72:

  252 |  350            BND = BND + (DFDY(I,J)/DFDYMX)**2
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 350 at (1)
sdpst.f:258:72:

  258 |  360        DFDY(MW,J) = DFDY(MW,J) + 1.E0
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 360 at (1)
sdpst.f:266:72:

  266 |             DO 380 I = MAX(ML+1, MW+1-J), MIN(MW+N-J, MW+ML)
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 380 at (1)
sdpst.f:267:72:

  267 |  380          DFDY(I,J) = DFDY(I,J) + A(I,J)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 380 at (1)
sdpst.f:275:72:

  275 |  400        DFDY(MW,J) =  DFDY(MW,J) + A(J,1)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 400 at (1)
sdpst.f:283:72:

  283 |             DO 390 I = MAX(ML+1, MW+1-J), MIN(MW+NDE-J, MW+ML)
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 390 at (1)
sdpst.f:284:72:

  284 |  390          DFDY(I,J) = DFDY(I,J) + A(I,J)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 390 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  sdriv1.f
sdriv1.f:360:72:

  360 |  20       IWORK(I) = WORK(I+LENWCM)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1)
sdriv1.f:367:72:

  367 |  40     WORK(I+LENWCM) = IWORK(I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  sdriv2.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  sdriv3.f
sdriv3.f:993:72:

  993 |  30       WORK(I+IYH-1) = Y(I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1)
sdriv3.f:1193:72:

 1193 |  190    Y(I) = WORK(I+IYH-1)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 190 at (1)
sdriv3.f:1206:72:

 1206 |  230      WORK(I+IYWT-1) = 1.E0
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 230 at (1)
sdriv3.f:1210:72:

 1210 |  250      WORK(I+IYWT-1) = EWT(I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 250 at (1)
sdriv3.f:1217:72:

 1217 |  280      WORK(I+IYWT-1) = ABS(Y(I))
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 280 at (1)
sdriv3.f:1267:72:

 1267 |  340          WORK(I+ISAVE2-1) = WORK(I+ISAVE2-1)/WORK(I+IA-1)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 340 at (1)
sdriv3.f:1307:72:

 1307 |  380      WORK(I+IYWT-1) = MAX(EWT(1), ABS(Y(I)))
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 380 at (1)
sdriv3.f:1310:72:

 1310 |  400      WORK(I+IYWT-1) = MAX(EWT(I), ABS(Y(I)))
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 400 at (1)
sdriv3.f:1314:72:

 1314 |  420    WORK(I+ISAVE2-1) = Y(I)/WORK(I+IYWT-1)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 420 at (1)
sdriv3.f:1415:72:

 1415 |  480                Y(J) = WORK(IYH+J-1)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 480 at (1)
sdriv3.f:1497:72:

 1497 |  570    Y(I) = WORK(I+IYH-1)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 570 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  sdscl.f
sdscl.f:48:72:

   48 |         DO 10 I = 1,N
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 10 at (1)
sdscl.f:49:72:

   49 |  10       YH(I,J+1) = YH(I,J+1)*R1
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  sdsdot.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  sdstp.f
sdstp.f:132:72:

  132 |  115    Y(I) = YH(I,1)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 115 at (1)
sdstp.f:151:72:

  151 |  125    SAVE1(I) = 0.E0
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 125 at (1)
sdstp.f:175:72:

  175 |  132        DFDY(1,I) = SAVE1(I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 132 at (1)
sdstp.f:180:72:

  180 |  134        DFDY(1,I) = SAVE1(I) - DFDY(1,I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 134 at (1)
sdstp.f:189:72:

  189 |  136        DFDY(1,I) = SAVE1(I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 136 at (1)
sdstp.f:201:72:

  201 |  140      Y(I) = YH(I,1) + EL(1,NQ)*SAVE1(I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 140 at (1)
sdstp.f:240:72:

  240 |  180      SAVE2(I) = SAVE1(I)/YWT(I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 180 at (1)
sdstp.f:243:72:

  243 |  185      SAVE2(I) = SAVE1(I)/MAX(ABS(Y(I)), YWT(I))
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 185 at (1)
sdstp.f:262:72:

  262 |  190            SAVE2(I) = YH(I,NQ+1)/YWT(I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 190 at (1)
sdstp.f:265:72:

  265 |  195            SAVE2(I) = YH(I,NQ+1)/MAX(ABS(Y(I)), YWT(I))
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 195 at (1)
sdstp.f:293:72:

  293 |  215      Y(I) = YH(I,1)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 215 at (1)
sdstp.f:312:72:

  312 |         DO 230 I = 1,N
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 230 at (1)
sdstp.f:313:72:

  313 |  230      YH(I,J) = YH(I,J) + EL(J,NQ)*SAVE1(I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 230 at (1)
sdstp.f:315:72:

  315 |  235    Y(I) = YH(I,1)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 235 at (1)
sdstp.f:382:72:

  382 |  250        YH(I,MAXORD+1) = SAVE1(I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 250 at (1)
sdstp.f:401:72:

  401 |  270          SAVE2(I) = YH(I,NQ+1)/YWT(I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 270 at (1)
sdstp.f:404:72:

  404 |  275          SAVE2(I) = YH(I,NQ+1)/MAX(ABS(Y(I)), YWT(I))
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 275 at (1)
sdstp.f:415:72:

  415 |  290          SAVE2(I) = (SAVE1(I) - YH(I,MAXORD+1))/YWT(I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 290 at (1)
sdstp.f:437:72:

  437 |  360        YH(I,NQ+2) = SAVE1(I)*EL(NQ+1,NQ)/(NQ+1)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 360 at (1)
sdstp.f:457:72:

  457 |  405    Y(I) = YH(I,1)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 405 at (1)
sdstp.f:471:72:

  471 |  435    Y(I) = YH(I,1)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 435 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  sdzro.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  sepeli.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  sepx4.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  sgbco.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  sgbdi.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  sgbfa.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  sgbmv.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  sgbsl.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  sgeco.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  sgedi.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  sgeev.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  sgefa.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  sgefs.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  sgeir.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  sgemm.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  sgemv.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  sger.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  sgesl.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  sglss.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  sgmres.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  sgtsl.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  shels.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  sheqr.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  sindg.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  sinqb.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  sinqf.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  sinqi.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  sint.f
sint.f:92:72:

   92 |       IF (N-2) 101,102,103
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  sinti.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  sintrp.f
sintrp.f:89:72:

   89 |  10     W(IQ) = XIQ/TEMP1
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1)
sintrp.f:103:72:

  103 |  40     GDI = OW(KP2-I) - ALPHA(I)*GDI
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1)
sintrp.f:119:72:

  119 |  70       W(JQ) = GAMMA*W(JQ) - ALP*W(JQ+1)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 70 at (1)
sintrp.f:121:72:

  121 |  80     C(I+1) = GAMMA*C(I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 80 at (1)
sintrp.f:134:72:

  134 |  100    YPOUT(L) = 0.0
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1)
sintrp.f:142:72:

  142 |  110      YPOUT(L) = YPOUT(L) + TEMP3*PHI(L,I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1)
sintrp.f:148:72:

  148 |      1                (YPOUT(L) + (C(1) + RMU*OG(1))*PHI(L,1))
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 130 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  sir.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  sllti2.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  slpdoc.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  slvs.f
slvs.f:90:72:

   90 |  320    WM(I+2) = 1.0E0/DI
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 320 at (1)
slvs.f:92:72:

   92 |  340    X(I) = WM(I+2)*X(I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 340 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  smout.f
smout.f:92:72:

   92 |       DO 10 I = 1, M
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 10 at (1)
smout.f:103:72:

  103 |       DO 30 I = 1, M
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1)
smout.f:114:72:

  114 |       DO 50 I = 1, M
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 50 at (1)
smout.f:123:72:

  123 |       DO 70 I = 1, M
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 70 at (1)
smout.f:134:72:

  134 |       DO 90 I = 1, M
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 90 at (1)
smout.f:145:72:

  145 |       DO 110 I = 1, M
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 110 at (1)
smout.f:156:72:

  156 |       DO 130 I = 1, M
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 130 at (1)
smout.f:165:72:

  165 |       DO 150 I = 1, M
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 150 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  snbco.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  snbdi.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  snbfa.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  snbfs.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  snbir.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  snbsl.f
snbsl.f:142:26:

  139 |         DO 60 K = 1, N
      |                                                                        2
......
  142 |           T = SDOT(LM,ABE(K-1,ML+2),LDB,B(LB),1)
      |                          1
Warning: Array reference at (1) out of bounds (0 < 1) in loop beginning at (2)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  snls1.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  snls1e.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  snrm2.f
snrm2.f:103:72:

  103 |    10 ASSIGN 30 TO NEXT
      |                                                                        1
Warning: Deleted feature: ASSIGN statement at (1)
snrm2.f:110:20:

  110 |    20    GO TO NEXT,(30, 50, 70, 110)
      |                    1
Warning: Deleted feature: Assigned GOTO statement at (1)
snrm2.f:112:72:

  112 |       ASSIGN 50 TO NEXT
      |                                                                        1
Warning: Deleted feature: ASSIGN statement at (1)
snrm2.f:122:72:

  122 |       ASSIGN 70 TO NEXT
      |                                                                        1
Warning: Deleted feature: ASSIGN statement at (1)
snrm2.f:128:72:

  128 |       ASSIGN 110 TO NEXT
      |                                                                        1
Warning: Deleted feature: ASSIGN statement at (1)
snrm2.f:162:72:

  162 |    95    SUM = SUM + SX(J)**2
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 95 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  snsq.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  snsqe.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  sods.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  somn.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  sopenm.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  sorth.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  sos.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  soseqs.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  sossol.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  spbco.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  spbdi.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  spbfa.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  spbsl.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  speli4.f
speli4.f:306:72:

  306 |       DO 444 I=IS,MS
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 444 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  spelip.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  spenc.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  spigmr.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  spincw.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  spinit.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  splp.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  splpce.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  splpdm.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  splpfe.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  splpfl.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  splpmn.f
splpmn.f:220:72:

  220 |       ASSIGN 20013 TO NPR004
      |                                                                        1
Warning: Deleted feature: ASSIGN statement at (1)
splpmn.f:229:72:

  229 | 20014 ASSIGN 20018 TO NPR005
      |                                                                        1
Warning: Deleted feature: ASSIGN statement at (1)
splpmn.f:231:72:

  231 | 20018 ASSIGN 20019 TO NPR006
      |                                                                        1
Warning: Deleted feature: ASSIGN statement at (1)
splpmn.f:233:72:

  233 | 20019 ASSIGN 20020 TO NPR007
      |                                                                        1
Warning: Deleted feature: ASSIGN statement at (1)
splpmn.f:236:72:

  236 |       ASSIGN 20024 TO NPR008
      |                                                                        1
Warning: Deleted feature: ASSIGN statement at (1)
splpmn.f:249:72:

  249 |       ASSIGN 20029 TO NPR009
      |                                                                        1
Warning: Deleted feature: ASSIGN statement at (1)
splpmn.f:251:72:

  251 | 20029 ASSIGN 20030 TO NPR010
      |                                                                        1
Warning: Deleted feature: ASSIGN statement at (1)
splpmn.f:253:72:

  253 | 20030 ASSIGN 20031 TO NPR006
      |                                                                        1
Warning: Deleted feature: ASSIGN statement at (1)
splpmn.f:255:72:

  255 | 20031 ASSIGN 20032 TO NPR008
      |                                                                        1
Warning: Deleted feature: ASSIGN statement at (1)
splpmn.f:265:72:

  265 |       ASSIGN 20036 TO NPR007
      |                                                                        1
Warning: Deleted feature: ASSIGN statement at (1)
splpmn.f:267:72:

  267 | 20036 ASSIGN 20037 TO NPR009
      |                                                                        1
Warning: Deleted feature: ASSIGN statement at (1)
splpmn.f:269:72:

  269 | 20037 ASSIGN 20038 TO NPR010
      |                                                                        1
Warning: Deleted feature: ASSIGN statement at (1)
splpmn.f:271:72:

  271 | 20038 ASSIGN 20039 TO NPR006
      |                                                                        1
Warning: Deleted feature: ASSIGN statement at (1)
splpmn.f:273:72:

  273 | 20039 ASSIGN 20040 TO NPR008
      |                                                                        1
Warning: Deleted feature: ASSIGN statement at (1)
splpmn.f:282:72:

  282 |       ASSIGN 20044 TO NPR009
      |                                                                        1
Warning: Deleted feature: ASSIGN statement at (1)
splpmn.f:299:72:

  299 |       ASSIGN 20050 TO NPR009
      |                                                                        1
Warning: Deleted feature: ASSIGN statement at (1)
splpmn.f:304:72:

  304 | 20035 ASSIGN 20051 TO NPR011
      |                                                                        1
Warning: Deleted feature: ASSIGN statement at (1)
splpmn.f:400:72:

  400 |       ASSIGN 20096 TO NPR012
      |                                                                        1
Warning: Deleted feature: ASSIGN statement at (1)
splpmn.f:459:19:

  459 |       GO TO NPR010, (20030,20038)
      |                   1
Warning: Deleted feature: Assigned GOTO statement at (1)
splpmn.f:461:72:

  461 | 30009 ASSIGN 20134 TO NPR013
      |                                                                        1
Warning: Deleted feature: ASSIGN statement at (1)
splpmn.f:463:72:

  463 | 20134 ASSIGN 20135 TO NPR014
      |                                                                        1
Warning: Deleted feature: ASSIGN statement at (1)
splpmn.f:469:72:

  469 | 20139 ASSIGN 20141 TO NPR015
      |                                                                        1
Warning: Deleted feature: ASSIGN statement at (1)
splpmn.f:480:72:

  480 | 20153 ASSIGN 20154 TO NPR005
      |                                                                        1
Warning: Deleted feature: ASSIGN statement at (1)
splpmn.f:491:19:

  491 |       GO TO NPR009, (20029,20037,20044,20050)
      |                   1
Warning: Deleted feature: Assigned GOTO statement at (1)
splpmn.f:565:19:

  565 |       GO TO NPR004, (20013,20204,20242)
      |                   1
Warning: Deleted feature: Assigned GOTO statement at (1)
splpmn.f:606:19:

  606 |       GO TO NPR007, (20020,20036)
      |                   1
Warning: Deleted feature: Assigned GOTO statement at (1)
splpmn.f:629:72:

  629 |       ASSIGN 20204 TO NPR004
      |                                                                        1
Warning: Deleted feature: ASSIGN statement at (1)
splpmn.f:641:19:

  641 |       GO TO NPR005, (20018,20154,20243)
      |                   1
Warning: Deleted feature: Assigned GOTO statement at (1)
splpmn.f:697:19:

  697 |       GO TO NPR008, (20024,20032,20040)
      |                   1
Warning: Deleted feature: Assigned GOTO statement at (1)
splpmn.f:707:19:

  707 |       GO TO NPR014, (20135,20246)
      |                   1
Warning: Deleted feature: Assigned GOTO statement at (1)
splpmn.f:712:72:

  712 |       ASSIGN 20233 TO NPR011
      |                                                                        1
Warning: Deleted feature: ASSIGN statement at (1)
splpmn.f:716:72:

  716 |       ASSIGN 20237 TO NPR012
      |                                                                        1
Warning: Deleted feature: ASSIGN statement at (1)
splpmn.f:737:72:

  737 |       ASSIGN 20242 TO NPR004
      |                                                                        1
Warning: Deleted feature: ASSIGN statement at (1)
splpmn.f:739:72:

  739 | 20242 ASSIGN 20243 TO NPR005
      |                                                                        1
Warning: Deleted feature: ASSIGN statement at (1)
splpmn.f:741:72:

  741 | 20243 ASSIGN 20244 TO NPR006
      |                                                                        1
Warning: Deleted feature: ASSIGN statement at (1)
splpmn.f:743:72:

  743 | 20244 ASSIGN 20245 TO NPR013
      |                                                                        1
Warning: Deleted feature: ASSIGN statement at (1)
splpmn.f:745:72:

  745 | 20245 ASSIGN 20246 TO NPR014
      |                                                                        1
Warning: Deleted feature: ASSIGN statement at (1)
splpmn.f:757:72:

  757 | 20249 ASSIGN 20251 TO NPR015
      |                                                                        1
Warning: Deleted feature: ASSIGN statement at (1)
splpmn.f:770:19:

  770 |       GO TO NPR006, (20019,20031,20039,20244,20275)
      |                   1
Warning: Deleted feature: Assigned GOTO statement at (1)
splpmn.f:791:19:

  791 |       GO TO NPR013, (20134,20245,20267)
      |                   1
Warning: Deleted feature: Assigned GOTO statement at (1)
splpmn.f:800:19:

  800 |       GO TO NPR015, (20141,20251)
      |                   1
Warning: Deleted feature: Assigned GOTO statement at (1)
splpmn.f:832:72:

  832 | 30011 ASSIGN 20267 TO NPR013
      |                                                                        1
Warning: Deleted feature: ASSIGN statement at (1)
splpmn.f:843:72:

  843 | 20268 ASSIGN 20275 TO NPR006
      |                                                                        1
Warning: Deleted feature: ASSIGN statement at (1)
splpmn.f:899:19:

  899 |       GO TO NPR011, (20051,20233)
      |                   1
Warning: Deleted feature: Assigned GOTO statement at (1)
splpmn.f:967:19:

  967 |       GO TO NPR012, (20096,20237)
      |                   1
Warning: Deleted feature: Assigned GOTO statement at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  splpmu.f
splpmu.f:89:72:

   89 |       ASSIGN 20009 TO NPR001
      |                                                                        1
Warning: Deleted feature: ASSIGN statement at (1)
splpmu.f:100:72:

  100 |       ASSIGN 20013 TO NPR001
      |                                                                        1
Warning: Deleted feature: ASSIGN statement at (1)
splpmu.f:111:72:

  111 |       ASSIGN 20017 TO NPR001
      |                                                                        1
Warning: Deleted feature: ASSIGN statement at (1)
splpmu.f:146:72:

  146 |       ASSIGN 20028 TO NPR001
      |                                                                        1
Warning: Deleted feature: ASSIGN statement at (1)
splpmu.f:209:72:

  209 |       ASSIGN 20042 TO NPR003
      |                                                                        1
Warning: Deleted feature: ASSIGN statement at (1)
splpmu.f:309:72:

  309 | 20039 ASSIGN 20074 TO NPR003
      |                                                                        1
Warning: Deleted feature: ASSIGN statement at (1)
splpmu.f:394:72:

  394 | 20029 ASSIGN 20109 TO NPR003
      |                                                                        1
Warning: Deleted feature: ASSIGN statement at (1)
splpmu.f:418:19:

  418 |       GO TO NPR001, (20009,20013,20017,20028)
      |                   1
Warning: Deleted feature: Assigned GOTO statement at (1)
splpmu.f:447:19:

  447 |       GO TO NPR003, (20042,20074,20109)
      |                   1
Warning: Deleted feature: Assigned GOTO statement at (1)
splpmu.f:422:24:

  203 |       CALL SCOPY(MRELAS,ZERO,0,ERD,1)
      |                        2
......
  422 | 30002 CALL SCOPY(MRELAS,RHS,1,WW,1)
      |                        1
Warning: Rank mismatch between actual argument at (1) and actual argument at (2) (scalar and rank-1)
splpmu.f:425:24:

  203 |       CALL SCOPY(MRELAS,ZERO,0,ERD,1)
      |                        2
......
  425 |       CALL SCOPY(MRELAS,WW,1,RPRIM,1)
      |                        1
Warning: Rank mismatch between actual argument at (1) and actual argument at (2) (scalar and rank-1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  splpup.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  spoco.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  spodi.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  spofa.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  spofs.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  spoir.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  spopt.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  sposl.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  sppco.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  sppdi.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  spperm.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  sppfa.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  sppsl.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  spsort.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  sptsl.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  sqrdc.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  sqrsl.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  sreadp.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  srlcal.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  srot.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  srotg.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  srotm.f
srotm.f:85:72:

   85 |                IF (SFLAG) 50,10,30
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
srotm.f:124:72:

  124 |           IF (SFLAG) 120,80,100
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  srotmg.f
srotmg.f:153:16:

  153 |       GO TO IGO,(120,150,180,210)
      |                1
Warning: Deleted feature: Assigned GOTO statement at (1)
srotmg.f:159:72:

  159 |                ASSIGN 120 TO IGO
      |                                                                        1
Warning: Deleted feature: ASSIGN statement at (1)
srotmg.f:171:72:

  171 |                ASSIGN 150 TO IGO
      |                                                                        1
Warning: Deleted feature: ASSIGN statement at (1)
srotmg.f:184:72:

  184 |                ASSIGN 180 TO IGO
      |                                                                        1
Warning: Deleted feature: ASSIGN statement at (1)
srotmg.f:195:72:

  195 |                ASSIGN 210 TO IGO
      |                                                                        1
Warning: Deleted feature: ASSIGN statement at (1)
srotmg.f:204:72:

  204 |           IF (SFLAG) 250,230,240
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  ss2lt.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  ss2y.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  ssbmv.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  sscal.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  ssd2s.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  ssdbcg.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  ssdcg.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  ssdcgn.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  ssdcgs.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  ssdgmr.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  ssdi.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  ssdomn.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  ssds.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  ssdscl.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  ssgs.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  ssiccg.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  ssico.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  ssics.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  ssidi.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  ssiev.f
ssiev.f:112:72:

  112 |       DO 10 I=1,J
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 10 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  ssifa.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  ssilur.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  ssilus.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  ssisl.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  ssjac.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  ssli.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  ssli2.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  ssllti.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  sslubc.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  sslucn.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  sslucs.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  sslugm.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  sslui.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  sslui2.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  sslui4.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  ssluom.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  ssluti.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  ssmmi2.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  ssmmti.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  ssmtv.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  ssmv.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  ssort.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  sspco.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  sspdi.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  sspev.f
sspev.f:129:72:

  129 |    25     V(I,J) = 0.
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1)
sspev.f:130:72:

  130 |    30   V(I,I) = 1.
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  sspfa.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  sspmv.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  sspr.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  sspr2.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  sspsl.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  ssvdc.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  sswap.f
sswap.f:66:72:

   66 |       IF (INCX .EQ. INCY) IF (INCX-1) 5,20,60
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  ssymm.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  ssymv.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  ssyr.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  ssyr2.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  ssyr2k.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  ssyrk.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  stbmv.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  stbsv.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  steps.f
steps.f:228:72:

  228 |  10     ROUND = ROUND + (Y(L)/WT(L))**2
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1)
steps.f:245:72:

  245 |    20   PHI(L,2) = 0.0
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1)
steps.f:267:72:

  267 |  25     PHI(L,15) = 0.0
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1)
steps.f:306:72:

  306 |  105    SIG(I+1) = REALI*ALPHA(I)*SIG(I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 105 at (1)
steps.f:317:72:

  317 |  115    W(IQ) = V(IQ)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 115 at (1)
steps.f:344:72:

  344 |  125    W(I) = V(I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 125 at (1)
steps.f:355:72:

  355 |  135    W(IQ) = V(IQ)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 135 at (1)
steps.f:374:72:

  374 |  145      W(IQ) = W(IQ) - TEMP6*W(IQ+1)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 145 at (1)
steps.f:375:72:

  375 |  150    G(I) = W(1)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 150 at (1)
steps.f:395:72:

  395 |  205      PHI(L,I) = TEMP1*PHI(L,I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 205 at (1)
steps.f:403:72:

  403 |  220    P(L) = 0.0
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 220 at (1)
steps.f:410:72:

  410 |  225      PHI(L,I) = PHI(L,I) + PHI(L,IP1)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 225 at (1)
steps.f:416:72:

  416 |  235    PHI(L,16) = (P(L) - Y(L)) - TAU
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 235 at (1)
steps.f:419:72:

  419 |  245    P(L) = Y(L) + H*P(L)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 245 at (1)
steps.f:433:72:

  433 |         IF(KM2)265,260,255
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
steps.f:436:72:

  436 |  265    ERK = ERK + (TEMP4*TEMP3)**2
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 265 at (1)
steps.f:437:72:

  437 |       IF(KM2)280,275,270
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
steps.f:447:72:

  447 |       IF(KM2)299,290,285
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
steps.f:473:72:

  473 |  305      PHI(L,I) = TEMP1*(PHI(L,I) - PHI(L,IP1))
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 305 at (1)
steps.f:477:72:

  477 |  315    PSI(I-1) = PSI(I) - H
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 315 at (1)
steps.f:484:72:

  484 |       IF(IFAIL - 3) 335,330,325
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
steps.f:515:72:

  515 |  405    P(L) = TEMP3
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 405 at (1)
steps.f:520:72:

  520 |  415    P(L) = TEMP3
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 415 at (1)
steps.f:527:72:

  527 |  425    PHI(L,KP2) = PHI(L,KP1) - PHI(L,KP2)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 425 at (1)
steps.f:530:72:

  530 |  430      PHI(L,I) = PHI(L,I) + PHI(L,KP1)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 430 at (1)
steps.f:544:72:

  544 |  440    ERKP1 = ERKP1 + (PHI(L,KP2)/WT(L))**2
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 440 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  stin.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  stod.f
stod.f:182:72:

  182 |  125    EL(I) = ELCO(I,NQ)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 125 at (1)
stod.f:203:72:

  203 |  155    EL(I) = ELCO(I,NQ)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 155 at (1)
stod.f:226:72:

  226 |         DO 180 I = 1,N
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 180 at (1)
stod.f:227:72:

  227 |  180      YH(I,J) = YH(I,J)*R
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 180 at (1)
stod.f:247:72:

  247 |  210      YH1(I) = YH1(I) + YH1(I+NYH)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 210 at (1)
stod.f:258:72:

  258 |  230    Y(I) = YH(I,1)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 230 at (1)
stod.f:275:72:

  275 |  260    ACOR(I) = 0.0E0
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 260 at (1)
stod.f:283:72:

  283 |  290    Y(I) = SAVF(I) - ACOR(I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 290 at (1)
stod.f:287:72:

  287 |  300    ACOR(I) = SAVF(I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 300 at (1)
stod.f:295:72:

  295 |  360    Y(I) = H*SAVF(I) - (YH(I,2) + ACOR(I))
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 360 at (1)
stod.f:301:72:

  301 |  380    Y(I) = YH(I,1) + EL(1)*ACOR(I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 380 at (1)
stod.f:333:72:

  333 |  440      YH1(I) = YH1(I) - YH1(I+NYH)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 440 at (1)
stod.f:367:72:

  367 |         DO 470 I = 1,N
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 470 at (1)
stod.f:368:72:

  368 |  470      YH(I,J) = YH(I,J) + EL(J)*ACOR(I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 470 at (1)
stod.f:374:72:

  374 |  490    YH(I,LMAX) = ACOR(I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 490 at (1)
stod.f:389:72:

  389 |  510      YH1(I) = YH1(I) - YH1(I+NYH)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 510 at (1)
stod.f:409:72:

  409 |  530    SAVF(I) = ACOR(I) - YH(I,LMAX)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 530 at (1)
stod.f:436:72:

  436 |  600    YH(I,NEWQ+1) = ACOR(I)*R
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 600 at (1)
stod.f:466:72:

  466 |  645    Y(I) = YH(I,1)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 645 at (1)
stod.f:470:72:

  470 |  650    YH(I,2) = H*SAVF(I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 650 at (1)
stod.f:489:72:

  489 |  695    ACOR(I) = ACOR(I)*R
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 695 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  stor1.f
stor1.f:55:72:

   55 |    10 U(J) = YH(J)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1)
stor1.f:62:72:

   62 |    20 V(J) = 0.
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1)
stor1.f:70:72:

   70 |    40 V(J) = YP(J)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1)
stor1.f:74:72:

   74 |    60 V(J) = C * YP(J)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 60 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  stout.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  stpmv.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  stpsv.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  strco.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  strdi.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  strmm.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  strmv.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  strsl.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  strsm.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  strsv.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  stway.f
stway.f:63:72:

   63 |    25 STOWA(KSJ)=YHP(KSJ)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 25 at (1)
stway.f:78:72:

   78 |   125 YHP(KSJ)=STOWA(KSJ)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 125 at (1)
stway.f:86:72:

   86 |   175 BACKSPACE NTAPE
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 175 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  suds.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  svco.f
svco.f:56:72:

   56 |  10     RSAV(I) = RLS(I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1)
svco.f:58:72:

   58 |  20     ISAV(I) = ILS(I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  svd.f
svd.f:119:72:

  119 |          DO 100 J = 1, N
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 100 at (1)
svd.f:136:72:

  136 |   120    SCALE = SCALE + ABS(U(K,I))
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1)
svd.f:155:72:

  155 |   140       S = S + U(K,I) * U(K,J)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 140 at (1)
svd.f:159:72:

  159 |             DO 150 K = I, M
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 150 at (1)
svd.f:164:72:

  164 |   200    U(K,I) = SCALE * U(K,I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 200 at (1)
svd.f:173:72:

  173 |   220    SCALE = SCALE + ABS(U(I,K))
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 220 at (1)
svd.f:188:72:

  188 |   240    RV1(K) = U(I,K) / H
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 240 at (1)
svd.f:196:72:

  196 |   250       S = S + U(J,K) * U(I,K)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 250 at (1)
svd.f:198:72:

  198 |             DO 260 K = L, N
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 260 at (1)
svd.f:203:72:

  203 |   280    U(I,K) = SCALE * U(I,K)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 280 at (1)
svd.f:217:72:

  217 |   320    V(J,I) = (U(I,J) / U(I,L)) / G
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 320 at (1)
svd.f:223:72:

  223 |   340       S = S + U(I,K) * V(K,J)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 340 at (1)
svd.f:225:72:

  225 |             DO 350 K = L, N
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 350 at (1)
svd.f:251:72:

  251 |   420    U(I,J) = 0.0E0
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 420 at (1)
svd.f:260:72:

  260 |   440       S = S + U(K,I) * U(K,J)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 440 at (1)
svd.f:264:72:

  264 |             DO 450 K = I, M
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 450 at (1)
svd.f:269:72:

  269 |   470    U(J,I) = U(J,I) / G
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 470 at (1)
svd.f:274:72:

  274 |   480    U(J,I) = 0.0E0
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 480 at (1)
svd.f:388:72:

  388 |   690    V(J,K) = -V(J,K)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 690 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  svecs.f
svecs.f:66:72:

   66 |     6 YHP(K,LNFC+1)=YHP(K,LNFCC+1)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 6 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  svout.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  swritp.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  sxlcal.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  tevlc.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  tevls.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  tinvit.f
tinvit.f:162:72:

  162 |   500    NORM = MAX(NORM, ABS(D(I)) + ABS(E(I)))
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 500 at (1)
tinvit.f:233:72:

  233 |   640       XU = XU + RV6(I) * Z(I,J)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 640 at (1)
tinvit.f:236:72:

  236 |   660       RV6(I) = RV6(I) - XU * Z(I,J)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 660 at (1)
tinvit.f:243:72:

  243 |   720    NORM = NORM + ABS(RV6(I))
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 720 at (1)
tinvit.f:256:72:

  256 |   760    RV6(I) = RV6(I) * XU
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 760 at (1)
tinvit.f:281:72:

  281 |   860    U = U + RV6(I)**2
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 860 at (1)
tinvit.f:286:72:

  286 |   880    Z(I,R) = 0.0E0
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 880 at (1)
tinvit.f:289:72:

  289 |   900    Z(I,R) = RV6(I) * XU
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 900 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  tql1.f
tql1.f:93:72:

   93 |   100 E(I-1) = E(I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1)
tql1.f:126:72:

  126 |   140    D(I) = D(I) - H
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 140 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  tql2.f
tql2.f:110:72:

  110 |   100 E(I-1) = E(I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1)
tql2.f:143:72:

  143 |   140    D(I) = D(I) - H
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 140 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  tqlrat.f
tqlrat.f:101:72:

  101 |   100 E2(I-1) = E2(I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1)
tqlrat.f:133:72:

  133 |   140    D(I) = D(I) - H
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 140 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  trbak1.f
trbak1.f:104:72:

  104 |   110       S = S + A(I,K) * Z(K,J)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1)
trbak1.f:110:72:

  110 |   120       Z(K,J) = Z(K,J) + S * A(I,K)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  trbak3.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  tred1.f
tred1.f:91:72:

   91 |   100 D(I) = A(I,I)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1)
tred1.f:101:72:

  101 |   120    SCALE = SCALE + ABS(A(I,K))
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1)
tred1.f:126:72:

  126 |   180       G = G + A(J,K) * A(I,K)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 180 at (1)
tred1.f:132:72:

  132 |   200       G = G + A(K,J) * A(I,K)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 200 at (1)
tred1.f:145:72:

  145 |             DO 260 K = 1, J
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 260 at (1)
tred1.f:150:72:

  150 |   280    A(I,K) = SCALE * A(I,K)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 280 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  tred2.f
tred2.f:90:72:

   90 |          DO 100 J = 1, I
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 100 at (1)
tred2.f:104:72:

  104 |   120    SCALE = SCALE + ABS(Z(I,K))
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 120 at (1)
tred2.f:127:72:

  127 |   180       G = G + Z(J,K) * Z(I,K)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 180 at (1)
tred2.f:133:72:

  133 |   200       G = G + Z(K,J) * Z(I,K)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 200 at (1)
tred2.f:146:72:

  146 |             DO 260 K = 1, J
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 260 at (1)
tred2.f:164:72:

  164 |   340       G = G + Z(I,K) * Z(K,J)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 340 at (1)
tred2.f:166:72:

  166 |             DO 360 K = 1, L
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 360 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  tred3.f
tred3.f:146:72:

  146 |             DO 260 K = 1, J
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 260 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  tri3.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  tridib.f
tridib.f:174:72:

  174 |    60 IF (S - M1) 65, 73, 70
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
tridib.f:186:72:

  186 |    80 IF (S - M22) 65, 85, 70
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  tridq.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  tris4.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  trisp.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  trix.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  tsturm.f
tsturm.f:204:72:

  204 |   160 Z(I,R) = 0.0E0
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 160 at (1)
tsturm.f:283:72:

  283 |   500 NORM = MAX(NORM, ABS(D(I)) + ABS(E(I)))
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 500 at (1)
tsturm.f:353:72:

  353 |   640       XU = XU + RV6(I) * Z(I,J)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 640 at (1)
tsturm.f:356:72:

  356 |   660       RV6(I) = RV6(I) - XU * Z(I,J)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 660 at (1)
tsturm.f:363:72:

  363 |   720    NORM = NORM + ABS(RV6(I))
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 720 at (1)
tsturm.f:376:72:

  376 |   760    RV6(I) = RV6(I) * XU
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 760 at (1)
tsturm.f:397:72:

  397 |   860    U = U + RV6(I)**2
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 860 at (1)
tsturm.f:402:72:

  402 |   880    Z(I,R) = 0.0E0
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 880 at (1)
tsturm.f:405:72:

  405 |   900    Z(I,R) = RV6(I) * XU
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 900 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  u11ls.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  u11us.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  u12ls.f
u12ls.f:57:72:

   57 |       DO 406 I=1,N
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 406 at (1)
u12ls.f:131:72:

  131 |       DO 460 I=KP1,N
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 460 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  u12us.f
u12us.f:57:72:

   57 |       DO 406 I=1,N
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 406 at (1)
u12us.f:129:72:

  129 |       DO 460 I=KP1,N
      |                                                                        1
Warning: Fortran 2018 deleted feature: Shared DO termination label 460 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  ulsia.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  usrmat.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  vnwrms.f
vnwrms.f:54:72:

   54 |  10     SUM = SUM + (V(I)/W(I))**2
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  wnlit.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  wnlsm.f
wnlsm.f:444:28:

  131 |       CALL SCOPY (N, 1.E0, 0, D, 1)
      |                     2       
......
  444 |          CALL SCOPY (NSOLN, Z, 1, X, 1)
      |                            1
Warning: Rank mismatch between actual argument at (1) and actual argument at (2) (scalar and rank-1)
wnlsm.f:612:25:

  131 |       CALL SCOPY (N, 1.E0, 0, D, 1)
      |                     2    
......
  612 |       CALL SCOPY (NSOLN, Z, 1, X, 1)
      |                         1
Warning: Rank mismatch between actual argument at (1) and actual argument at (2) (scalar and rank-1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  wnlt1.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  wnlt2.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  wnlt3.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  wnnls.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  xadd.f
xadd.f:95:72:

   95 |       IF (I) 80, 50, 90
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  xadj.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  xc210.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  xcon.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  xerbla.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  xerclr.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  xercnt.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  xerdmp.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  xerhlt.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  xermax.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  xermsg.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  xerprn.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  xersve.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  xgetf.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  xgetua.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  xgetun.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  xlegf.f
xlegf.f:157:72:

  157 |   290 IPQA(I)=0
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 290 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  xnrmp.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  xpmu.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  xpmup.f
xpmup.f:70:72:

   70 |   220 CALL XADJ(PROD,IPROD,IERROR)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 220 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  xpnrm.f
xpnrm.f:76:72:

   76 |   510 CALL XADJ(PROD,IPROD,IERROR)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 510 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  xpqnu.f
xpqnu.f:74:72:

   74 |    50 CALL XADJ(FACTMU,IF,IERROR)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 50 at (1)
xpqnu.f:119:72:

  119 |    77 CALL XADJ(X1,IPQ,IERROR)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 77 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  xpsi.f
xpsi.f:64:72:

   64 |    12 C=(C+CNUM(K)/CDENOM(K))/B**2
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 12 at (1)
xpsi.f:72:72:

   72 |    15 B=B+1./(N-M+A)
      |                                                                        1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 15 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  xqmu.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  xqnu.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  xred.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  xset.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  xsetf.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  xsetua.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  xsetun.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  yairy.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  zabs.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  zacai.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  zacon.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  zairy.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  zasyi.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  zbesh.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  zbesi.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  zbesj.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  zbesk.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  zbesy.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  zbinu.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  zbiry.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  zbknu.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  zbuni.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  zbunk.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  zdiv.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  zexp.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  zkscl.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  zlog.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  zmlri.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  zmlt.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  zrati.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  zs1s2.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  zseri.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  zshch.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  zsqrt.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  zuchk.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  zunhj.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  zuni1.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  zuni2.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  zunik.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  zunk1.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  zunk2.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  zuoik.f
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  zwrsk.f
/usr/bin/ar cur libslatecf77.a externals.o aaaaaa.o acosh.o ai.o aie.o albeta.o algams.o ali.o alngam.o alnrel.o asinh.o asyik.o asyjy.o atanh.o avint.o bakvec.o balanc.o balbak.o bandr.o bandv.o bcrh.o bdiff.o besi.o besi0.o besi0e.o besi1.o besi1e.o besj.o besj0.o besj1.o besk.o besk0.o besk0e.o besk1.o besk1e.o beskes.o besknu.o besks.o besy.o besy0.o besy1.o besynu.o beta.o betai.o bfqad.o bi.o bie.o binom.o bint4.o bintk.o bisect.o bkias.o bkisr.o bksol.o blktr1.o blktri.o bndacc.o bndsol.o bnfac.o bnslv.o bqr.o bsgq8.o bskin.o bspdoc.o bspdr.o bspev.o bsplvd.o bsplvn.o bsppp.o bspvd.o bspvn.o bsqad.o bsrh.o bvalu.o c0lgmc.o c1merg.o c9lgmc.o c9ln2r.o cacai.o cacon.o cacos.o cacosh.o cairy.o carg.o casin.o casinh.o casyi.o catan.o catan2.o catanh.o caxpy.o cbabk2.o cbal.o cbesh.o cbesi.o cbesj.o cbesk.o cbesy.o cbeta.o cbinu.o cbiry.o cbknu.o cblkt1.o cblktr.o cbrt.o cbuni.o cbunk.o ccbrt.o cchdc.o cchdd.o cchex.o cchud.o ccmpb.o ccopy.o ccosh.o ccot.o cdcdot.o cdcor.o cdcst.o cdiv.o cdntl.o cdntp.o cdotc.o cdotu.o cdpsc.o cdpst.o cdriv1.o cdriv2.o cdriv3.o cdscl.o cdstp.o cdzro.o cexprl.o cfftb.o cfftb1.o cfftf.o cfftf1.o cffti.o cffti1.o cfod.o cg.o cgamma.o cgamr.o cgbco.o cgbdi.o cgbfa.o cgbmv.o cgbsl.o cgeco.o cgedi.o cgeev.o cgefa.o cgefs.o cgeir.o cgemm.o cgemv.o cgerc.o cgeru.o cgesl.o cgtsl.o ch.o chbmv.o chemm.o chemv.o cher.o cher2.o cher2k.o cherk.o chfcm.o chfdv.o chfev.o chfie.o chico.o chidi.o chiev.o chifa.o chisl.o chkder.o chkpr4.o chkprm.o chksn4.o chksng.o chpco.o chpdi.o chpfa.o chpmv.o chpr.o chpr2.o chpsl.o chu.o cinvit.o ckscl.o clbeta.o clngam.o clnrel.o clog10.o cmgnbn.o cmlri.o cmpcsg.o cmposd.o cmposn.o cmposp.o cmptr3.o cmptrx.o cnbco.o cnbdi.o cnbfa.o cnbfs.o cnbir.o cnbsl.o combak.o comhes.o comlr.o comlr2.o compb.o comqr.o comqr2.o cortb.o corth.o cosdg.o cosgen.o cosqb.o cosqb1.o cosqf.o cosqf1.o cosqi.o cost.o costi.o cot.o cpadd.o cpbco.o cpbdi.o cpbfa.o cpbsl.o cpevl.o cpevlr.o cpoco.o cpodi.o cpofa.o cpofs.o cpoir.o cposl.o cppco.o cppdi.o cppfa.o cppsl.o cpqr79.o cproc.o cprocp.o cprod.o cprodp.o cpsi.o cptsl.o cpzero.o cqrdc.o cqrsl.o crati.o crotg.o cs1s2.o cscal.o cscale.o cseri.o csevl.o cshch.o csico.o csidi.o csifa.o csinh.o csisl.o cspco.o cspdi.o cspfa.o cspsl.o csroot.o csrot.o csscal.o csvdc.o cswap.o csymm.o csyr2k.o csyrk.o ctan.o ctanh.o ctbmv.o ctbsv.o ctpmv.o ctpsv.o ctrco.o ctrdi.o ctrmm.o ctrmv.o ctrsl.o ctrsm.o ctrsv.o cuchk.o cunhj.o cuni1.o cuni2.o cunik.o cunk1.o cunk2.o cuoik.o cv.o cwrsk.o d1mach.o d1merg.o d1mpyq.o d1updt.o d9aimp.o d9atn1.o d9b0mp.o d9b1mp.o d9chu.o d9gmic.o d9gmit.o d9knus.o d9lgic.o d9lgit.o d9lgmc.o d9ln2r.o d9pak.o d9upak.o dacosh.o dai.o daie.o dasinh.o dasum.o dasyik.o dasyjy.o datanh.o davint.o daws.o daxpy.o dbcg.o dbdiff.o dbesi.o dbesi0.o dbesi1.o dbesj.o dbesj0.o dbesj1.o dbesk.o dbesk0.o dbesk1.o dbesks.o dbesy.o dbesy0.o dbesy1.o dbeta.o dbetai.o dbfqad.o dbhin.o dbi.o dbie.o dbinom.o dbint4.o dbintk.o dbkias.o dbkisr.o dbksol.o dbndac.o dbndsl.o dbnfac.o dbnslv.o dbocls.o dbols.o dbolsm.o dbsgq8.o dbsi0e.o dbsi1e.o dbsk0e.o dbsk1e.o dbskes.o dbskin.o dbsknu.o dbspdr.o dbspev.o dbsppp.o dbspvd.o dbspvn.o dbsqad.o dbsynu.o dbvalu.o dcbrt.o dcdot.o dcfod.o dcg.o dcgn.o dcgs.o dchdc.o dchdd.o dchex.o dchfcm.o dchfdv.o dchfev.o dchfie.o dchkw.o dchu.o dchud.o dckder.o dcoef.o dcopy.o dcopym.o dcosdg.o dcot.o dcov.o dcpplt.o dcscal.o dcsevl.o dcv.o ddaini.o ddajac.o ddanrm.o ddaslv.o ddassl.o ddastp.o ddatrp.o ddaws.o ddawts.o ddcor.o ddcst.o ddeabm.o ddebdf.o dderkf.o ddes.o ddntl.o ddntp.o ddoglg.o ddot.o ddpsc.o ddpst.o ddriv1.o ddriv2.o ddriv3.o ddscl.o ddstp.o ddzro.o de1.o deabm.o debdf.o defc.o defcmn.o defe4.o defehl.o defer.o dei.o denorm.o derf.o derfc.o derkf.o derkfs.o des.o dexint.o dexprl.o dfac.o dfc.o dfcmn.o dfdjc1.o dfdjc3.o dfehl.o dfspvd.o dfspvn.o dfulmt.o dfzero.o dgami.o dgamic.o dgamit.o dgamlm.o dgamln.o dgamma.o dgamr.o dgamrn.o dgaus8.o dgbco.o dgbdi.o dgbfa.o dgbmv.o dgbsl.o dgeco.o dgedi.o dgefa.o dgefs.o dgemm.o dgemv.o dger.o dgesl.o dglss.o dgmres.o dgtsl.o dh12.o dhels.o dheqr.o dhfti.o dhkseq.o dhstrt.o dhvnrm.o dintp.o dintrv.o dintyd.o dir.o djairy.o dlbeta.o dlgams.o dli.o dllsia.o dllti2.o dlngam.o dlnrel.o dlpdoc.o dlpdp.o dlsei.o dlsi.o dlsod.o dlssud.o dmacon.o dmgsbv.o dmout.o dmpar.o dnbco.o dnbdi.o dnbfa.o dnbfs.o dnbsl.o dnls1.o dnls1e.o dnrm2.o dnsq.o dnsqe.o dogleg.o dohtrl.o domn.o dorth.o dorthr.o dp1vlu.o dpbco.o dpbdi.o dpbfa.o dpbsl.o dpchbs.o dpchce.o dpchci.o dpchcm.o dpchcs.o dpchdf.o dpchfd.o dpchfe.o dpchia.o dpchic.o dpchid.o dpchim.o dpchkt.o dpchng.o dpchsp.o dpchst.o dpchsw.o dpcoef.o dpfqad.o dpigmr.o dpincw.o dpinit.o dpintm.o dpjac.o dplint.o dplpce.o dplpdm.o dplpfe.o dplpfl.o dplpmn.o dplpmu.o dplpup.o dpnnzr.o dpoch.o dpoch1.o dpoco.o dpodi.o dpofa.o dpofs.o dpolcf.o dpolft.o dpolvl.o dpopt.o dposl.o dppco.o dppdi.o dpperm.o dppfa.o dppgq8.o dppqad.o dppsl.o dppval.o dprvec.o dprwpg.o dprwvr.o dpsi.o dpsifn.o dpsixn.o dpsort.o dptsl.o dqag.o dqage.o dqagi.o dqagie.o dqagp.o dqagpe.o dqags.o dqagse.o dqawc.o dqawce.o dqawf.o dqawfe.o dqawo.o dqawoe.o dqaws.o dqawse.o dqc25c.o dqc25f.o dqc25s.o dqcheb.o dqdota.o dqdoti.o dqelg.o dqform.o dqk15.o dqk15i.o dqk15w.o dqk21.o dqk31.o dqk41.o dqk51.o dqk61.o dqmomo.o dqnc79.o dqng.o dqpsrt.o dqrdc.o dqrfac.o dqrsl.o dqrslv.o dqwgtc.o dqwgtf.o dqwgts.o drc.o drc3jj.o drc3jm.o drc6j.o drd.o dreadp.o dreort.o drf.o drj.o drkfs.o drlcal.o drot.o drotg.o drotm.o drotmg.o drsco.o ds2lt.o ds2y.o dsbmv.o dscal.o dsd2s.o dsdbcg.o dsdcg.o dsdcgn.o dsdcgs.o dsdgmr.o dsdi.o dsdomn.o dsdot.o dsds.o dsdscl.o dsgs.o dsiccg.o dsico.o dsics.o dsidi.o dsifa.o dsilur.o dsilus.o dsindg.o dsisl.o dsjac.o dsli.o dsli2.o dsllti.o dslubc.o dslucn.o dslucs.o dslugm.o dslui.o dslui2.o dslui4.o dsluom.o dsluti.o dslvs.o dsmmi2.o dsmmti.o dsmtv.o dsmv.o dsort.o dsos.o dsoseq.o dsossl.o dspco.o dspdi.o dspenc.o dspfa.o dsplp.o dspmv.o dspr.o dspr2.o dspsl.o dsteps.o dstod.o dstor1.o dstway.o dsuds.o dsvco.o dsvdc.o dswap.o dsymm.o dsymv.o dsyr.o dsyr2.o dsyr2k.o dsyrk.o dtbmv.o dtbsv.o dtin.o dtout.o dtpmv.o dtpsv.o dtrco.o dtrdi.o dtrmm.o dtrmv.o dtrsl.o dtrsm.o dtrsv.o du11ls.o du11us.o du12ls.o du12us.o dulsia.o dusrmt.o dvecs.o dvnrms.o dvout.o dwnlit.o dwnlsm.o dwnlt1.o dwnlt2.o dwnlt3.o dwnnls.o dwritp.o dwupdt.o dx.o dx4.o dxadd.o dxadj.o dxc210.o dxcon.o dxlcal.o dxlegf.o dxnrmp.o dxpmu.o dxpmup.o dxpnrm.o dxpqnu.o dxpsi.o dxqmu.o dxqnu.o dxred.o dxset.o dy.o dy4.o dyairy.o e1.o efc.o efcmn.o ei.o eisdoc.o elmbak.o elmhes.o eltran.o enorm.o erf.o erfc.o exint.o exprel.o ezfft1.o ezfftb.o ezfftf.o ezffti.o fac.o fc.o fcmn.o fdjac1.o fdjac3.o fdump.o fftdoc.o figi.o figi2.o fulmat.o fundoc.o fzero.o gami.o gamic.o gamit.o gamlim.o gamln.o gamma.o gamr.o gamrn.o gaus8.o genbun.o h12.o hfti.o hkseq.o hpperm.o hpsort.o hqr.o hqr2.o hstart.o hstcrt.o hstcs1.o hstcsp.o hstcyl.o hstplr.o hstssp.o htrib3.o htribk.o htrid3.o htridi.o hvnrm.o hw3crt.o hwscrt.o hwscs1.o hwscsp.o hwscyl.o hwsplr.o hwsss1.o hwsssp.o i1mach.o i1merg.o icamax.o icopy.o idamax.o idloc.o imtql1.o imtql2.o imtqlv.o indxa.o indxb.o indxc.o initds.o inits.o intrv.o intyd.o invit.o inxca.o inxcb.o inxcc.o iploc.o ipperm.o ipsort.o isamax.o isdbcg.o isdcg.o isdcgn.o isdcgs.o isdgmr.o isdir.o isdomn.o isort.o issbcg.o isscg.o isscgn.o isscgs.o issgmr.o issir.o issomn.o iswap.o ivout.o j4save.o jairy.o la05ad.o la05as.o la05bd.o la05bs.o la05cd.o la05cs.o la05ed.o la05es.o llsia.o lmpar.o lpdp.o lsame.o lsei.o lsi.o lsod.o lssods.o lssuds.o macon.o mc20ad.o mc20as.o mgsbv.o minfit.o minso4.o minsol.o mpadd.o mpadd2.o mpadd3.o mpblas.o mpcdm.o mpchk.o mpcmd.o mpdivi.o mperr.o mpmaxr.o mpmlp.o mpmul.o mpmul2.o mpmuli.o mpnzr.o mpovfl.o mpstr.o mpunfl.o numxer.o ohtrol.o ohtror.o ortbak.o orthes.o ortho4.o orthog.o orthol.o orthor.o ortran.o passb.o passb2.o passb3.o passb4.o passb5.o passf.o passf2.o passf3.o passf4.o passf5.o pchbs.o pchce.o pchci.o pchcm.o pchcs.o pchdf.o pchdoc.o pchfd.o pchfe.o pchia.o pchic.o pchid.o pchim.o pchkt.o pchngs.o pchsp.o pchst.o pchsw.o pcoef.o pfqad.o pgsf.o pimach.o pinitm.o pjac.o pnnzrs.o poch.o poch1.o pois3d.o poisd2.o poisn2.o poisp2.o poistg.o polcof.o polfit.o polint.o polyvl.o pos3d1.o postg2.o ppadd.o ppgq8.o ppgsf.o pppsf.o ppqad.o ppsgf.o ppspf.o ppval.o proc.o procp.o prod.o prodp.o prvec.o prwpge.o prwvir.o psgf.o psi.o psifn.o psixn.o pvalue.o pythag.o qag.o qage.o qagi.o qagie.o qagp.o qagpe.o qags.o qagse.o qawc.o qawce.o qawf.o qawfe.o qawo.o qawoe.o qaws.o qawse.o qc25c.o qc25f.o qc25s.o qcheb.o qelg.o qform.o qk15.o qk15i.o qk15w.o qk21.o qk31.o qk41.o qk51.o qk61.o qmomo.o qnc79.o qng.o qpdoc.o qpsrt.o qrfac.o qrsolv.o qs2i1d.o qs2i1r.o qwgtc.o qwgtf.o qwgts.o qzhes.o qzit.o qzval.o qzvec.o r1mach.o r1mpyq.o r1updt.o r9aimp.o r9atn1.o r9chu.o r9gmic.o r9gmit.o r9knus.o r9lgic.o r9lgit.o r9lgmc.o r9ln2r.o r9pak.o r9upak.o radb2.o radb3.o radb4.o radb5.o radbg.o radf2.o radf3.o radf4.o radf5.o radfg.o rand.o ratqr.o rc.o rc3jj.o rc3jm.o rc6j.o rd.o rebak.o rebakb.o reduc.o reduc2.o reort.o rf.o rfftb.o rfftb1.o rfftf.o rfftf1.o rffti.o rffti1.o rg.o rgauss.o rgg.o rj.o rpqr79.o rpzero.o rs.o rsb.o rsco.o rsg.o rsgab.o rsgba.o rsp.o rst.o rt.o runif.o rwupdt.o s1merg.o sasum.o saxpy.o sbcg.o sbhin.o sbocls.o sbols.o sbolsm.o scasum.o scg.o scgn.o scgs.o schdc.o schdd.o schex.o schkw.o schud.o sclosm.o scnrm2.o scoef.o scopy.o scopym.o scov.o scpplt.o sdaini.o sdajac.o sdanrm.o sdaslv.o sdassl.o sdastp.o sdatrp.o sdawts.o sdcor.o sdcst.o sdntl.o sdntp.o sdot.o sdpsc.o sdpst.o sdriv1.o sdriv2.o sdriv3.o sdscl.o sdsdot.o sdstp.o sdzro.o sepeli.o sepx4.o sgbco.o sgbdi.o sgbfa.o sgbmv.o sgbsl.o sgeco.o sgedi.o sgeev.o sgefa.o sgefs.o sgeir.o sgemm.o sgemv.o sger.o sgesl.o sglss.o sgmres.o sgtsl.o shels.o sheqr.o sindg.o sinqb.o sinqf.o sinqi.o sint.o sinti.o sintrp.o sir.o sllti2.o slpdoc.o slvs.o smout.o snbco.o snbdi.o snbfa.o snbfs.o snbir.o snbsl.o snls1.o snls1e.o snrm2.o snsq.o snsqe.o sods.o somn.o sopenm.o sorth.o sos.o soseqs.o sossol.o spbco.o spbdi.o spbfa.o spbsl.o speli4.o spelip.o spenc.o spigmr.o spincw.o spinit.o splp.o splpce.o splpdm.o splpfe.o splpfl.o splpmn.o splpmu.o splpup.o spoco.o spodi.o spofa.o spofs.o spoir.o spopt.o sposl.o sppco.o sppdi.o spperm.o sppfa.o sppsl.o spsort.o sptsl.o sqrdc.o sqrsl.o sreadp.o srlcal.o srot.o srotg.o srotm.o srotmg.o ss2lt.o ss2y.o ssbmv.o sscal.o ssd2s.o ssdbcg.o ssdcg.o ssdcgn.o ssdcgs.o ssdgmr.o ssdi.o ssdomn.o ssds.o ssdscl.o ssgs.o ssiccg.o ssico.o ssics.o ssidi.o ssiev.o ssifa.o ssilur.o ssilus.o ssisl.o ssjac.o ssli.o ssli2.o ssllti.o sslubc.o sslucn.o sslucs.o sslugm.o sslui.o sslui2.o sslui4.o ssluom.o ssluti.o ssmmi2.o ssmmti.o ssmtv.o ssmv.o ssort.o sspco.o sspdi.o sspev.o sspfa.o sspmv.o sspr.o sspr2.o sspsl.o ssvdc.o sswap.o ssymm.o ssymv.o ssyr.o ssyr2.o ssyr2k.o ssyrk.o stbmv.o stbsv.o steps.o stin.o stod.o stor1.o stout.o stpmv.o stpsv.o strco.o strdi.o strmm.o strmv.o strsl.o strsm.o strsv.o stway.o suds.o svco.o svd.o svecs.o svout.o swritp.o sxlcal.o tevlc.o tevls.o tinvit.o tql1.o tql2.o tqlrat.o trbak1.o trbak3.o tred1.o tred2.o tred3.o tri3.o tridib.o tridq.o tris4.o trisp.o trix.o tsturm.o u11ls.o u11us.o u12ls.o u12us.o ulsia.o usrmat.o vnwrms.o wnlit.o wnlsm.o wnlt1.o wnlt2.o wnlt3.o wnnls.o xadd.o xadj.o xc210.o xcon.o xerbla.o xerclr.o xercnt.o xerdmp.o xerhlt.o xermax.o xermsg.o xerprn.o xersve.o xgetf.o xgetua.o xgetun.o xlegf.o xnrmp.o xpmu.o xpmup.o xpnrm.o xpqnu.o xpsi.o xqmu.o xqnu.o xred.o xset.o xsetf.o xsetua.o xsetun.o yairy.o zabs.o zacai.o zacon.o zairy.o zasyi.o zbesh.o zbesi.o zbesj.o zbesk.o zbesy.o zbinu.o zbiry.o zbknu.o zbuni.o zbunk.o zdiv.o zexp.o zkscl.o zlog.o zmlri.o zmlt.o zrati.o zs1s2.o zseri.o zshch.o zsqrt.o zuchk.o zunhj.o zuni1.o zuni2.o zunik.o zunk1.o zunk2.o zuoik.o zwrsk.o
/usr/bin/ar: `u' modifier ignored since `D' is the default (see `U')
ranlib libslatecf77.a
g++ -shared -Wl,-h,libslatecf77.so.1.49 -Wl,-rpath,\$ORIGIN -Wl,-rpath,\$ORIGIN/../libextra -o libslatecf77.so.1.49 externals.o aaaaaa.o acosh.o ai.o aie.o albeta.o algams.o ali.o alngam.o alnrel.o asinh.o asyik.o asyjy.o atanh.o avint.o bakvec.o balanc.o balbak.o bandr.o bandv.o bcrh.o bdiff.o besi.o besi0.o besi0e.o besi1.o besi1e.o besj.o besj0.o besj1.o besk.o besk0.o besk0e.o besk1.o besk1e.o beskes.o besknu.o besks.o besy.o besy0.o besy1.o besynu.o beta.o betai.o bfqad.o bi.o bie.o binom.o bint4.o bintk.o bisect.o bkias.o bkisr.o bksol.o blktr1.o blktri.o bndacc.o bndsol.o bnfac.o bnslv.o bqr.o bsgq8.o bskin.o bspdoc.o bspdr.o bspev.o bsplvd.o bsplvn.o bsppp.o bspvd.o bspvn.o bsqad.o bsrh.o bvalu.o c0lgmc.o c1merg.o c9lgmc.o c9ln2r.o cacai.o cacon.o cacos.o cacosh.o cairy.o carg.o casin.o casinh.o casyi.o catan.o catan2.o catanh.o caxpy.o cbabk2.o cbal.o cbesh.o cbesi.o cbesj.o cbesk.o cbesy.o cbeta.o cbinu.o cbiry.o cbknu.o cblkt1.o cblktr.o cbrt.o cbuni.o cbunk.o ccbrt.o cchdc.o cchdd.o cchex.o cchud.o ccmpb.o ccopy.o ccosh.o ccot.o cdcdot.o cdcor.o cdcst.o cdiv.o cdntl.o cdntp.o cdotc.o cdotu.o cdpsc.o cdpst.o cdriv1.o cdriv2.o cdriv3.o cdscl.o cdstp.o cdzro.o cexprl.o cfftb.o cfftb1.o cfftf.o cfftf1.o cffti.o cffti1.o cfod.o cg.o cgamma.o cgamr.o cgbco.o cgbdi.o cgbfa.o cgbmv.o cgbsl.o cgeco.o cgedi.o cgeev.o cgefa.o cgefs.o cgeir.o cgemm.o cgemv.o cgerc.o cgeru.o cgesl.o cgtsl.o ch.o chbmv.o chemm.o chemv.o cher.o cher2.o cher2k.o cherk.o chfcm.o chfdv.o chfev.o chfie.o chico.o chidi.o chiev.o chifa.o chisl.o chkder.o chkpr4.o chkprm.o chksn4.o chksng.o chpco.o chpdi.o chpfa.o chpmv.o chpr.o chpr2.o chpsl.o chu.o cinvit.o ckscl.o clbeta.o clngam.o clnrel.o clog10.o cmgnbn.o cmlri.o cmpcsg.o cmposd.o cmposn.o cmposp.o cmptr3.o cmptrx.o cnbco.o cnbdi.o cnbfa.o cnbfs.o cnbir.o cnbsl.o combak.o comhes.o comlr.o comlr2.o compb.o comqr.o comqr2.o cortb.o corth.o cosdg.o cosgen.o cosqb.o cosqb1.o cosqf.o cosqf1.o cosqi.o cost.o costi.o cot.o cpadd.o cpbco.o cpbdi.o cpbfa.o cpbsl.o cpevl.o cpevlr.o cpoco.o cpodi.o cpofa.o cpofs.o cpoir.o cposl.o cppco.o cppdi.o cppfa.o cppsl.o cpqr79.o cproc.o cprocp.o cprod.o cprodp.o cpsi.o cptsl.o cpzero.o cqrdc.o cqrsl.o crati.o crotg.o cs1s2.o cscal.o cscale.o cseri.o csevl.o cshch.o csico.o csidi.o csifa.o csinh.o csisl.o cspco.o cspdi.o cspfa.o cspsl.o csroot.o csrot.o csscal.o csvdc.o cswap.o csymm.o csyr2k.o csyrk.o ctan.o ctanh.o ctbmv.o ctbsv.o ctpmv.o ctpsv.o ctrco.o ctrdi.o ctrmm.o ctrmv.o ctrsl.o ctrsm.o ctrsv.o cuchk.o cunhj.o cuni1.o cuni2.o cunik.o cunk1.o cunk2.o cuoik.o cv.o cwrsk.o d1mach.o d1merg.o d1mpyq.o d1updt.o d9aimp.o d9atn1.o d9b0mp.o d9b1mp.o d9chu.o d9gmic.o d9gmit.o d9knus.o d9lgic.o d9lgit.o d9lgmc.o d9ln2r.o d9pak.o d9upak.o dacosh.o dai.o daie.o dasinh.o dasum.o dasyik.o dasyjy.o datanh.o davint.o daws.o daxpy.o dbcg.o dbdiff.o dbesi.o dbesi0.o dbesi1.o dbesj.o dbesj0.o dbesj1.o dbesk.o dbesk0.o dbesk1.o dbesks.o dbesy.o dbesy0.o dbesy1.o dbeta.o dbetai.o dbfqad.o dbhin.o dbi.o dbie.o dbinom.o dbint4.o dbintk.o dbkias.o dbkisr.o dbksol.o dbndac.o dbndsl.o dbnfac.o dbnslv.o dbocls.o dbols.o dbolsm.o dbsgq8.o dbsi0e.o dbsi1e.o dbsk0e.o dbsk1e.o dbskes.o dbskin.o dbsknu.o dbspdr.o dbspev.o dbsppp.o dbspvd.o dbspvn.o dbsqad.o dbsynu.o dbvalu.o dcbrt.o dcdot.o dcfod.o dcg.o dcgn.o dcgs.o dchdc.o dchdd.o dchex.o dchfcm.o dchfdv.o dchfev.o dchfie.o dchkw.o dchu.o dchud.o dckder.o dcoef.o dcopy.o dcopym.o dcosdg.o dcot.o dcov.o dcpplt.o dcscal.o dcsevl.o dcv.o ddaini.o ddajac.o ddanrm.o ddaslv.o ddassl.o ddastp.o ddatrp.o ddaws.o ddawts.o ddcor.o ddcst.o ddeabm.o ddebdf.o dderkf.o ddes.o ddntl.o ddntp.o ddoglg.o ddot.o ddpsc.o ddpst.o ddriv1.o ddriv2.o ddriv3.o ddscl.o ddstp.o ddzro.o de1.o deabm.o debdf.o defc.o defcmn.o defe4.o defehl.o defer.o dei.o denorm.o derf.o derfc.o derkf.o derkfs.o des.o dexint.o dexprl.o dfac.o dfc.o dfcmn.o dfdjc1.o dfdjc3.o dfehl.o dfspvd.o dfspvn.o dfulmt.o dfzero.o dgami.o dgamic.o dgamit.o dgamlm.o dgamln.o dgamma.o dgamr.o dgamrn.o dgaus8.o dgbco.o dgbdi.o dgbfa.o dgbmv.o dgbsl.o dgeco.o dgedi.o dgefa.o dgefs.o dgemm.o dgemv.o dger.o dgesl.o dglss.o dgmres.o dgtsl.o dh12.o dhels.o dheqr.o dhfti.o dhkseq.o dhstrt.o dhvnrm.o dintp.o dintrv.o dintyd.o dir.o djairy.o dlbeta.o dlgams.o dli.o dllsia.o dllti2.o dlngam.o dlnrel.o dlpdoc.o dlpdp.o dlsei.o dlsi.o dlsod.o dlssud.o dmacon.o dmgsbv.o dmout.o dmpar.o dnbco.o dnbdi.o dnbfa.o dnbfs.o dnbsl.o dnls1.o dnls1e.o dnrm2.o dnsq.o dnsqe.o dogleg.o dohtrl.o domn.o dorth.o dorthr.o dp1vlu.o dpbco.o dpbdi.o dpbfa.o dpbsl.o dpchbs.o dpchce.o dpchci.o dpchcm.o dpchcs.o dpchdf.o dpchfd.o dpchfe.o dpchia.o dpchic.o dpchid.o dpchim.o dpchkt.o dpchng.o dpchsp.o dpchst.o dpchsw.o dpcoef.o dpfqad.o dpigmr.o dpincw.o dpinit.o dpintm.o dpjac.o dplint.o dplpce.o dplpdm.o dplpfe.o dplpfl.o dplpmn.o dplpmu.o dplpup.o dpnnzr.o dpoch.o dpoch1.o dpoco.o dpodi.o dpofa.o dpofs.o dpolcf.o dpolft.o dpolvl.o dpopt.o dposl.o dppco.o dppdi.o dpperm.o dppfa.o dppgq8.o dppqad.o dppsl.o dppval.o dprvec.o dprwpg.o dprwvr.o dpsi.o dpsifn.o dpsixn.o dpsort.o dptsl.o dqag.o dqage.o dqagi.o dqagie.o dqagp.o dqagpe.o dqags.o dqagse.o dqawc.o dqawce.o dqawf.o dqawfe.o dqawo.o dqawoe.o dqaws.o dqawse.o dqc25c.o dqc25f.o dqc25s.o dqcheb.o dqdota.o dqdoti.o dqelg.o dqform.o dqk15.o dqk15i.o dqk15w.o dqk21.o dqk31.o dqk41.o dqk51.o dqk61.o dqmomo.o dqnc79.o dqng.o dqpsrt.o dqrdc.o dqrfac.o dqrsl.o dqrslv.o dqwgtc.o dqwgtf.o dqwgts.o drc.o drc3jj.o drc3jm.o drc6j.o drd.o dreadp.o dreort.o drf.o drj.o drkfs.o drlcal.o drot.o drotg.o drotm.o drotmg.o drsco.o ds2lt.o ds2y.o dsbmv.o dscal.o dsd2s.o dsdbcg.o dsdcg.o dsdcgn.o dsdcgs.o dsdgmr.o dsdi.o dsdomn.o dsdot.o dsds.o dsdscl.o dsgs.o dsiccg.o dsico.o dsics.o dsidi.o dsifa.o dsilur.o dsilus.o dsindg.o dsisl.o dsjac.o dsli.o dsli2.o dsllti.o dslubc.o dslucn.o dslucs.o dslugm.o dslui.o dslui2.o dslui4.o dsluom.o dsluti.o dslvs.o dsmmi2.o dsmmti.o dsmtv.o dsmv.o dsort.o dsos.o dsoseq.o dsossl.o dspco.o dspdi.o dspenc.o dspfa.o dsplp.o dspmv.o dspr.o dspr2.o dspsl.o dsteps.o dstod.o dstor1.o dstway.o dsuds.o dsvco.o dsvdc.o dswap.o dsymm.o dsymv.o dsyr.o dsyr2.o dsyr2k.o dsyrk.o dtbmv.o dtbsv.o dtin.o dtout.o dtpmv.o dtpsv.o dtrco.o dtrdi.o dtrmm.o dtrmv.o dtrsl.o dtrsm.o dtrsv.o du11ls.o du11us.o du12ls.o du12us.o dulsia.o dusrmt.o dvecs.o dvnrms.o dvout.o dwnlit.o dwnlsm.o dwnlt1.o dwnlt2.o dwnlt3.o dwnnls.o dwritp.o dwupdt.o dx.o dx4.o dxadd.o dxadj.o dxc210.o dxcon.o dxlcal.o dxlegf.o dxnrmp.o dxpmu.o dxpmup.o dxpnrm.o dxpqnu.o dxpsi.o dxqmu.o dxqnu.o dxred.o dxset.o dy.o dy4.o dyairy.o e1.o efc.o efcmn.o ei.o eisdoc.o elmbak.o elmhes.o eltran.o enorm.o erf.o erfc.o exint.o exprel.o ezfft1.o ezfftb.o ezfftf.o ezffti.o fac.o fc.o fcmn.o fdjac1.o fdjac3.o fdump.o fftdoc.o figi.o figi2.o fulmat.o fundoc.o fzero.o gami.o gamic.o gamit.o gamlim.o gamln.o gamma.o gamr.o gamrn.o gaus8.o genbun.o h12.o hfti.o hkseq.o hpperm.o hpsort.o hqr.o hqr2.o hstart.o hstcrt.o hstcs1.o hstcsp.o hstcyl.o hstplr.o hstssp.o htrib3.o htribk.o htrid3.o htridi.o hvnrm.o hw3crt.o hwscrt.o hwscs1.o hwscsp.o hwscyl.o hwsplr.o hwsss1.o hwsssp.o i1mach.o i1merg.o icamax.o icopy.o idamax.o idloc.o imtql1.o imtql2.o imtqlv.o indxa.o indxb.o indxc.o initds.o inits.o intrv.o intyd.o invit.o inxca.o inxcb.o inxcc.o iploc.o ipperm.o ipsort.o isamax.o isdbcg.o isdcg.o isdcgn.o isdcgs.o isdgmr.o isdir.o isdomn.o isort.o issbcg.o isscg.o isscgn.o isscgs.o issgmr.o issir.o issomn.o iswap.o ivout.o j4save.o jairy.o la05ad.o la05as.o la05bd.o la05bs.o la05cd.o la05cs.o la05ed.o la05es.o llsia.o lmpar.o lpdp.o lsame.o lsei.o lsi.o lsod.o lssods.o lssuds.o macon.o mc20ad.o mc20as.o mgsbv.o minfit.o minso4.o minsol.o mpadd.o mpadd2.o mpadd3.o mpblas.o mpcdm.o mpchk.o mpcmd.o mpdivi.o mperr.o mpmaxr.o mpmlp.o mpmul.o mpmul2.o mpmuli.o mpnzr.o mpovfl.o mpstr.o mpunfl.o numxer.o ohtrol.o ohtror.o ortbak.o orthes.o ortho4.o orthog.o orthol.o orthor.o ortran.o passb.o passb2.o passb3.o passb4.o passb5.o passf.o passf2.o passf3.o passf4.o passf5.o pchbs.o pchce.o pchci.o pchcm.o pchcs.o pchdf.o pchdoc.o pchfd.o pchfe.o pchia.o pchic.o pchid.o pchim.o pchkt.o pchngs.o pchsp.o pchst.o pchsw.o pcoef.o pfqad.o pgsf.o pimach.o pinitm.o pjac.o pnnzrs.o poch.o poch1.o pois3d.o poisd2.o poisn2.o poisp2.o poistg.o polcof.o polfit.o polint.o polyvl.o pos3d1.o postg2.o ppadd.o ppgq8.o ppgsf.o pppsf.o ppqad.o ppsgf.o ppspf.o ppval.o proc.o procp.o prod.o prodp.o prvec.o prwpge.o prwvir.o psgf.o psi.o psifn.o psixn.o pvalue.o pythag.o qag.o qage.o qagi.o qagie.o qagp.o qagpe.o qags.o qagse.o qawc.o qawce.o qawf.o qawfe.o qawo.o qawoe.o qaws.o qawse.o qc25c.o qc25f.o qc25s.o qcheb.o qelg.o qform.o qk15.o qk15i.o qk15w.o qk21.o qk31.o qk41.o qk51.o qk61.o qmomo.o qnc79.o qng.o qpdoc.o qpsrt.o qrfac.o qrsolv.o qs2i1d.o qs2i1r.o qwgtc.o qwgtf.o qwgts.o qzhes.o qzit.o qzval.o qzvec.o r1mach.o r1mpyq.o r1updt.o r9aimp.o r9atn1.o r9chu.o r9gmic.o r9gmit.o r9knus.o r9lgic.o r9lgit.o r9lgmc.o r9ln2r.o r9pak.o r9upak.o radb2.o radb3.o radb4.o radb5.o radbg.o radf2.o radf3.o radf4.o radf5.o radfg.o rand.o ratqr.o rc.o rc3jj.o rc3jm.o rc6j.o rd.o rebak.o rebakb.o reduc.o reduc2.o reort.o rf.o rfftb.o rfftb1.o rfftf.o rfftf1.o rffti.o rffti1.o rg.o rgauss.o rgg.o rj.o rpqr79.o rpzero.o rs.o rsb.o rsco.o rsg.o rsgab.o rsgba.o rsp.o rst.o rt.o runif.o rwupdt.o s1merg.o sasum.o saxpy.o sbcg.o sbhin.o sbocls.o sbols.o sbolsm.o scasum.o scg.o scgn.o scgs.o schdc.o schdd.o schex.o schkw.o schud.o sclosm.o scnrm2.o scoef.o scopy.o scopym.o scov.o scpplt.o sdaini.o sdajac.o sdanrm.o sdaslv.o sdassl.o sdastp.o sdatrp.o sdawts.o sdcor.o sdcst.o sdntl.o sdntp.o sdot.o sdpsc.o sdpst.o sdriv1.o sdriv2.o sdriv3.o sdscl.o sdsdot.o sdstp.o sdzro.o sepeli.o sepx4.o sgbco.o sgbdi.o sgbfa.o sgbmv.o sgbsl.o sgeco.o sgedi.o sgeev.o sgefa.o sgefs.o sgeir.o sgemm.o sgemv.o sger.o sgesl.o sglss.o sgmres.o sgtsl.o shels.o sheqr.o sindg.o sinqb.o sinqf.o sinqi.o sint.o sinti.o sintrp.o sir.o sllti2.o slpdoc.o slvs.o smout.o snbco.o snbdi.o snbfa.o snbfs.o snbir.o snbsl.o snls1.o snls1e.o snrm2.o snsq.o snsqe.o sods.o somn.o sopenm.o sorth.o sos.o soseqs.o sossol.o spbco.o spbdi.o spbfa.o spbsl.o speli4.o spelip.o spenc.o spigmr.o spincw.o spinit.o splp.o splpce.o splpdm.o splpfe.o splpfl.o splpmn.o splpmu.o splpup.o spoco.o spodi.o spofa.o spofs.o spoir.o spopt.o sposl.o sppco.o sppdi.o spperm.o sppfa.o sppsl.o spsort.o sptsl.o sqrdc.o sqrsl.o sreadp.o srlcal.o srot.o srotg.o srotm.o srotmg.o ss2lt.o ss2y.o ssbmv.o sscal.o ssd2s.o ssdbcg.o ssdcg.o ssdcgn.o ssdcgs.o ssdgmr.o ssdi.o ssdomn.o ssds.o ssdscl.o ssgs.o ssiccg.o ssico.o ssics.o ssidi.o ssiev.o ssifa.o ssilur.o ssilus.o ssisl.o ssjac.o ssli.o ssli2.o ssllti.o sslubc.o sslucn.o sslucs.o sslugm.o sslui.o sslui2.o sslui4.o ssluom.o ssluti.o ssmmi2.o ssmmti.o ssmtv.o ssmv.o ssort.o sspco.o sspdi.o sspev.o sspfa.o sspmv.o sspr.o sspr2.o sspsl.o ssvdc.o sswap.o ssymm.o ssymv.o ssyr.o ssyr2.o ssyr2k.o ssyrk.o stbmv.o stbsv.o steps.o stin.o stod.o stor1.o stout.o stpmv.o stpsv.o strco.o strdi.o strmm.o strmv.o strsl.o strsm.o strsv.o stway.o suds.o svco.o svd.o svecs.o svout.o swritp.o sxlcal.o tevlc.o tevls.o tinvit.o tql1.o tql2.o tqlrat.o trbak1.o trbak3.o tred1.o tred2.o tred3.o tri3.o tridib.o tridq.o tris4.o trisp.o trix.o tsturm.o u11ls.o u11us.o u12ls.o u12us.o ulsia.o usrmat.o vnwrms.o wnlit.o wnlsm.o wnlt1.o wnlt2.o wnlt3.o wnnls.o xadd.o xadj.o xc210.o xcon.o xerbla.o xerclr.o xercnt.o xerdmp.o xerhlt.o xermax.o xermsg.o xerprn.o xersve.o xgetf.o xgetua.o xgetun.o xlegf.o xnrmp.o xpmu.o xpmup.o xpnrm.o xpqnu.o xpsi.o xqmu.o xqnu.o xred.o xset.o xsetf.o xsetua.o xsetun.o yairy.o zabs.o zacai.o zacon.o zairy.o zasyi.o zbesh.o zbesi.o zbesj.o zbesk.o zbesy.o zbinu.o zbiry.o zbknu.o zbuni.o zbunk.o zdiv.o zexp.o zkscl.o zlog.o zmlri.o zmlt.o zrati.o zs1s2.o zseri.o zshch.o zsqrt.o zuchk.o zunhj.o zuni1.o zuni2.o zunik.o zunk1.o zunk2.o zuoik.o zwrsk.o  -lgfortran -lcfitsio -ldl -lm -L. 
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  toms526.f
toms526.f:485:72:

  485 |             IF (SIDE(X1,Y1,X2,Y2,XII,YII)) 130, 40, 50
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
toms526.f:487:72:

  487 |    50       IF (SIDE(X2,Y2,X3,Y3,XII,YII)) 130, 60, 70
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
toms526.f:489:72:

  489 |    70       IF (SIDE(X3,Y3,X1,Y1,XII,YII)) 130, 80, 90
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
toms526.f:549:72:

  549 |             IF (SIDE(X1,Y1,X2,Y2,XII,YII)) 210, 200, 290
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
toms526.f:551:72:

  551 |   210       IF (SPDT(X2,Y2,X1,Y1,XII,YII)) 290, 220, 230
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
toms526.f:553:72:

  553 |   230       IF (SPDT(X1,Y1,X2,Y2,XII,YII)) 290, 240, 250
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
toms526.f:608:72:

  608 |             IF (SPDT(X1,Y1,X2,Y2,XII,YII)) 360, 350, 420
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
toms526.f:610:72:

  610 |   360       IF (SPDT(X3,Y3,X2,Y2,XII,YII)) 380, 370, 420
      |                                                                        1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  toms660.f
toms660.f:501:72:

  501 |     6       CALL ROTATE (6-J,C,S,B(JP1,J),B(JP1,IROW))
      |                                                                          1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 6 at (1)
toms660.f:551:72:

  551 |    11       B(J,6) = 0.
      |                                                                          1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 11 at (1)
toms660.f:552:72:

  552 |           DO 12 J = I,5
      |                                                                               1
Warning: Fortran 2018 deleted feature: Shared DO termination label 12 at (1)
toms660.f:555:72:

  555 |    12       CALL ROTATE (6-J,C,S,B(JP1,J),B(JP1,6))
      |                                                                          1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 12 at (1)
toms660.f:571:72:

  571 |    14       T = T + B(J,I)*A(J,K)
      |                                                                          1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 14 at (1)
toms660.f:572:72:

  572 |    15     A(I,K) = (B(6,I)-T)/B(I,I)
      |                                                                          1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 15 at (1)
toms660.f:577:72:

  577 |    16     A(I,K) = A(I,K)/AVSQ
      |                                                                          1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 16 at (1)
toms660.f:586:72:

  586 |    17     LNEXT(NP) = -LNEXT(NP)
      |                                                                          1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 17 at (1)
toms660.f:722:72:

  722 |         DO 3 I = IMIN,IMAX
      |                                                                               1
Warning: Fortran 2018 deleted feature: Shared DO termination label 3 at (1)
toms660.f:892:72:

  892 |         DO 3 I = IMIN,IMAX
      |                                                                               1
Warning: Fortran 2018 deleted feature: Shared DO termination label 3 at (1)
toms660.f:1403:72:

 1403 |     2   ROW(I) = 0.
      |                                                                          1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 2 at (1)
toms660.f:1508:72:

 1508 |     1   IF (Y(K) .GT. YMX) YMX = Y(K)
      |                                                                          1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 1 at (1)
toms660.f:1523:72:

 1523 |         DO 2 I = 1,NNR
      |                                                                               1
Warning: Fortran 2018 deleted feature: Shared DO termination label 2 at (1)
toms660.f:1524:72:

 1524 |     2     LCELL(I,J) = 0
      |                                                                          1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 2 at (1)
toms660.f:1538:72:

 1538 |     3   LCELL(I,J) = KB
      |                                                                          1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 3 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  toms661.f
toms661.f:503:72:

  503 |     6       CALL ROTATE (10-J,C,S,B(JP1,J),B(JP1,IROW))
      |                                                                          1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 6 at (1)
toms661.f:553:72:

  553 |    11       B(J,10) = 0.
      |                                                                          1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 11 at (1)
toms661.f:554:72:

  554 |           DO 12 J = I,9
      |                                                                               1
Warning: Fortran 2018 deleted feature: Shared DO termination label 12 at (1)
toms661.f:557:72:

  557 |    12       CALL ROTATE (10-J,C,S,B(JP1,J),B(JP1,10))
      |                                                                          1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 12 at (1)
toms661.f:574:72:

  574 |    14       T = T + B(J,I)*A(J,K)
      |                                                                          1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 14 at (1)
toms661.f:575:72:

  575 |    15     A(I,K) = (B(10,I)-T)/B(I,I)
      |                                                                          1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 15 at (1)
toms661.f:580:72:

  580 |    16     A(I,K) = A(I,K)/AVSQ
      |                                                                          1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 16 at (1)
toms661.f:590:72:

  590 |    17     LNEXT(NP) = -LNEXT(NP)
      |                                                                          1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 17 at (1)
toms661.f:597:72:

  597 |    19   XYZDEL(I) = XYZDL(I)
      |                                                                          1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 19 at (1)
toms661.f:616:72:

  616 |    23   XYZDEL(I) = XYZDL(I)
      |                                                                          1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 23 at (1)
toms661.f:740:72:

  740 |         DO 3 J = JMIN,JMAX
      |                                                                               1
Warning: Fortran 2018 deleted feature: Shared DO termination label 3 at (1)
toms661.f:741:72:

  741 |           DO 3 I = IMIN,IMAX
      |                                                                               1
Warning: Fortran 2018 deleted feature: Shared DO termination label 3 at (1)
toms661.f:936:72:

  936 |         DO 3 J = JMIN,JMAX
      |                                                                               1
Warning: Fortran 2018 deleted feature: Shared DO termination label 3 at (1)
toms661.f:937:72:

  937 |           DO 3 I = IMIN,IMAX
      |                                                                               1
Warning: Fortran 2018 deleted feature: Shared DO termination label 3 at (1)
toms661.f:1504:72:

 1504 |     2   ROW(I) = 0.
      |                                                                          1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 2 at (1)
toms661.f:1619:72:

 1619 |     1   IF (Z(L) .GT. ZMX) ZMX = Z(L)
      |                                                                          1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 1 at (1)
toms661.f:1638:72:

 1638 |         DO 2 J = 1,NNR
      |                                                                               1
Warning: Fortran 2018 deleted feature: Shared DO termination label 2 at (1)
toms661.f:1639:72:

 1639 |           DO 2 I = 1,NNR
      |                                                                               1
Warning: Fortran 2018 deleted feature: Shared DO termination label 2 at (1)
toms661.f:1640:72:

 1640 |     2       LCELL(I,J,K) = 0
      |                                                                          1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 2 at (1)
toms661.f:1656:72:

 1656 |     3   LCELL(I,J,K) = LB
      |                                                                          1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 3 at (1)
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  toms760.f
/usr/bin/ar cur libtoms.a toms526.o toms660.o toms661.o toms760.o
/usr/bin/ar: `u' modifier ignored since `D' is the default (see `U')
ranlib libtoms.a
g++ -shared -Wl,-h,libtoms.so.1.49 -Wl,-rpath,\$ORIGIN -Wl,-rpath,\$ORIGIN/../libextra -o libtoms.so.1.49 toms526.o toms660.o toms661.o toms760.o  -lgfortran -lcfitsio -ldl -lm -L. 
g++ -c -Wall -DGFORTRAN -std=gnu++14 -g  -fPIC -DUSE_POPUP -include /workspaces/xmm_sas_ubuntu24_gcc13/include/config-std.h -imacros /workspaces/xmm_sas_ubuntu24_gcc13/config.h -I/workspaces/xmm_sas_ubuntu24_gcc13/include -I/workspaces/xmm_sas_ubuntu24_gcc13/include/utils -I.  Curve.cc
In file included from Curve.cc:36:
slatec.h: In function ‘void ___dum(VFunvPtr)’:
slatec.h:359:13: warning: infinite recursion detected [-Winfinite-recursion]
  359 | static void ___dum(VFunvPtr) {
      |             ^~~~~~
slatec.h:360:15: note: recursive call
  360 |         ___dum(reinterpret_cast<VFunvPtr>(___dum));
      |         ~~~~~~^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
g++ -c -Wall -DGFORTRAN -std=gnu++14 -g  -fPIC -DUSE_POPUP -include /workspaces/xmm_sas_ubuntu24_gcc13/include/config-std.h -imacros /workspaces/xmm_sas_ubuntu24_gcc13/config.h -I/workspaces/xmm_sas_ubuntu24_gcc13/include -I/workspaces/xmm_sas_ubuntu24_gcc13/include/utils -I.  CubicHermiteInterpolant.cc
In file included from CubicHermiteInterpolant.cc:45:
DataVector.h: In instantiation of ‘bool DataVector::sorted(const std::vector<NumericType>&) [with T = double]’:
CubicHermiteInterpolant.cc:371:25:   required from here
DataVector.h:47:37: warning: ‘std::binder2nd<_Operation> std::bind2nd(const _Operation&, const _Tp&) [with _Operation = less<double>; _Tp = double]’ is deprecated: use 'std::bind' instead [-Wdeprecated-declarations]
   47 |                         std::bind2nd(std::less<T>(), v[0])) == v.end()) : true;
      |                         ~~~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~
In file included from /sasbuild/tools/gcc-13.3.0/include/c++/13.3.0/bits/stl_function.h:1438,
                 from /sasbuild/tools/gcc-13.3.0/include/c++/13.3.0/functional:49,
                 from CubicHermiteInterpolant.cc:41:
/sasbuild/tools/gcc-13.3.0/include/c++/13.3.0/backward/binders.h:172:5: note: declared here
  172 |     bind2nd(const _Operation& __fn, const _Tp& __x)
      |     ^~~~~~~
In file included from CubicHermiteInterpolant.cc:44:
slatec.h: In function ‘void ___dum(VFunvPtr)’:
slatec.h:359:13: warning: infinite recursion detected [-Winfinite-recursion]
  359 | static void ___dum(VFunvPtr) {
      |             ^~~~~~
slatec.h:360:15: note: recursive call
  360 |         ___dum(reinterpret_cast<VFunvPtr>(___dum));
      |         ~~~~~~^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
g++ -c -Wall -DGFORTRAN -std=gnu++14 -g  -fPIC -DUSE_POPUP -include /workspaces/xmm_sas_ubuntu24_gcc13/include/config-std.h -imacros /workspaces/xmm_sas_ubuntu24_gcc13/config.h -I/workspaces/xmm_sas_ubuntu24_gcc13/include -I/workspaces/xmm_sas_ubuntu24_gcc13/include/utils -I.  CubicSplineInterpolant.cc
In file included from CubicSplineInterpolant.cc:40:
slatec.h: In function ‘void ___dum(VFunvPtr)’:
slatec.h:359:13: warning: infinite recursion detected [-Winfinite-recursion]
  359 | static void ___dum(VFunvPtr) {
      |             ^~~~~~
slatec.h:360:15: note: recursive call
  360 |         ___dum(reinterpret_cast<VFunvPtr>(___dum));
      |         ~~~~~~^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
g++ -c -Wall -DGFORTRAN -std=gnu++14 -g  -fPIC -DUSE_POPUP -include /workspaces/xmm_sas_ubuntu24_gcc13/include/config-std.h -imacros /workspaces/xmm_sas_ubuntu24_gcc13/config.h -I/workspaces/xmm_sas_ubuntu24_gcc13/include -I/workspaces/xmm_sas_ubuntu24_gcc13/include/utils -I.  LinearInterpolant.cc
In file included from LinearInterpolant.cc:38:
DataVector.h: In instantiation of ‘bool DataVector::sorted(const std::vector<NumericType>&) [with T = double]’:
LinearInterpolant.cc:62:25:   required from ‘void Slatec::LinearInterpolant<NumericType>::validate() const [with NumericType = double]’
LinearInterpolant.cc:367:24:   required from here
DataVector.h:47:37: warning: ‘std::binder2nd<_Operation> std::bind2nd(const _Operation&, const _Tp&) [with _Operation = less<double>; _Tp = double]’ is deprecated: use 'std::bind' instead [-Wdeprecated-declarations]
   47 |                         std::bind2nd(std::less<T>(), v[0])) == v.end()) : true;
      |                         ~~~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~
In file included from /sasbuild/tools/gcc-13.3.0/include/c++/13.3.0/bits/stl_function.h:1438,
                 from /sasbuild/tools/gcc-13.3.0/include/c++/13.3.0/string:49,
                 from /workspaces/xmm_sas_ubuntu24_gcc13/include/utils/Tracer.h:22,
                 from slatec++.h:40,
                 from LinearInterpolant.cc:37:
/sasbuild/tools/gcc-13.3.0/include/c++/13.3.0/backward/binders.h:172:5: note: declared here
  172 |     bind2nd(const _Operation& __fn, const _Tp& __x)
      |     ^~~~~~~
In file included from LinearInterpolant.cc:39:
slatec.h: In function ‘void ___dum(VFunvPtr)’:
slatec.h:359:13: warning: infinite recursion detected [-Winfinite-recursion]
  359 | static void ___dum(VFunvPtr) {
      |             ^~~~~~
slatec.h:360:15: note: recursive call
  360 |         ___dum(reinterpret_cast<VFunvPtr>(___dum));
      |         ~~~~~~^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
g++ -c -Wall -DGFORTRAN -std=gnu++14 -g  -fPIC -DUSE_POPUP -include /workspaces/xmm_sas_ubuntu24_gcc13/include/config-std.h -imacros /workspaces/xmm_sas_ubuntu24_gcc13/config.h -I/workspaces/xmm_sas_ubuntu24_gcc13/include -I/workspaces/xmm_sas_ubuntu24_gcc13/include/utils -I.  Bivariate2DInterpolantScattered.cc
In file included from Bivariate2DInterpolantScattered.cc:39:
slatec.h: In function ‘void ___dum(VFunvPtr)’:
slatec.h:359:13: warning: infinite recursion detected [-Winfinite-recursion]
  359 | static void ___dum(VFunvPtr) {
      |             ^~~~~~
slatec.h:360:15: note: recursive call
  360 |         ___dum(reinterpret_cast<VFunvPtr>(___dum));
      |         ~~~~~~^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
g++ -c -Wall -DGFORTRAN -std=gnu++14 -g  -fPIC -DUSE_POPUP -include /workspaces/xmm_sas_ubuntu24_gcc13/include/config-std.h -imacros /workspaces/xmm_sas_ubuntu24_gcc13/config.h -I/workspaces/xmm_sas_ubuntu24_gcc13/include -I/workspaces/xmm_sas_ubuntu24_gcc13/include/utils -I.  Bivariate2DInterpolantRectangular.cc
In file included from Bivariate2DInterpolantRectangular.cc:39:
slatec.h: In function ‘void ___dum(VFunvPtr)’:
slatec.h:359:13: warning: infinite recursion detected [-Winfinite-recursion]
  359 | static void ___dum(VFunvPtr) {
      |             ^~~~~~
slatec.h:360:15: note: recursive call
  360 |         ___dum(reinterpret_cast<VFunvPtr>(___dum));
      |         ~~~~~~^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
g++ -c -Wall -DGFORTRAN -std=gnu++14 -g  -fPIC -DUSE_POPUP -include /workspaces/xmm_sas_ubuntu24_gcc13/include/config-std.h -imacros /workspaces/xmm_sas_ubuntu24_gcc13/config.h -I/workspaces/xmm_sas_ubuntu24_gcc13/include -I/workspaces/xmm_sas_ubuntu24_gcc13/include/utils -I.  CpBivariate2DInterpolantRectangular.cc
In file included from CpBivariate2DInterpolantRectangular.cc:39:
slatec.h: In function ‘void ___dum(VFunvPtr)’:
slatec.h:359:13: warning: infinite recursion detected [-Winfinite-recursion]
  359 | static void ___dum(VFunvPtr) {
      |             ^~~~~~
slatec.h:360:15: note: recursive call
  360 |         ___dum(reinterpret_cast<VFunvPtr>(___dum));
      |         ~~~~~~^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
g++ -c -Wall -DGFORTRAN -std=gnu++14 -g  -fPIC -DUSE_POPUP -include /workspaces/xmm_sas_ubuntu24_gcc13/include/config-std.h -imacros /workspaces/xmm_sas_ubuntu24_gcc13/config.h -I/workspaces/xmm_sas_ubuntu24_gcc13/include -I/workspaces/xmm_sas_ubuntu24_gcc13/include/utils -I.  LinBivariate2DInterpolantRectangular.cc
In file included from LinBivariate2DInterpolantRectangular.cc:39:
slatec.h: In function ‘void ___dum(VFunvPtr)’:
slatec.h:359:13: warning: infinite recursion detected [-Winfinite-recursion]
  359 | static void ___dum(VFunvPtr) {
      |             ^~~~~~
slatec.h:360:15: note: recursive call
  360 |         ___dum(reinterpret_cast<VFunvPtr>(___dum));
      |         ~~~~~~^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
g++ -c -Wall -DGFORTRAN -std=gnu++14 -g  -fPIC -DUSE_POPUP -include /workspaces/xmm_sas_ubuntu24_gcc13/include/config-std.h -imacros /workspaces/xmm_sas_ubuntu24_gcc13/config.h -I/workspaces/xmm_sas_ubuntu24_gcc13/include -I/workspaces/xmm_sas_ubuntu24_gcc13/include/utils -I.  errorFunc.cc
In file included from errorFunc.cc:22:
slatec.h: In function ‘void ___dum(VFunvPtr)’:
slatec.h:359:13: warning: infinite recursion detected [-Winfinite-recursion]
  359 | static void ___dum(VFunvPtr) {
      |             ^~~~~~
slatec.h:360:15: note: recursive call
  360 |         ___dum(reinterpret_cast<VFunvPtr>(___dum));
      |         ~~~~~~^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
g++ -c -Wall -DGFORTRAN -std=gnu++14 -g  -fPIC -DUSE_POPUP -include /workspaces/xmm_sas_ubuntu24_gcc13/include/config-std.h -imacros /workspaces/xmm_sas_ubuntu24_gcc13/config.h -I/workspaces/xmm_sas_ubuntu24_gcc13/include -I/workspaces/xmm_sas_ubuntu24_gcc13/include/utils -I.  fft.cc
In file included from fft.cc:29:
slatec.h: In function ‘void ___dum(VFunvPtr)’:
slatec.h:359:13: warning: infinite recursion detected [-Winfinite-recursion]
  359 | static void ___dum(VFunvPtr) {
      |             ^~~~~~
slatec.h:360:15: note: recursive call
  360 |         ___dum(reinterpret_cast<VFunvPtr>(___dum));
      |         ~~~~~~^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
g++ -c -Wall -DGFORTRAN -std=gnu++14 -g  -fPIC -DUSE_POPUP -include /workspaces/xmm_sas_ubuntu24_gcc13/include/config-std.h -imacros /workspaces/xmm_sas_ubuntu24_gcc13/config.h -I/workspaces/xmm_sas_ubuntu24_gcc13/include -I/workspaces/xmm_sas_ubuntu24_gcc13/include/utils -I.  Convolver.cc
In file included from Convolver.cc:20:
/workspaces/xmm_sas_ubuntu24_gcc13/include/slatec.h: In function ‘void ___dum(VFunvPtr)’:
/workspaces/xmm_sas_ubuntu24_gcc13/include/slatec.h:359:13: warning: infinite recursion detected [-Winfinite-recursion]
  359 | static void ___dum(VFunvPtr) {
      |             ^~~~~~
/workspaces/xmm_sas_ubuntu24_gcc13/include/slatec.h:360:15: note: recursive call
  360 |         ___dum(reinterpret_cast<VFunvPtr>(___dum));
      |         ~~~~~~^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
/usr/bin/ar cur libslatecxx.a Curve.o CubicHermiteInterpolant.o CubicSplineInterpolant.o LinearInterpolant.o Bivariate2DInterpolantScattered.o Bivariate2DInterpolantRectangular.o CpBivariate2DInterpolantRectangular.o LinBivariate2DInterpolantRectangular.o errorFunc.o fft.o Convolver.o
/usr/bin/ar: `u' modifier ignored since `D' is the default (see `U')
ranlib libslatecxx.a
g++ -shared -Wl,-h,libslatecxx.so.1.49 -Wl,-rpath,\$ORIGIN -Wl,-rpath,\$ORIGIN/../libextra -o libslatecxx.so.1.49 Curve.o CubicHermiteInterpolant.o CubicSplineInterpolant.o LinearInterpolant.o Bivariate2DInterpolantScattered.o Bivariate2DInterpolantRectangular.o CpBivariate2DInterpolantRectangular.o LinBivariate2DInterpolantRectangular.o errorFunc.o fft.o Convolver.o -lslatecf77 -ltoms -lerror -lutils -lgfortran -lcfitsio -ldl -lm -L. 
rm -f -fr __combidir__libslatec.a && /usr/bin/mkdir __combidir__libslatec.a && \
cd __combidir__libslatec.a && \
for l in /workspaces/xmm_sas_ubuntu24_gcc13/lib/libslatecxx.a /workspaces/xmm_sas_ubuntu24_gcc13/lib/libslatecf77.a /workspaces/xmm_sas_ubuntu24_gcc13/lib/libtoms.a; do /usr/bin/ar x $l ; done && \
/usr/bin/ar cur libslatec.a *.o && ranlib libslatec.a && mv libslatec.a ..
/usr/bin/ar: `u' modifier ignored since `D' is the default (see `U')
rm -f -fr __combidir__libslatec.so.1.49 && /usr/bin/mkdir __combidir__libslatec.so.1.49 && \
cd __combidir__libslatec.so.1.49 && \
for l in /workspaces/xmm_sas_ubuntu24_gcc13/lib/libslatecxx.a /workspaces/xmm_sas_ubuntu24_gcc13/lib/libslatecf77.a /workspaces/xmm_sas_ubuntu24_gcc13/lib/libtoms.a; do /usr/bin/ar x $l ; done && \
g++ -shared -Wl,-h,libslatec.so.1.49 -Wl,-rpath,\$ORIGIN -Wl,-rpath,\$ORIGIN/../libextra -o libslatec.so.1.49 *.o -lutils -lerror -lgfortran -lcfitsio -ldl -lm -L.  && mv libslatec.so.1.49 ..
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  testtoms526.f
g++ -Wl,-rpath,\$ORIGIN/../lib -Wl,-rpath,\$ORIGIN/../libextra -L/workspaces/xmm_sas_ubuntu24_gcc13/lib -o testtoms526 testtoms526.o -ltoms -lgfortran -lcfitsio -ldl -lm -L. 
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  testtoms660.f
testtoms660.f:57:72:

   57 |         DO 1 I = 1,6
      |                                                                               1
Warning: Fortran 2018 deleted feature: Shared DO termination label 1 at (1)
testtoms660.f:60:72:

   60 |     1     Y(K) = YK
      |                                                                          1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 1 at (1)
testtoms660.f:65:72:

   65 |     2   F(K) = FQ(X(K),Y(K))
      |                                                                          1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 2 at (1)
testtoms660.f:78:72:

   78 |     3   P(I) = FLOAT(I-1)/9.
      |                                                                          1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 3 at (1)
testtoms660.f:96:72:

   96 |         DO 5 I = 1,10
      |                                                                               1
Warning: Fortran 2018 deleted feature: Shared DO termination label 5 at (1)
testtoms660.f:106:72:

  106 |     5     EQY = AMAX1(EQY,ABS(FY(PX,PY)-QY))
      |                                                                          1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 5 at (1)
g++ -Wl,-rpath,\$ORIGIN/../lib -Wl,-rpath,\$ORIGIN/../libextra -L/workspaces/xmm_sas_ubuntu24_gcc13/lib -o testtoms660 testtoms660.o -ltoms -lgfortran -lcfitsio -ldl -lm -L. 
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  testtoms661.f
testtoms661.f:59:72:

   59 |         DO 1 J = 1,4
      |                                                                               1
Warning: Fortran 2018 deleted feature: Shared DO termination label 1 at (1)
testtoms661.f:61:72:

   61 |           DO 1 I = 1,4
      |                                                                               1
Warning: Fortran 2018 deleted feature: Shared DO termination label 1 at (1)
testtoms661.f:65:72:

   65 |     1       Z(L) = ZL
      |                                                                          1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 1 at (1)
testtoms661.f:70:72:

   70 |     2   F(L) = FQ(X(L),Y(L),Z(L))
      |                                                                          1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 2 at (1)
testtoms661.f:83:72:

   83 |     3   P(I) = FLOAT(I-1)/4.
      |                                                                          1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 3 at (1)
testtoms661.f:102:72:

  102 |         DO 5 J = 1,5
      |                                                                               1
Warning: Fortran 2018 deleted feature: Shared DO termination label 5 at (1)
testtoms661.f:104:72:

  104 |           DO 5 I = 1,5
      |                                                                               1
Warning: Fortran 2018 deleted feature: Shared DO termination label 5 at (1)
testtoms661.f:116:72:

  116 |     5       EQZ = AMAX1(EQZ,ABS(FZ(PX,PY,PZ)-QZ))
      |                                                                          1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 5 at (1)
g++ -Wl,-rpath,\$ORIGIN/../lib -Wl,-rpath,\$ORIGIN/../libextra -L/workspaces/xmm_sas_ubuntu24_gcc13/lib -o testtoms661 testtoms661.o -ltoms -lgfortran -lcfitsio -ldl -lm -L. 
gfortran -c -fno-range-check -DGFORTRAN -fallow-argument-mismatch -g -fPIC  testtoms760.f
g++ -Wl,-rpath,\$ORIGIN/../lib -Wl,-rpath,\$ORIGIN/../libextra -L/workspaces/xmm_sas_ubuntu24_gcc13/lib -o testtoms760 testtoms760.o -ltoms -lgfortran -lcfitsio -ldl -lm -L. 
g++ -c -Wall -DGFORTRAN -std=gnu++14 -g  -fPIC -DUSE_POPUP -include /workspaces/xmm_sas_ubuntu24_gcc13/include/config-std.h -imacros /workspaces/xmm_sas_ubuntu24_gcc13/config.h -I/workspaces/xmm_sas_ubuntu24_gcc13/include -I/workspaces/xmm_sas_ubuntu24_gcc13/include/utils -I.  testcurve.cc
g++ -Wl,-rpath,\$ORIGIN/../lib -Wl,-rpath,\$ORIGIN/../libextra -L/workspaces/xmm_sas_ubuntu24_gcc13/lib -o testcurve testcurve.o -ltoms -lslatec -lerror -lutils -lgfortran -lcfitsio -ldl -lm -L. 
g++ -c -Wall -DGFORTRAN -std=gnu++14 -g  -fPIC -DUSE_POPUP -include /workspaces/xmm_sas_ubuntu24_gcc13/include/config-std.h -imacros /workspaces/xmm_sas_ubuntu24_gcc13/config.h -I/workspaces/xmm_sas_ubuntu24_gcc13/include -I/workspaces/xmm_sas_ubuntu24_gcc13/include/utils -I.  testErrorFunction.cc
In file included from testErrorFunction.cc:18:
/workspaces/xmm_sas_ubuntu24_gcc13/include/slatec.h: In function ‘void ___dum(VFunvPtr)’:
/workspaces/xmm_sas_ubuntu24_gcc13/include/slatec.h:359:13: warning: infinite recursion detected [-Winfinite-recursion]
  359 | static void ___dum(VFunvPtr) {
      |             ^~~~~~
/workspaces/xmm_sas_ubuntu24_gcc13/include/slatec.h:360:15: note: recursive call
  360 |         ___dum(reinterpret_cast<VFunvPtr>(___dum));
      |         ~~~~~~^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
g++ -Wl,-rpath,\$ORIGIN/../lib -Wl,-rpath,\$ORIGIN/../libextra -L/workspaces/xmm_sas_ubuntu24_gcc13/lib -o testErrorFunction testErrorFunction.o -ltoms -lslatec -lerror -lutils -lgfortran -lcfitsio -ldl -lm -L. 
g++ -c -Wall -DGFORTRAN -std=gnu++14 -g  -fPIC -DUSE_POPUP -include /workspaces/xmm_sas_ubuntu24_gcc13/include/config-std.h -imacros /workspaces/xmm_sas_ubuntu24_gcc13/config.h -I/workspaces/xmm_sas_ubuntu24_gcc13/include -I/workspaces/xmm_sas_ubuntu24_gcc13/include/utils -I.  interpolant.cc
interpolant.cc:51:8: warning: ‘double {anonymous}::flin(double)’ defined but not used [-Wunused-function]
   51 | double flin(double x)
      |        ^~~~
g++ -Wl,-rpath,\$ORIGIN/../lib -Wl,-rpath,\$ORIGIN/../libextra -L/workspaces/xmm_sas_ubuntu24_gcc13/lib -o interpolant interpolant.o -ltoms -lslatec -lerror -lutils -lgfortran -lcfitsio -ldl -lm -L. 
g++ -c -Wall -DGFORTRAN -std=gnu++14 -g  -fPIC -DUSE_POPUP -include /workspaces/xmm_sas_ubuntu24_gcc13/include/config-std.h -imacros /workspaces/xmm_sas_ubuntu24_gcc13/config.h -I/workspaces/xmm_sas_ubuntu24_gcc13/include -I/workspaces/xmm_sas_ubuntu24_gcc13/include/utils -I.  interpolant2Dscatter.cc
g++ -Wl,-rpath,\$ORIGIN/../lib -Wl,-rpath,\$ORIGIN/../libextra -L/workspaces/xmm_sas_ubuntu24_gcc13/lib -o interpolant2Dscatter interpolant2Dscatter.o -ltoms -lslatec -lerror -lutils -lgfortran -lcfitsio -ldl -lm -L. 
g++ -c -Wall -DGFORTRAN -std=gnu++14 -g  -fPIC -DUSE_POPUP -include /workspaces/xmm_sas_ubuntu24_gcc13/include/config-std.h -imacros /workspaces/xmm_sas_ubuntu24_gcc13/config.h -I/workspaces/xmm_sas_ubuntu24_gcc13/include -I/workspaces/xmm_sas_ubuntu24_gcc13/include/utils -I.  interpolant2Drect.cc
g++ -Wl,-rpath,\$ORIGIN/../lib -Wl,-rpath,\$ORIGIN/../libextra -L/workspaces/xmm_sas_ubuntu24_gcc13/lib -o interpolant2Drect interpolant2Drect.o -ltoms -lslatec -lerror -lutils -lgfortran -lcfitsio -ldl -lm -L. 
g++ -c -Wall -DGFORTRAN -std=gnu++14 -g  -fPIC -DUSE_POPUP -include /workspaces/xmm_sas_ubuntu24_gcc13/include/config-std.h -imacros /workspaces/xmm_sas_ubuntu24_gcc13/config.h -I/workspaces/xmm_sas_ubuntu24_gcc13/include -I/workspaces/xmm_sas_ubuntu24_gcc13/include/utils -I.  fft_toandfro.cc
g++ -Wl,-rpath,\$ORIGIN/../lib -Wl,-rpath,\$ORIGIN/../libextra -L/workspaces/xmm_sas_ubuntu24_gcc13/lib -o fft_toandfro fft_toandfro.o -ltoms -lslatec -lerror -lutils -lgfortran -lcfitsio -ldl -lm -L. 
g++ -c -Wall -DGFORTRAN -std=gnu++14 -g  -fPIC -DUSE_POPUP -include /workspaces/xmm_sas_ubuntu24_gcc13/include/config-std.h -imacros /workspaces/xmm_sas_ubuntu24_gcc13/config.h -I/workspaces/xmm_sas_ubuntu24_gcc13/include -I/workspaces/xmm_sas_ubuntu24_gcc13/include/utils -I.  fft_convolve.cc
g++ -Wl,-rpath,\$ORIGIN/../lib -Wl,-rpath,\$ORIGIN/../libextra -L/workspaces/xmm_sas_ubuntu24_gcc13/lib -o fft_convolve fft_convolve.o -ltoms -lslatec -lerror -lutils -lgfortran -lcfitsio -ldl -lm -L. 
g++ -c -Wall -DGFORTRAN -std=gnu++14 -g  -fPIC -DUSE_POPUP -include /workspaces/xmm_sas_ubuntu24_gcc13/include/config-std.h -imacros /workspaces/xmm_sas_ubuntu24_gcc13/config.h -I/workspaces/xmm_sas_ubuntu24_gcc13/include -I/workspaces/xmm_sas_ubuntu24_gcc13/include/utils -I.  testcxxtoms660.cc
In file included from testcxxtoms660.cc:24:
/workspaces/xmm_sas_ubuntu24_gcc13/include/slatec.h: In function ‘void ___dum(VFunvPtr)’:
/workspaces/xmm_sas_ubuntu24_gcc13/include/slatec.h:359:13: warning: infinite recursion detected [-Winfinite-recursion]
  359 | static void ___dum(VFunvPtr) {
      |             ^~~~~~
/workspaces/xmm_sas_ubuntu24_gcc13/include/slatec.h:360:15: note: recursive call
  360 |         ___dum(reinterpret_cast<VFunvPtr>(___dum));
      |         ~~~~~~^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
g++ -Wl,-rpath,\$ORIGIN/../lib -Wl,-rpath,\$ORIGIN/../libextra -L/workspaces/xmm_sas_ubuntu24_gcc13/lib -o testcxxtoms660 testcxxtoms660.o -ltoms -lslatec -lerror -lutils -lgfortran -lcfitsio -ldl -lm -L. 
g++ -c -Wall -DGFORTRAN -std=gnu++14 -g  -fPIC -DUSE_POPUP -include /workspaces/xmm_sas_ubuntu24_gcc13/include/config-std.h -imacros /workspaces/xmm_sas_ubuntu24_gcc13/config.h -I/workspaces/xmm_sas_ubuntu24_gcc13/include -I/workspaces/xmm_sas_ubuntu24_gcc13/include/utils -I.  cubichermite.cc
g++ -Wl,-rpath,\$ORIGIN/../lib -Wl,-rpath,\$ORIGIN/../libextra -L/workspaces/xmm_sas_ubuntu24_gcc13/lib -o cubichermite cubichermite.o -ltoms -lslatec -lerror -lutils -lgfortran -lcfitsio -ldl -lm -L. 
Testing testtoms526.sh ... passed
Testing testtoms660.sh ... passed
Testing testtoms661.sh ... passed
Testing testtoms760.sh ... passed
Testing dtest01 ... passed
Testing dtest02 ... passed
Testing dtest03 ... passed
Testing dtest04 ... passed
Testing dtest05 ... passed
Testing dtest06 ... passed
Testing dtest07 ... passed
Testing dtest08 ... passed
Testing dtest09 ... passed
Testing dtest10 ... passed
Testing dtest11 ... passed
Testing dtest12 ... passed
Testing dtest13 ... passed
Testing dtest14 ... passed
Testing dtest15 ... passed
Testing dtest16 ... passed
Testing dtest17 ... passed
Testing dtest18 ... passed
Testing dtest19 ... passed
Testing dtest20 ... passed
Testing dtest21 ... passed
Testing dtest23 ... passed
Testing dtest24 ... passed
Testing dtest27 ... passed
Testing dtest28 ... passed
Testing dtest29 ... passed
Testing dtest30 ... passed
Testing dtest31 ... passed
Testing dtest34 ... passed
Testing dtest35 ... passed
Testing dtest36 ... passed
Testing dtest37 ... passed
Testing dtest38 ... passed
Testing dtest39 ... passed
Testing dtest40 ... passed
Testing dtest41 ... passed
Testing dtest42 ... passed
Testing dtest43 ... passed
Testing dtest44 ... passed
Testing dtest45 ... passed
Testing dtest46 ... passed
Testing dtest47 ... passed
Testing dtest48 ... passed
Testing dtest49 ... passed
Testing dtest51 ... passed
Testing dtest54 ... passed
Testing testcurve ... passed
Testing testErrorFunction ... passed
Testing interpolant ... passed
Testing interpolant2Dscatter ... passed
Testing interpolant2Drect ... passed
Testing fft_toandfro ... passed
Testing fft_convolve ... passed
Testing testcxxtoms660 ... passed
Testing cubichermite ... passed