R Development Page
fAsianOptions log file (build_win64)
Tue Jul 26 19:15:36 2022: Building binary for package fAsianOptions (SVN revision 6258)
using R version 4.2.1 Patched (2022-07-22 r82619 ucrt) ...
* installing to library 'R:/lib/local/4.2'
* installing *source* package 'fAsianOptions' ...
** using staged installation
** libs
gfortran -fno-optimize-sibling-calls -O2 -mfpmath=sse -msse2 -mstackrealign -c EBMAsianOptions.f -o EBMAsianOptions.o
EBMAsianOptions.f:1422:72:
1422 | DO 10 K=1,NPDE
| 1
Warning: Fortran 2018 deleted feature: Shared DO termination label 10 at (1)
EBMAsianOptions.f:1424:72:
1424 | DO 10 I=1,KORD
| 1
Warning: Fortran 2018 deleted feature: Shared DO termination label 10 at (1)
EBMAsianOptions.f:1513:72:
1513 | DO 20 J=1,KRPT
| 1
Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1)
EBMAsianOptions.f:1540:72:
1540 | DO 40 J=JL,JU
| 1
Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1)
EBMAsianOptions.f:1542:72:
1542 | DO 40 JJ=1,NPDE
| 1
Warning: Fortran 2018 deleted feature: Shared DO termination label 40 at (1)
EBMAsianOptions.f:1760:72:
1760 | DO 195 J = 1,IPTS
| 1
Warning: Fortran 2018 deleted feature: Shared DO termination label 195 at (1)
EBMAsianOptions.f:1794:72:
1794 | 240 XC(I) = XR
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 240 at (1)
EBMAsianOptions.f:1842:72:
1842 | 10 VNIKX(J-1,IDERVM) = VNIKX(J,IDERIV)
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1)
EBMAsianOptions.f:1848:72:
1848 | 30 A(I,J) = 0.
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1)
EBMAsianOptions.f:1849:72:
1849 | 40 A(I,I) = 1.
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1)
EBMAsianOptions.f:1862:72:
1862 | 60 A(L,J) = (A(L,J) - A(L,J-1))/DIFF*FKMD
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 60 at (1)
EBMAsianOptions.f:1868:72:
1868 | 90 DO 110 I=1,K
| 1
Warning: Fortran 2018 deleted feature: Shared DO termination label 110 at (1)
EBMAsianOptions.f:1872:72:
1872 | 100 V = A(I,J)*VNIKX(J,M) + V
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 100 at (1)
EBMAsianOptions.f:1873:72:
1873 | 110 VNIKX(I,M) = V
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1)
EBMAsianOptions.f:1924:72:
1924 | 30 VMPREV = VM*DELTAM(JP1ML)
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1)
EBMAsianOptions.f:2143:72:
2143 | 110 Y(I,2) = H*SAVE1(I)
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 110 at (1)
EBMAsianOptions.f:2207:72:
2207 | DO 180 I = 1,N
| 1
Warning: Fortran 2018 deleted feature: Shared DO termination label 180 at (1)
EBMAsianOptions.f:2208:72:
2208 | 180 Y(I,J) = Y(I,J)*R1
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 180 at (1)
EBMAsianOptions.f:2226:72:
2226 | DO 210 J2 = J1,NQ
| 1
Warning: Fortran 2018 deleted feature: Shared DO termination label 210 at (1)
EBMAsianOptions.f:2228:72:
2228 | DO 210 I = 1,N
| 1
Warning: Fortran 2018 deleted feature: Shared DO termination label 210 at (1)
EBMAsianOptions.f:2229:72:
2229 | 210 Y(I,J) = Y(I,J) + Y(I,J+1)
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 210 at (1)
EBMAsianOptions.f:2240:72:
2240 | 230 ERROR(I) = 0.
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 230 at (1)
EBMAsianOptions.f:2272:72:
2272 | 380 SAVE2(I) = Y(I,2) + ERROR(I)
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 380 at (1)
EBMAsianOptions.f:2298:72:
2298 | DO 430 J2 = J1,NQ
| 1
Warning: Fortran 2018 deleted feature: Shared DO termination label 430 at (1)
EBMAsianOptions.f:2300:72:
2300 | DO 430 I = 1,N
| 1
Warning: Fortran 2018 deleted feature: Shared DO termination label 430 at (1)
EBMAsianOptions.f:2301:72:
2301 | 430 Y(I,J) = Y(I,J) - Y(I,J+1)
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 430 at (1)
EBMAsianOptions.f:2317:72:
2317 | 460 D = D + (ERROR(I)/YMAX(I))**2
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 460 at (1)
EBMAsianOptions.f:2335:72:
2335 | DO 470 I = 1,N
| 1
Warning: Fortran 2018 deleted feature: Shared DO termination label 470 at (1)
EBMAsianOptions.f:2336:72:
2336 | 470 Y(I,J) = Y(I,J) + EL(J)*ERROR(I)
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 470 at (1)
EBMAsianOptions.f:2342:72:
2342 | 490 Y(I,LMAX) = ERROR(I)
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 490 at (1)
EBMAsianOptions.f:2353:72:
2353 | DO 510 J2 = J1,NQ
| 1
Warning: Fortran 2018 deleted feature: Shared DO termination label 510 at (1)
EBMAsianOptions.f:2355:72:
2355 | DO 510 I = 1,N
| 1
Warning: Fortran 2018 deleted feature: Shared DO termination label 510 at (1)
EBMAsianOptions.f:2356:72:
2356 | 510 Y(I,J) = Y(I,J) - Y(I,J+1)
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 510 at (1)
EBMAsianOptions.f:2376:72:
2376 | 530 D1 = D1 + ((ERROR(I) - Y(I,LMAX))/YMAX(I))**2
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 530 at (1)
EBMAsianOptions.f:2385:72:
2385 | 550 D = D + (Y(I,L)/YMAX(I))**2
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 550 at (1)
EBMAsianOptions.f:2402:72:
2402 | 600 Y(I,NEWQ+1) = ERROR(I)*EL(L)/ FLOAT(L)
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 600 at (1)
EBMAsianOptions.f:2434:72:
2434 | 650 Y(I,2) = H*SAVE1(I)
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 650 at (1)
EBMAsianOptions.f:2486:72:
2486 | DO 10 J=1,NPDE
| 1
Warning: Fortran 2018 deleted feature: Shared DO termination label 10 at (1)
EBMAsianOptions.f:2487:72:
2487 | DO 10 I=1,NPDE
| 1
Warning: Fortran 2018 deleted feature: Shared DO termination label 10 at (1)
EBMAsianOptions.f:2563:72:
2563 | DO 10 J=1,NPDE
| 1
Warning: Fortran 2018 deleted feature: Shared DO termination label 10 at (1)
EBMAsianOptions.f:2565:72:
2565 | DO 10 I=1,KORD
| 1
Warning: Fortran 2018 deleted feature: Shared DO termination label 10 at (1)
EBMAsianOptions.f:2600:72:
2600 | 10 PW(I) = 0.
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1)
EBMAsianOptions.f:2638:72:
2638 | DO 10 J=1,NPDE
| 1
Warning: Fortran 2018 deleted feature: Shared DO termination label 10 at (1)
EBMAsianOptions.f:2654:72:
2654 | DO 20 J=1,KORD
| 1
Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1)
EBMAsianOptions.f:2657:72:
2657 | DO 20 JJ=1,NPDE
| 1
Warning: Fortran 2018 deleted feature: Shared DO termination label 20 at (1)
EBMAsianOptions.f:2658:72:
2658 | 20 PW(I1+JJ,J1) = PW(I1+JJ,J1) + A(J2)
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1)
EBMAsianOptions.f:2765:72:
2765 | 5 PW(I,J)=0.0E0
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 5 at (1)
EBMAsianOptions.f:2772:72:
2772 | 20 D = D + SAVE2(I)**2
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1)
EBMAsianOptions.f:2790:72:
2790 | DO 30 KBLK=KLOW,KUP
| 1
Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1)
EBMAsianOptions.f:2795:72:
2795 | DO 30 L=1,NPDE
| 1
Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1)
EBMAsianOptions.f:2796:72:
2796 | DO 30 K=1,NPDE
| 1
Warning: Fortran 2018 deleted feature: Shared DO termination label 30 at (1)
EBMAsianOptions.f:2823:72:
2823 | 85 PW(I,J)=PW(I,J)*CON
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 85 at (1)
EBMAsianOptions.f:2871:72:
2871 | 10 DFDU(I,J) = ( DFDU(I,J) - SAVE2(I+ID) ) * RINV
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1)
EBMAsianOptions.f:2877:72:
2877 | 20 DFDUX(I,J) = ( DFDUX(I,J) - SAVE2(I+ID) ) * RINV
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1)
EBMAsianOptions.f:2883:72:
2883 | 30 DFDUXX(I,J) = ( DFDUXX(I,J) - SAVE2(I+ID) ) * RINV
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 30 at (1)
EBMAsianOptions.f:2917:72:
2917 | 10 Y0(I) = Y(I,1)
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1)
EBMAsianOptions.f:2924:72:
2924 | 20 Y0(I) = Y0(I) + S1*Y(I,J)
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1)
EBMAsianOptions.f:3109:72:
3109 | 910 TQ(K) = PERTST(NQ,METH,K)
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 910 at (1)
EBMAsianOptions.f:3162:72:
3162 | 10 B(I,J) = B(I,J+K)
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1)
EBMAsianOptions.f:3165:72:
3165 | 20 B(I,J) = 0.
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1)
EBMAsianOptions.f:3184:72:
3184 | 50 B(MX,I) = XX
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 50 at (1)
EBMAsianOptions.f:3196:72:
3196 | 70 B(I,II) = B(I,II+1) + XX*B(NR,II+1)
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 70 at (1)
EBMAsianOptions.f:3197:72:
3197 | 80 B(I,LL) = 0.
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 80 at (1)
EBMAsianOptions.f:3242:72:
3242 | 20 Y(NR+I) = Y(NR+I) + Y(NR)*B(NR,LL+I)
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1)
EBMAsianOptions.f:3253:72:
3253 | 40 DP = DP + B(NR,I+1)*Y(NR+I)
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 40 at (1)
EBMAsianOptions.f:3254:72:
3254 | 50 Y(NR) = (Y(NR) - DP)*B(NR,1)
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 50 at (1)
gfortran -fno-optimize-sibling-calls -O2 -mfpmath=sse -msse2 -mstackrealign -c GammaFunctions.f -o GammaFunctions.o
GammaFunctions.f:76:72:
76 | 10 GI=GI-A(K)*T*DSIN((2.0D0*K-1.0D0)*TH)
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1)
GammaFunctions.f:82:72:
82 | 15 GI1=GI1+DATAN(Y/(X+J))
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 15 at (1)
GammaFunctions.f:159:72:
159 | 10 PSI=PSI-A(K)*Z2**(-K)*DSIN(2.0D0*K*TH)
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 10 at (1)
GammaFunctions.f:165:72:
165 | 20 RI=RI+Y/((X0-K)**2.0D0+Y*Y)
| 1
Warning: Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE with label 20 at (1)
gfortran -fno-optimize-sibling-calls -O2 -mfpmath=sse -msse2 -mstackrealign -c HypergeometricFunctions.f -o HypergeometricFunctions.o
gcc -shared -s -static-libgcc -o fAsianOptions.dll tmp.def EBMAsianOptions.o GammaFunctions.o HypergeometricFunctions.o -LR:/lib/R/R-patched/bin/x64 -lRlapack -LR:/lib/R/R-patched/bin/x64 -lRblas -lgfortran -lm -lquadmath -LC:/rtools42/x86_64-w64-mingw32.static.posix/lib/x64 -LC:/rtools42/x86_64-w64-mingw32.static.posix/lib -lgfortran -lm -lquadmath -LR:/lib/R/R-patched/bin/x64 -lR
installing to R:/lib/local/4.2/00LOCK-fAsianOptions/00new/fAsianOptions/libs/x64
** R
** inst
** 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
** testing if installed package can be loaded from final location
** testing if installed package keeps a record of temporary installation path
* MD5 sums
packaged installation of 'fAsianOptions' as fAsianOptions_4021.83.zip
* DONE (fAsianOptions)
Run time: 8.14 seconds.