--- 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/include/config-std.h -imacros /workspaces/xmm_sas/config.h -I/workspaces/xmm_sas/include -I/workspaces/xmm_sas/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(___dum)); | ~~~~~~^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ g++ -c -Wall -DGFORTRAN -std=gnu++14 -g -fPIC -DUSE_POPUP -include /workspaces/xmm_sas/include/config-std.h -imacros /workspaces/xmm_sas/config.h -I/workspaces/xmm_sas/include -I/workspaces/xmm_sas/include/utils -I. CubicHermiteInterpolant.cc In file included from CubicHermiteInterpolant.cc:45: DataVector.h: In instantiation of ‘bool DataVector::sorted(const std::vector&) [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; _Tp = double]’ is deprecated: use 'std::bind' instead [-Wdeprecated-declarations] 47 | std::bind2nd(std::less(), 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(___dum)); | ~~~~~~^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ g++ -c -Wall -DGFORTRAN -std=gnu++14 -g -fPIC -DUSE_POPUP -include /workspaces/xmm_sas/include/config-std.h -imacros /workspaces/xmm_sas/config.h -I/workspaces/xmm_sas/include -I/workspaces/xmm_sas/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(___dum)); | ~~~~~~^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ g++ -c -Wall -DGFORTRAN -std=gnu++14 -g -fPIC -DUSE_POPUP -include /workspaces/xmm_sas/include/config-std.h -imacros /workspaces/xmm_sas/config.h -I/workspaces/xmm_sas/include -I/workspaces/xmm_sas/include/utils -I. LinearInterpolant.cc In file included from LinearInterpolant.cc:38: DataVector.h: In instantiation of ‘bool DataVector::sorted(const std::vector&) [with T = double]’: LinearInterpolant.cc:62:25: required from ‘void Slatec::LinearInterpolant::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; _Tp = double]’ is deprecated: use 'std::bind' instead [-Wdeprecated-declarations] 47 | std::bind2nd(std::less(), 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/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(___dum)); | ~~~~~~^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ g++ -c -Wall -DGFORTRAN -std=gnu++14 -g -fPIC -DUSE_POPUP -include /workspaces/xmm_sas/include/config-std.h -imacros /workspaces/xmm_sas/config.h -I/workspaces/xmm_sas/include -I/workspaces/xmm_sas/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(___dum)); | ~~~~~~^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ g++ -c -Wall -DGFORTRAN -std=gnu++14 -g -fPIC -DUSE_POPUP -include /workspaces/xmm_sas/include/config-std.h -imacros /workspaces/xmm_sas/config.h -I/workspaces/xmm_sas/include -I/workspaces/xmm_sas/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(___dum)); | ~~~~~~^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ g++ -c -Wall -DGFORTRAN -std=gnu++14 -g -fPIC -DUSE_POPUP -include /workspaces/xmm_sas/include/config-std.h -imacros /workspaces/xmm_sas/config.h -I/workspaces/xmm_sas/include -I/workspaces/xmm_sas/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(___dum)); | ~~~~~~^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ g++ -c -Wall -DGFORTRAN -std=gnu++14 -g -fPIC -DUSE_POPUP -include /workspaces/xmm_sas/include/config-std.h -imacros /workspaces/xmm_sas/config.h -I/workspaces/xmm_sas/include -I/workspaces/xmm_sas/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(___dum)); | ~~~~~~^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ g++ -c -Wall -DGFORTRAN -std=gnu++14 -g -fPIC -DUSE_POPUP -include /workspaces/xmm_sas/include/config-std.h -imacros /workspaces/xmm_sas/config.h -I/workspaces/xmm_sas/include -I/workspaces/xmm_sas/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(___dum)); | ~~~~~~^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ g++ -c -Wall -DGFORTRAN -std=gnu++14 -g -fPIC -DUSE_POPUP -include /workspaces/xmm_sas/include/config-std.h -imacros /workspaces/xmm_sas/config.h -I/workspaces/xmm_sas/include -I/workspaces/xmm_sas/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(___dum)); | ~~~~~~^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ g++ -c -Wall -DGFORTRAN -std=gnu++14 -g -fPIC -DUSE_POPUP -include /workspaces/xmm_sas/include/config-std.h -imacros /workspaces/xmm_sas/config.h -I/workspaces/xmm_sas/include -I/workspaces/xmm_sas/include/utils -I. Convolver.cc In file included from Convolver.cc:20: /workspaces/xmm_sas/include/slatec.h: In function ‘void ___dum(VFunvPtr)’: /workspaces/xmm_sas/include/slatec.h:359:13: warning: infinite recursion detected [-Winfinite-recursion] 359 | static void ___dum(VFunvPtr) { | ^~~~~~ /workspaces/xmm_sas/include/slatec.h:360:15: note: recursive call 360 | ___dum(reinterpret_cast(___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/lib/libslatecxx.a /workspaces/xmm_sas/lib/libslatecf77.a /workspaces/xmm_sas/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/lib/libslatecxx.a /workspaces/xmm_sas/lib/libslatecf77.a /workspaces/xmm_sas/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/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/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/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/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/include/config-std.h -imacros /workspaces/xmm_sas/config.h -I/workspaces/xmm_sas/include -I/workspaces/xmm_sas/include/utils -I. testcurve.cc g++ -Wl,-rpath,\$ORIGIN/../lib -Wl,-rpath,\$ORIGIN/../libextra -L/workspaces/xmm_sas/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/include/config-std.h -imacros /workspaces/xmm_sas/config.h -I/workspaces/xmm_sas/include -I/workspaces/xmm_sas/include/utils -I. testErrorFunction.cc In file included from testErrorFunction.cc:18: /workspaces/xmm_sas/include/slatec.h: In function ‘void ___dum(VFunvPtr)’: /workspaces/xmm_sas/include/slatec.h:359:13: warning: infinite recursion detected [-Winfinite-recursion] 359 | static void ___dum(VFunvPtr) { | ^~~~~~ /workspaces/xmm_sas/include/slatec.h:360:15: note: recursive call 360 | ___dum(reinterpret_cast(___dum)); | ~~~~~~^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ g++ -Wl,-rpath,\$ORIGIN/../lib -Wl,-rpath,\$ORIGIN/../libextra -L/workspaces/xmm_sas/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/include/config-std.h -imacros /workspaces/xmm_sas/config.h -I/workspaces/xmm_sas/include -I/workspaces/xmm_sas/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/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/include/config-std.h -imacros /workspaces/xmm_sas/config.h -I/workspaces/xmm_sas/include -I/workspaces/xmm_sas/include/utils -I. interpolant2Dscatter.cc g++ -Wl,-rpath,\$ORIGIN/../lib -Wl,-rpath,\$ORIGIN/../libextra -L/workspaces/xmm_sas/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/include/config-std.h -imacros /workspaces/xmm_sas/config.h -I/workspaces/xmm_sas/include -I/workspaces/xmm_sas/include/utils -I. interpolant2Drect.cc g++ -Wl,-rpath,\$ORIGIN/../lib -Wl,-rpath,\$ORIGIN/../libextra -L/workspaces/xmm_sas/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/include/config-std.h -imacros /workspaces/xmm_sas/config.h -I/workspaces/xmm_sas/include -I/workspaces/xmm_sas/include/utils -I. fft_toandfro.cc g++ -Wl,-rpath,\$ORIGIN/../lib -Wl,-rpath,\$ORIGIN/../libextra -L/workspaces/xmm_sas/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/include/config-std.h -imacros /workspaces/xmm_sas/config.h -I/workspaces/xmm_sas/include -I/workspaces/xmm_sas/include/utils -I. fft_convolve.cc g++ -Wl,-rpath,\$ORIGIN/../lib -Wl,-rpath,\$ORIGIN/../libextra -L/workspaces/xmm_sas/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/include/config-std.h -imacros /workspaces/xmm_sas/config.h -I/workspaces/xmm_sas/include -I/workspaces/xmm_sas/include/utils -I. testcxxtoms660.cc In file included from testcxxtoms660.cc:24: /workspaces/xmm_sas/include/slatec.h: In function ‘void ___dum(VFunvPtr)’: /workspaces/xmm_sas/include/slatec.h:359:13: warning: infinite recursion detected [-Winfinite-recursion] 359 | static void ___dum(VFunvPtr) { | ^~~~~~ /workspaces/xmm_sas/include/slatec.h:360:15: note: recursive call 360 | ___dum(reinterpret_cast(___dum)); | ~~~~~~^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ g++ -Wl,-rpath,\$ORIGIN/../lib -Wl,-rpath,\$ORIGIN/../libextra -L/workspaces/xmm_sas/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/include/config-std.h -imacros /workspaces/xmm_sas/config.h -I/workspaces/xmm_sas/include -I/workspaces/xmm_sas/include/utils -I. cubichermite.cc g++ -Wl,-rpath,\$ORIGIN/../lib -Wl,-rpath,\$ORIGIN/../libextra -L/workspaces/xmm_sas/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