* installing *source* package ‘GeoModels’ ... ** package ‘GeoModels’ successfully unpacked and MD5 sums checked ** using staged installation ** libs using C compiler: ‘clang version 18.1.4’ using Fortran compiler: ‘flang-new version 18.1.4’ make[1]: Entering directory '/data/gannet/ripley/R/packages/tests-clang/GeoModels/src' /usr/local/clang18/bin/clang -I"/data/gannet/ripley/R/R-clang/include" -DNDEBUG -isystem /usr/local/clang18/include -I/usr/local/clang/include -fpic -O3 -Wall -pedantic -Wp,-D_FORTIFY_SOURCE=3 -c CompositeLikelihood2.c -o CompositeLikelihood2.o /usr/local/clang18/bin/clang -I"/data/gannet/ripley/R/R-clang/include" -DNDEBUG -isystem /usr/local/clang18/include -I/usr/local/clang/include -fpic -O3 -Wall -pedantic -Wp,-D_FORTIFY_SOURCE=3 -c CompositeLikelihood2_ani.c -o CompositeLikelihood2_ani.o /usr/local/clang18/bin/clang -I"/data/gannet/ripley/R/R-clang/include" -DNDEBUG -isystem /usr/local/clang18/include -I/usr/local/clang/include -fpic -O3 -Wall -pedantic -Wp,-D_FORTIFY_SOURCE=3 -c CompositeLikelihoodCond2.c -o CompositeLikelihoodCond2.o /usr/local/clang18/bin/clang -I"/data/gannet/ripley/R/R-clang/include" -DNDEBUG -isystem /usr/local/clang18/include -I/usr/local/clang/include -fpic -O3 -Wall -pedantic -Wp,-D_FORTIFY_SOURCE=3 -c CompositeLikelihoodCond2_ani.c -o CompositeLikelihoodCond2_ani.o /usr/local/clang18/bin/clang -I"/data/gannet/ripley/R/R-clang/include" -DNDEBUG -isystem /usr/local/clang18/include -I/usr/local/clang/include -fpic -O3 -Wall -pedantic -Wp,-D_FORTIFY_SOURCE=3 -c CorrelationFunction.c -o CorrelationFunction.o /usr/local/clang18/bin/clang -I"/data/gannet/ripley/R/R-clang/include" -DNDEBUG -isystem /usr/local/clang18/include -I/usr/local/clang/include -fpic -O3 -Wall -pedantic -Wp,-D_FORTIFY_SOURCE=3 -c Distributions.c -o Distributions.o /usr/local/clang18/bin/clang -I"/data/gannet/ripley/R/R-clang/include" -DNDEBUG -isystem /usr/local/clang18/include -I/usr/local/clang/include -fpic -O3 -Wall -pedantic -Wp,-D_FORTIFY_SOURCE=3 -c GeoModels_init.c -o GeoModels_init.o /usr/local/clang18/bin/clang -I"/data/gannet/ripley/R/R-clang/include" -DNDEBUG -isystem /usr/local/clang18/include -I/usr/local/clang/include -fpic -O3 -Wall -pedantic -Wp,-D_FORTIFY_SOURCE=3 -c Godambe.c -o Godambe.o Godambe.c:653:9: warning: variable 'nsub1' set but not used [-Wunused-but-set-variable] 653 | int nsub1 =0; | ^ 1 warning generated. /usr/local/clang18/bin/clang -I"/data/gannet/ripley/R/R-clang/include" -DNDEBUG -isystem /usr/local/clang18/include -I/usr/local/clang/include -fpic -O3 -Wall -pedantic -Wp,-D_FORTIFY_SOURCE=3 -c Gradient.c -o Gradient.o /usr/local/clang18/bin/flang-new -fpic -O2 -pedantic -c HypergeometricFunctions.f -o HypergeometricFunctions.o ./HypergeometricFunctions.f:43:7: portability: nonstandard usage: DOUBLE COMPLEX DOUBLE COMPLEX CHGF,A,B,Z,CONHYP ^^^^^^^^^^^^^^ ./HypergeometricFunctions.f:43:7: in the context: intrinsic type spec DOUBLE COMPLEX CHGF,A,B,Z,CONHYP ^ ./HypergeometricFunctions.f:43:7: in the context: declaration type spec DOUBLE COMPLEX CHGF,A,B,Z,CONHYP ^ ./HypergeometricFunctions.f:43:7: in the context: specification construct DOUBLE COMPLEX CHGF,A,B,Z,CONHYP ^ ./HypergeometricFunctions.f:43:7: in the context: declaration construct DOUBLE COMPLEX CHGF,A,B,Z,CONHYP ^ ./HypergeometricFunctions.f:42:7: in the context: specification part INTEGER LNCHF,I,BITS,IP ^ ./HypergeometricFunctions.f:40:7: in the context: FUNCTION subprogram FUNCTION CONHYP (A,B,Z,LNCHF,IP) ^ ./HypergeometricFunctions.f:168:7: portability: nonstandard usage: DOUBLE COMPLEX DOUBLE COMPLEX A,B,Z,FINAL,CHGF ^^^^^^^^^^^^^^ ./HypergeometricFunctions.f:168:7: in the context: intrinsic type spec DOUBLE COMPLEX A,B,Z,FINAL,CHGF ^ ./HypergeometricFunctions.f:168:7: in the context: declaration type spec DOUBLE COMPLEX A,B,Z,FINAL,CHGF ^ ./HypergeometricFunctions.f:168:7: in the context: specification construct DOUBLE COMPLEX A,B,Z,FINAL,CHGF ^ ./HypergeometricFunctions.f:168:7: in the context: declaration construct DOUBLE COMPLEX A,B,Z,FINAL,CHGF ^ ./HypergeometricFunctions.f:166:7: in the context: specification part PARAMETER (LENGTH=777) ^ ./HypergeometricFunctions.f:164:7: in the context: FUNCTION subprogram FUNCTION CHGF (A,B,Z,L,LNCHF) ^ ./HypergeometricFunctions.f:675:7: portability: nonstandard usage: DOUBLE COMPLEX DOUBLE COMPLEX C ^^^^^^^^^^^^^^ ./HypergeometricFunctions.f:675:7: in the context: intrinsic type spec DOUBLE COMPLEX C ^ ./HypergeometricFunctions.f:675:7: in the context: declaration type spec DOUBLE COMPLEX C ^ ./HypergeometricFunctions.f:675:7: in the context: specification construct DOUBLE COMPLEX C ^ ./HypergeometricFunctions.f:675:7: in the context: declaration construct DOUBLE COMPLEX C ^ ./HypergeometricFunctions.f:674:7: in the context: specification part INTEGER L,BIT,REXP,IR10,II10,LNCHF ^ ./HypergeometricFunctions.f:672:7: in the context: SUBROUTINE subprogram SUBROUTINE ARYDIV(AR,AI,BR,BI,C,L,LNCHF,RMAX,BIT) ^ ./HypergeometricFunctions.f:863:7: portability: nonstandard usage: DOUBLE COMPLEX DOUBLE COMPLEX CN ^^^^^^^^^^^^^^ ./HypergeometricFunctions.f:863:7: in the context: intrinsic type spec DOUBLE COMPLEX CN ^ ./HypergeometricFunctions.f:863:7: in the context: declaration type spec DOUBLE COMPLEX CN ^ ./HypergeometricFunctions.f:863:7: in the context: specification construct DOUBLE COMPLEX CN ^ ./HypergeometricFunctions.f:863:7: in the context: declaration construct DOUBLE COMPLEX CN ^ ./HypergeometricFunctions.f:863:7: in the context: specification part DOUBLE COMPLEX CN ^ ./HypergeometricFunctions.f:861:7: in the context: SUBROUTINE subprogram SUBROUTINE CONV12(CN,CAE) ^ ./HypergeometricFunctions.f:908:7: portability: nonstandard usage: DOUBLE COMPLEX DOUBLE COMPLEX CN ^^^^^^^^^^^^^^ ./HypergeometricFunctions.f:908:7: in the context: intrinsic type spec DOUBLE COMPLEX CN ^ ./HypergeometricFunctions.f:908:7: in the context: declaration type spec DOUBLE COMPLEX CN ^ ./HypergeometricFunctions.f:908:7: in the context: specification construct DOUBLE COMPLEX CN ^ ./HypergeometricFunctions.f:908:7: in the context: declaration construct DOUBLE COMPLEX CN ^ ./HypergeometricFunctions.f:907:7: in the context: specification part DOUBLE PRECISION CAE ^ ./HypergeometricFunctions.f:905:7: in the context: SUBROUTINE subprogram SUBROUTINE CONV21(CAE,CN) ^ ./HypergeometricFunctions.f:987:7: portability: nonstandard usage: DOUBLE COMPLEX DOUBLE COMPLEX Z, A, B, CHF, CONHYP ^^^^^^^^^^^^^^ ./HypergeometricFunctions.f:987:7: in the context: intrinsic type spec DOUBLE COMPLEX Z, A, B, CHF, CONHYP ^ ./HypergeometricFunctions.f:987:7: in the context: declaration type spec DOUBLE COMPLEX Z, A, B, CHF, CONHYP ^ ./HypergeometricFunctions.f:987:7: in the context: specification construct DOUBLE COMPLEX Z, A, B, CHF, CONHYP ^ ./HypergeometricFunctions.f:987:7: in the context: declaration construct DOUBLE COMPLEX Z, A, B, CHF, CONHYP ^ ./HypergeometricFunctions.f:985:7: in the context: specification part DOUBLE PRECISION ZRE(N), ZIM(N), CRE(N), CIM(N) ^ ./HypergeometricFunctions.f:983:7: in the context: SUBROUTINE subprogram SUBROUTINE CHFM(ZRE,ZIM,ARE,AIM,BRE,BIM,CRE,CIM,N,LNCHF,IP) ^ /usr/local/clang18/bin/clang -I"/data/gannet/ripley/R/R-clang/include" -DNDEBUG -isystem /usr/local/clang18/include -I/usr/local/clang/include -fpic -O3 -Wall -pedantic -Wp,-D_FORTIFY_SOURCE=3 -c TB.c -o TB.o /usr/local/clang18/bin/clang -I"/data/gannet/ripley/R/R-clang/include" -DNDEBUG -isystem /usr/local/clang18/include -I/usr/local/clang/include -fpic -O3 -Wall -pedantic -Wp,-D_FORTIFY_SOURCE=3 -c Utility.c -o Utility.o /usr/local/clang18/bin/flang-new -fpic -O2 -pedantic -c mvn.f -o mvn.o /usr/local/clang18/bin/flang-new -fpic -O2 -pedantic -c mvndstpack.f -o mvndstpack.o /usr/local/clang18/bin/flang-new -fpic -O2 -pedantic -c specfun.f -o specfun.o ./specfun.f:49:25: portability: nonstandard usage: TYPE*KIND syntax IMPLICIT COMPLEX*16 (C,Z) ^^^ ./specfun.f:49:18: in the context: intrinsic type spec IMPLICIT COMPLEX*16 (C,Z) ^ ./specfun.f:49:18: in the context: declaration type spec IMPLICIT COMPLEX*16 (C,Z) ^ ./specfun.f:49:9: in the context: IMPLICIT statement IMPLICIT COMPLEX*16 (C,Z) ^ ./specfun.f:48:7: in the context: implicit part IMPLICIT DOUBLE PRECISION (A-B,D-H,O-Y) ^ ./specfun.f:48:7: in the context: specification part IMPLICIT DOUBLE PRECISION (A-B,D-H,O-Y) ^ ./specfun.f:37:7: in the context: SUBROUTINE subprogram SUBROUTINE CPDSA(N,Z,CDN) ^ ./specfun.f:102:26: portability: nonstandard usage: TYPE*KIND syntax IMPLICIT COMPLEX *16 (C,S,Z,D) ^^^ ./specfun.f:102:18: in the context: intrinsic type spec IMPLICIT COMPLEX *16 (C,S,Z,D) ^ ./specfun.f:102:18: in the context: declaration type spec IMPLICIT COMPLEX *16 (C,S,Z,D) ^ ./specfun.f:102:9: in the context: IMPLICIT statement IMPLICIT COMPLEX *16 (C,S,Z,D) ^ ./specfun.f:101:7: in the context: implicit part IMPLICIT DOUBLE PRECISION (E,P,W) ^ ./specfun.f:101:7: in the context: specification part IMPLICIT DOUBLE PRECISION (E,P,W) ^ ./specfun.f:92:7: in the context: SUBROUTINE subprogram SUBROUTINE CFS(Z,ZF,ZD) ^ ./specfun.f:281:25: portability: nonstandard usage: TYPE*KIND syntax IMPLICIT COMPLEX*16 (C,Z) ^^^ ./specfun.f:281:18: in the context: intrinsic type spec IMPLICIT COMPLEX*16 (C,Z) ^ ./specfun.f:281:18: in the context: declaration type spec IMPLICIT COMPLEX*16 (C,Z) ^ ./specfun.f:281:9: in the context: IMPLICIT statement IMPLICIT COMPLEX*16 (C,Z) ^ ./specfun.f:280:7: in the context: implicit part IMPLICIT DOUBLE PRECISION (D,X,Y) ^ ./specfun.f:280:7: in the context: specification part IMPLICIT DOUBLE PRECISION (D,X,Y) ^ ./specfun.f:264:7: in the context: SUBROUTINE subprogram SUBROUTINE CLPMN(MM,M,N,X,Y,NTYPE,CPM,CPD) ^ ./specfun.f:1245:25: portability: nonstandard usage: TYPE*KIND syntax IMPLICIT COMPLEX*16 (C,Z) ^^^ ./specfun.f:1245:18: in the context: intrinsic type spec IMPLICIT COMPLEX*16 (C,Z) ^ ./specfun.f:1245:18: in the context: declaration type spec IMPLICIT COMPLEX*16 (C,Z) ^ ./specfun.f:1245:9: in the context: IMPLICIT statement IMPLICIT COMPLEX*16 (C,Z) ^ ./specfun.f:1244:7: in the context: implicit part IMPLICIT DOUBLE PRECISION (A,B,D-H,O-Y) ^ ./specfun.f:1244:7: in the context: specification part IMPLICIT DOUBLE PRECISION (A,B,D-H,O-Y) ^ ./specfun.f:1228:7: in the context: SUBROUTINE subprogram SUBROUTINE CJYLV(V,Z,CBJV,CDJV,CBYV,CDYV) ^ ./specfun.f:1582:17: portability: nonstandard usage: TYPE*KIND syntax COMPLEX *16 Z,CER,CDER ^^^ ./specfun.f:1582:9: in the context: intrinsic type spec COMPLEX *16 Z,CER,CDER ^ ./specfun.f:1582:9: in the context: declaration type spec COMPLEX *16 Z,CER,CDER ^ ./specfun.f:1582:7: in the context: specification construct COMPLEX *16 Z,CER,CDER ^ ./specfun.f:1582:7: in the context: declaration construct COMPLEX *16 Z,CER,CDER ^ ./specfun.f:1581:7: in the context: specification part IMPLICIT DOUBLE PRECISION (A-H,O-Z) ^ ./specfun.f:1571:7: in the context: SUBROUTINE subprogram SUBROUTINE CERF(Z,CER,CDER) ^ ./specfun.f:2007:25: portability: nonstandard usage: TYPE*KIND syntax IMPLICIT COMPLEX*16 (C,Z) ^^^ ./specfun.f:2007:18: in the context: intrinsic type spec IMPLICIT COMPLEX*16 (C,Z) ^ ./specfun.f:2007:18: in the context: declaration type spec IMPLICIT COMPLEX*16 (C,Z) ^ ./specfun.f:2007:9: in the context: IMPLICIT statement IMPLICIT COMPLEX*16 (C,Z) ^ ./specfun.f:2006:7: in the context: implicit part IMPLICIT DOUBLE PRECISION (X,Y) ^ ./specfun.f:2006:7: in the context: specification part IMPLICIT DOUBLE PRECISION (X,Y) ^ ./specfun.f:1993:7: in the context: SUBROUTINE subprogram SUBROUTINE CLQN(N,X,Y,CQN,CQD) ^ ./specfun.f:2216:26: portability: nonstandard usage: TYPE*KIND syntax IMPLICIT COMPLEX *16 (C,Z) ^^^ ./specfun.f:2216:18: in the context: intrinsic type spec IMPLICIT COMPLEX *16 (C,Z) ^ ./specfun.f:2216:18: in the context: declaration type spec IMPLICIT COMPLEX *16 (C,Z) ^ ./specfun.f:2216:9: in the context: IMPLICIT statement IMPLICIT COMPLEX *16 (C,Z) ^ ./specfun.f:2216:7: in the context: implicit part IMPLICIT COMPLEX *16 (C,Z) ^ ./specfun.f:2216:7: in the context: specification part IMPLICIT COMPLEX *16 (C,Z) ^ ./specfun.f:2207:7: in the context: SUBROUTINE subprogram SUBROUTINE CERROR(Z,CER) ^ ./specfun.f:3099:25: portability: nonstandard usage: TYPE*KIND syntax IMPLICIT COMPLEX*16 (C,Z) ^^^ ./specfun.f:3099:18: in the context: intrinsic type spec IMPLICIT COMPLEX*16 (C,Z) ^ ./specfun.f:3099:18: in the context: declaration type spec IMPLICIT COMPLEX*16 (C,Z) ^ ./specfun.f:3099:9: in the context: IMPLICIT statement IMPLICIT COMPLEX*16 (C,Z) ^ ./specfun.f:3098:7: in the context: implicit part IMPLICIT DOUBLE PRECISION (A,B,G,O-Y) ^ ./specfun.f:3098:7: in the context: specification part IMPLICIT DOUBLE PRECISION (A,B,G,O-Y) ^ ./specfun.f:3079:7: in the context: SUBROUTINE subprogram SUBROUTINE CJYVA(V,Z,VM,CBJ,CDJ,CBY,CDY) ^ ./specfun.f:3363:25: portability: nonstandard usage: TYPE*KIND syntax IMPLICIT COMPLEX*16 (C,Z) ^^^ ./specfun.f:3363:18: in the context: intrinsic type spec IMPLICIT COMPLEX*16 (C,Z) ^ ./specfun.f:3363:18: in the context: declaration type spec IMPLICIT COMPLEX*16 (C,Z) ^ ./specfun.f:3363:9: in the context: IMPLICIT statement IMPLICIT COMPLEX*16 (C,Z) ^ ./specfun.f:3362:7: in the context: implicit part IMPLICIT DOUBLE PRECISION (A,B,G,O-Y) ^ ./specfun.f:3362:7: in the context: specification part IMPLICIT DOUBLE PRECISION (A,B,G,O-Y) ^ ./specfun.f:3343:7: in the context: SUBROUTINE subprogram SUBROUTINE CJYVB(V,Z,VM,CBJ,CDJ,CBY,CDY) ^ ./specfun.f:4567:26: portability: nonstandard usage: TYPE*KIND syntax IMPLICIT COMPLEX *16 (C,Z) ^^^ ./specfun.f:4567:18: in the context: intrinsic type spec IMPLICIT COMPLEX *16 (C,Z) ^ ./specfun.f:4567:18: in the context: declaration type spec IMPLICIT COMPLEX *16 (C,Z) ^ ./specfun.f:4567:9: in the context: IMPLICIT statement IMPLICIT COMPLEX *16 (C,Z) ^ ./specfun.f:4566:7: in the context: implicit part IMPLICIT DOUBLE PRECISION (E,P,W) ^ ./specfun.f:4566:7: in the context: specification part IMPLICIT DOUBLE PRECISION (E,P,W) ^ ./specfun.f:4556:7: in the context: SUBROUTINE subprogram SUBROUTINE CERZO(NT,ZO) ^ ./specfun.f:4963:26: portability: nonstandard usage: TYPE*KIND syntax IMPLICIT COMPLEX *16 (C,Z) ^^^ ./specfun.f:4963:18: in the context: intrinsic type spec IMPLICIT COMPLEX *16 (C,Z) ^ ./specfun.f:4963:18: in the context: declaration type spec IMPLICIT COMPLEX *16 (C,Z) ^ ./specfun.f:4963:9: in the context: IMPLICIT statement IMPLICIT COMPLEX *16 (C,Z) ^ ./specfun.f:4962:7: in the context: implicit part IMPLICIT DOUBLE PRECISION (X,Y) ^ ./specfun.f:4962:7: in the context: specification part IMPLICIT DOUBLE PRECISION (X,Y) ^ ./specfun.f:4949:7: in the context: SUBROUTINE subprogram SUBROUTINE CLPN(N,X,Y,CPN,CPD) ^ ./specfun.f:5123:25: portability: nonstandard usage: TYPE*KIND syntax IMPLICIT COMPLEX*16 (C,Z) ^^^ ./specfun.f:5123:18: in the context: intrinsic type spec IMPLICIT COMPLEX*16 (C,Z) ^ ./specfun.f:5123:18: in the context: declaration type spec IMPLICIT COMPLEX*16 (C,Z) ^ ./specfun.f:5123:9: in the context: IMPLICIT statement IMPLICIT COMPLEX*16 (C,Z) ^ ./specfun.f:5122:7: in the context: implicit part IMPLICIT DOUBLE PRECISION (A,B,D-H,O-Y) ^ ./specfun.f:5122:7: in the context: specification part IMPLICIT DOUBLE PRECISION (A,B,D-H,O-Y) ^ ./specfun.f:5106:7: in the context: SUBROUTINE subprogram SUBROUTINE CIKLV(V,Z,CBIV,CDIV,CBKV,CDKV) ^ ./specfun.f:5317:9: portability: nonstandard usage: DOUBLE COMPLEX DOUBLE COMPLEX Z, CEI ^^^^^^^^^^^^^^ ./specfun.f:5317:9: in the context: intrinsic type spec DOUBLE COMPLEX Z, CEI ^ ./specfun.f:5317:9: in the context: declaration type spec DOUBLE COMPLEX Z, CEI ^ ./specfun.f:5317:7: in the context: specification construct DOUBLE COMPLEX Z, CEI ^ ./specfun.f:5317:7: in the context: declaration construct DOUBLE COMPLEX Z, CEI ^ ./specfun.f:5316:7: in the context: specification part IMPLICIT NONE ^ ./specfun.f:5308:7: in the context: SUBROUTINE subprogram SUBROUTINE EIXZ(Z,CEI) ^ ./specfun.f:5384:25: portability: nonstandard usage: TYPE*KIND syntax IMPLICIT COMPLEX*16 (C) ^^^ ./specfun.f:5384:18: in the context: intrinsic type spec IMPLICIT COMPLEX*16 (C) ^ ./specfun.f:5384:18: in the context: declaration type spec IMPLICIT COMPLEX*16 (C) ^ ./specfun.f:5384:9: in the context: IMPLICIT statement IMPLICIT COMPLEX*16 (C) ^ ./specfun.f:5383:7: in the context: implicit part IMPLICIT DOUBLE PRECISION (A-B,D-H,O-Z) ^ ./specfun.f:5383:7: in the context: specification part IMPLICIT DOUBLE PRECISION (A-B,D-H,O-Z) ^ ./specfun.f:5371:7: in the context: SUBROUTINE subprogram SUBROUTINE CHGM(A,B,X,HG) ^ ./specfun.f:5683:26: portability: nonstandard usage: TYPE*KIND syntax IMPLICIT COMPLEX *16 (C,Z) ^^^ ./specfun.f:5683:18: in the context: intrinsic type spec IMPLICIT COMPLEX *16 (C,Z) ^ ./specfun.f:5683:18: in the context: declaration type spec IMPLICIT COMPLEX *16 (C,Z) ^ ./specfun.f:5683:9: in the context: IMPLICIT statement IMPLICIT COMPLEX *16 (C,Z) ^ ./specfun.f:5682:7: in the context: implicit part IMPLICIT DOUBLE PRECISION (A,B,D-H,O-Y) ^ ./specfun.f:5682:7: in the context: specification part IMPLICIT DOUBLE PRECISION (A,B,D-H,O-Y) ^ ./specfun.f:5669:7: in the context: SUBROUTINE subprogram SUBROUTINE CCHG(A,B,Z,CHG) ^ ./specfun.f:5811:26: portability: nonstandard usage: TYPE*KIND syntax IMPLICIT COMPLEX *16 (Z) ^^^ ./specfun.f:5811:18: in the context: intrinsic type spec IMPLICIT COMPLEX *16 (Z) ^ ./specfun.f:5811:18: in the context: declaration type spec IMPLICIT COMPLEX *16 (Z) ^ ./specfun.f:5811:9: in the context: IMPLICIT statement IMPLICIT COMPLEX *16 (Z) ^ ./specfun.f:5810:7: in the context: implicit part IMPLICIT DOUBLE PRECISION (A-H,O-Y) ^ ./specfun.f:5810:7: in the context: specification part IMPLICIT DOUBLE PRECISION (A-H,O-Y) ^ ./specfun.f:5794:7: in the context: SUBROUTINE subprogram SUBROUTINE HYGFZ(A,B,C,Z,ZHF,ISFER) ^ ./specfun.f:6294:25: portability: nonstandard usage: TYPE*KIND syntax IMPLICIT COMPLEX*16 (C,Z) ^^^ ./specfun.f:6294:18: in the context: intrinsic type spec IMPLICIT COMPLEX*16 (C,Z) ^ ./specfun.f:6294:18: in the context: declaration type spec IMPLICIT COMPLEX*16 (C,Z) ^ ./specfun.f:6294:9: in the context: IMPLICIT statement IMPLICIT COMPLEX*16 (C,Z) ^ ./specfun.f:6293:7: in the context: implicit part IMPLICIT DOUBLE PRECISION (A,B,D-H,O-Y) ^ ./specfun.f:6293:7: in the context: specification part IMPLICIT DOUBLE PRECISION (A,B,D-H,O-Y) ^ ./specfun.f:6276:7: in the context: SUBROUTINE subprogram SUBROUTINE CJYNB(N,Z,NM,CBJ,CDJ,CBY,CDY) ^ ./specfun.f:6660:25: portability: nonstandard usage: TYPE*KIND syntax IMPLICIT COMPLEX*16 (C,Z) ^^^ ./specfun.f:6660:18: in the context: intrinsic type spec IMPLICIT COMPLEX*16 (C,Z) ^ ./specfun.f:6660:18: in the context: declaration type spec IMPLICIT COMPLEX*16 (C,Z) ^ ./specfun.f:6660:9: in the context: IMPLICIT statement IMPLICIT COMPLEX*16 (C,Z) ^ ./specfun.f:6659:7: in the context: implicit part IMPLICIT DOUBLE PRECISION (A,B,E,P,R,W) ^ ./specfun.f:6659:7: in the context: specification part IMPLICIT DOUBLE PRECISION (A,B,E,P,R,W) ^ ./specfun.f:6645:7: in the context: SUBROUTINE subprogram SUBROUTINE CY01(KF,Z,ZF,ZD) ^ ./specfun.f:7266:25: portability: nonstandard usage: TYPE*KIND syntax IMPLICIT COMPLEX*16 (C,Z) ^^^ ./specfun.f:7266:18: in the context: intrinsic type spec IMPLICIT COMPLEX*16 (C,Z) ^ ./specfun.f:7266:18: in the context: declaration type spec IMPLICIT COMPLEX*16 (C,Z) ^ ./specfun.f:7266:9: in the context: IMPLICIT statement IMPLICIT COMPLEX*16 (C,Z) ^ ./specfun.f:7265:7: in the context: implicit part IMPLICIT DOUBLE PRECISION (A-B,D-H,O-Y) ^ ./specfun.f:7265:7: in the context: specification part IMPLICIT DOUBLE PRECISION (A-B,D-H,O-Y) ^ ./specfun.f:7255:7: in the context: SUBROUTINE subprogram SUBROUTINE CPDLA(N,Z,CDN) ^ ./specfun.f:7298:26: portability: nonstandard usage: TYPE*KIND syntax IMPLICIT COMPLEX *16 (C,Z) ^^^ ./specfun.f:7298:18: in the context: intrinsic type spec IMPLICIT COMPLEX *16 (C,Z) ^ ./specfun.f:7298:18: in the context: declaration type spec IMPLICIT COMPLEX *16 (C,Z) ^ ./specfun.f:7298:9: in the context: IMPLICIT statement IMPLICIT COMPLEX *16 (C,Z) ^ ./specfun.f:7297:7: in the context: implicit part IMPLICIT DOUBLE PRECISION (E,P,W) ^ ./specfun.f:7297:7: in the context: specification part IMPLICIT DOUBLE PRECISION (E,P,W) ^ ./specfun.f:7283:7: in the context: SUBROUTINE subprogram SUBROUTINE FCSZO(KF,NT,ZO) ^ ./specfun.f:8000:25: portability: nonstandard usage: TYPE*KIND syntax IMPLICIT COMPLEX*16 (C,Z) ^^^ ./specfun.f:8000:18: in the context: intrinsic type spec IMPLICIT COMPLEX*16 (C,Z) ^ ./specfun.f:8000:18: in the context: declaration type spec IMPLICIT COMPLEX*16 (C,Z) ^ ./specfun.f:8000:9: in the context: IMPLICIT statement IMPLICIT COMPLEX*16 (C,Z) ^ ./specfun.f:7999:7: in the context: implicit part IMPLICIT DOUBLE PRECISION (A-B,D-H,O-Y) ^ ./specfun.f:7999:7: in the context: specification part IMPLICIT DOUBLE PRECISION (A-B,D-H,O-Y) ^ ./specfun.f:7985:7: in the context: SUBROUTINE subprogram SUBROUTINE CPBDN(N,Z,CPB,CPD) ^ ./specfun.f:8521:26: portability: nonstandard usage: TYPE*KIND syntax IMPLICIT COMPLEX *16 (C,Z) ^^^ ./specfun.f:8521:18: in the context: intrinsic type spec IMPLICIT COMPLEX *16 (C,Z) ^ ./specfun.f:8521:18: in the context: declaration type spec IMPLICIT COMPLEX *16 (C,Z) ^ ./specfun.f:8521:9: in the context: IMPLICIT statement IMPLICIT COMPLEX *16 (C,Z) ^ ./specfun.f:8520:7: in the context: implicit part IMPLICIT DOUBLE PRECISION (A,B,D-H,O-Y) ^ ./specfun.f:8520:7: in the context: specification part IMPLICIT DOUBLE PRECISION (A,B,D-H,O-Y) ^ ./specfun.f:8505:7: in the context: SUBROUTINE subprogram SUBROUTINE PBWA(A,X,W1F,W1D,W2F,W2D) ^ ./specfun.f:8768:25: portability: nonstandard usage: TYPE*KIND syntax IMPLICIT COMPLEX*16 (C,Z) ^^^ ./specfun.f:8768:18: in the context: intrinsic type spec IMPLICIT COMPLEX*16 (C,Z) ^ ./specfun.f:8768:18: in the context: declaration type spec IMPLICIT COMPLEX*16 (C,Z) ^ ./specfun.f:8768:9: in the context: IMPLICIT statement IMPLICIT COMPLEX*16 (C,Z) ^ ./specfun.f:8768:7: in the context: implicit part IMPLICIT COMPLEX*16 (C,Z) ^ ./specfun.f:8768:7: in the context: specification part IMPLICIT COMPLEX*16 (C,Z) ^ ./specfun.f:8760:7: in the context: SUBROUTINE subprogram SUBROUTINE E1Z(Z,CE1) ^ ./specfun.f:9425:25: portability: nonstandard usage: TYPE*KIND syntax IMPLICIT COMPLEX*16 (C,Z) ^^^ ./specfun.f:9425:18: in the context: intrinsic type spec IMPLICIT COMPLEX*16 (C,Z) ^ ./specfun.f:9425:18: in the context: declaration type spec IMPLICIT COMPLEX*16 (C,Z) ^ ./specfun.f:9425:9: in the context: IMPLICIT statement IMPLICIT COMPLEX*16 (C,Z) ^ ./specfun.f:9424:7: in the context: implicit part IMPLICIT DOUBLE PRECISION (H,O-Y) ^ ./specfun.f:9424:7: in the context: specification part IMPLICIT DOUBLE PRECISION (H,O-Y) ^ ./specfun.f:9404:7: in the context: SUBROUTINE subprogram SUBROUTINE CYZO(NT,KF,KC,ZO,ZV) ^ ./specfun.f:9967:25: portability: nonstandard usage: TYPE*KIND syntax IMPLICIT COMPLEX*16 (C,Z) ^^^ ./specfun.f:9967:18: in the context: intrinsic type spec IMPLICIT COMPLEX*16 (C,Z) ^ ./specfun.f:9967:18: in the context: declaration type spec IMPLICIT COMPLEX*16 (C,Z) ^ ./specfun.f:9967:9: in the context: IMPLICIT statement IMPLICIT COMPLEX*16 (C,Z) ^ ./specfun.f:9966:7: in the context: implicit part IMPLICIT DOUBLE PRECISION (A,B,D-H,O-Y) ^ ./specfun.f:9966:7: in the context: specification part IMPLICIT DOUBLE PRECISION (A,B,D-H,O-Y) ^ ./specfun.f:9948:7: in the context: SUBROUTINE subprogram SUBROUTINE CH12N(N,Z,NM,CHF1,CHD1,CHF2,CHD2) ^ ./specfun.f:10608:25: portability: nonstandard usage: TYPE*KIND syntax IMPLICIT COMPLEX*16 (C,Z) ^^^ ./specfun.f:10608:18: in the context: intrinsic type spec IMPLICIT COMPLEX*16 (C,Z) ^ ./specfun.f:10608:18: in the context: declaration type spec IMPLICIT COMPLEX*16 (C,Z) ^ ./specfun.f:10608:9: in the context: IMPLICIT statement IMPLICIT COMPLEX*16 (C,Z) ^ ./specfun.f:10607:7: in the context: implicit part IMPLICIT DOUBLE PRECISION (A,D-H,O-Y) ^ ./specfun.f:10607:7: in the context: specification part IMPLICIT DOUBLE PRECISION (A,D-H,O-Y) ^ ./specfun.f:10587:7: in the context: SUBROUTINE subprogram SUBROUTINE CIKVB(V,Z,VM,CBI,CDI,CBK,CDK) ^ ./specfun.f:10770:25: portability: nonstandard usage: TYPE*KIND syntax IMPLICIT COMPLEX*16 (C,Z) ^^^ ./specfun.f:10770:18: in the context: intrinsic type spec IMPLICIT COMPLEX*16 (C,Z) ^ ./specfun.f:10770:18: in the context: declaration type spec IMPLICIT COMPLEX*16 (C,Z) ^ ./specfun.f:10770:9: in the context: IMPLICIT statement IMPLICIT COMPLEX*16 (C,Z) ^ ./specfun.f:10769:7: in the context: implicit part IMPLICIT DOUBLE PRECISION (A,G,P,R,V,W) ^ ./specfun.f:10769:7: in the context: specification part IMPLICIT DOUBLE PRECISION (A,G,P,R,V,W) ^ ./specfun.f:10749:7: in the context: SUBROUTINE subprogram SUBROUTINE CIKVA(V,Z,VM,CBI,CDI,CBK,CDK) ^ ./specfun.f:10928:26: portability: nonstandard usage: TYPE*KIND syntax IMPLICIT COMPLEX *16 (C,S,Z,D) ^^^ ./specfun.f:10928:18: in the context: intrinsic type spec IMPLICIT COMPLEX *16 (C,S,Z,D) ^ ./specfun.f:10928:18: in the context: declaration type spec IMPLICIT COMPLEX *16 (C,S,Z,D) ^ ./specfun.f:10928:9: in the context: IMPLICIT statement IMPLICIT COMPLEX *16 (C,S,Z,D) ^ ./specfun.f:10927:7: in the context: implicit part IMPLICIT DOUBLE PRECISION (E,P,W) ^ ./specfun.f:10927:7: in the context: specification part IMPLICIT DOUBLE PRECISION (E,P,W) ^ ./specfun.f:10918:7: in the context: SUBROUTINE subprogram SUBROUTINE CFC(Z,ZF,ZD) ^ ./specfun.f:11570:25: portability: nonstandard usage: TYPE*KIND syntax IMPLICIT COMPLEX*16 (C,Z) ^^^ ./specfun.f:11570:18: in the context: intrinsic type spec IMPLICIT COMPLEX*16 (C,Z) ^ ./specfun.f:11570:18: in the context: declaration type spec IMPLICIT COMPLEX*16 (C,Z) ^ ./specfun.f:11570:9: in the context: IMPLICIT statement IMPLICIT COMPLEX*16 (C,Z) ^ ./specfun.f:11569:7: in the context: implicit part IMPLICIT DOUBLE PRECISION (X,Y) ^ ./specfun.f:11569:7: in the context: specification part IMPLICIT DOUBLE PRECISION (X,Y) ^ ./specfun.f:11554:7: in the context: SUBROUTINE subprogram SUBROUTINE CLQMN(MM,M,N,X,Y,CQM,CQD) ^ ./specfun.f:11773:25: portability: nonstandard usage: TYPE*KIND syntax IMPLICIT COMPLEX*16 (C,Z) ^^^ ./specfun.f:11773:18: in the context: intrinsic type spec IMPLICIT COMPLEX*16 (C,Z) ^ ./specfun.f:11773:18: in the context: declaration type spec IMPLICIT COMPLEX*16 (C,Z) ^ ./specfun.f:11773:9: in the context: IMPLICIT statement IMPLICIT COMPLEX*16 (C,Z) ^ ./specfun.f:11772:7: in the context: implicit part IMPLICIT DOUBLE PRECISION (A,B,D-H,O-Y) ^ ./specfun.f:11772:7: in the context: specification part IMPLICIT DOUBLE PRECISION (A,B,D-H,O-Y) ^ ./specfun.f:11755:7: in the context: SUBROUTINE subprogram SUBROUTINE CIKNB(N,Z,NM,CBI,CDI,CBK,CDK) ^ ./specfun.f:11882:25: portability: nonstandard usage: TYPE*KIND syntax IMPLICIT COMPLEX*16 (C,Z) ^^^ ./specfun.f:11882:18: in the context: intrinsic type spec IMPLICIT COMPLEX*16 (C,Z) ^ ./specfun.f:11882:18: in the context: declaration type spec IMPLICIT COMPLEX*16 (C,Z) ^ ./specfun.f:11882:9: in the context: IMPLICIT statement IMPLICIT COMPLEX*16 (C,Z) ^ ./specfun.f:11881:7: in the context: implicit part IMPLICIT DOUBLE PRECISION (A,B,P,W,X,Y) ^ ./specfun.f:11881:7: in the context: specification part IMPLICIT DOUBLE PRECISION (A,B,P,W,X,Y) ^ ./specfun.f:11863:7: in the context: SUBROUTINE subprogram SUBROUTINE CIKNA(N,Z,NM,CBI,CDI,CBK,CDK) ^ ./specfun.f:12091:25: portability: nonstandard usage: TYPE*KIND syntax IMPLICIT COMPLEX*16 (C,Z) ^^^ ./specfun.f:12091:18: in the context: intrinsic type spec IMPLICIT COMPLEX*16 (C,Z) ^ ./specfun.f:12091:18: in the context: declaration type spec IMPLICIT COMPLEX*16 (C,Z) ^ ./specfun.f:12091:9: in the context: IMPLICIT statement IMPLICIT COMPLEX*16 (C,Z) ^ ./specfun.f:12090:7: in the context: implicit part IMPLICIT DOUBLE PRECISION (A,B,D-H,O-Y) ^ ./specfun.f:12090:7: in the context: specification part IMPLICIT DOUBLE PRECISION (A,B,D-H,O-Y) ^ ./specfun.f:12073:7: in the context: SUBROUTINE subprogram SUBROUTINE CIK01(Z,CBI0,CDI0,CBI1,CDI1,CBK0,CDK0,CBK1,CDK1) ^ /usr/local/clang18/bin/clang -I"/data/gannet/ripley/R/R-clang/include" -DNDEBUG -isystem /usr/local/clang18/include -I/usr/local/clang/include -fpic -O3 -Wall -pedantic -Wp,-D_FORTIFY_SOURCE=3 -c weightedleastsquare.c -o weightedleastsquare.o ./specfun.f:115:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 10 K=1,80 ^^^^^^^^^^^^ ./specfun.f:121:1: DO loop currently ends at statement: 10 WB0=WB ^^^^^^^^^^^^^^^^^^^^ ./specfun.f:127:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 15 K=M,0,-1 ^^^^^^^^^^^^^^ ./specfun.f:131:1: DO loop currently ends at statement: 15 CF0=CF ^^^^^^^^^^^^^^^^^^^^ ./specfun.f:155:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 20 K=1,20 ^^^^^^^^^^^^ ./specfun.f:157:1: DO loop currently ends at statement: 20 CF=CF+CR ^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:160:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 25 K=1,12 ^^^^^^^^^^^^ ./specfun.f:162:1: DO loop currently ends at statement: 25 CG=CG+CR ^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:225:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 25 K=KM,0,-1 ^^^^^^^^^^^^^^^ ./specfun.f:229:1: DO loop currently ends at statement: 25 QF1=QF0 ^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:230:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 30 K=0,N ^^^^^^^^^^^ ./specfun.f:231:1: DO loop currently ends at statement: 30 QM(0,K)=Q0*QM(0,K)/QF0 ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:234:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 35 K=KM,0,-1 ^^^^^^^^^^^^^^^ ./specfun.f:238:1: DO loop currently ends at statement: 35 QF1=QF0 ^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:240:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 40 K=0,N ^^^^^^^^^^^ ./specfun.f:241:1: DO loop currently ends at statement: 40 QM(1,K)=Q10*QM(1,K)/QF0 ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:253:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 50 J=1,N ^^^^^^^^^^^ ./specfun.f:254:1: DO loop currently ends at statement: 50 QD(0,J)=LS*J*(QM(0,J-1)-X*QM(0,J))/XS ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:284:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 10 I=0,N ^^^^^^^^^^^ ./specfun.f:287:1: DO loop currently ends at statement: 10 CPD(J,I)=(0.0D0,0.0D0) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:285:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 10 J=0,M ^^^^^^^^^^^ ./specfun.f:287:1: DO loop currently ends at statement: 10 CPD(J,I)=(0.0D0,0.0D0) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:291:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 15 I=1,N ^^^^^^^^^^^ ./specfun.f:293:1: DO loop currently ends at statement: 15 CPD(0,I)=0.5D0*I*(I+1)*X**(I+1) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:318:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 25 I=1,M ^^^^^^^^^^^ ./specfun.f:320:1: DO loop currently ends at statement: 25 CPM(I,I)=(2.0D0*I-1.0D0)*ZQ*CPM(I-1,I-1) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:321:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 30 I=0,MIN(M,N-1) ^^^^^^^^^^^^^^^^^^^^ ./specfun.f:323:1: DO loop currently ends at statement: 30 CPM(I,I+1)=(2.0D0*I+1.0D0)*Z*CPM(I,I) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:331:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 40 J=1,N ^^^^^^^^^^^ ./specfun.f:333:1: DO loop currently ends at statement: 40 CPD(0,J)=LS*J*(Z*CPM(0,J)-CPM(0,J-1))/ZS ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:441:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 45 I=1,NM ^^^^^^^^^^^^ ./specfun.f:506:1: DO loop currently ends at statement: 45 L0=L2 ^^^^^^^^^^^^^^^^ ./specfun.f:484:15: portability: A DO loop should terminate with an END DO or CONTINUE DO 40 K=1,L ^^^^^^^^^^^ ./specfun.f:488:1: DO loop currently ends at statement: 40 P(K)=P1(K) ^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:529:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 10 J=2,N2 ^^^^^^^^^^^^ ./specfun.f:530:1: DO loop currently ends at statement: 10 U(J)=C*C ^^^^^^^^^^^^^^^^^^^ ./specfun.f:531:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 15 J=1,N2 ^^^^^^^^^^^^ ./specfun.f:532:1: DO loop currently ends at statement: 15 V(J)=(2.0*J-1.0-IP)*(2.0*(J-M)-IP)+M*(M-1.0)-CV ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:533:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 20 J=1,NM-1 ^^^^^^^^^^^^^^ ./specfun.f:534:1: DO loop currently ends at statement: 20 W(J)=(2.0*J-IP)*(2.0*J+1.0-IP) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:543:18: portability: A DO loop should terminate with an END DO or CONTINUE DO 25 J=1,K ^^^^^^^^^^^ ./specfun.f:544:1: DO loop currently ends at statement: 25 R1=R1*(I+M-J)/J ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:559:18: portability: A DO loop should terminate with an END DO or CONTINUE DO 45 J=1,K ^^^^^^^^^^^ ./specfun.f:560:1: DO loop currently ends at statement: 45 R1=R1*(I+M-J)/J ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:571:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 65 K=2,N2 ^^^^^^^^^^^^ ./specfun.f:574:1: DO loop currently ends at statement: 65 BK(K)=(BK(K)-BK(K-1)*U(K))/T ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:575:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 70 K=N2-1,1,-1 ^^^^^^^^^^^^^^^^^ ./specfun.f:576:1: DO loop currently ends at statement: 70 BK(K)=BK(K)-W(K)*BK(K+1) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:617:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 10 K=1,NM ^^^^^^^^^^^^ ./specfun.f:621:1: DO loop currently ends at statement: 10 SW=SU0 ^^^^^^^^^^^^^^^^ ./specfun.f:623:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 20 K=1,NM ^^^^^^^^^^^^ ./specfun.f:627:1: DO loop currently ends at statement: 20 SW=SD0 ^^^^^^^^^^^^^^^^ ./specfun.f:630:11: portability: A DO loop should terminate with an END DO or CONTINUE DO 30 K=1,M ^^^^^^^^^^^ ./specfun.f:634:1: DO loop currently ends at statement: 30 SD1=SD1+DN(K)*QD(J) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:641:14: portability: A DO loop should terminate with an END DO or CONTINUE DO 35 J1=1,J ^^^^^^^^^^^^ ./specfun.f:642:1: DO loop currently ends at statement: 35 R1=(M+J1)*R1 ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:644:14: portability: A DO loop should terminate with an END DO or CONTINUE DO 40 J2=1,M-J-2 ^^^^^^^^^^^^^^^^ ./specfun.f:645:1: DO loop currently ends at statement: 40 R2=J2*R2 ^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:648:14: portability: A DO loop should terminate with an END DO or CONTINUE DO 45 L1=1,J ^^^^^^^^^^^^ ./specfun.f:650:1: DO loop currently ends at statement: 45 SF=SF+R3 ^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:659:14: portability: A DO loop should terminate with an END DO or CONTINUE DO 50 L1=1,J-1 ^^^^^^^^^^^^^^ ./specfun.f:662:1: DO loop currently ends at statement: 50 SD=SD+R4 ^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:669:11: portability: A DO loop should terminate with an END DO or CONTINUE DO 60 K=KI,NM3 ^^^^^^^^^^^^^^ ./specfun.f:673:1: DO loop currently ends at statement: 60 SW=SU2 ^^^^^^^^^^^^^^^^^^^ ./specfun.f:675:11: portability: A DO loop should terminate with an END DO or CONTINUE DO 70 K=KI,NM3 ^^^^^^^^^^^^^^ ./specfun.f:679:1: DO loop currently ends at statement: 70 SW=SD2 ^^^^^^^^^^^^^^^^^^^ ./specfun.f:706:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 20 M=4,N,2 ^^^^^^^^^^^^^ ./specfun.f:714:1: DO loop currently ends at statement: 20 BN(M)=R1*R2 ^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:732:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 30 M=2,N ^^^^^^^^^^^ ./specfun.f:739:1: DO loop currently ends at statement: 30 BN(M)=S ^^^^^^^^^^^^^^^^^^ ./specfun.f:734:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 20 K=2,M-1 ^^^^^^^^^^^^^ ./specfun.f:738:1: DO loop currently ends at statement: 20 S=S-R*BN(K) ^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:736:15: portability: A DO loop should terminate with an END DO or CONTINUE DO 10 J=2,K ^^^^^^^^^^^ ./specfun.f:737:1: DO loop currently ends at statement: 10 R=R*(J+M-K)/J ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:740:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 40 M=3,N,2 ^^^^^^^^^^^^^ ./specfun.f:741:1: DO loop currently ends at statement: 40 BN(M)=0.0D0 ^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:760:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 20 I=1,M ^^^^^^^^^^^ ./specfun.f:767:1: DO loop currently ends at statement: 20 AP(I+1)=-R*S ^^^^^^^^^^^^^^^^^^^^ ./specfun.f:762:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 15 L=1,I ^^^^^^^^^^^ ./specfun.f:766:1: DO loop currently ends at statement: 15 S=S+SK*AP(I-L+1) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:764:15: portability: A DO loop should terminate with an END DO or CONTINUE DO 10 K=0,L ^^^^^^^^^^^ ./specfun.f:765:1: DO loop currently ends at statement: 10 SK=SK+CK(K+1)*CK(L-K+1) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:769:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 30 L=1,M ^^^^^^^^^^^ ./specfun.f:773:1: DO loop currently ends at statement: 30 QS0=QS0+AP(M-L+1)*R ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:771:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 25 K=1,L ^^^^^^^^^^^ ./specfun.f:772:1: DO loop currently ends at statement: 25 R=R*(2.0D0*K+IP)*(2.0D0*K-1.0D0+IP)/(2.0D0*K)**2 ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:1022:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 10 IT=1,20 ^^^^^^^^^^^^^ ./specfun.f:1029:2: DO loop currently ends at statement: 10 F1=F ^^^^^^^^^^^^^^ ./specfun.f:1061:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 10 IT=1,20 ^^^^^^^^^^^^^ ./specfun.f:1068:1: DO loop currently ends at statement: 10 F1=F ^^^^^^^^^^^^^^^ ./specfun.f:1212:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 55 K=1,10 ^^^^^^^^^^^^ ./specfun.f:1214:1: DO loop currently ends at statement: 55 G0=G0+R0 ^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:1217:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 60 K=1,10 ^^^^^^^^^^^^ ./specfun.f:1219:1: DO loop currently ends at statement: 60 G1=G1+R1 ^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:1257:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 15 K=1,KM ^^^^^^^^^^^^ ./specfun.f:1263:1: DO loop currently ends at statement: 15 CF(K)=CF(K)*CT**K ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:1261:15: portability: A DO loop should terminate with an END DO or CONTINUE DO 10 I=LF-1,L0,-1 ^^^^^^^^^^^^^^^^^^ ./specfun.f:1262:1: DO loop currently ends at statement: 10 CF(K)=CF(K)*CT2+A(I) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:1266:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 20 K=1,KM ^^^^^^^^^^^^ ./specfun.f:1267:1: DO loop currently ends at statement: 20 CSJ=CSJ+CF(K)*VR**K ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:1271:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 25 K=1,KM ^^^^^^^^^^^^ ./specfun.f:1272:1: DO loop currently ends at statement: 25 CSY=CSY+(-1)**K*CF(K)*VR**K ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:1309:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 10 J=1,2*M+IP ^^^^^^^^^^^^^^^^ ./specfun.f:1310:1: DO loop currently ends at statement: 10 R0=R0*J ^^^^^^^^^^^^^^^^^^ ./specfun.f:1314:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 15 K=2,NM ^^^^^^^^^^^^ ./specfun.f:1318:1: DO loop currently ends at statement: 15 SW=SUC ^^^^^^^^^^^^^^^^^ ./specfun.f:1323:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 50 K=1,NM ^^^^^^^^^^^^ ./specfun.f:1336:1: DO loop currently ends at statement: 50 SW=R2F ^^^^^^^^^^^^^^^^^ ./specfun.f:1346:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 60 K=1,NM ^^^^^^^^^^^^ ./specfun.f:1359:1: DO loop currently ends at statement: 60 SW=SUD ^^^^^^^^^^^^^^^^^ ./specfun.f:1388:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 10 K=1 ,N-1 ^^^^^^^^^^^^^^ ./specfun.f:1389:1: DO loop currently ends at statement: 10 S=S+1.0D0/K ^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:1393:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 20 K=1,N ^^^^^^^^^^^ ./specfun.f:1394:1: DO loop currently ends at statement: 20 S=S+1.0/(2.0D0*K-1.0D0) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:1399:15: portability: A DO loop should terminate with an END DO or CONTINUE DO 30 K=0,N-1 ^^^^^^^^^^^^^ ./specfun.f:1400:1: DO loop currently ends at statement: 30 S=S+1.0D0/(XA+K) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:1525:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 10 K=0,N ^^^^^^^^^^^ ./specfun.f:1527:1: DO loop currently ends at statement: 10 PD(K)=0.0D0 ^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:1549:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 20 K=1,M ^^^^^^^^^^^ ./specfun.f:1551:1: DO loop currently ends at statement: 20 PM0=PMK ^^^^^^^^^^^^^^^^^^ ./specfun.f:1555:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 25 K=M+2,N ^^^^^^^^^^^^^ ./specfun.f:1559:1: DO loop currently ends at statement: 25 PM1=PM2 ^^^^^^^^^^^^^^^^^^ ./specfun.f:1561:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 30 K=1,N ^^^^^^^^^^^ ./specfun.f:1562:1: DO loop currently ends at statement: 30 PD(K)=(K*X*PM(K)-(K+M)*PM(K-1))/(X*X-1.0D0) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:1563:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 35 K=1,N ^^^^^^^^^^^ ./specfun.f:1565:1: DO loop currently ends at statement: 35 PD(K)=(-1)**M*PD(K) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:1592:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 10 K=1,100 ^^^^^^^^^^^^^ ./specfun.f:1596:1: DO loop currently ends at statement: 10 W=ER ^^^^^^^^^^^^^^^^^^ ./specfun.f:1602:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 20 K=1,12 ^^^^^^^^^^^^ ./specfun.f:1604:1: DO loop currently ends at statement: 20 ER=ER+R ^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:1618:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 25 N=1,100 ^^^^^^^^^^^^^ ./specfun.f:1622:1: DO loop currently ends at statement: 25 W1=ER2 ^^^^^^^^^^^^^^^^^^^^ ./specfun.f:1627:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 35 N=1,100 ^^^^^^^^^^^^^ ./specfun.f:1631:1: DO loop currently ends at statement: 35 W2=EI2 ^^^^^^^^^^^^^^^^^^^^ ./specfun.f:1747:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 20 K=24,1,-1 ^^^^^^^^^^^^^^^ ./specfun.f:1748:1: DO loop currently ends at statement: 20 GR=GR*X+G(K) ^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:1804:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 30 M=1,N/2 ^^^^^^^^^^^^^ ./specfun.f:1811:1: DO loop currently ends at statement: 30 EN(2*M)=-S ^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:1806:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 20 K=1,M-1 ^^^^^^^^^^^^^ ./specfun.f:1810:1: DO loop currently ends at statement: 20 S=S+R*EN(2*K) ^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:1808:15: portability: A DO loop should terminate with an END DO or CONTINUE DO 10 J=1,2*K ^^^^^^^^^^^^^ ./specfun.f:1809:1: DO loop currently ends at statement: 10 R=R*(2.0D0*M-2.0D0*K+J)/J ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:1839:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 10 IT=1,100 ^^^^^^^^^^^^^^ ./specfun.f:1847:1: DO loop currently ends at statement: 10 F1=F ^^^^^^^^^^^^^^^ ./specfun.f:1895:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 25 K=M,1,-1 ^^^^^^^^^^^^^^ ./specfun.f:1899:1: DO loop currently ends at statement: 25 XA0=XA ^^^^^^^^^^^^^^^^^^^^ ./specfun.f:1901:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 30 K=3,M,2 ^^^^^^^^^^^^^ ./specfun.f:1902:1: DO loop currently ends at statement: 30 XS=XS+2.0D0*BJ(K) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:1904:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 35 K=2,M ^^^^^^^^^^^ ./specfun.f:1905:1: DO loop currently ends at statement: 35 BJ(K)=BJ(K)/XS ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:1908:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 40 K=2,M ^^^^^^^^^^^ ./specfun.f:1910:1: DO loop currently ends at statement: 40 XG1=XG1+BJ(K)*XR ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:1913:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 45 K=2,M ^^^^^^^^^^^ ./specfun.f:1915:1: DO loop currently ends at statement: 45 XG2=XG2+BJ(K)*XR ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:1923:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 50 K=1,9 ^^^^^^^^^^^ ./specfun.f:1925:1: DO loop currently ends at statement: 50 XF=XF+XR ^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:1928:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 55 K=1,8 ^^^^^^^^^^^ ./specfun.f:1930:1: DO loop currently ends at statement: 55 XG=XG+XR ^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:1975:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 30 K=1,10 ^^^^^^^^^^^^ ./specfun.f:1980:1: DO loop currently ends at statement: 30 A1=AF ^^^^^^^^^^^^^^^^^^^ ./specfun.f:1983:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 35 K=1,11 ^^^^^^^^^^^^ ./specfun.f:1985:1: DO loop currently ends at statement: 35 TI=TI+A(K)*R ^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:2012:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 10 K=0,N ^^^^^^^^^^^ ./specfun.f:2014:1: DO loop currently ends at statement: 10 CQD(K)=(1.0D+300,0.0D0) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:2026:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 15 K=2,N ^^^^^^^^^^^ ./specfun.f:2030:1: DO loop currently ends at statement: 15 CQF1=CQF2 ^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:2039:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 20 K=KM,0,-1 ^^^^^^^^^^^^^^^ ./specfun.f:2043:1: DO loop currently ends at statement: 20 CQF1=CQF0 ^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:2044:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 25 K=0,N ^^^^^^^^^^^ ./specfun.f:2045:1: DO loop currently ends at statement: 25 CQN(K)=CQN(K)*CQ0/CQF0 ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:2048:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 30 K=1,N ^^^^^^^^^^^ ./specfun.f:2049:1: DO loop currently ends at statement: 30 CQD(K)=(K*Z*CQN(K)-K*CQN(K-1))/(Z*Z-1.0D0) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:2195:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 20 K=1,12 ^^^^^^^^^^^^ ./specfun.f:2197:1: DO loop currently ends at statement: 20 ER=ER+R ^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:2287:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 20 M=4,N,2 ^^^^^^^^^^^^^ ./specfun.f:2297:1: DO loop currently ends at statement: 20 EN(M)=R1*R2 ^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:2333:15: portability: A DO loop should terminate with an END DO or CONTINUE DO 10 IC=1,ICM ^^^^^^^^^^^^^^ ./specfun.f:2334:1: DO loop currently ends at statement: 10 CV(IC)=4.0D0*(IC-1.0D0)**2 ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:2336:15: portability: A DO loop should terminate with an END DO or CONTINUE DO 15 IC=1,ICM ^^^^^^^^^^^^^^ ./specfun.f:2337:1: DO loop currently ends at statement: 15 CV(IC)=(2.0D0*IC-1.0D0)**2 ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:2339:15: portability: A DO loop should terminate with an END DO or CONTINUE DO 20 IC=1,ICM ^^^^^^^^^^^^^^ ./specfun.f:2340:1: DO loop currently ends at statement: 20 CV(IC)=4.0D0*IC*IC ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:2348:15: portability: A DO loop should terminate with an END DO or CONTINUE DO 25 I=2,NM ^^^^^^^^^^^^ ./specfun.f:2351:1: DO loop currently ends at statement: 25 F(I)=Q*Q ^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:2356:15: portability: A DO loop should terminate with an END DO or CONTINUE DO 30 I=2,NM ^^^^^^^^^^^^ ./specfun.f:2359:1: DO loop currently ends at statement: 30 F(I)=Q*Q ^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:2362:15: portability: A DO loop should terminate with an END DO or CONTINUE DO 35 I=2,NM ^^^^^^^^^^^^ ./specfun.f:2365:1: DO loop currently ends at statement: 35 F(I)=Q*Q ^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:2377:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 45 I=1,ICM ^^^^^^^^^^^^^ ./specfun.f:2379:1: DO loop currently ends at statement: 45 H(I)=XB ^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:2488:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 10 K=0,N ^^^^^^^^^^^ ./specfun.f:2490:1: DO loop currently ends at statement: 10 QD(K)=1.0D+300 ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:2501:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 15 K=2,N ^^^^^^^^^^^ ./specfun.f:2506:1: DO loop currently ends at statement: 15 Q1=QF ^^^^^^^^^^^^^^^^^^^ ./specfun.f:2532:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 40 K=N,2,-1 ^^^^^^^^^^^^^^ ./specfun.f:2536:1: DO loop currently ends at statement: 40 QF1=QF0 ^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:2538:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 45 K=1,N ^^^^^^^^^^^ ./specfun.f:2539:1: DO loop currently ends at statement: 45 QD(K)=K*(QN(K-1)-X*QN(K))/(1.0D0-X*X) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:2562:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 10 K=0,KM-1 ^^^^^^^^^^^^^^ ./specfun.f:2570:1: DO loop currently ends at statement: 10 G0=G ^^^^^^^^^^^^^^^ ./specfun.f:2619:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 20 K=1,8 ^^^^^^^^^^^ ./specfun.f:2621:1: DO loop currently ends at statement: 20 TTI=TTI+C(K)*R ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:2642:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 35 K=1,8 ^^^^^^^^^^^ ./specfun.f:2644:1: DO loop currently ends at statement: 35 TTK=TTK+C(K)*R ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:2679:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 25 K=0,N ^^^^^^^^^^^ ./specfun.f:2696:1: DO loop currently ends at statement: 25 DL(K)=-0.5D0*X/(VK+1.0D0)*UK ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:2708:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 30 K=1,K0 ^^^^^^^^^^^^ ./specfun.f:2711:1: DO loop currently ends at statement: 30 PX=PX+RP ^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:2714:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 35 K=1,K0 ^^^^^^^^^^^^ ./specfun.f:2717:1: DO loop currently ends at statement: 35 QX=QX+RQ ^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:2748:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 45 K=2,N ^^^^^^^^^^^ ./specfun.f:2752:1: DO loop currently ends at statement: 45 VL(K)=F ^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:2763:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 50 K=M,0,-1 ^^^^^^^^^^^^^^ ./specfun.f:2767:1: DO loop currently ends at statement: 50 F1=F ^^^^^^^^^^^^^^^^^^ ./specfun.f:2774:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 55 K=0,N ^^^^^^^^^^^ ./specfun.f:2775:1: DO loop currently ends at statement: 55 VL(K)=CS*VL(K) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:2778:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 65 J=1,N ^^^^^^^^^^^ ./specfun.f:2782:1: DO loop currently ends at statement: 65 R0=2.0D0*(J+V0+1)/X*R0 ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:2914:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 10 I=1,NN+3 ^^^^^^^^^^^^^^ ./specfun.f:2923:1: DO loop currently ends at statement: 10 W(I)=(K+1.0D0)*(K+2.0D0)*CS/((GK2+2.0D0)*GK3) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:2924:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 20 K=1,M ^^^^^^^^^^^ ./specfun.f:2928:1: DO loop currently ends at statement: 20 RK(K)=-U(K)/T ^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:2926:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 15 L=0,M-K-1 ^^^^^^^^^^^^^^^ ./specfun.f:2927:1: DO loop currently ends at statement: 15 T=V(M-L)-W(M-L+1)*U(M-L)/T ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:2930:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 25 K=1,M ^^^^^^^^^^^ ./specfun.f:2932:1: DO loop currently ends at statement: 25 DN(K)=DF(1)*R ^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:2942:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 35 K=M+2,NN ^^^^^^^^^^^^^^ ./specfun.f:2943:1: DO loop currently ends at statement: 35 DN(K)=RK(K)*DN(K-1) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:2945:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 40 J=1,(N+M+IP)/2 ^^^^^^^^^^^^^^^^^^^^ ./specfun.f:2946:1: DO loop currently ends at statement: 40 R1=R1*(J+0.5D0*(N+M+IP)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:2949:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 45 J=1,2*M+IP ^^^^^^^^^^^^^^^^ ./specfun.f:2950:1: DO loop currently ends at statement: 45 R=R*J ^^^^^^^^^^^^^^^^ ./specfun.f:2953:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 50 K=2,NM ^^^^^^^^^^^^ ./specfun.f:2957:1: DO loop currently ends at statement: 50 SW=SU0 ^^^^^^^^^^^^^^^^^ ./specfun.f:2960:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 60 J=1,M ^^^^^^^^^^^ ./specfun.f:2961:1: DO loop currently ends at statement: 60 R2=2.0D0*C*R2*J ^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:2963:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 65 J=1,(N-M-IP)/2 ^^^^^^^^^^^^^^^^^^^^ ./specfun.f:2964:1: DO loop currently ends at statement: 65 R3=R3*J ^^^^^^^^^^^^^^^^^^ ./specfun.f:2969:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 75 J=1,(N-M-IP)/2 ^^^^^^^^^^^^^^^^^^^^ ./specfun.f:2970:1: DO loop currently ends at statement: 75 R4=4.0D0*R4*J ^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:2972:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 80 J=1,M ^^^^^^^^^^^ ./specfun.f:2973:1: DO loop currently ends at statement: 80 R5=R5*(J+M)/C ^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:3009:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 15 I=1,NR-1 ^^^^^^^^^^^^^^ ./specfun.f:3010:1: DO loop currently ends at statement: 15 P=P*(Z-X(I)) ^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:3013:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 20 K=2,N ^^^^^^^^^^^ ./specfun.f:3017:1: DO loop currently ends at statement: 20 F1=PF ^^^^^^^^^^^^^^^^^^^ ./specfun.f:3120:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 10 K=0,N ^^^^^^^^^^^ ./specfun.f:3124:1: DO loop currently ends at statement: 10 CDY(K)=(1.0D+300,0.0D0) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:3160:15: portability: A DO loop should terminate with an END DO or CONTINUE DO 30 K=1,K0 ^^^^^^^^^^^^ ./specfun.f:3163:1: DO loop currently ends at statement: 30 CPZ=CPZ+CRP ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:3166:15: portability: A DO loop should terminate with an END DO or CONTINUE DO 35 K=1,K0 ^^^^^^^^^^^^ ./specfun.f:3169:1: DO loop currently ends at statement: 35 CQZ=CQZ+CRQ ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:3208:15: portability: A DO loop should terminate with an END DO or CONTINUE DO 60 K=1,30 ^^^^^^^^^^^^ ./specfun.f:3211:1: DO loop currently ends at statement: 60 CS0=CS0+CR0*W0 ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:3216:15: portability: A DO loop should terminate with an END DO or CONTINUE DO 65 K=1,30 ^^^^^^^^^^^^ ./specfun.f:3219:1: DO loop currently ends at statement: 65 CS1=CS1+CR1*(2.0D0*W1+1.0D0/(K+1.0D0)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:3243:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 70 K=2,N ^^^^^^^^^^^ ./specfun.f:3247:1: DO loop currently ends at statement: 70 CF1=CF ^^^^^^^^^^^^^^^^^^^^ ./specfun.f:3257:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 75 K=M,0,-1 ^^^^^^^^^^^^^^ ./specfun.f:3261:1: DO loop currently ends at statement: 75 CF1=CF ^^^^^^^^^^^^^^^^^^^^ ./specfun.f:3264:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 80 K=0,N ^^^^^^^^^^^ ./specfun.f:3265:1: DO loop currently ends at statement: 80 CBJ(K)=CS*CBJ(K) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:3268:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 85 K=1,N ^^^^^^^^^^^ ./specfun.f:3269:1: DO loop currently ends at statement: 85 CDJ(K)=-(K+V0)/Z*CBJ(K)+CBJ(K-1) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:3291:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 100 K=LB,1,-1 ^^^^^^^^^^^^^^^^ ./specfun.f:3294:1: DO loop currently ends at statement: 100 CH1=CH0 ^^^^^^^^^^^^^^^^^^ ./specfun.f:3299:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 105 K=LB,1,-1 ^^^^^^^^^^^^^^^^ ./specfun.f:3302:1: DO loop currently ends at statement: 105 CH1=CH0 ^^^^^^^^^^^^^^^^^^ ./specfun.f:3315:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 110 K=LB-1,0,-1 ^^^^^^^^^^^^^^^^^^ ./specfun.f:3319:1: DO loop currently ends at statement: 110 CYL1=CYLK ^^^^^^^^^^^^^^^^^^^^ ./specfun.f:3322:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 115 K=LB+1,N-1 ^^^^^^^^^^^^^^^^^ ./specfun.f:3326:1: DO loop currently ends at statement: 115 CYL2=CYLK ^^^^^^^^^^^^^^^^^^^^ ./specfun.f:3333:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 130 K=1,N ^^^^^^^^^^^^ ./specfun.f:3334:1: DO loop currently ends at statement: 130 CDY(K)=CBY(K-1)-(K+V0)/Z*CBY(K) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:3377:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 10 K=0,N ^^^^^^^^^^^ ./specfun.f:3381:1: DO loop currently ends at statement: 10 CDY(K)=(1.0D+300,0.0D0) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:3411:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 25 K=1,K0 ^^^^^^^^^^^^ ./specfun.f:3414:1: DO loop currently ends at statement: 25 CPZ=CPZ+CRP ^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:3417:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 30 K=1,K0 ^^^^^^^^^^^^ ./specfun.f:3420:1: DO loop currently ends at statement: 30 CQZ=CQZ+CRQ ^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:3448:15: portability: A DO loop should terminate with an END DO or CONTINUE DO 45 K=1,30 ^^^^^^^^^^^^ ./specfun.f:3451:1: DO loop currently ends at statement: 45 CS0=CS0+CR0*W0 ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:3464:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 50 K=M,0,-1 ^^^^^^^^^^^^^^ ./specfun.f:3468:1: DO loop currently ends at statement: 50 CF1=CF ^^^^^^^^^^^^^^^^^ ./specfun.f:3470:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 55 K=0,N ^^^^^^^^^^^ ./specfun.f:3471:1: DO loop currently ends at statement: 55 CBJ(K)=CS*CBJ(K) ^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:3494:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 70 K=1,N ^^^^^^^^^^^ ./specfun.f:3495:1: DO loop currently ends at statement: 70 CDJ(K)=-(K+V0)/Z*CBJ(K)+CBJ(K-1) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:3497:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 75 K=1,N ^^^^^^^^^^^ ./specfun.f:3498:1: DO loop currently ends at statement: 75 CDY(K)=CBY(K-1)-(K+V0)/Z*CBY(K) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:3609:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 45 K=1,K0 ^^^^^^^^^^^^ ./specfun.f:3611:1: DO loop currently ends at statement: 45 Q0=Q0+B(K)*X**(-2*K-1) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:3618:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 50 K=1,K0 ^^^^^^^^^^^^ ./specfun.f:3620:1: DO loop currently ends at statement: 50 Q1=Q1+B1(K)*X**(-2*K-1) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:3790:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 20 K=1,10 ^^^^^^^^^^^^ ./specfun.f:3792:1: DO loop currently ends at statement: 20 TI=TI+A(K)*R ^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:3803:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 25 K=1,50 ^^^^^^^^^^^^ ./specfun.f:3810:1: DO loop currently ends at statement: 25 TW=TK ^^^^^^^^^^^^^^^^^^^ ./specfun.f:3815:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 35 K=1,10 ^^^^^^^^^^^^ ./specfun.f:3817:1: DO loop currently ends at statement: 35 TK=TK+A(K)*R ^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:3854:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 10 K=0,N ^^^^^^^^^^^ ./specfun.f:3858:1: DO loop currently ends at statement: 10 DY(K)=1.0D+300 ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:3896:15: portability: A DO loop should terminate with an END DO or CONTINUE DO 30 K=1,K0 ^^^^^^^^^^^^ ./specfun.f:3899:1: DO loop currently ends at statement: 30 PX=PX+RP ^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:3902:15: portability: A DO loop should terminate with an END DO or CONTINUE DO 35 K=1,K0 ^^^^^^^^^^^^ ./specfun.f:3905:1: DO loop currently ends at statement: 35 QX=QX+RQ ^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:3927:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 45 K=2,N ^^^^^^^^^^^ ./specfun.f:3931:1: DO loop currently ends at statement: 45 F1=F ^^^^^^^^^^^^^^^^^^ ./specfun.f:3942:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 50 K=M,0,-1 ^^^^^^^^^^^^^^ ./specfun.f:3946:1: DO loop currently ends at statement: 50 F1=F ^^^^^^^^^^^^^^^^^^ ./specfun.f:3952:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 55 K=0,N ^^^^^^^^^^^ ./specfun.f:3953:1: DO loop currently ends at statement: 55 BJ(K)=CS*BJ(K) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:3955:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 60 K=2,N ^^^^^^^^^^^ ./specfun.f:3956:1: DO loop currently ends at statement: 60 DJ(K)=-(K+V0)/X*BJ(K)+BJ(K-1) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:3985:15: portability: A DO loop should terminate with an END DO or CONTINUE DO 80 K=1,30 ^^^^^^^^^^^^ ./specfun.f:3988:1: DO loop currently ends at statement: 80 CS0=CS0+R0*W0 ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:3993:15: portability: A DO loop should terminate with an END DO or CONTINUE DO 85 K=1,30 ^^^^^^^^^^^^ ./specfun.f:3996:1: DO loop currently ends at statement: 85 CS1=CS1+R1*(2.0D0*W1+1.0D0/(K+1.0D0)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:4002:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 90 K=2,N ^^^^^^^^^^^ ./specfun.f:4006:1: DO loop currently ends at statement: 90 BYV1=BYVK ^^^^^^^^^^^^^^^^^^^^ ./specfun.f:4008:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 95 K=1,N ^^^^^^^^^^^ ./specfun.f:4009:1: DO loop currently ends at statement: 95 DY(K)=-(K+V0)/X*BY(K)+BY(K-1) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:4039:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 10 K=0,N ^^^^^^^^^^^ ./specfun.f:4041:2: DO loop currently ends at statement: 10 DY(K) = 1.0D+300 ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:4045:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 40 K=1,NM ^^^^^^^^^^^^ ./specfun.f:4046:2: DO loop currently ends at statement: 40 DJ(K)=BJ(K-1)-K/X*BJ(K) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:4048:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 50 K=1,NM ^^^^^^^^^^^^ ./specfun.f:4049:2: DO loop currently ends at statement: 50 DY(K)=BY(K-1)-K*BY(K)/X ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:4078:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 10 K=NMIN,N ^^^^^^^^^^^^^^ ./specfun.f:4080:1: DO loop currently ends at statement: 10 BY(K-NMIN)=-1.0D+300 ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:4099:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 15 K=M,0,-1 ^^^^^^^^^^^^^^ ./specfun.f:4109:1: DO loop currently ends at statement: 15 F1=F ^^^^^^^^^^^^^^^^^^ ./specfun.f:4111:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 20 K=NMIN,NM ^^^^^^^^^^^^^^^ ./specfun.f:4112:1: DO loop currently ends at statement: 20 BJ(K-NMIN)=BJ(K-NMIN)/S0 ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:4135:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 25 K=1,4 ^^^^^^^^^^^ ./specfun.f:4137:1: DO loop currently ends at statement: 25 Q0=Q0+B(K)*X**(-2*K-1) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:4146:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 30 K=1,4 ^^^^^^^^^^^ ./specfun.f:4148:1: DO loop currently ends at statement: 30 Q1=Q1+B1(K)*X**(-2*K-1) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:4153:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 35 K=2,NM ^^^^^^^^^^^^ ./specfun.f:4157:1: DO loop currently ends at statement: 35 BJ1=BJK ^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:4161:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 45 K=KY,NM ^^^^^^^^^^^^^ ./specfun.f:4165:1: DO loop currently ends at statement: 45 BY1=BYK ^^^^^^^^^^^^^^^^^^ ./specfun.f:4188:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 45 NR=1,N0 ^^^^^^^^^^^^^ ./specfun.f:4217:1: DO loop currently ends at statement: 45 W(N+1-NR)=W(NR) ^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:4192:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 15 I=1,NR-1 ^^^^^^^^^^^^^^ ./specfun.f:4193:1: DO loop currently ends at statement: 15 P=P*(Z-X(I)) ^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:4197:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 20 K=2,N ^^^^^^^^^^^ ./specfun.f:4201:1: DO loop currently ends at statement: 20 F1=PF ^^^^^^^^^^^^^^^^^^^ ./specfun.f:4205:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 35 I=1,NR ^^^^^^^^^^^^ ./specfun.f:4210:1: DO loop currently ends at statement: 35 Q=Q+WP ^^^^^^^^^^^^^^^^^^^^ ./specfun.f:4314:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 10 K=0,N ^^^^^^^^^^^ ./specfun.f:4318:1: DO loop currently ends at statement: 10 DY(K)=1.0D+300 ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:4334:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 20 K=2,N ^^^^^^^^^^^ ./specfun.f:4338:1: DO loop currently ends at statement: 20 BJ1=BJK ^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:4349:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 30 K=M,0,-1 ^^^^^^^^^^^^^^ ./specfun.f:4353:1: DO loop currently ends at statement: 30 F1=F ^^^^^^^^^^^^^^^^^^ ./specfun.f:4359:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 40 K=0,NM ^^^^^^^^^^^^ ./specfun.f:4360:1: DO loop currently ends at statement: 40 BJ(K)=CS*BJ(K) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:4362:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 50 K=2,NM ^^^^^^^^^^^^ ./specfun.f:4363:1: DO loop currently ends at statement: 50 DJ(K)=BJ(K-1)-K/X*BJ(K) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:4366:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 60 K=2,NM ^^^^^^^^^^^^ ./specfun.f:4370:1: DO loop currently ends at statement: 60 F1=F ^^^^^^^^^^^^^^^ ./specfun.f:4371:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 70 K=2,NM ^^^^^^^^^^^^ ./specfun.f:4372:1: DO loop currently ends at statement: 70 DY(K)=BY(K-1)-K*BY(K)/X ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:4423:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 15 K=2,NA ^^^^^^^^^^^^ ./specfun.f:4427:1: DO loop currently ends at statement: 15 PD1=PDF ^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:4441:15: portability: A DO loop should terminate with an END DO or CONTINUE DO 20 K=2,NA ^^^^^^^^^^^^ ./specfun.f:4445:1: DO loop currently ends at statement: 20 PD1=PD ^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:4455:15: portability: A DO loop should terminate with an END DO or CONTINUE DO 25 K=NK-2,0,-1 ^^^^^^^^^^^^^^^^^ ./specfun.f:4459:1: DO loop currently ends at statement: 25 F0=F ^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:4468:15: portability: A DO loop should terminate with an END DO or CONTINUE DO 30 K=M,0,-1 ^^^^^^^^^^^^^^ ./specfun.f:4472:1: DO loop currently ends at statement: 30 F0=F ^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:4474:15: portability: A DO loop should terminate with an END DO or CONTINUE DO 35 K=0,NA ^^^^^^^^^^^^ ./specfun.f:4475:1: DO loop currently ends at statement: 35 DV(K)=S0*DV(K) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:4531:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 30 K=1,20 ^^^^^^^^^^^^ ./specfun.f:4536:1: DO loop currently ends at statement: 30 A1=AF ^^^^^^^^^^^^^^^^^^^ ./specfun.f:4539:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 35 K=1,10 ^^^^^^^^^^^^ ./specfun.f:4541:1: DO loop currently ends at statement: 35 BF=BF+A(2*K)*R ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:4544:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 40 K=1,10 ^^^^^^^^^^^^ ./specfun.f:4546:1: DO loop currently ends at statement: 40 BG=BG+A(2*K+1)*R ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:4571:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 35 NR=1,NT ^^^^^^^^^^^^^ ./specfun.f:4597:1: DO loop currently ends at statement: 35 ZO(NR)=Z ^^^^^^^^^^^^^^^^^^^ ./specfun.f:4581:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 20 I=1,NR-1 ^^^^^^^^^^^^^^ ./specfun.f:4582:1: DO loop currently ends at statement: 20 ZP=ZP*(Z-ZO(I)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:4585:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 30 I=1,NR-1 ^^^^^^^^^^^^^^ ./specfun.f:4591:1: DO loop currently ends at statement: 30 ZQ=ZQ+ZW ^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:4621:15: portability: A DO loop should terminate with an END DO or CONTINUE DO 10 K=2,M1 ^^^^^^^^^^^^ ./specfun.f:4622:1: DO loop currently ends at statement: 10 GA=GA*K ^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:4631:15: portability: A DO loop should terminate with an END DO or CONTINUE DO 15 K=1,M ^^^^^^^^^^^ ./specfun.f:4632:1: DO loop currently ends at statement: 15 R=R*(Z-K) ^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:4650:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 20 K=25,1,-1 ^^^^^^^^^^^^^^^ ./specfun.f:4651:1: DO loop currently ends at statement: 20 GR=GR*Z+G(K) ^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:4760:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 10 K=0,N ^^^^^^^^^^^ ./specfun.f:4762:1: DO loop currently ends at statement: 10 DL(K)=0.0D0 ^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:4769:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 25 K=0,N ^^^^^^^^^^^ ./specfun.f:4778:1: DO loop currently ends at statement: 25 IF (K.GE.1) DL(K-1)=-0.5D0*X/K*BK ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:4800:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 40 K=M,0,-1 ^^^^^^^^^^^^^^ ./specfun.f:4805:1: DO loop currently ends at statement: 40 F1=F ^^^^^^^^^^^^^^^ ./specfun.f:4807:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 45 K=0,NM ^^^^^^^^^^^^ ./specfun.f:4808:1: DO loop currently ends at statement: 45 BL(K)=BL(K)/BG ^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:4810:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 50 K=1,NM ^^^^^^^^^^^^ ./specfun.f:4812:1: DO loop currently ends at statement: 50 BL(K)=R0*BL(K) ^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:4814:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 55 K=1,NM ^^^^^^^^^^^^ ./specfun.f:4815:1: DO loop currently ends at statement: 55 DL(K)=2.0D0*K/X*(BL(K-1)-BL(K)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:4872:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 10 K=1,20 ^^^^^^^^^^^^ ./specfun.f:4873:1: DO loop currently ends at statement: 10 DK(2*K)=K*(B-K)*X/(A+2.0D0*K-1.0D0)/(A+2.0D0*K) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:4874:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 15 K=0,20 ^^^^^^^^^^^^ ./specfun.f:4875:1: DO loop currently ends at statement: 15 DK(2*K+1)=-(A+K)*(A+B+K)*X/(A+2.D0*K)/(A+2.0*K+1.0) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:4877:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 20 K=20,1,-1 ^^^^^^^^^^^^^^^ ./specfun.f:4878:1: DO loop currently ends at statement: 20 T1=DK(K)/(1.0D0+T1) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:4882:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 25 K=1,20 ^^^^^^^^^^^^ ./specfun.f:4883:1: DO loop currently ends at statement: 25 FK(2*K)=K*(A-K)*(1.0D0-X)/(B+2.*K-1.0)/(B+2.0*K) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:4884:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 30 K=0,20 ^^^^^^^^^^^^ ./specfun.f:4885:1: DO loop currently ends at statement: 30 FK(2*K+1)=-(B+K)*(A+B+K)*(1.D0-X)/ ^ ./specfun.f:4888:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 35 K=20,1,-1 ^^^^^^^^^^^^^^^ ./specfun.f:4889:1: DO loop currently ends at statement: 35 T2=FK(K)/(1.0D0+T2) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:4923:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 10 J=MJ,IC+1,-1 ^^^^^^^^^^^^^^^^^^ ./specfun.f:4924:1: DO loop currently ends at statement: 10 T1=-Q*Q/((2.0D0*J+L)**2-B+T1) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:4938:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 15 J=J0,JF ^^^^^^^^^^^^^ ./specfun.f:4939:1: DO loop currently ends at statement: 15 T2=-Q*Q/((2.0D0*J-L-L0)**2-B+T2) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:4972:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 10 K=2,N ^^^^^^^^^^^ ./specfun.f:4981:1: DO loop currently ends at statement: 10 CP1=CPF ^^^^^^^^^^^^^^^^^^ ./specfun.f:5001:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 10 K=0,N ^^^^^^^^^^^ ./specfun.f:5003:1: DO loop currently ends at statement: 10 QD(K)=0.0D0 ^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:5005:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 15 K=0,N ^^^^^^^^^^^ ./specfun.f:5007:1: DO loop currently ends at statement: 15 QD(K)=1.0D+300 ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:5022:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 20 K=2,M ^^^^^^^^^^^ ./specfun.f:5025:1: DO loop currently ends at statement: 20 QF1=QM0 ^^^^^^^^^^^^^^^^^^ ./specfun.f:5033:15: portability: A DO loop should terminate with an END DO or CONTINUE DO 25 K=2,N ^^^^^^^^^^^ ./specfun.f:5037:1: DO loop currently ends at statement: 25 QF1=QF2 ^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:5041:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 30 K=2,M ^^^^^^^^^^^ ./specfun.f:5044:1: DO loop currently ends at statement: 30 QG1=QM1 ^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:5051:15: portability: A DO loop should terminate with an END DO or CONTINUE DO 35 K=2,N ^^^^^^^^^^^ ./specfun.f:5055:1: DO loop currently ends at statement: 35 QH1=QH2 ^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:5062:15: portability: A DO loop should terminate with an END DO or CONTINUE DO 45 L=2,N ^^^^^^^^^^^ ./specfun.f:5076:1: DO loop currently ends at statement: 45 QH1=Q1L ^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:5067:18: portability: A DO loop should terminate with an END DO or CONTINUE DO 40 K=2,M ^^^^^^^^^^^ ./specfun.f:5071:1: DO loop currently ends at statement: 40 QF1=QMK ^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:5086:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 50 K=KM,0,-1 ^^^^^^^^^^^^^^^ ./specfun.f:5090:1: DO loop currently ends at statement: 50 QF1=QF0 ^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:5091:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 55 K=0,N ^^^^^^^^^^^ ./specfun.f:5092:1: DO loop currently ends at statement: 55 QM(K)=QM(K)*QM0/QF0 ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:5095:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 60 K=0,N ^^^^^^^^^^^ ./specfun.f:5096:1: DO loop currently ends at statement: 60 QM(K)=(-1)**M*QM(K) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:5099:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 65 K=1,N ^^^^^^^^^^^ ./specfun.f:5100:1: DO loop currently ends at statement: 65 QD(K)=(K*X*QM(K)-(K+M)*QM(K-1))/(X*X-1.0) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:5135:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 15 K=1,KM ^^^^^^^^^^^^ ./specfun.f:5141:1: DO loop currently ends at statement: 15 CF(K)=CF(K)*CT**K ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:5139:15: portability: A DO loop should terminate with an END DO or CONTINUE DO 10 I=LF-1,L0,-1 ^^^^^^^^^^^^^^^^^^ ./specfun.f:5140:1: DO loop currently ends at statement: 10 CF(K)=CF(K)*CT2+A(I) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:5144:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 20 K=1,KM ^^^^^^^^^^^^ ./specfun.f:5145:1: DO loop currently ends at statement: 20 CSI=CSI+CF(K)*VR**K ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:5149:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 25 K=1,KM ^^^^^^^^^^^^ ./specfun.f:5150:1: DO loop currently ends at statement: 25 CSK=CSK+(-1)**K*CF(K)*VR**K ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:5254:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 10 I=1,10 ^^^^^^^^^^^^ ./specfun.f:5262:1: DO loop currently ends at statement: 10 EL3=EL3+W(I)*(F1+F2) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:5298:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 25 K=1,20 ^^^^^^^^^^^^ ./specfun.f:5300:1: DO loop currently ends at statement: 25 EI=EI+R ^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:5436:15: portability: A DO loop should terminate with an END DO or CONTINUE DO 20 I=1,8 ^^^^^^^^^^^ ./specfun.f:5440:1: DO loop currently ends at statement: 20 SUM2=SUM2+R2 ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:5456:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 35 I=1,LA-1 ^^^^^^^^^^^^^^ ./specfun.f:5460:1: DO loop currently ends at statement: 35 A=A+1.0D0 ^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:5523:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 10 K=1,NM ^^^^^^^^^^^^ ./specfun.f:5525:1: DO loop currently ends at statement: 10 HF=HF+R ^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:5532:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 15 K=1,NM ^^^^^^^^^^^^ ./specfun.f:5534:1: DO loop currently ends at statement: 15 HF=HF+R ^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:5562:15: portability: A DO loop should terminate with an END DO or CONTINUE DO 30 J=1,ABS(M)-1 ^^^^^^^^^^^^^^^^^^ ./specfun.f:5563:1: DO loop currently ends at statement: 30 GM=GM*J ^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:5565:15: portability: A DO loop should terminate with an END DO or CONTINUE DO 35 J=1,ABS(M) ^^^^^^^^^^^^^^^^ ./specfun.f:5566:1: DO loop currently ends at statement: 35 RM=RM*J ^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:5575:18: portability: A DO loop should terminate with an END DO or CONTINUE DO 40 K=1,M-1 ^^^^^^^^^^^^^ ./specfun.f:5577:1: DO loop currently ends at statement: 40 F0=F0+R0 ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:5578:18: portability: A DO loop should terminate with an END DO or CONTINUE DO 45 K=1,M ^^^^^^^^^^^ ./specfun.f:5579:1: DO loop currently ends at statement: 45 SP0=SP0+1.0D0/(A+K-1.0)+1.0/(B+K-1.0)-1.0/K ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:5581:18: portability: A DO loop should terminate with an END DO or CONTINUE DO 55 K=1,250 ^^^^^^^^^^^^^ ./specfun.f:5591:1: DO loop currently ends at statement: 55 HW=F1 ^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:5584:21: portability: A DO loop should terminate with an END DO or CONTINUE DO 50 J=1,M ^^^^^^^^^^^ ./specfun.f:5585:1: DO loop currently ends at statement: 50 SM=SM+(1.0D0-A)/((J+K)*(A+J+K-1.0))+1.0/ ^ ./specfun.f:5597:18: portability: A DO loop should terminate with an END DO or CONTINUE DO 65 K=1,M-1 ^^^^^^^^^^^^^ ./specfun.f:5599:1: DO loop currently ends at statement: 65 F0=F0+R0 ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:5600:18: portability: A DO loop should terminate with an END DO or CONTINUE DO 70 K=1,M ^^^^^^^^^^^ ./specfun.f:5601:1: DO loop currently ends at statement: 70 SP0=SP0+1.0D0/K ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:5603:18: portability: A DO loop should terminate with an END DO or CONTINUE DO 80 K=1,250 ^^^^^^^^^^^^^ ./specfun.f:5612:1: DO loop currently ends at statement: 80 HW=F1 ^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:5606:21: portability: A DO loop should terminate with an END DO or CONTINUE DO 75 J=1,M ^^^^^^^^^^^ ./specfun.f:5607:1: DO loop currently ends at statement: 75 SM=SM+1.0D0/(J+K) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:5628:15: portability: A DO loop should terminate with an END DO or CONTINUE DO 90 K=1,250 ^^^^^^^^^^^^^ ./specfun.f:5634:1: DO loop currently ends at statement: 90 HW=HF ^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:5647:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 100 K=1,250 ^^^^^^^^^^^^^^ ./specfun.f:5651:1: DO loop currently ends at statement: 100 HW=HF ^^^^^^^^^^^^^^^^^^^ ./specfun.f:5707:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 10 K=1,M ^^^^^^^^^^^ ./specfun.f:5709:1: DO loop currently ends at statement: 10 CHG=CHG+CR ^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:5751:18: portability: A DO loop should terminate with an END DO or CONTINUE DO 20 I=1,8 ^^^^^^^^^^^ ./specfun.f:5755:1: DO loop currently ends at statement: 20 CS2=CS2+CR2 ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:5777:15: portability: A DO loop should terminate with an END DO or CONTINUE DO 35 I=1,LA-1 ^^^^^^^^^^^^^^ ./specfun.f:5781:1: DO loop currently ends at statement: 35 A=A+1.0D0 ^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:5856:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 10 K=1,NM ^^^^^^^^^^^^ ./specfun.f:5858:1: DO loop currently ends at statement: 10 ZHF=ZHF+ZR ^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:5864:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 15 K=1,NM ^^^^^^^^^^^^ ./specfun.f:5866:1: DO loop currently ends at statement: 15 ZHF=ZHF+ZR ^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:5878:15: portability: A DO loop should terminate with an END DO or CONTINUE DO 20 K=1,500 ^^^^^^^^^^^^^ ./specfun.f:5882:1: DO loop currently ends at statement: 20 ZW=ZHF ^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:5897:18: portability: A DO loop should terminate with an END DO or CONTINUE DO 30 J=1,ABS(M)-1 ^^^^^^^^^^^^^^^^^^ ./specfun.f:5898:1: DO loop currently ends at statement: 30 GM=GM*J ^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:5900:18: portability: A DO loop should terminate with an END DO or CONTINUE DO 35 J=1,ABS(M) ^^^^^^^^^^^^^^^^ ./specfun.f:5901:1: DO loop currently ends at statement: 35 RM=RM*J ^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:5910:21: portability: A DO loop should terminate with an END DO or CONTINUE DO 40 K=1,M-1 ^^^^^^^^^^^^^ ./specfun.f:5912:1: DO loop currently ends at statement: 40 ZF0=ZF0+ZR0 ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:5913:21: portability: A DO loop should terminate with an END DO or CONTINUE DO 45 K=1,M ^^^^^^^^^^^ ./specfun.f:5914:1: DO loop currently ends at statement: 45 SP0=SP0+1.0D0/(A+K-1.0D0)+1.0/(B+K-1.0D0)-1.D0/K ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:5916:21: portability: A DO loop should terminate with an END DO or CONTINUE DO 55 K=1,500 ^^^^^^^^^^^^^ ./specfun.f:5929:1: DO loop currently ends at statement: 55 ZW=ZF1 ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:5935:21: portability: A DO loop should terminate with an END DO or CONTINUE DO 65 K=1,M-1 ^^^^^^^^^^^^^ ./specfun.f:5938:1: DO loop currently ends at statement: 65 ZF0=ZF0+ZR0 ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:5939:21: portability: A DO loop should terminate with an END DO or CONTINUE DO 70 K=1,M ^^^^^^^^^^^ ./specfun.f:5940:1: DO loop currently ends at statement: 70 SP0=SP0+1.0D0/K ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:5942:21: portability: A DO loop should terminate with an END DO or CONTINUE DO 80 K=1,500 ^^^^^^^^^^^^^ ./specfun.f:5952:1: DO loop currently ends at statement: 80 ZW=ZF1 ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:5946:24: portability: A DO loop should terminate with an END DO or CONTINUE DO 75 J=1,M ^^^^^^^^^^^ ./specfun.f:5947:1: DO loop currently ends at statement: 75 SM=SM+1.0D0/(J+K) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:5968:18: portability: A DO loop should terminate with an END DO or CONTINUE DO 90 K=1,500 ^^^^^^^^^^^^^ ./specfun.f:5974:1: DO loop currently ends at statement: 90 ZW=ZHF ^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:5986:15: portability: A DO loop should terminate with an END DO or CONTINUE DO 100 K=1,1500 ^^^^^^^^^^^^^^^ ./specfun.f:5990:1: DO loop currently ends at statement: 100 ZW=ZHF ^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:6009:15: portability: A DO loop should terminate with an END DO or CONTINUE DO 110 K=1,500 ^^^^^^^^^^^^^^ ./specfun.f:6014:1: DO loop currently ends at statement: 110 ZW=ZHF ^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:6037:15: portability: A DO loop should terminate with an END DO or CONTINUE DO 120 K=1,MAB-1 ^^^^^^^^^^^^^^^^ ./specfun.f:6042:1: DO loop currently ends at statement: 120 ZF0=ZF0+ZR*G0/GCBK ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:6046:15: portability: A DO loop should terminate with an END DO or CONTINUE DO 125 J=1,MAB ^^^^^^^^^^^^^^ ./specfun.f:6047:1: DO loop currently ends at statement: 125 SP=SP+1.0D0/J ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:6050:15: portability: A DO loop should terminate with an END DO or CONTINUE DO 130 J=1,MAB ^^^^^^^^^^^^^^ ./specfun.f:6051:1: DO loop currently ends at statement: 130 SQ=SQ*(B+J-1.0D0)*(B-C+J)/J ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:6057:15: portability: A DO loop should terminate with an END DO or CONTINUE DO 145 K=1,10000 ^^^^^^^^^^^^^^^^ ./specfun.f:6073:1: DO loop currently ends at statement: 145 W0=WS ^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:6061:18: portability: A DO loop should terminate with an END DO or CONTINUE DO 135 J=K+1,K+MAB ^^^^^^^^^^^^^^^^^^ ./specfun.f:6062:1: DO loop currently ends at statement: 135 RK2=RK2*(B+J-1.0D0)*(B-C+J)/J ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:6066:18: portability: A DO loop should terminate with an END DO or CONTINUE DO 140 J=K+1,K+MAB ^^^^^^^^^^^^^^^^^^ ./specfun.f:6067:1: DO loop currently ends at statement: 140 SJ2=SJ2+1.0D0/J ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:6159:15: portability: A DO loop should terminate with an END DO or CONTINUE DO 35 K=1,16 ^^^^^^^^^^^^ ./specfun.f:6161:1: DO loop currently ends at statement: 35 SU1=SU1+A(K)*R ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:6164:15: portability: A DO loop should terminate with an END DO or CONTINUE DO 40 K=1,16 ^^^^^^^^^^^^ ./specfun.f:6166:1: DO loop currently ends at statement: 40 SU2=SU2+A(K)*R ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:6172:15: portability: A DO loop should terminate with an END DO or CONTINUE DO 45 K=1,8 ^^^^^^^^^^^ ./specfun.f:6174:1: DO loop currently ends at statement: 45 SU3=SU3+A(2*K)*R ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:6177:15: portability: A DO loop should terminate with an END DO or CONTINUE DO 50 K=1,7 ^^^^^^^^^^^ ./specfun.f:6179:1: DO loop currently ends at statement: 50 SU4=SU4+A(2*K+1)*R ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:6213:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 10 K=0,N ^^^^^^^^^^^ ./specfun.f:6217:1: DO loop currently ends at statement: 10 DK(K)=-1.0D+300 ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:6235:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 15 K=2,N ^^^^^^^^^^^ ./specfun.f:6239:1: DO loop currently ends at statement: 15 H1=H ^^^^^^^^^^^^^^^ ./specfun.f:6250:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 20 K=M,0,-1 ^^^^^^^^^^^^^^ ./specfun.f:6254:1: DO loop currently ends at statement: 20 F1=F ^^^^^^^^^^^^^^^^^^ ./specfun.f:6256:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 25 K=0,NM ^^^^^^^^^^^^ ./specfun.f:6257:1: DO loop currently ends at statement: 25 BI(K)=S0*BI(K) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:6261:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 30 K=2,NM ^^^^^^^^^^^^ ./specfun.f:6265:1: DO loop currently ends at statement: 30 G1=G ^^^^^^^^^^^^^^^ ./specfun.f:6266:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 40 K=2,NM ^^^^^^^^^^^^ ./specfun.f:6268:1: DO loop currently ends at statement: 40 DK(K)=-BK(K-1)-K/X*BK(K) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:6305:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 10 K=0,N ^^^^^^^^^^^ ./specfun.f:6309:1: DO loop currently ends at statement: 10 CDY(K)=(1.0D+300,0.0D0) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:6327:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 15 K=M,0,-1 ^^^^^^^^^^^^^^ ./specfun.f:6341:1: DO loop currently ends at statement: 15 CF1=CF ^^^^^^^^^^^^^^^^^^^^ ./specfun.f:6347:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 20 K=0,NM ^^^^^^^^^^^^ ./specfun.f:6348:1: DO loop currently ends at statement: 20 CBJ(K)=CBJ(K)/CS0 ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:6363:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 25 K=1,4 ^^^^^^^^^^^ ./specfun.f:6364:1: DO loop currently ends at statement: 25 CP0=CP0+A(K)*Z**(-2*K) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:6366:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 30 K=1,4 ^^^^^^^^^^^ ./specfun.f:6367:1: DO loop currently ends at statement: 30 CQ0=CQ0+B(K)*Z**(-2*K-1) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:6375:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 35 K=1,4 ^^^^^^^^^^^ ./specfun.f:6376:1: DO loop currently ends at statement: 35 CP1=CP1+A1(K)*Z**(-2*K) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:6378:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 40 K=1,4 ^^^^^^^^^^^ ./specfun.f:6379:1: DO loop currently ends at statement: 40 CQ1=CQ1+B1(K)*Z**(-2*K-1) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:6384:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 45 K=2,NM ^^^^^^^^^^^^ ./specfun.f:6388:1: DO loop currently ends at statement: 45 CBJ1=CBJK ^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:6391:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 50 K=1,NM ^^^^^^^^^^^^ ./specfun.f:6392:1: DO loop currently ends at statement: 50 CDJ(K)=CBJ(K-1)-K/Z*CBJ(K) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:6405:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 60 K=1,NM ^^^^^^^^^^^^ ./specfun.f:6406:1: DO loop currently ends at statement: 60 CDY(K)=CBY(K-1)-K/Z*CBY(K) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:6437:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 10 K=0,N ^^^^^^^^^^^ ./specfun.f:6441:1: DO loop currently ends at statement: 10 DK(K)=-1.0D+300 ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:6458:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 15 K=M,0,-1 ^^^^^^^^^^^^^^ ./specfun.f:6464:1: DO loop currently ends at statement: 15 F1=F ^^^^^^^^^^^^^^^ ./specfun.f:6466:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 20 K=0,NM ^^^^^^^^^^^^ ./specfun.f:6467:1: DO loop currently ends at statement: 20 BI(K)=S0*BI(K) ^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:6481:15: portability: A DO loop should terminate with an END DO or CONTINUE DO 25 K=1,K0 ^^^^^^^^^^^^ ./specfun.f:6483:1: DO loop currently ends at statement: 25 BKL=BKL+R ^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:6489:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 35 K=2,NM ^^^^^^^^^^^^ ./specfun.f:6493:1: DO loop currently ends at statement: 35 G1=G ^^^^^^^^^^^^^^^ ./specfun.f:6496:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 40 K=1,NM ^^^^^^^^^^^^ ./specfun.f:6498:1: DO loop currently ends at statement: 40 DK(K)=-BK(K-1)-K/X*BK(K) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:6523:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 10 I=0,N ^^^^^^^^^^^ ./specfun.f:6526:1: DO loop currently ends at statement: 10 PD(J,I)=0.0D0 ^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:6524:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 10 J=0,M ^^^^^^^^^^^ ./specfun.f:6526:1: DO loop currently ends at statement: 10 PD(J,I)=0.0D0 ^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:6530:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 15 I=1,N ^^^^^^^^^^^ ./specfun.f:6532:1: DO loop currently ends at statement: 15 PD(0,I)=0.5D0*I*(I+1.0D0)*X**(I+1) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:6549:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 30 I=1,M ^^^^^^^^^^^ ./specfun.f:6550:1: DO loop currently ends at statement: 30 PM(I,I)=-LS*(2.0D0*I-1.0D0)*XQ*PM(I-1,I-1) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:6551:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 35 I=0,MIN(M,N-1) ^^^^^^^^^^^^^^^^^^^^ ./specfun.f:6552:1: DO loop currently ends at statement: 35 PM(I,I+1)=(2.0D0*I+1.0D0)*X*PM(I,I) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:6559:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 45 J=1,N ^^^^^^^^^^^ ./specfun.f:6560:1: DO loop currently ends at statement: 45 PD(0,J)=LS*J*(PM(0,J-1)-X*PM(0,J))/XS ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:6747:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 50 K=1,K0 ^^^^^^^^^^^^ ./specfun.f:6748:1: DO loop currently ends at statement: 50 CP0=CP0+A(K)*Z1**(-2*K) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:6750:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 55 K=1,K0 ^^^^^^^^^^^^ ./specfun.f:6751:1: DO loop currently ends at statement: 55 CQ0=CQ0+B(K)*Z1**(-2*K-1) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:6757:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 60 K=1,K0 ^^^^^^^^^^^^ ./specfun.f:6758:1: DO loop currently ends at statement: 60 CP1=CP1+A1(K)*Z1**(-2*K) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:6760:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 65 K=1,K0 ^^^^^^^^^^^^ ./specfun.f:6761:1: DO loop currently ends at statement: 65 CQ1=CQ1+B1(K)*Z1**(-2*K-1) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:6852:15: portability: A DO loop should terminate with an END DO or CONTINUE DO 25 K=M,0,-1 ^^^^^^^^^^^^^^ ./specfun.f:6861:1: DO loop currently ends at statement: 25 XF0=XF ^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:6869:15: portability: A DO loop should terminate with an END DO or CONTINUE DO 30 K=1,12 ^^^^^^^^^^^^ ./specfun.f:6871:1: DO loop currently ends at statement: 30 XF=XF+XR ^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:6874:15: portability: A DO loop should terminate with an END DO or CONTINUE DO 35 K=1,12 ^^^^^^^^^^^^ ./specfun.f:6876:1: DO loop currently ends at statement: 35 XG=XG+XR ^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:7053:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 50 K=1,KMAX ^^^^^^^^^^^^^^ ./specfun.f:7057:1: DO loop currently ends at statement: 50 DK(K)=-(6.0D0*K+1.0D0)/(6.0D0*K-1.0D0)*CK(K) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:7062:15: portability: A DO loop should terminate with an END DO or CONTINUE DO 55 K=1,KM ^^^^^^^^^^^^ ./specfun.f:7065:1: DO loop currently ends at statement: 55 SAD=SAD+DK(K)*R ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:7069:15: portability: A DO loop should terminate with an END DO or CONTINUE DO 60 K=1,KM ^^^^^^^^^^^^ ./specfun.f:7072:1: DO loop currently ends at statement: 60 SBD=SBD+DK(K)*R ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:7085:15: portability: A DO loop should terminate with an END DO or CONTINUE DO 65 K=1,KM ^^^^^^^^^^^^ ./specfun.f:7088:1: DO loop currently ends at statement: 65 SDA=SDA+DK(2*K)*R ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:7092:15: portability: A DO loop should terminate with an END DO or CONTINUE DO 70 K=1,KM2 ^^^^^^^^^^^^^ ./specfun.f:7095:1: DO loop currently ends at statement: 70 SDB=SDB+DK(2*K+1)*R ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:7144:18: portability: A DO loop should terminate with an END DO or CONTINUE DO 5 K1=NM,K,-1 ^^^^^^^^^^^^^^^ ./specfun.f:7145:1: DO loop currently ends at statement: 5 CK(K1)=CK(K1)*1.0D-100 ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:7163:18: portability: A DO loop should terminate with an END DO or CONTINUE DO 10 J=3,KB+1 ^^^^^^^^^^^^^^ ./specfun.f:7168:1: DO loop currently ends at statement: 10 F2=F ^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:7175:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 25 K=1,KB ^^^^^^^^^^^^ ./specfun.f:7176:1: DO loop currently ends at statement: 25 SU1=SU1+CK(K) ^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:7178:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 30 K=KB+1,NM ^^^^^^^^^^^^^^^ ./specfun.f:7179:1: DO loop currently ends at statement: 30 SU2=SU2+CK(K) ^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:7181:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 35 J=1,(N+M+IP)/2 ^^^^^^^^^^^^^^^^^^^^ ./specfun.f:7182:1: DO loop currently ends at statement: 35 R1=R1*(J+0.5D0*(N+M+IP)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:7184:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 40 J=1,(N-M-IP)/2 ^^^^^^^^^^^^^^^^^^^^ ./specfun.f:7185:1: DO loop currently ends at statement: 40 R2=-R2*J ^^^^^^^^^^^^^^^^^^^ ./specfun.f:7191:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 45 K=1,KB ^^^^^^^^^^^^ ./specfun.f:7192:1: DO loop currently ends at statement: 45 CK(K)=FL/FS*S0*CK(K) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:7193:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 50 K=KB+1,NM ^^^^^^^^^^^^^^^ ./specfun.f:7194:1: DO loop currently ends at statement: 50 CK(K)=S0*CK(K) ^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:7226:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 35 K=0,NM-1 ^^^^^^^^^^^^^^ ./specfun.f:7247:1: DO loop currently ends at statement: 35 CK(K+1)=FAC*SUM/R1 ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:7230:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 10 I=I1,I1+2*M-1 ^^^^^^^^^^^^^^^^^^^ ./specfun.f:7231:1: DO loop currently ends at statement: 10 R=R*I ^^^^^^^^^^^^^^^^^^^ ./specfun.f:7233:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 15 I=I2,I2+K-1 ^^^^^^^^^^^^^^^^^ ./specfun.f:7234:1: DO loop currently ends at statement: 15 R=R*(I+0.5D0) ^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:7236:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 20 I=K+1,NM ^^^^^^^^^^^^^^ ./specfun.f:7243:1: DO loop currently ends at statement: 20 SW=SUM ^^^^^^^^^^^^^^^^^^^^ ./specfun.f:7245:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 30 I=2,M+K ^^^^^^^^^^^^^ ./specfun.f:7246:1: DO loop currently ends at statement: 30 R1=R1*I ^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:7303:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 35 NR=1,NT ^^^^^^^^^^^^^ ./specfun.f:7335:1: DO loop currently ends at statement: 35 ZO(NR)=Z ^^^^^^^^^^^^^^^^^^^ ./specfun.f:7319:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 20 I=1,NR-1 ^^^^^^^^^^^^^^ ./specfun.f:7320:1: DO loop currently ends at statement: 20 ZP=ZP*(Z-ZO(I)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:7323:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 30 I=1,NR-1 ^^^^^^^^^^^^^^ ./specfun.f:7329:1: DO loop currently ends at statement: 30 ZQ=ZQ+ZW ^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:7396:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 10 J=1,M-1 ^^^^^^^^^^^^^ ./specfun.f:7397:1: DO loop currently ends at statement: 10 RG=RG*(V*V-J*J) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:7400:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 15 J=1,M ^^^^^^^^^^^ ./specfun.f:7401:1: DO loop currently ends at statement: 15 R0=.5D0*R0*XQ/J ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:7408:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 20 K=1,NV-M ^^^^^^^^^^^^^^ ./specfun.f:7411:1: DO loop currently ends at statement: 20 PMV=PMV+R ^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:7431:18: portability: A DO loop should terminate with an END DO or CONTINUE DO 35 J=1,M ^^^^^^^^^^^ ./specfun.f:7432:1: DO loop currently ends at statement: 35 R2=R2*QR*J ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:7435:18: portability: A DO loop should terminate with an END DO or CONTINUE DO 40 K=1,M-1 ^^^^^^^^^^^^^ ./specfun.f:7437:1: DO loop currently ends at statement: 40 S0=S0+R1 ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:7443:15: portability: A DO loop should terminate with an END DO or CONTINUE DO 45 J=1,M ^^^^^^^^^^^ ./specfun.f:7444:1: DO loop currently ends at statement: 45 S1=S1+(J*J+V*V)/(J*(J*J-V*V)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:7450:18: portability: A DO loop should terminate with an END DO or CONTINUE DO 50 J=1,M ^^^^^^^^^^^ ./specfun.f:7451:1: DO loop currently ends at statement: 50 S=S+((K+J)**2+V*V)/((K+J)*((K+J)**2-V*V)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:7453:18: portability: A DO loop should terminate with an END DO or CONTINUE DO 55 J=1,K ^^^^^^^^^^^ ./specfun.f:7454:1: DO loop currently ends at statement: 55 S2=S2+1.0D0/(J*(J*J-V*V)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:7576:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 10 K=1,10 ^^^^^^^^^^^^ ./specfun.f:7579:1: DO loop currently ends at statement: 10 GI=GI-A(K)*T*DSIN((2.0D0*K-1.0D0)*TH) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:7583:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 15 J=0,NA-1 ^^^^^^^^^^^^^^ ./specfun.f:7585:1: DO loop currently ends at statement: 15 GI1=GI1+DATAN(Y/(X+J)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:7644:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 10 K=1,NM ^^^^^^^^^^^^ ./specfun.f:7648:1: DO loop currently ends at statement: 10 SW=SU1 ^^^^^^^^^^^^^^^^^ ./specfun.f:7651:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 20 K=1,NM ^^^^^^^^^^^^ ./specfun.f:7655:1: DO loop currently ends at statement: 20 SW=SU1 ^^^^^^^^^^^^^^^^^ ./specfun.f:7696:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 10 J=1,150 ^^^^^^^^^^^^^ ./specfun.f:7704:1: DO loop currently ends at statement: 10 H0=HU ^^^^^^^^^^^^^^^^ ./specfun.f:7786:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 10 K=9,1,-1 ^^^^^^^^^^^^^^ ./specfun.f:7787:1: DO loop currently ends at statement: 10 GL0=GL0*X2+A(K) ^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:7790:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 15 K=1,N ^^^^^^^^^^^ ./specfun.f:7792:1: DO loop currently ends at statement: 15 X0=X0-1.0D0 ^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:7825:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 15 K=2,N ^^^^^^^^^^^ ./specfun.f:7830:1: DO loop currently ends at statement: 15 Q1=QF ^^^^^^^^^^^^^^^^^^^ ./specfun.f:7942:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 35 K=1,K0 ^^^^^^^^^^^^ ./specfun.f:7943:1: DO loop currently ends at statement: 35 BI0=BI0+A(K)*XR**K ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:7946:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 40 K=1,K0 ^^^^^^^^^^^^ ./specfun.f:7947:1: DO loop currently ends at statement: 40 BI1=BI1+B(K)*XR**K ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:7956:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 65 K=1,50 ^^^^^^^^^^^^ ./specfun.f:7961:1: DO loop currently ends at statement: 65 WW=BK0 ^^^^^^^^^^^^^^^^^^^^ ./specfun.f:7971:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 75 K=1,8 ^^^^^^^^^^^ ./specfun.f:7972:1: DO loop currently ends at statement: 75 BK0=BK0+A1(K)*XR2**K ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:8013:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 10 K=2,N ^^^^^^^^^^^ ./specfun.f:8017:1: DO loop currently ends at statement: 10 CF1=CF ^^^^^^^^^^^^^^^^^^^^ ./specfun.f:8031:15: portability: A DO loop should terminate with an END DO or CONTINUE DO 15 K=2,N0 ^^^^^^^^^^^^ ./specfun.f:8035:1: DO loop currently ends at statement: 15 CF1=CF ^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:8044:18: portability: A DO loop should terminate with an END DO or CONTINUE DO 20 K=NM1,0,-1 ^^^^^^^^^^^^^^^^ ./specfun.f:8048:1: DO loop currently ends at statement: 20 CFA=CF ^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:8053:18: portability: A DO loop should terminate with an END DO or CONTINUE DO 25 K=M,0,-1 ^^^^^^^^^^^^^^ ./specfun.f:8057:1: DO loop currently ends at statement: 25 CFB=CF ^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:8059:18: portability: A DO loop should terminate with an END DO or CONTINUE DO 30 K=0,N0 ^^^^^^^^^^^^ ./specfun.f:8060:1: DO loop currently ends at statement: 30 CPB(K)=CS0*CPB(K) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:8066:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 35 K=1,N ^^^^^^^^^^^ ./specfun.f:8067:1: DO loop currently ends at statement: 35 CPD(K)=-0.5D0*Z*CPB(K)+K*CPB(K-1) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:8069:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 40 K=1,N0 ^^^^^^^^^^^^ ./specfun.f:8070:1: DO loop currently ends at statement: 40 CPD(K)=0.5D0*Z*CPB(K)-CPB(K-1) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:8196:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 10 K=2,N ^^^^^^^^^^^ ./specfun.f:8205:1: DO loop currently ends at statement: 10 P1=PF ^^^^^^^^^^^^^^^^ ./specfun.f:8237:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 5 I=1,251 ^^^^^^^^^^^^ ./specfun.f:8238:1: DO loop currently ends at statement: 5 FC(I)=0.0D0 ^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:8251:15: portability: A DO loop should terminate with an END DO or CONTINUE DO 7666 I=1,251 ^^^^^^^^^^^^^^^ ./specfun.f:8252:2: DO loop currently ends at statement: 7666 FC(I)=FNAN ^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:8295:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 7 I=1,251 ^^^^^^^^^^^^ ./specfun.f:8296:2: DO loop currently ends at statement: 7 FC(I)=FNAN ^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:8347:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 30 K=1,KM ^^^^^^^^^^^^ ./specfun.f:8348:1: DO loop currently ends at statement: 30 FC(K)=S0*FC(K) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:8366:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 40 K=1,KM ^^^^^^^^^^^^ ./specfun.f:8367:1: DO loop currently ends at statement: 40 FC(K)=S0*FC(K) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:8409:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 65 K=1,KM ^^^^^^^^^^^^ ./specfun.f:8410:1: DO loop currently ends at statement: 65 FC(K)=S0*FC(K) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:8437:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 90 J=1,KM ^^^^^^^^^^^^ ./specfun.f:8438:1: DO loop currently ends at statement: 90 FC(J)=-FC(J) ^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:8466:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 10 K=0,N ^^^^^^^^^^^ ./specfun.f:8468:1: DO loop currently ends at statement: 10 DI(K)=0.0D0 ^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:8486:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 15 K=M,0,-1 ^^^^^^^^^^^^^^ ./specfun.f:8490:1: DO loop currently ends at statement: 15 F1=F ^^^^^^^^^^^^^^^^^^ ./specfun.f:8492:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 20 K=0,NM ^^^^^^^^^^^^ ./specfun.f:8493:1: DO loop currently ends at statement: 20 SI(K)=CS*SI(K) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:8496:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 25 K=1,NM ^^^^^^^^^^^^ ./specfun.f:8497:1: DO loop currently ends at statement: 25 DI(K)=SI(K-1)-(K+1.0D0)/X*SI(K) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:8542:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 10 L1=4,200,2 ^^^^^^^^^^^^^^^^ ./specfun.f:8547:1: DO loop currently ends at statement: 10 H1=HL ^^^^^^^^^^^^^^^^ ./specfun.f:8569:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 40 L2=5,160,2 ^^^^^^^^^^^^^^^^ ./specfun.f:8574:1: DO loop currently ends at statement: 40 D2=DL ^^^^^^^^^^^^^^^^ ./specfun.f:8625:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 10 J=1,2*M+IP ^^^^^^^^^^^^^^^^ ./specfun.f:8626:1: DO loop currently ends at statement: 10 R0=R0*J ^^^^^^^^^^^^^^^^^^ ./specfun.f:8630:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 15 K=2,NM ^^^^^^^^^^^^ ./specfun.f:8634:1: DO loop currently ends at statement: 15 SW=SUC ^^^^^^^^^^^^^^^^^ ./specfun.f:8640:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 25 J=1,NM ^^^^^^^^^^^^ ./specfun.f:8643:1: DO loop currently ends at statement: 25 SW1=SUM ^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:8645:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 35 J=1,(N+M+IP)/2 ^^^^^^^^^^^^^^^^^^^^ ./specfun.f:8646:1: DO loop currently ends at statement: 35 R1=R1*(J+0.5D0*(N+M+IP)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:8648:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 40 J=1,M ^^^^^^^^^^^ ./specfun.f:8649:1: DO loop currently ends at statement: 40 R2=2.0D0*C*R2*J ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:8651:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 45 J=1,(N-M-IP)/2 ^^^^^^^^^^^^^^^^^^^^ ./specfun.f:8652:1: DO loop currently ends at statement: 45 R3=R3*J ^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:8670:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 50 K=1,NM ^^^^^^^^^^^^ ./specfun.f:8682:1: DO loop currently ends at statement: 50 SW=R1F ^^^^^^^^^^^^^^^^^ ./specfun.f:8687:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 60 K=1,NM ^^^^^^^^^^^^ ./specfun.f:8699:1: DO loop currently ends at statement: 60 SW=SUD ^^^^^^^^^^^^^^^^^ ./specfun.f:8917:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 15 K=1,25 ^^^^^^^^^^^^ ./specfun.f:8922:1: DO loop currently ends at statement: 15 HU=HU+R ^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:8949:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 10 K=1,NM ^^^^^^^^^^^^ ./specfun.f:8952:1: DO loop currently ends at statement: 10 GW=GF0 ^^^^^^^^^^^^^^^^^ ./specfun.f:8956:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 20 K=1,NM ^^^^^^^^^^^^ ./specfun.f:8963:1: DO loop currently ends at statement: 20 GW=GD0 ^^^^^^^^^^^^^^^^^ ./specfun.f:9015:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 30 K=1,16 ^^^^^^^^^^^^ ./specfun.f:9020:1: DO loop currently ends at statement: 30 A1=AF ^^^^^^^^^^^^^^^^^^^ ./specfun.f:9023:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 35 K=1,8 ^^^^^^^^^^^ ./specfun.f:9025:1: DO loop currently ends at statement: 35 BF=BF+A(2*K)*R ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:9028:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 40 K=1,8 ^^^^^^^^^^^ ./specfun.f:9030:1: DO loop currently ends at statement: 40 BG=BG+A(2*K+1)*R ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:9057:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 10 K=0,N ^^^^^^^^^^^ ./specfun.f:9059:1: DO loop currently ends at statement: 10 DY(K)=1.0D+300 ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:9068:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 15 K=2,N ^^^^^^^^^^^ ./specfun.f:9073:1: DO loop currently ends at statement: 15 RF1=RF2 ^^^^^^^^^^^^^^^^^^ ./specfun.f:9076:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 25 K=1,NM ^^^^^^^^^^^^ ./specfun.f:9077:1: DO loop currently ends at statement: 25 DY(K)=-K*RY(K)/X+RY(K-1) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:9119:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 10 J=1,N1 ^^^^^^^^^^^^ ./specfun.f:9120:1: DO loop currently ends at statement: 10 R=(0.5D0/J-1.0D0)*R ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:9235:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 85 K=1,KM ^^^^^^^^^^^^ ./specfun.f:9246:1: DO loop currently ends at statement: 85 QN0=QN0+FAC*RS ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:9336:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 15 K=1,150 ^^^^^^^^^^^^^ ./specfun.f:9343:1: DO loop currently ends at statement: 15 H0=HM1 ^^^^^^^^^^^^^^^^^ ./specfun.f:9350:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 25 M=1,N ^^^^^^^^^^^ ./specfun.f:9352:1: DO loop currently ends at statement: 25 IF (B.LT.0.0) S0=S0+(1.0D0-A)/(M*(A+M-1.0D0)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:9357:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 50 K=1,150 ^^^^^^^^^^^^^ ./specfun.f:9378:1: DO loop currently ends at statement: 50 H0=HM2 ^^^^^^^^^^^^^^^^^ ./specfun.f:9361:15: portability: A DO loop should terminate with an END DO or CONTINUE DO 30 M=1,K ^^^^^^^^^^^ ./specfun.f:9362:1: DO loop currently ends at statement: 30 S1=S1-(M+2.0D0*A-2.0D0)/(M*(M+A-1.0D0)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:9363:15: portability: A DO loop should terminate with an END DO or CONTINUE DO 35 M=1,N ^^^^^^^^^^^ ./specfun.f:9364:1: DO loop currently ends at statement: 35 S2=S2+1.0D0/(K+M) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:9366:15: portability: A DO loop should terminate with an END DO or CONTINUE DO 40 M=1,K+N ^^^^^^^^^^^^^ ./specfun.f:9367:1: DO loop currently ends at statement: 40 S1=S1+(1.0D0-A)/(M*(M+A-1.0D0)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:9368:15: portability: A DO loop should terminate with an END DO or CONTINUE DO 45 M=1,K ^^^^^^^^^^^ ./specfun.f:9369:1: DO loop currently ends at statement: 45 S2=S2+1.0D0/M ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:9387:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 60 K=1,N-1 ^^^^^^^^^^^^^ ./specfun.f:9389:1: DO loop currently ends at statement: 60 HM3=HM3+R ^^^^^^^^^^^^^^^^^^^^ ./specfun.f:9450:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 20 I=1,NR-1 ^^^^^^^^^^^^^^ ./specfun.f:9451:1: DO loop currently ends at statement: 20 ZP=ZP*(Z-ZO(I)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:9634:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 10 J=1,NM ^^^^^^^^^^^^ ./specfun.f:9637:1: DO loop currently ends at statement: 10 SW=SUM ^^^^^^^^^^^^^^^^^^^^ ./specfun.f:9685:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 20 K=M,0,-1 ^^^^^^^^^^^^^^ ./specfun.f:9690:1: DO loop currently ends at statement: 20 F1=F ^^^^^^^^^^^^^^^ ./specfun.f:9691:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 25 K=0,N ^^^^^^^^^^^ ./specfun.f:9692:1: DO loop currently ends at statement: 25 BJ(K+1)=BJ(K+1)/(BS-F) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:9695:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 30 K=1,N ^^^^^^^^^^^ ./specfun.f:9697:1: DO loop currently ends at statement: 30 FJ(K+1)=(K*K/(X*X)-1.0D0)*BJ(K+1)-DJ(K+1)/X ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:9724:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 10 K=0,N ^^^^^^^^^^^ ./specfun.f:9726:1: DO loop currently ends at statement: 10 DJ(K)=0.0D0 ^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:9751:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 15 K=M,0,-1 ^^^^^^^^^^^^^^ ./specfun.f:9755:1: DO loop currently ends at statement: 15 F1=F ^^^^^^^^^^^^^^^^^^ ./specfun.f:9759:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 20 K=0,NM ^^^^^^^^^^^^ ./specfun.f:9760:1: DO loop currently ends at statement: 20 SJ(K)=CS*SJ(K) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:9762:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 25 K=1,NM ^^^^^^^^^^^^ ./specfun.f:9763:1: DO loop currently ends at statement: 25 DJ(K)=SJ(K-1)-(K+1.0D0)*SJ(K)/X ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:9811:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 10 K=2,N ^^^^^^^^^^^ ./specfun.f:9826:1: DO loop currently ends at statement: 10 DY1=DYN ^^^^^^^^^^^^^^^^^^ ./specfun.f:9859:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 15 M=1,NT ^^^^^^^^^^^^ ./specfun.f:9887:1: DO loop currently ends at statement: 15 RT=RT+4.44D0 ^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:9975:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 10 K=0,NM ^^^^^^^^^^^^ ./specfun.f:9977:1: DO loop currently ends at statement: 10 CHD1(K)=CDJ(K)+CI*CDY(K) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:9981:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 15 K=0,NM ^^^^^^^^^^^^ ./specfun.f:9984:1: DO loop currently ends at statement: 15 CFAC=CFAC*CI ^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:9990:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 20 K=0,NM ^^^^^^^^^^^^ ./specfun.f:9993:1: DO loop currently ends at statement: 20 CFAC=CFAC*CF1 ^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:9995:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 25 K=0,NM ^^^^^^^^^^^^ ./specfun.f:9997:1: DO loop currently ends at statement: 25 CHD2(K)=CDJ(K)-CI*CDY(K) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:10000:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 30 K=0,NM ^^^^^^^^^^^^ ./specfun.f:10004:1: DO loop currently ends at statement: 30 CHD2(K)=CDJ(K)-CI*CDY(K) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:10172:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 10 K=0,N ^^^^^^^^^^^ ./specfun.f:10176:1: DO loop currently ends at statement: 10 DK(K)=1.0D+300 ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:10209:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 25 K=1,K0 ^^^^^^^^^^^^ ./specfun.f:10211:1: DO loop currently ends at statement: 25 SUM=SUM+R ^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:10224:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 30 K=M,0,-1 ^^^^^^^^^^^^^^ ./specfun.f:10228:1: DO loop currently ends at statement: 30 F1=F ^^^^^^^^^^^^^^^ ./specfun.f:10230:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 35 K=0,N ^^^^^^^^^^^ ./specfun.f:10231:1: DO loop currently ends at statement: 35 BI(K)=CS*BI(K) ^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:10233:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 40 K=1,N ^^^^^^^^^^^ ./specfun.f:10234:1: DO loop currently ends at statement: 40 DI(K)=-(K+V0)/X*BI(K)+BI(K-1) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:10241:15: portability: A DO loop should terminate with an END DO or CONTINUE DO 45 K=1,50 ^^^^^^^^^^^^ ./specfun.f:10247:1: DO loop currently ends at statement: 45 WW=WA ^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:10257:15: portability: A DO loop should terminate with an END DO or CONTINUE DO 55 K=1,120 ^^^^^^^^^^^^^ ./specfun.f:10263:1: DO loop currently ends at statement: 55 WW=WA ^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:10270:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 65 K=1,K0 ^^^^^^^^^^^^ ./specfun.f:10272:1: DO loop currently ends at statement: 65 SUM=SUM+R ^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:10278:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 70 K=2,N ^^^^^^^^^^^ ./specfun.f:10282:1: DO loop currently ends at statement: 70 BK1=BK2 ^^^^^^^^^^^^^^^^^^ ./specfun.f:10284:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 80 K=1,N ^^^^^^^^^^^ ./specfun.f:10285:1: DO loop currently ends at statement: 80 DK(K)=-(K+V0)/X*BK(K)-BK(K-1) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:10315:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 5 I=1,NM ^^^^^^^^^^^ ./specfun.f:10316:1: DO loop currently ends at statement: 5 DF(I)=0D0 ^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:10349:18: portability: A DO loop should terminate with an END DO or CONTINUE DO 12 K1=K,NM ^^^^^^^^^^^^^ ./specfun.f:10350:1: DO loop currently ends at statement: 12 DF(K1)=DF(K1)*1.0D-100 ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:10367:18: portability: A DO loop should terminate with an END DO or CONTINUE DO 20 J=3,KB+1 ^^^^^^^^^^^^^^ ./specfun.f:10377:1: DO loop currently ends at statement: 20 F2=F ^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:10371:24: portability: A DO loop should terminate with an END DO or CONTINUE DO 15 K1=1,J ^^^^^^^^^^^^ ./specfun.f:10372:1: DO loop currently ends at statement: 15 DF(K1)=DF(K1)*1.0D-100 ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:10385:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 40 J=M+IP+1,2*(M+IP) ^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:10386:1: DO loop currently ends at statement: 40 R1=R1*J ^^^^^^^^^^^^^^^^^^ ./specfun.f:10388:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 45 K=2,KB ^^^^^^^^^^^^ ./specfun.f:10390:1: DO loop currently ends at statement: 45 SU1=SU1+R1*DF(K) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:10393:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 50 K=KB+1,NM ^^^^^^^^^^^^^^^ ./specfun.f:10397:1: DO loop currently ends at statement: 50 SW=SU2 ^^^^^^^^^^^^^^^^^ ./specfun.f:10399:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 60 J=1,(M+N+IP)/2 ^^^^^^^^^^^^^^^^^^^^ ./specfun.f:10400:1: DO loop currently ends at statement: 60 R3=R3*(J+0.5D0*(N+M+IP)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:10402:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 65 J=1,(N-M-IP)/2 ^^^^^^^^^^^^^^^^^^^^ ./specfun.f:10403:1: DO loop currently ends at statement: 65 R4=-4.0D0*R4*J ^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:10405:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 70 K=1,KB ^^^^^^^^^^^^ ./specfun.f:10406:1: DO loop currently ends at statement: 70 DF(K)=FL/FS*S0*DF(K) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:10407:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 75 K=KB+1,NM ^^^^^^^^^^^^^^^ ./specfun.f:10408:1: DO loop currently ends at statement: 75 DF(K)=S0*DF(K) ^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:10478:15: portability: A DO loop should terminate with an END DO or CONTINUE DO 30 K=1,K0 ^^^^^^^^^^^^ ./specfun.f:10481:1: DO loop currently ends at statement: 30 PX=PX+RP ^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:10484:15: portability: A DO loop should terminate with an END DO or CONTINUE DO 35 K=1,K0 ^^^^^^^^^^^^ ./specfun.f:10487:1: DO loop currently ends at statement: 35 QX=QX+RQ ^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:10543:15: portability: A DO loop should terminate with an END DO or CONTINUE DO 75 K=1,K0 ^^^^^^^^^^^^ ./specfun.f:10545:1: DO loop currently ends at statement: 75 VSL=VSL+R ^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:10573:15: portability: A DO loop should terminate with an END DO or CONTINUE DO 100 K=1,K0 ^^^^^^^^^^^^^ ./specfun.f:10575:1: DO loop currently ends at statement: 100 SUM=SUM+R ^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:10622:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 10 K=0,N ^^^^^^^^^^^ ./specfun.f:10626:1: DO loop currently ends at statement: 10 CDK(K)=1.0D+300 ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:10658:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 25 K=1,K0 ^^^^^^^^^^^^ ./specfun.f:10660:1: DO loop currently ends at statement: 25 CS=CS+CR ^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:10671:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 30 K=M,0,-1 ^^^^^^^^^^^^^^ ./specfun.f:10675:1: DO loop currently ends at statement: 30 CF1=CF ^^^^^^^^^^^^^^^^^ ./specfun.f:10677:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 35 K=0,N ^^^^^^^^^^^ ./specfun.f:10678:1: DO loop currently ends at statement: 35 CBI(K)=CS*CBI(K) ^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:10714:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 60 K=1,K0 ^^^^^^^^^^^^ ./specfun.f:10716:1: DO loop currently ends at statement: 60 CS=CS+CR ^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:10738:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 80 K=1,N ^^^^^^^^^^^ ./specfun.f:10740:1: DO loop currently ends at statement: 80 CDK(K)=-(K+V0)/Z*CBK(K)-CBK(K-1) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:10784:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 10 K=0,N ^^^^^^^^^^^ ./specfun.f:10788:1: DO loop currently ends at statement: 10 CDK(K)=1.0D+300 ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:10820:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 25 K=1,K0 ^^^^^^^^^^^^ ./specfun.f:10822:1: DO loop currently ends at statement: 25 CS=CS+CR ^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:10833:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 30 K=M,0,-1 ^^^^^^^^^^^^^^ ./specfun.f:10837:1: DO loop currently ends at statement: 30 CF1=CF ^^^^^^^^^^^^^^^^^ ./specfun.f:10839:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 35 K=0,N ^^^^^^^^^^^ ./specfun.f:10840:1: DO loop currently ends at statement: 35 CBI(K)=CS*CBI(K) ^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:10878:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 60 K=1,K0 ^^^^^^^^^^^^ ./specfun.f:10880:1: DO loop currently ends at statement: 60 CS=CS+CR ^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:10888:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 65 K=2,N ^^^^^^^^^^^ ./specfun.f:10892:1: DO loop currently ends at statement: 65 CG1=CGK ^^^^^^^^^^^^^^^^^^ ./specfun.f:10907:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 75 K=1,N ^^^^^^^^^^^ ./specfun.f:10909:1: DO loop currently ends at statement: 75 CDK(K)=-(K+V0)/Z*CBK(K)-CBK(K-1) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:10941:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 10 K=1,80 ^^^^^^^^^^^^ ./specfun.f:10947:1: DO loop currently ends at statement: 10 WA0=WA ^^^^^^^^^^^^^^^^^^^^ ./specfun.f:10953:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 15 K=M,0,-1 ^^^^^^^^^^^^^^ ./specfun.f:10957:1: DO loop currently ends at statement: 15 CF0=CF ^^^^^^^^^^^^^^^^^^^^ ./specfun.f:10976:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 20 K=1,20 ^^^^^^^^^^^^ ./specfun.f:10978:1: DO loop currently ends at statement: 20 CF=CF+CR ^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:10981:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 25 K=1,12 ^^^^^^^^^^^^ ./specfun.f:10983:1: DO loop currently ends at statement: 25 CG=CG+CR ^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:11038:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 25 K=M,0,-1 ^^^^^^^^^^^^^^ ./specfun.f:11047:1: DO loop currently ends at statement: 25 F0=F ^^^^^^^^^^^^^^^^^^ ./specfun.f:11054:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 30 K=1,20 ^^^^^^^^^^^^ ./specfun.f:11056:1: DO loop currently ends at statement: 30 F=F+R ^^^^^^^^^^^^^^^^^^^ ./specfun.f:11059:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 35 K=1,12 ^^^^^^^^^^^^ ./specfun.f:11061:1: DO loop currently ends at statement: 35 G=G+R ^^^^^^^^^^^^^^^^^^^ ./specfun.f:11094:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 10 K=0,N ^^^^^^^^^^^ ./specfun.f:11096:1: DO loop currently ends at statement: 10 DJ(K)=0.0D0 ^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:11115:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 15 K=M,0,-1 ^^^^^^^^^^^^^^ ./specfun.f:11119:1: DO loop currently ends at statement: 15 F1=F ^^^^^^^^^^^^^^^^^^ ./specfun.f:11122:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 20 K=0,NM ^^^^^^^^^^^^ ./specfun.f:11123:1: DO loop currently ends at statement: 20 RJ(K)=CS*RJ(K) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:11126:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 25 K=1,NM ^^^^^^^^^^^^ ./specfun.f:11127:1: DO loop currently ends at statement: 25 DJ(K)=-K*RJ(K)/X+RJ(K-1) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:11154:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 40 NR=1,N/2 ^^^^^^^^^^^^^^ ./specfun.f:11188:1: DO loop currently ends at statement: 40 W(N+1-NR)=W(NR) ^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:11162:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 15 K=2,N ^^^^^^^^^^^ ./specfun.f:11166:1: DO loop currently ends at statement: 15 F1=HF ^^^^^^^^^^^^^^^^^^^ ./specfun.f:11168:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 20 I=1,NR-1 ^^^^^^^^^^^^^^ ./specfun.f:11169:1: DO loop currently ends at statement: 20 P=P*(Z-X(I)) ^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:11172:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 30 I=1,NR-1 ^^^^^^^^^^^^^^ ./specfun.f:11178:1: DO loop currently ends at statement: 30 Q=Q+WP ^^^^^^^^^^^^^^^^^^^^ ./specfun.f:11185:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 35 K=1,N ^^^^^^^^^^^ ./specfun.f:11186:1: DO loop currently ends at statement: 35 R=2.0D0*R*K ^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:11297:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 10 K=2,N ^^^^^^^^^^^ ./specfun.f:11298:1: DO loop currently ends at statement: 10 EN(K)=1.0D0/(K-1.0) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:11305:15: portability: A DO loop should terminate with an END DO or CONTINUE DO 15 J=1,L-1 ^^^^^^^^^^^^^ ./specfun.f:11306:1: DO loop currently ends at statement: 15 RP=-RP*X/J ^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:11308:15: portability: A DO loop should terminate with an END DO or CONTINUE DO 20 M=1,L-1 ^^^^^^^^^^^^^ ./specfun.f:11309:1: DO loop currently ends at statement: 20 PS=PS+1.0D0/M ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:11315:18: portability: A DO loop should terminate with an END DO or CONTINUE DO 25 J=1,M ^^^^^^^^^^^ ./specfun.f:11316:1: DO loop currently ends at statement: 25 R=-R*X/J ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:11326:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 50 L=1,N ^^^^^^^^^^^ ./specfun.f:11331:1: DO loop currently ends at statement: 50 EN(L)=EXP(-X)*T ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:11328:15: portability: A DO loop should terminate with an END DO or CONTINUE DO 45 K=M,1,-1 ^^^^^^^^^^^^^^ ./specfun.f:11329:1: DO loop currently ends at statement: 45 T0=(L+K-1.0D0)/(1.0D0+K/(X+T0)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:11354:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 10 K=0,N ^^^^^^^^^^^ ./specfun.f:11356:1: DO loop currently ends at statement: 10 DK(K)=-1.0D+300 ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:11363:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 15 K=2,N ^^^^^^^^^^^ ./specfun.f:11368:1: DO loop currently ends at statement: 15 F1=F ^^^^^^^^^^^^^^^ ./specfun.f:11371:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 25 K=1,NM ^^^^^^^^^^^^ ./specfun.f:11372:1: DO loop currently ends at statement: 25 DK(K)=-SK(K-1)-(K+1.0D0)/X*SK(K) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:11393:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 10 K=2,N ^^^^^^^^^^^ ./specfun.f:11396:1: DO loop currently ends at statement: 10 E1=EK ^^^^^^^^^^^^^^^^ ./specfun.f:11417:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 10 K=2,M1 ^^^^^^^^^^^^ ./specfun.f:11418:1: DO loop currently ends at statement: 10 GA=GA*K ^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:11422:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 15 K=1,M ^^^^^^^^^^^ ./specfun.f:11423:1: DO loop currently ends at statement: 15 GA=0.5D0*GA*(2.0D0*K-1.0D0) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:11483:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 15 K=KV,NA ^^^^^^^^^^^^^ ./specfun.f:11487:1: DO loop currently ends at statement: 15 F1=F ^^^^^^^^^^^^^^^^^^ ./specfun.f:11498:15: portability: A DO loop should terminate with an END DO or CONTINUE DO 20 K=KV-2,0,-1 ^^^^^^^^^^^^^^^^^ ./specfun.f:11502:1: DO loop currently ends at statement: 20 F0=F ^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:11509:15: portability: A DO loop should terminate with an END DO or CONTINUE DO 25 K=M,0,-1 ^^^^^^^^^^^^^^ ./specfun.f:11513:1: DO loop currently ends at statement: 25 F0=F ^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:11515:15: portability: A DO loop should terminate with an END DO or CONTINUE DO 30 K=0,NA ^^^^^^^^^^^^ ./specfun.f:11516:1: DO loop currently ends at statement: 30 VV(K)=S0*VV(K) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:11529:15: portability: A DO loop should terminate with an END DO or CONTINUE DO 35 K=2,NA ^^^^^^^^^^^^ ./specfun.f:11533:1: DO loop currently ends at statement: 35 F1=F ^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:11612:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 25 K=KM,0,-1 ^^^^^^^^^^^^^^^ ./specfun.f:11616:1: DO loop currently ends at statement: 25 CQF1=CQF0 ^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:11617:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 30 K=0,N ^^^^^^^^^^^ ./specfun.f:11618:1: DO loop currently ends at statement: 30 CQM(0,K)=CQ0*CQM(0,K)/CQF0 ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:11621:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 35 K=KM,0,-1 ^^^^^^^^^^^^^^^ ./specfun.f:11625:1: DO loop currently ends at statement: 35 CQF1=CQF0 ^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:11627:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 40 K=0,N ^^^^^^^^^^^ ./specfun.f:11628:1: DO loop currently ends at statement: 40 CQM(1,K)=CQ10*CQM(1,K)/CQF0 ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:11640:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 50 J=1,N ^^^^^^^^^^^ ./specfun.f:11641:1: DO loop currently ends at statement: 50 CQD(0,J)=LS*J*(CQM(0,J-1)-Z*CQM(0,J))/ZS ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:11672:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 5 I=1,N-M+1 ^^^^^^^^^^^^^^ ./specfun.f:11673:1: DO loop currently ends at statement: 5 EG(I)=(I+M)*(I+M-1.0D0) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:11681:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 10 I=1,NM ^^^^^^^^^^^^ ./specfun.f:11691:1: DO loop currently ends at statement: 10 G(I)=K*(K-1.0)/((DK2-3.0)*(DK2-1.0))*CS ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:11692:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 15 K=2,NM ^^^^^^^^^^^^ ./specfun.f:11694:1: DO loop currently ends at statement: 15 F(K)=E(K)*E(K) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:11707:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 25 I=1,ICM ^^^^^^^^^^^^^ ./specfun.f:11709:1: DO loop currently ends at statement: 25 H(I)=XB ^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:11781:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 10 K=0,N ^^^^^^^^^^^ ./specfun.f:11785:1: DO loop currently ends at statement: 10 CDK(K)=-(1.0D+300,0.0D0) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:11804:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 15 K=M,0,-1 ^^^^^^^^^^^^^^ ./specfun.f:11810:1: DO loop currently ends at statement: 15 CF1=CF ^^^^^^^^^^^^^^^^^ ./specfun.f:11812:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 20 K=0,NM ^^^^^^^^^^^^ ./specfun.f:11813:1: DO loop currently ends at statement: 20 CBI(K)=CS0*CBI(K) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:11827:15: portability: A DO loop should terminate with an END DO or CONTINUE DO 25 K=1,K0 ^^^^^^^^^^^^ ./specfun.f:11829:1: DO loop currently ends at statement: 25 CBKL=CBKL+CR ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:11835:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 35 K=2,NM ^^^^^^^^^^^^ ./specfun.f:11839:1: DO loop currently ends at statement: 35 CG1=CG ^^^^^^^^^^^^^^^^^ ./specfun.f:11854:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 50 K=1,NM ^^^^^^^^^^^^ ./specfun.f:11856:1: DO loop currently ends at statement: 50 CDK(K)=-CBK(K-1)-K/Z*CBK(K) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:11888:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 10 K=0,N ^^^^^^^^^^^ ./specfun.f:11892:1: DO loop currently ends at statement: 10 CDK(K)=(1.0D+300,0.0D0) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:11915:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 45 K=M,0,-1 ^^^^^^^^^^^^^^ ./specfun.f:11919:1: DO loop currently ends at statement: 45 CF1=CF ^^^^^^^^^^^^^^^^^ ./specfun.f:11921:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 50 K=0,NM ^^^^^^^^^^^^ ./specfun.f:11922:1: DO loop currently ends at statement: 50 CBI(K)=CS*CBI(K) ^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:11923:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 60 K=2,NM ^^^^^^^^^^^^ ./specfun.f:11929:1: DO loop currently ends at statement: 60 CBK(K)=CKK ^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:11930:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 70 K=2,NM ^^^^^^^^^^^^ ./specfun.f:11932:1: DO loop currently ends at statement: 70 CDK(K)=-CBK(K-1)-K/Z*CBK(K) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:12004:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 30 K=1,KM ^^^^^^^^^^^^ ./specfun.f:12015:1: DO loop currently ends at statement: 30 W1=F1R ^^^^^^^^^^^^^^^^^ ./specfun.f:12018:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 40 K=1,KM ^^^^^^^^^^^^ ./specfun.f:12032:1: DO loop currently ends at statement: 40 W2=D1R ^^^^^^^^^^^^^^^^^ ./specfun.f:12036:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 55 K=1,KM ^^^^^^^^^^^^ ./specfun.f:12047:1: DO loop currently ends at statement: 55 W1=F2R ^^^^^^^^^^^^^^^^^ ./specfun.f:12050:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 65 K=1,KM ^^^^^^^^^^^^ ./specfun.f:12064:1: DO loop currently ends at statement: 65 W2=D2R ^^^^^^^^^^^^^^^^^ ./specfun.f:12146:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 30 K=1,K0 ^^^^^^^^^^^^ ./specfun.f:12147:1: DO loop currently ends at statement: 30 CBI0=CBI0+A(K)*ZR**K ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:12150:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 35 K=1,K0 ^^^^^^^^^^^^ ./specfun.f:12151:1: DO loop currently ends at statement: 35 CBI1=CBI1+B(K)*ZR**K ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:12159:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 40 K=1,50 ^^^^^^^^^^^^ ./specfun.f:12164:1: DO loop currently ends at statement: 40 CW=CS ^^^^^^^^^^^^^^^^^^^ ./specfun.f:12175:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 50 K=1,10 ^^^^^^^^^^^^ ./specfun.f:12176:1: DO loop currently ends at statement: 50 CBK0=CBK0+A1(K)*ZR2**K ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:12237:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 10 K=1,8 ^^^^^^^^^^^ ./specfun.f:12239:1: DO loop currently ends at statement: 10 PSI=PSI-A(K)*Z2**(-K)*DSIN(2.0D0*K*TH) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:12243:15: portability: A DO loop should terminate with an END DO or CONTINUE DO 20 K=1,N ^^^^^^^^^^^ ./specfun.f:12245:1: DO loop currently ends at statement: 20 RI=RI+Y/((X0-K)**2.0D0+Y*Y) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:12280:12: portability: A DO loop should terminate with an END DO or CONTINUE DO 10 K=0,N ^^^^^^^^^^^ ./specfun.f:12282:1: DO loop currently ends at statement: 10 DY(K)=1.0D+300 ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:12293:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 15 K=2,N ^^^^^^^^^^^ ./specfun.f:12298:1: DO loop currently ends at statement: 15 F1=F ^^^^^^^^^^^^^^^ ./specfun.f:12300:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 25 K=1,NM ^^^^^^^^^^^^ ./specfun.f:12301:1: DO loop currently ends at statement: 25 DY(K)=SY(K-1)-(K+1.0D0)*SY(K)/X ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./specfun.f:12325:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 10 N=1,40 ^^^^^^^^^^^^ ./specfun.f:12332:1: DO loop currently ends at statement: 10 B0=B ^^^^^^^^^^^^^^^ ./specfun.f:12335:9: portability: A DO loop should terminate with an END DO or CONTINUE DO 20 J=N,1,-1 ^^^^^^^^^^^^^^ ./specfun.f:12339:1: DO loop currently ends at statement: 20 DN=D ^^^^^^^^^^^^^^^ /usr/local/clang18/bin/clang -shared -L/usr/local/clang/lib64 -L/usr/local/clang18/lib -L/usr/local/clang18/lib/x86_64-unknown-linux-gnu -L/usr/local/gcc13/lib64 -L/usr/local/lib64 -o GeoModels.so CompositeLikelihood2.o CompositeLikelihood2_ani.o CompositeLikelihoodCond2.o CompositeLikelihoodCond2_ani.o CorrelationFunction.o Distributions.o GeoModels_init.o Godambe.o Gradient.o HypergeometricFunctions.o TB.o Utility.o mvn.o mvndstpack.o specfun.o weightedleastsquare.o -L/data/gannet/ripley/R/R-clang/lib -lRlapack -L/data/gannet/ripley/R/R-clang/lib -lRblas -lFortran_main -lFortranRuntime -lFortranDecimal -lm -lFortran_main -lFortranRuntime -lFortranDecimal -lm make[1]: Leaving directory '/data/gannet/ripley/R/packages/tests-clang/GeoModels/src' make[1]: Entering directory '/data/gannet/ripley/R/packages/tests-clang/GeoModels/src' make[1]: Leaving directory '/data/gannet/ripley/R/packages/tests-clang/GeoModels/src' installing to /data/gannet/ripley/R/packages/tests-clang/GeoModels.Rcheck/00LOCK-GeoModels/00new/GeoModels/libs ** R ** data ** byte-compile and prepare package for lazy loading ** help *** installing help indices ** building package indices ** testing if installed package can be loaded from temporary location ** checking absolute paths in shared objects and dynamic libraries ** testing if installed package can be loaded from final location ** testing if installed package keeps a record of temporary installation path * DONE (GeoModels)