* installing *source* package ‘x13binary’ ... ** using staged installation ** libs FC="flang-new-18" LINKER="flang-new-18" make --directory=../tools/x13as_html -f makefile.gf x13ashtml make[1]: Entering directory '/srv/hornik/tmp/CRAN/x13binary.Rcheck/00_pkg_src/x13binary/tools/x13as_html' flang-new-18 -c -o aaamain.o aaamain.f flang-new-18 -c -o abend.o abend.f flang-new-18 -c -o acf.o acf.f flang-new-18 -c -o acfar.o acfar.f flang-new-18 -c -o acfdgn.o acfdgn.f flang-new-18 -c -o acfhdr.o acfhdr.f flang-new-18 -c -o addadj.o addadj.f flang-new-18 -c -o addate.o addate.f flang-new-18 -c -o addeas.o addeas.f flang-new-18 -c -o addfix.o addfix.f flang-new-18 -c -o addlom.o addlom.f flang-new-18 -c -o addmat.o addmat.f flang-new-18 -c -o addmul.o addmul.f flang-new-18 -c -o addotl.o addotl.f flang-new-18 -c -o addsef.o addsef.f flang-new-18 -c -o addsub.o addsub.f flang-new-18 -c -o addtd.o addtd.f flang-new-18 -c -o addusr.o addusr.f ./addusr.f:60:7: warning: Reference to the procedure 'cpyint' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object shapes CALL cpyint(Usrty2(disp),PUREG,1,Usrtyp) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./addusr.f:58:7: previous reference to 'cpyint' CALL cpyint(Usrpt2(disp),PUREG+1,1,Usrptr(0)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./addusr.f:69:9: warning: Reference to the procedure 'getstr' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes CALL getstr(Usrttl,Usrptr,Ncusrx,i,effttl,nchr) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./addusr.f:40:11: previous reference to 'getstr' CALL getstr(Colttl,Colptr,Nb,icol,thisu,nusr) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ flang-new-18 -c -o adestr.o adestr.f flang-new-18 -c -o adjreg.o adjreg.f ./adjreg.f:75:8: warning: Reference to the procedure 'invfcn' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL invfcn(Ftd,N,Fcntyp,Lam,Ftd) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./adjreg.f:63:7: previous reference to 'invfcn' CALL invfcn(orix(Pos1bk),Nrxy,Fcntyp,Lam,orix(Pos1bk)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./adjreg.f:76:8: warning: Reference to the procedure 'invfcn' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL invfcn(Fhol,N,Fcntyp,Lam,Fhol) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./adjreg.f:63:7: previous reference to 'invfcn' CALL invfcn(orix(Pos1bk),Nrxy,Fcntyp,Lam,orix(Pos1bk)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./adjreg.f:77:8: warning: Reference to the procedure 'invfcn' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL invfcn(Fls,N,Fcntyp,Lam,Fls) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./adjreg.f:63:7: previous reference to 'invfcn' CALL invfcn(orix(Pos1bk),Nrxy,Fcntyp,Lam,orix(Pos1bk)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./adjreg.f:78:8: warning: Reference to the procedure 'invfcn' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL invfcn(Ftc,N,Fcntyp,Lam,Ftc) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./adjreg.f:63:7: previous reference to 'invfcn' CALL invfcn(orix(Pos1bk),Nrxy,Fcntyp,Lam,orix(Pos1bk)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./adjreg.f:79:8: warning: Reference to the procedure 'invfcn' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL invfcn(Fao,N,Fcntyp,Lam,Fao) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./adjreg.f:63:7: previous reference to 'invfcn' CALL invfcn(orix(Pos1bk),Nrxy,Fcntyp,Lam,orix(Pos1bk)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./adjreg.f:80:8: warning: Reference to the procedure 'invfcn' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL invfcn(Fso,N,Fcntyp,Lam,Fso) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./adjreg.f:63:7: previous reference to 'invfcn' CALL invfcn(orix(Pos1bk),Nrxy,Fcntyp,Lam,orix(Pos1bk)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./adjreg.f:81:8: warning: Reference to the procedure 'invfcn' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL invfcn(Fsea,N,Fcntyp,Lam,Fsea) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./adjreg.f:63:7: previous reference to 'invfcn' CALL invfcn(orix(Pos1bk),Nrxy,Fcntyp,Lam,orix(Pos1bk)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./adjreg.f:82:8: warning: Reference to the procedure 'invfcn' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL invfcn(Fusr,N,Fcntyp,Lam,Fusr) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./adjreg.f:63:7: previous reference to 'invfcn' CALL invfcn(orix(Pos1bk),Nrxy,Fcntyp,Lam,orix(Pos1bk)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./adjreg.f:83:8: warning: Reference to the procedure 'invfcn' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL invfcn(Fcyc,N,Fcntyp,Lam,Fcyc) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./adjreg.f:63:7: previous reference to 'invfcn' CALL invfcn(orix(Pos1bk),Nrxy,Fcntyp,Lam,orix(Pos1bk)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./adjreg.f:101:38: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes IF(.not.Axrgtd.and.Adjtd.eq.1)CALL copy(Ftd,N,1,Factd(Pos1bk)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./adjreg.f:89:7: previous reference to 'copy' CALL copy(orixa(Pos1bk),Nrxy,1,Stcsi(Pos1bk)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./adjreg.f:102:23: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes IF(Adjhol.eq.1)CALL copy(Fhol,N,1,Fachol(Pos1bk)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./adjreg.f:89:7: previous reference to 'copy' CALL copy(orixa(Pos1bk),Nrxy,1,Stcsi(Pos1bk)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./adjreg.f:103:22: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes IF(Adjao.eq.1)CALL copy(Fao,N,1,Facao(Pos1bk)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./adjreg.f:89:7: previous reference to 'copy' CALL copy(orixa(Pos1bk),Nrxy,1,Stcsi(Pos1bk)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./adjreg.f:104:22: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes IF(Adjls.eq.1)CALL copy(Fls,N,1,Facls(Pos1bk)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./adjreg.f:89:7: previous reference to 'copy' CALL copy(orixa(Pos1bk),Nrxy,1,Stcsi(Pos1bk)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./adjreg.f:105:22: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes IF(Adjtc.eq.1)CALL copy(Ftc,N,1,Factc(Pos1bk)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./adjreg.f:89:7: previous reference to 'copy' CALL copy(orixa(Pos1bk),Nrxy,1,Stcsi(Pos1bk)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./adjreg.f:106:22: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes IF(Adjso.eq.1)CALL copy(Fso,N,1,Facso(Pos1bk)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./adjreg.f:89:7: previous reference to 'copy' CALL copy(orixa(Pos1bk),Nrxy,1,Stcsi(Pos1bk)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./adjreg.f:107:23: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes IF(Adjsea.eq.1)CALL copy(Fsea,N,1,Facsea(Pos1bk)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./adjreg.f:89:7: previous reference to 'copy' CALL copy(orixa(Pos1bk),Nrxy,1,Stcsi(Pos1bk)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./adjreg.f:108:23: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes IF(Adjusr.eq.1)CALL copy(Fusr,N,1,Facusr(Pos1bk)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./adjreg.f:89:7: previous reference to 'copy' CALL copy(orixa(Pos1bk),Nrxy,1,Stcsi(Pos1bk)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./adjreg.f:109:23: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes IF(Adjcyc.eq.1)CALL copy(Fcyc,N,1,Faccyc(Pos1bk)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./adjreg.f:89:7: previous reference to 'copy' CALL copy(orixa(Pos1bk),Nrxy,1,Stcsi(Pos1bk)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ flang-new-18 -c -o adjsrs.o adjsrs.f flang-new-18 -c -o adlabr.o adlabr.f flang-new-18 -c -o adotss.o adotss.f flang-new-18 -c -o adpdrg.o adpdrg.f ./adpdrg.f:833:7: warning: Reference to the procedure 'getivc' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object shapes CALL getivc(LBRAKT,T,1,ivec,nelt,argok,Locok) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./adpdrg.f:525:7: previous reference to 'getivc' CALL getivc(LBRAKT,T,Sp/2,isncos,nsncos,Locok,Inptok) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./adpdrg.f:941:7: warning: Reference to the procedure 'getivc' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object shapes CALL getivc(LBRAKT,T,1,ivec,nelt,argok,Locok) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./adpdrg.f:525:7: previous reference to 'getivc' CALL getivc(LBRAKT,T,Sp/2,isncos,nsncos,Locok,Inptok) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./adpdrg.f:1030:7: warning: Reference to the procedure 'getivc' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object shapes CALL getivc(LBRAKT,T,1,ivec,nelt,argok,Locok) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./adpdrg.f:525:7: previous reference to 'getivc' CALL getivc(LBRAKT,T,Sp/2,isncos,nsncos,Locok,Inptok) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./adpdrg.f:1101:7: warning: Reference to the procedure 'getivc' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object shapes CALL getivc(LBRAKT,T,1,ivec,nelt,argok,Locok) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./adpdrg.f:525:7: previous reference to 'getivc' CALL getivc(LBRAKT,T,Sp/2,isncos,nsncos,Locok,Inptok) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ flang-new-18 -c -o adrgef.o adrgef.f flang-new-18 -c -o adrgim.o adrgim.f flang-new-18 -c -o adsncs.o adsncs.f flang-new-18 -c -o adthnk.o adthnk.f flang-new-18 -c -o aggmea.o aggmea.f flang-new-18 -c -o agr.o agr.f flang-new-18 -c -o agr1.o agr1.f ./agr1.f:62:8: warning: Reference to the procedure 'setdp' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL setdp(ZERO,PREV,Cncisa) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./agr1.f:56:8: previous reference to 'setdp' CALL setdp(ZERO,MXLEN*MXCOL,Saind) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./agr1.f:63:8: warning: Reference to the procedure 'setdp' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL setdp(ZERO,PREV,Finisa) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./agr1.f:56:8: previous reference to 'setdp' CALL setdp(ZERO,MXLEN*MXCOL,Saind) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ flang-new-18 -c -o agr2.o agr2.f flang-new-18 -c -o agr3.o agr3.f flang-new-18 -c -o agr3s.o agr3s.f flang-new-18 -c -o agrxpt.o agrxpt.f flang-new-18 -c -o altundovrtst.o altundovrtst.f flang-new-18 -c -o amdest.o amdest.f flang-new-18 -c -o amdfct.o amdfct.f ./amdfct.f:67:7: warning: Reference to the procedure 'setdp' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL setdp(ZERO,PFCST,fxfc) ^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./amdfct.f:66:7: previous reference to 'setdp' CALL setdp(ZERO,4,Mape) ^^^^^^^^^^^^^^^^^^^^^^^ ./amdfct.f:75:7: warning: Reference to the procedure 'setdp' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL setdp(ZERO,PLEN,fotl) ^^^^^^^^^^^^^^^^^^^^^^^^^^ ./amdfct.f:66:7: previous reference to 'setdp' CALL setdp(ZERO,4,Mape) ^^^^^^^^^^^^^^^^^^^^^^^ ./amdfct.f:77:8: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL copy(Chlxpx,PXPX,-1,tmpxpx) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./amdfct.f:68:7: previous reference to 'copy' CALL copy(Trnsrs,Nspobs,-1,tsrs) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./amdfct.f:78:8: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL copy(Chlgpg,PGPG,-1,tmpgpg) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./amdfct.f:68:7: previous reference to 'copy' CALL copy(Trnsrs,Nspobs,-1,tsrs) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./amdfct.f:79:8: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL copy(Chlvwp,PGPG,-1,tmpvwp) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./amdfct.f:68:7: previous reference to 'copy' CALL copy(Trnsrs,Nspobs,-1,tsrs) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./amdfct.f:80:8: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL copy(Matd,(PLEN+PORDER)*PORDER,-1,tmpmd) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./amdfct.f:68:7: previous reference to 'copy' CALL copy(Trnsrs,Nspobs,-1,tsrs) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./amdfct.f:81:8: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL copy(Armacm,(PLEN+2*PORDER)*PARIMA,-1,tmpacm) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./amdfct.f:68:7: previous reference to 'copy' CALL copy(Trnsrs,Nspobs,-1,tsrs) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./amdfct.f:153:8: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL copy(Xy,PLEN*(PB+1),1,xybak) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./amdfct.f:68:7: previous reference to 'copy' CALL copy(Trnsrs,Nspobs,-1,tsrs) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./amdfct.f:163:8: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL copy(tsrs,nobsf,1,tmpsrs) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./amdfct.f:68:7: previous reference to 'copy' CALL copy(Trnsrs,Nspobs,-1,tsrs) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./amdfct.f:164:23: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes IF(Nfxttl.gt.0)CALL copy(Fixfac,nobsf,1,fxfc) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./amdfct.f:68:7: previous reference to 'copy' CALL copy(Trnsrs,Nspobs,-1,tsrs) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./amdfct.f:166:8: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL copy(tsrs(nobsot+1),nobsf,1,tmpsrs) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./amdfct.f:68:7: previous reference to 'copy' CALL copy(Trnsrs,Nspobs,-1,tsrs) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./amdfct.f:167:23: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes IF(Nfxttl.gt.0)CALL copy(Fixfac(nobsot+1),nobsf,1,fxfc) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./amdfct.f:68:7: previous reference to 'copy' CALL copy(Trnsrs,Nspobs,-1,tsrs) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./amdfct.f:169:22: warning: Reference to the procedure 'eltfcn' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes IF(Nfxttl.gt.0)CALL eltfcn(ADD,tmpsrs,fxfc,nobsf,PFCST,tmpsrs) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./amdfct.f:148:8: previous reference to 'eltfcn' CALL eltfcn(SUB,Trnsrs,fotl,Nspobs,PLEN,tsrs) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./amdfct.f:219:10: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL copy(tsrs(Sp+1),Nspobs,1,tsrs(1)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./amdfct.f:68:7: previous reference to 'copy' CALL copy(Trnsrs,Nspobs,-1,tsrs) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./amdfct.f:233:10: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL copy(Xy,PLEN*(PB+1),1,xybak) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./amdfct.f:68:7: previous reference to 'copy' CALL copy(Trnsrs,Nspobs,-1,tsrs) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./amdfct.f:250:9: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL copy(Fixfac(fctori+1),nobsf,1,fxfc) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./amdfct.f:68:7: previous reference to 'copy' CALL copy(Trnsrs,Nspobs,-1,tsrs) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./amdfct.f:251:9: warning: Reference to the procedure 'eltfcn' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes CALL eltfcn(ADD,tmpsrs,fxfc,nobsf,PFCST,tmpsrs) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./amdfct.f:148:8: previous reference to 'eltfcn' CALL eltfcn(SUB,Trnsrs,fotl,Nspobs,PLEN,tsrs) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./amdfct.f:252:9: warning: Reference to the procedure 'eltfcn' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes CALL eltfcn(ADD,fcst,fxfc,nobsf,PFCST,fcst) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./amdfct.f:148:8: previous reference to 'eltfcn' CALL eltfcn(SUB,Trnsrs,fotl,Nspobs,PLEN,tsrs) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./amdfct.f:257:8: warning: Reference to the procedure 'eltfcn' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes CALL eltfcn(SUB,tmpsrs,fcst,nobsf,PFCST,fdiff) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./amdfct.f:148:8: previous reference to 'eltfcn' CALL eltfcn(SUB,Trnsrs,fotl,Nspobs,PLEN,tsrs) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./amdfct.f:258:23: warning: Reference to the procedure 'eltfcn' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes IF(ivalue.eq.0)CALL eltfcn(DIV,fdiff,tmpsrs,nobsf,PFCST,fdiff) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./amdfct.f:148:8: previous reference to 'eltfcn' CALL eltfcn(SUB,Trnsrs,fotl,Nspobs,PLEN,tsrs) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./amdfct.f:288:8: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL copy(tmpxpx,PXPX,-1,Chlxpx) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./amdfct.f:68:7: previous reference to 'copy' CALL copy(Trnsrs,Nspobs,-1,tsrs) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./amdfct.f:289:8: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL copy(tmpgpg,PGPG,-1,Chlgpg) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./amdfct.f:68:7: previous reference to 'copy' CALL copy(Trnsrs,Nspobs,-1,tsrs) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./amdfct.f:290:8: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL copy(tmpvwp,PGPG,-1,Chlvwp) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./amdfct.f:68:7: previous reference to 'copy' CALL copy(Trnsrs,Nspobs,-1,tsrs) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./amdfct.f:291:8: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL copy(tmpmd,(PLEN+PORDER)*PORDER,-1,Matd) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./amdfct.f:68:7: previous reference to 'copy' CALL copy(Trnsrs,Nspobs,-1,tsrs) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./amdfct.f:292:8: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL copy(tmpacm,(PLEN+2*PORDER)*PARIMA,-1,Armacm) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./amdfct.f:68:7: previous reference to 'copy' CALL copy(Trnsrs,Nspobs,-1,tsrs) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./amdfct.f:296:8: warning: Reference to the procedure 'regvar' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL regvar(Trnsrs,Nobspf,Fctdrp,Nfcst,0,Userx,Bgusrx,Nrusrx, ^ ./amdfct.f:224:9: previous reference to 'regvar' CALL regvar(tsrs,Nobspf,Fctdrp,nfc,0,Userx,Bgusrx,Nrusrx,Priadj, ^ ./amdfct.f:301:8: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL copy(Xy,PLEN*(PB+1),1,xybak) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./amdfct.f:68:7: previous reference to 'copy' CALL copy(Trnsrs,Nspobs,-1,tsrs) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ flang-new-18 -c -o amdid.o amdid.f flang-new-18 -c -o amdid2.o amdid2.f flang-new-18 -c -o amdprt.o amdprt.f flang-new-18 -c -o amidot.o amidot.f flang-new-18 -c -o analts.o analts.f ./analts.f:1458:14: warning: Reference to the procedure 'prttbl' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes call prttbl(thisDate,Mq,bz,Nz, ^ ./analts.f:1443:12: previous reference to 'prttbl' call prttbl(thisDate,Mq,Tram,Nz, ^ ./analts.f:1462:14: warning: Reference to the procedure 'prttbl' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes call prttbl(thisDate,Mq,bz,Nz, ^ ./analts.f:1443:12: previous reference to 'prttbl' call prttbl(thisDate,Mq,Tram,Nz, ^ ./analts.f:1472:14: warning: Reference to the procedure 'prttbl' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes call prttbl(thisDate,Mq,bz,Nz, ^ ./analts.f:1443:12: previous reference to 'prttbl' call prttbl(thisDate,Mq,Tram,Nz, ^ ./analts.f:1476:14: warning: Reference to the procedure 'prttbl' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes call prttbl(thisDate,Mq,bz,Nz, ^ ./analts.f:1443:12: previous reference to 'prttbl' call prttbl(thisDate,Mq,Tram,Nz, ^ flang-new-18 -c -o ansub1.o ansub1.f flang-new-18 -c -o ansub10.o ansub10.f ./ansub10.f:469:9: warning: Reference to the procedure 'addcomp' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes call AddComp(dvec,1,dvec,1,qt1, ^ ./ansub10.f:466:9: previous reference to 'addcomp' call AddComp(PSI,nPSI,THETs,nTHETs,varwns, ^ ./ansub10.f:471:9: warning: Reference to the procedure 'addcomp' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes call AddComp(Cyc,nCyc,THETc,nTHETc,varwnc, ^ ./ansub10.f:466:9: previous reference to 'addcomp' call AddComp(PSI,nPSI,THETs,nTHETs,varwns, ^ ./ansub10.f:491:7: warning: Reference to the procedure 'conv' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes call Conv(THSTR0,qstar0,HPth,3,TH_HPth,nTH_HPth) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub10.f:354:7: previous reference to 'conv' call CONV(HPth,3,PHIbc,nPHIbc,HP_PHIbc,nHP_PHIbc) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub10.f:509:7: warning: Reference to the procedure 'bfac' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes call BFAC(bTH_HPth,Hm,nTH_HPth-1,lHm, ^ ./ansub10.f:363:7: previous reference to 'bfac' call BFAC(bHP_PHIbc,bTHETbc,nHP_PHIbc-1,nTHETbc-1,0, ^ ./ansub10.f:513:9: warning: Reference to the procedure 'conv' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes call CONV(PHInp,nPHInP,Delta,2,tmp,ntmp) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub10.f:354:7: previous reference to 'conv' call CONV(HPth,3,PHIbc,nPHIbc,HP_PHIbc,nHP_PHIbc) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub10.f:533:7: warning: Reference to the procedure 'bfac' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes call BFAC(bTH_HPth,Hbc,nTH_HPth-1,lHbc, ^ ./ansub10.f:363:7: previous reference to 'bfac' call BFAC(bHP_PHIbc,bTHETbc,nHP_PHIbc-1,nTHETbc-1,0, ^ ./ansub10.f:683:9: warning: Reference to the procedure 'addcomp' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes call AddComp(dvec,1,dvec,1,qt1, ^ ./ansub10.f:466:9: previous reference to 'addcomp' call AddComp(PSI,nPSI,THETs,nTHETs,varwns, ^ ./ansub10.f:685:9: warning: Reference to the procedure 'addcomp' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes call AddComp(Cyc,nCyc,THETc,nTHETc,varwnc, ^ ./ansub10.f:466:9: previous reference to 'addcomp' call AddComp(PSI,nPSI,THETs,nTHETs,varwns, ^ ./ansub10.f:698:7: warning: Reference to the procedure 'addcomp' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes call AddComp(PHIm,nPHIm,THETm,nTHETm,Vm, ^ ./ansub10.f:466:9: previous reference to 'addcomp' call AddComp(PSI,nPSI,THETs,nTHETs,varwns, ^ ./ansub10.f:700:7: warning: Reference to the procedure 'addcomp' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes call AddComp(PHIbc,nPHIbc,THETbc,nTHETbc,Vbc, ^ ./ansub10.f:466:9: previous reference to 'addcomp' call AddComp(PSI,nPSI,THETs,nTHETs,varwns, ^ ./ansub10.f:748:7: warning: Reference to the procedure 'conv' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes call Conv(THSTR0,qstar0,HPth,3,TH_HPth,nTH_HPth) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub10.f:354:7: previous reference to 'conv' call CONV(HPth,3,PHIbc,nPHIbc,HP_PHIbc,nHP_PHIbc) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub10.f:750:9: warning: Reference to the procedure 'conv' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes call Conv(THETm,nTHETm,THETnM,nTHETnM,THmTHnm,nTHmTHnm) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub10.f:354:7: previous reference to 'conv' call CONV(HPth,3,PHIbc,nPHIbc,HP_PHIbc,nHP_PHIbc) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub10.f:751:9: warning: Reference to the procedure 'conv' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes call Conv(TH_HPth,nTH_HPth,PHIbc,nPHIbc, ^ ./ansub10.f:354:7: previous reference to 'conv' call CONV(HPth,3,PHIbc,nPHIbc,HP_PHIbc,nHP_PHIbc) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub10.f:761:9: warning: Reference to the procedure 'bfac' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes call BFAC(bTH_HPth_PHIbc,bTHmTHnm,nTH_HPth_PHIbc-1,nTHmTHnm-1, ^ ./ansub10.f:363:7: previous reference to 'bfac' call BFAC(bHP_PHIbc,bTHETbc,nHP_PHIbc-1,nTHETbc-1,0, ^ ./ansub10.f:763:9: warning: Reference to the procedure 'conv' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes call Conv(THETbc,nTHETbc,THETnBc,nTHETnBc,THmTHnm,nTHmTHnm) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub10.f:354:7: previous reference to 'conv' call CONV(HPth,3,PHIbc,nPHIbc,HP_PHIbc,nHP_PHIbc) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub10.f:769:9: warning: Reference to the procedure 'bfac' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes call BFAC(bTH_HPth_PHIbc,bTHmTHnm,nTH_HPth_PHIbc-1,nTHmTHnm-1,0, ^ ./ansub10.f:363:7: previous reference to 'bfac' call BFAC(bHP_PHIbc,bTHETbc,nHP_PHIbc-1,nTHETbc-1,0, ^ ./ansub10.f:799:7: warning: Reference to the procedure 'bfac' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes call BFAC(bTH_HPth,Hm,nTH_HPth-1,lHm, ^ ./ansub10.f:363:7: previous reference to 'bfac' call BFAC(bHP_PHIbc,bTHETbc,nHP_PHIbc-1,nTHETbc-1,0, ^ ./ansub10.f:807:9: warning: Reference to the procedure 'conv' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes call CONV(PHInpDelta,nPHInpDelta,Delta,2,tmp,ntmp) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub10.f:354:7: previous reference to 'conv' call CONV(HPth,3,PHIbc,nPHIbc,HP_PHIbc,nHP_PHIbc) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub10.f:827:7: warning: Reference to the procedure 'bfac' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes call BFAC(bTH_HPth,Hbc,nTH_HPth-1,lHbc, ^ ./ansub10.f:363:7: previous reference to 'bfac' call BFAC(bHP_PHIbc,bTHETbc,nHP_PHIbc-1,nTHETbc-1,0, ^ ./ansub10.f:872:7: warning: Reference to the procedure 'conv' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes call CONV(PHIp,nPHIp,HPth,3,PHIm,nPHIm) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub10.f:354:7: previous reference to 'conv' call CONV(HPth,3,PHIbc,nPHIbc,HP_PHIbc,nHP_PHIbc) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub10.f:882:7: warning: Reference to the procedure 'conv' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes call CONV(PHIps,nPHIps,HPth,3,PHIbc,nPHIbc) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub10.f:354:7: previous reference to 'conv' call CONV(HPth,3,PHIbc,nPHIbc,HP_PHIbc,nHP_PHIbc) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub10.f:887:11: warning: Reference to the procedure 'conv' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes call CONV(PHIbc,nPHIbc,Delta,2,tmp,ntmp) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub10.f:354:7: previous reference to 'conv' call CONV(HPth,3,PHIbc,nPHIbc,HP_PHIbc,nHP_PHIbc) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub10.f:895:11: warning: Reference to the procedure 'conv' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes call CONV(THETbc,nTHETbc,Delta,2,tmp,ntmp) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub10.f:354:7: previous reference to 'conv' call CONV(HPth,3,PHIbc,nPHIbc,HP_PHIbc,nHP_PHIbc) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub10.f:907:11: warning: Reference to the procedure 'conv' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes call CONV(PHIbc,nPHIbc,S,mq,tmp,ntmp) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub10.f:354:7: previous reference to 'conv' call CONV(HPth,3,PHIbc,nPHIbc,HP_PHIbc,nHP_PHIbc) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub10.f:1236:11: warning: Reference to the procedure 'prttbl1' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL prttbl1(thisDate,Nfreq,seBc,Nz,subtitle,24,ndec,nf, ^ ./ansub10.f:1222:10: previous reference to 'prttbl1' CALL prttbl1(thisDate,Nfreq,hpcyc,Nz,subtitle,29,ndec,nf, ^ ./ansub10.f:1241:11: warning: Reference to the procedure 'prttbl1' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL prttbl1(thisDate,Nfreq,seBc,Nz,subtitle,24,ndec,nf, ^ ./ansub10.f:1222:10: previous reference to 'prttbl1' CALL prttbl1(thisDate,Nfreq,hpcyc,Nz,subtitle,29,ndec,nf, ^ ./ansub10.f:1274:12: warning: Reference to the procedure 'prttbl1' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL prttbl1(thisDate,Nfreq,seM,Nz,subtitle,18+nLongTermCad, ^ ./ansub10.f:1222:10: previous reference to 'prttbl1' CALL prttbl1(thisDate,Nfreq,hpcyc,Nz,subtitle,29,ndec,nf, ^ ./ansub10.f:1278:12: warning: Reference to the procedure 'prttbl1' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL prttbl1(thisDate,Nfreq,seM,Nz,subtitle,18+nLongTermCad, ^ ./ansub10.f:1222:10: previous reference to 'prttbl1' CALL prttbl1(thisDate,Nfreq,hpcyc,Nz,subtitle,29,ndec,nf, ^ ./ansub10.f:1297:11: warning: Reference to the procedure 'prttbl1' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL prttbl1(thisDate,Nfreq,seBc,Nz,subtitle,36,ndec,nf, ^ ./ansub10.f:1222:10: previous reference to 'prttbl1' CALL prttbl1(thisDate,Nfreq,hpcyc,Nz,subtitle,29,ndec,nf, ^ ./ansub10.f:1302:11: warning: Reference to the procedure 'prttbl1' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL prttbl1(thisDate,Nfreq,seBc,Nz,subtitle,36,ndec,nf, ^ ./ansub10.f:1222:10: previous reference to 'prttbl1' CALL prttbl1(thisDate,Nfreq,hpcyc,Nz,subtitle,29,ndec,nf, ^ ./ansub10.f:1320:12: warning: Reference to the procedure 'prttbl1' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL prttbl1(thisDate,Nfreq,seM,Nz,subtitle,18+nLongTermCad, ^ ./ansub10.f:1222:10: previous reference to 'prttbl1' CALL prttbl1(thisDate,Nfreq,hpcyc,Nz,subtitle,29,ndec,nf, ^ ./ansub10.f:1324:12: warning: Reference to the procedure 'prttbl1' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL prttbl1(thisDate,Nfreq,seM,Nz,subtitle,18+nLongTermCad, ^ ./ansub10.f:1222:10: previous reference to 'prttbl1' CALL prttbl1(thisDate,Nfreq,hpcyc,Nz,subtitle,29,ndec,nf, ^ ./ansub10.f:1378:10: warning: Reference to the procedure 'prttbl1' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL prttbl1(thisDate,Nfreq,seBc,Nz,subtitle,33,ndec,nf, ^ ./ansub10.f:1222:10: previous reference to 'prttbl1' CALL prttbl1(thisDate,Nfreq,hpcyc,Nz,subtitle,29,ndec,nf, ^ ./ansub10.f:1383:10: warning: Reference to the procedure 'prttbl1' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL prttbl1(thisDate,Nfreq,seBc,Nz,subtitle,33,ndec,nf, ^ ./ansub10.f:1222:10: previous reference to 'prttbl1' CALL prttbl1(thisDate,Nfreq,hpcyc,Nz,subtitle,29,ndec,nf, ^ ./ansub10.f:1437:10: warning: Reference to the procedure 'prttbl1' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL prttbl1(thisDate,Nfreq,seM,Nz,subtitle,18+nLongTermCad, ^ ./ansub10.f:1222:10: previous reference to 'prttbl1' CALL prttbl1(thisDate,Nfreq,hpcyc,Nz,subtitle,29,ndec,nf, ^ ./ansub10.f:1441:10: warning: Reference to the procedure 'prttbl1' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL prttbl1(thisDate,Nfreq,seM,Nz,subtitle,18+nLongTermCad, ^ ./ansub10.f:1222:10: previous reference to 'prttbl1' CALL prttbl1(thisDate,Nfreq,hpcyc,Nz,subtitle,29,ndec,nf, ^ ./ansub10.f:1465:10: warning: Reference to the procedure 'prttbl1' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL prttbl1(thisDate,Nfreq,seBc,Nz,subtitle,34,ndec,nf, ^ ./ansub10.f:1222:10: previous reference to 'prttbl1' CALL prttbl1(thisDate,Nfreq,hpcyc,Nz,subtitle,29,ndec,nf, ^ ./ansub10.f:1470:10: warning: Reference to the procedure 'prttbl1' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL prttbl1(thisDate,Nfreq,seBc,Nz,subtitle,34,ndec,nf, ^ ./ansub10.f:1222:10: previous reference to 'prttbl1' CALL prttbl1(thisDate,Nfreq,hpcyc,Nz,subtitle,29,ndec,nf, ^ ./ansub10.f:1496:10: warning: Reference to the procedure 'prttbl1' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL prttbl1(thisDate,Nfreq,seM,Nz,subtitle,18+nLongTermCad, ^ ./ansub10.f:1222:10: previous reference to 'prttbl1' CALL prttbl1(thisDate,Nfreq,hpcyc,Nz,subtitle,29,ndec,nf, ^ ./ansub10.f:1500:10: warning: Reference to the procedure 'prttbl1' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL prttbl1(thisDate,Nfreq,seM,Nz,subtitle,18+nLongTermCad, ^ ./ansub10.f:1222:10: previous reference to 'prttbl1' CALL prttbl1(thisDate,Nfreq,hpcyc,Nz,subtitle,29,ndec,nf, ^ ./ansub10.f:4910:7: warning: Reference to the procedure 'fcast' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes call Fcast(PHIST,THstar,BPHIST,BPstar,bz,nz,wm,ba,na,-1,f,1,nd,0, ^ ./ansub10.f:4903:7: previous reference to 'fcast' call Fcast(PHIST,THstar,BPHIST,BPstar,eZ,nz,wm,a,na,-1,f,1,nd,0, ^ flang-new-18 -c -o ansub11.o ansub11.f ./ansub11.f:79:7: warning: Reference to the procedure 'mult0' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object shapes call mult0(phin, pn, pn, acgths, mx,mx, qs, qs, tmp, mx,mx) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub11.f:61:7: previous reference to 'mult0' call mult0(ths,qs,qs,ths,0,qs,0,qs,acgths,mx,mx) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub11.f:170:7: warning: Reference to the procedure 'mult1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes call mult1(numer,mx,pn+k,thetil,mx,mx,alpha,2*mx) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub11.f:152:7: previous reference to 'mult1' call mult1(phin,pn,pn,d,mx,k,numer,mx) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub11.f:406:7: warning: Reference to the procedure 'mult0' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes call mult0(thetil,mx,mx,thetil,0,mx,0,mx,acgtil,mx,mx) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub11.f:61:7: previous reference to 'mult0' call mult0(ths,qs,qs,ths,0,qs,0,qs,acgths,mx,mx) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub11.f:410:7: warning: Reference to the procedure 'mult2' has an implicit interface that is distinct from another reference: incompatible dummy argument #11: incompatible dummy data object shapes call mult2(gminfn,mx, mx, qs+qn, qs+qn, acgtil,mx,mx,mx,mx, ^ ./ansub11.f:401:7: previous reference to 'mult2' call mult2(acgths,mx, mx, qs, qs, acgthn,mx,mx,qn, qn, ^ ./ansub11.f:422:7: warning: Reference to the procedure 'mult0' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes call mult0(C, mx, h , C, 0, mx, 0, h, tmp2, mx,mx) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub11.f:61:7: previous reference to 'mult0' call mult0(ths,qs,qs,ths,0,qs,0,qs,acgths,mx,mx) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ansub11.f:423:7: warning: Reference to the procedure 'mult2' has an implicit interface that is distinct from another reference: incompatible dummy argument #11: incompatible dummy data object shapes call mult2(tmp2, mx, mx, h, h, acgtil,mx,mx,mx,mx, ^ ./ansub11.f:401:7: previous reference to 'mult2' call mult2(acgths,mx, mx, qs, qs, acgthn,mx,mx,qn, qn, ^ ./ansub11.f:925:7: warning: Reference to the procedure 'fcast' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes call FCAST(Phist,Thstar,bphist,bpstar,bz,Nz,wm,a,Na, ^ ./ansub11.f:894:7: previous reference to 'fcast' call FCAST(Phist,Thstar,bphist,bpstar,z,Nz,wm,a,Na, ^ flang-new-18 -c -o ansub2.o ansub2.f flang-new-18 -c -o ansub3.o ansub3.f flang-new-18 -c -o ansub4.o ansub4.f ./ansub4.f:2095:11: warning: Reference to the procedure 'prttbl' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes call prttbl(thisDate,Mq,bz,nz,'SEPARATE REGRESSION EFFECT', ^ ./ansub4.f:1892:11: previous reference to 'prttbl' call prttbl(thisDate,Mq,Paoutr,nz,'LEVEL SHIFT',Ndec, ^ ./ansub4.f:2648:12: warning: Reference to the procedure 'prttbl' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes call prttbl(thisDate,Mq,bz,nz,'LEVEL SHIFT (X 100)',2, ^ ./ansub4.f:1892:11: previous reference to 'prttbl' call prttbl(thisDate,Mq,Paoutr,nz,'LEVEL SHIFT',Ndec, ^ ./ansub4.f:2651:12: warning: Reference to the procedure 'prttbl' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes call prttbl(thisDate,Mq,bz,nz,'LEVEL SHIFT (X 100)',Ndec, ^ ./ansub4.f:1892:11: previous reference to 'prttbl' call prttbl(thisDate,Mq,Paoutr,nz,'LEVEL SHIFT',Ndec, ^ ./ansub4.f:2669:12: warning: Reference to the procedure 'prttbl' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes call prttbl(thisDate,Mq,bz,nz,'TRANSITORY OUTLIERS (X100)', ^ ./ansub4.f:1892:11: previous reference to 'prttbl' call prttbl(thisDate,Mq,Paoutr,nz,'LEVEL SHIFT',Ndec, ^ ./ansub4.f:2672:12: warning: Reference to the procedure 'prttbl' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes call prttbl(thisDate,Mq,bz,nz,'TRANSITORY OUTLIERS (X100)', ^ ./ansub4.f:1892:11: previous reference to 'prttbl' call prttbl(thisDate,Mq,Paoutr,nz,'LEVEL SHIFT',Ndec, ^ ./ansub4.f:2691:12: warning: Reference to the procedure 'prttbl' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes call prttbl(thisDate,Mq,bz,nz,'EASTER EFFECT (X 100)',2, ^ ./ansub4.f:1892:11: previous reference to 'prttbl' call prttbl(thisDate,Mq,Paoutr,nz,'LEVEL SHIFT',Ndec, ^ ./ansub4.f:2694:12: warning: Reference to the procedure 'prttbl' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes call prttbl(thisDate,Mq,bz,nz,'EASTER EFFECT (X 100)',Ndec, ^ ./ansub4.f:1892:11: previous reference to 'prttbl' call prttbl(thisDate,Mq,Paoutr,nz,'LEVEL SHIFT',Ndec, ^ ./ansub4.f:2712:12: warning: Reference to the procedure 'prttbl' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes call prttbl(thisDate,Mq,bz,nz,'TRADING DAY EFFECT (X 100)', ^ ./ansub4.f:1892:11: previous reference to 'prttbl' call prttbl(thisDate,Mq,Paoutr,nz,'LEVEL SHIFT',Ndec, ^ ./ansub4.f:2715:12: warning: Reference to the procedure 'prttbl' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes call prttbl(thisDate,Mq,bz,nz,'TRADING DAY EFFECT (X 100)', ^ ./ansub4.f:1892:11: previous reference to 'prttbl' call prttbl(thisDate,Mq,Paoutr,nz,'LEVEL SHIFT',Ndec, ^ ./ansub4.f:2774:13: warning: Reference to the procedure 'prttbl' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes call prttbl(thisDate,Mq,bz,nz, ^ ./ansub4.f:1892:11: previous reference to 'prttbl' call prttbl(thisDate,Mq,Paoutr,nz,'LEVEL SHIFT',Ndec, ^ ./ansub4.f:2778:13: warning: Reference to the procedure 'prttbl' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes call prttbl(thisDate,Mq,bz,nz, ^ ./ansub4.f:1892:11: previous reference to 'prttbl' call prttbl(thisDate,Mq,Paoutr,nz,'LEVEL SHIFT',Ndec, ^ ./ansub4.f:2797:13: warning: Reference to the procedure 'prttbl' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes call prttbl(thisDate,Mq,bz,nz, ^ ./ansub4.f:1892:11: previous reference to 'prttbl' call prttbl(thisDate,Mq,Paoutr,nz,'LEVEL SHIFT',Ndec, ^ ./ansub4.f:2801:13: warning: Reference to the procedure 'prttbl' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes call prttbl(thisDate,Mq,bz,nz, ^ ./ansub4.f:1892:11: previous reference to 'prttbl' call prttbl(thisDate,Mq,Paoutr,nz,'LEVEL SHIFT',Ndec, ^ ./ansub4.f:2933:12: warning: Reference to the procedure 'prttbl' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes call prttbl(thisDate,Mq,bz,nz, ^ ./ansub4.f:1892:11: previous reference to 'prttbl' call prttbl(thisDate,Mq,Paoutr,nz,'LEVEL SHIFT',Ndec, ^ ./ansub4.f:2937:12: warning: Reference to the procedure 'prttbl' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes call prttbl(thisDate,Mq,bz,nz, ^ ./ansub4.f:1892:11: previous reference to 'prttbl' call prttbl(thisDate,Mq,Paoutr,nz,'LEVEL SHIFT',Ndec, ^ ./ansub4.f:4172:7: warning: Reference to the procedure 'setwrt' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL setwrt(wrt1,1) ^^^^^^^^^^^^^^^^^^^ ./ansub4.f:4171:7: previous reference to 'setwrt' CALL setwrt(wrt,0) ^^^^^^^^^^^^^^^^^^ ./ansub4.f:4173:7: warning: Reference to the procedure 'setwrt' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL setwrt(wrt2,2) ^^^^^^^^^^^^^^^^^^^ ./ansub4.f:4171:7: previous reference to 'setwrt' CALL setwrt(wrt,0) ^^^^^^^^^^^^^^^^^^ ./ansub4.f:4174:7: warning: Reference to the procedure 'setwrt' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL setwrt(wrt3,3) ^^^^^^^^^^^^^^^^^^^ ./ansub4.f:4171:7: previous reference to 'setwrt' CALL setwrt(wrt,0) ^^^^^^^^^^^^^^^^^^ ./ansub4.f:4175:7: warning: Reference to the procedure 'setwrt' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL setwrt(wrt4,4) ^^^^^^^^^^^^^^^^^^^ ./ansub4.f:4171:7: previous reference to 'setwrt' CALL setwrt(wrt,0) ^^^^^^^^^^^^^^^^^^ flang-new-18 -c -o ansub5.o ansub5.f flang-new-18 -c -o ansub7.o ansub7.f flang-new-18 -c -o ansub8.o ansub8.f flang-new-18 -c -o ansub9.o ansub9.f flang-new-18 -c -o antilg.o antilg.f flang-new-18 -c -o apply.o apply.f flang-new-18 -c -o ar30rg.o ar30rg.f ./ar30rg.f:73:8: warning: Reference to the procedure 'addmat' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL addMat(bmat,nb,btmp,nb,bmat,nb) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ar30rg.f:54:8: previous reference to 'addmat' CALL addMat(amat,na,atmp,na,amat,na) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ar30rg.f:78:7: warning: Reference to the procedure 'mulmat' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL mulMat(ainv,na,bmat,nb,btmp,nb) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ar30rg.f:72:8: previous reference to 'mulmat' CALL mulMat(ymat,ny,zmat,nz,btmp,nb) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ flang-new-18 -c -o arfit.o arfit.f flang-new-18 -c -o arflt.o arflt.f flang-new-18 -c -o arima.o arima.f ./arima.f:159:7: warning: Reference to the procedure 'setdp' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL setdp(ZERO,PLEN,trnsrs) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./arima.f:130:7: previous reference to 'setdp' CALL setdp(ZERO,PXPX,Chlxpx) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./arima.f:1136:10: warning: Reference to the procedure 'prttbl' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL prttbl(idate,Sp,a,na,'Model ',outdec,'xxx') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./arima.f:278:8: previous reference to 'prttbl' CALL prttbl(Begspn,Sp,trnsrs,Nspobs,'Data',outdec,'xxx') ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./arima.f:1140:10: warning: Reference to the procedure 'savtbl' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object shapes CALL savtbl(LESTRS,idate,1,na,Sp,a,Serno,Nser,F) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./arima.f:282:8: previous reference to 'savtbl' CALL savtbl(LTRNDT,Begspn,1,Nspobs,Sp,trnsrs,Serno,Nser,F) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./arima.f:1262:10: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object shapes CALL copy(Orig(Pos1ob),Nomnfy,-1,Sto(Pos1ob)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./arima.f:161:7: previous reference to 'copy' CALL copy(Sto(Pos1ob+nbeg),Nobspf,-1,trnsrs) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./arima.f:1312:11: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object shapes CALL copy(Orig(Pos1ob),Nomnfy,-1,Sto(Pos1ob)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./arima.f:161:7: previous reference to 'copy' CALL copy(Sto(Pos1ob+nbeg),Nobspf,-1,trnsrs) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./arima.f:1317:12: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object shapes CALL copy(Usrtad(Frstat+Lsp-1),Nspobs,1,dvec(Pos1ob)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./arima.f:161:7: previous reference to 'copy' CALL copy(Sto(Pos1ob+nbeg),Nobspf,-1,trnsrs) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./arima.f:1318:12: warning: Reference to the procedure 'divsub' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL divsub(Stoap,Sto,dvec,Pos1ob,Posfob) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./arima.f:1265:10: previous reference to 'divsub' CALL divsub(Sto,Sto,Sprior,Pos1ob,lastpr) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./arima.f:1321:12: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object shapes CALL copy(Usrpad(Frstap+Lsp-1),Nspobs,1,dvec(Pos1ob)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./arima.f:161:7: previous reference to 'copy' CALL copy(Sto(Pos1ob+nbeg),Nobspf,-1,trnsrs) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./arima.f:1322:12: warning: Reference to the procedure 'divsub' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL divsub(Stopp,Sto,dvec,Pos1ob,Posfob) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./arima.f:1265:10: previous reference to 'divsub' CALL divsub(Sto,Sto,Sprior,Pos1ob,lastpr) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./arima.f:1323:12: warning: Reference to the procedure 'divsub' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL divsub(Stoap,Stoap,dvec,Pos1ob,Posfob) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./arima.f:1265:10: previous reference to 'divsub' CALL divsub(Sto,Sto,Sprior,Pos1ob,lastpr) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./arima.f:1350:7: warning: Reference to the procedure 'setdp' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL setdp(ZERO,PLEN,orix) ^^^^^^^^^^^^^^^^^^^^^^^^^^ ./arima.f:130:7: previous reference to 'setdp' CALL setdp(ZERO,PXPX,Chlxpx) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./arima.f:1355:8: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL copy(trnsrs,Nobspf,1,orix(Pos1ob)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./arima.f:161:7: previous reference to 'copy' CALL copy(Sto(Pos1ob+nbeg),Nobspf,-1,trnsrs) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./arima.f:1360:7: warning: Reference to the procedure 'setdp' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL setdp(ZERO,PLEN,ftd) ^^^^^^^^^^^^^^^^^^^^^^^^^ ./arima.f:130:7: previous reference to 'setdp' CALL setdp(ZERO,PXPX,Chlxpx) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./arima.f:1361:7: warning: Reference to the procedure 'setdp' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL setdp(ZERO,PLEN,fhol) ^^^^^^^^^^^^^^^^^^^^^^^^^^ ./arima.f:130:7: previous reference to 'setdp' CALL setdp(ZERO,PXPX,Chlxpx) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./arima.f:1362:7: warning: Reference to the procedure 'setdp' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL setdp(ZERO,PLEN,fao) ^^^^^^^^^^^^^^^^^^^^^^^^^ ./arima.f:130:7: previous reference to 'setdp' CALL setdp(ZERO,PXPX,Chlxpx) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./arima.f:1363:7: warning: Reference to the procedure 'setdp' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL setdp(ZERO,PLEN,fls) ^^^^^^^^^^^^^^^^^^^^^^^^^ ./arima.f:130:7: previous reference to 'setdp' CALL setdp(ZERO,PXPX,Chlxpx) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./arima.f:1364:7: warning: Reference to the procedure 'setdp' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL setdp(ZERO,PLEN,ftc) ^^^^^^^^^^^^^^^^^^^^^^^^^ ./arima.f:130:7: previous reference to 'setdp' CALL setdp(ZERO,PXPX,Chlxpx) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./arima.f:1365:7: warning: Reference to the procedure 'setdp' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL setdp(ZERO,PLEN,fso) ^^^^^^^^^^^^^^^^^^^^^^^^^ ./arima.f:130:7: previous reference to 'setdp' CALL setdp(ZERO,PXPX,Chlxpx) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./arima.f:1366:7: warning: Reference to the procedure 'setdp' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL setdp(ZERO,PLEN,fusr) ^^^^^^^^^^^^^^^^^^^^^^^^^^ ./arima.f:130:7: previous reference to 'setdp' CALL setdp(ZERO,PXPX,Chlxpx) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./arima.f:1367:7: warning: Reference to the procedure 'setdp' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL setdp(ZERO,PLEN,fsea) ^^^^^^^^^^^^^^^^^^^^^^^^^^ ./arima.f:130:7: previous reference to 'setdp' CALL setdp(ZERO,PXPX,Chlxpx) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./arima.f:1368:7: warning: Reference to the procedure 'setdp' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL setdp(ZERO,PLEN,fmv) ^^^^^^^^^^^^^^^^^^^^^^^^^ ./arima.f:130:7: previous reference to 'setdp' CALL setdp(ZERO,PXPX,Chlxpx) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./arima.f:1369:7: warning: Reference to the procedure 'setdp' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL setdp(ZERO,PLEN,fcyc) ^^^^^^^^^^^^^^^^^^^^^^^^^^ ./arima.f:130:7: previous reference to 'setdp' CALL setdp(ZERO,PXPX,Chlxpx) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./arima.f:1557:22: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes IF(.not.gudrun)CALL copy(Orig,PLEN,1,Orig2) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./arima.f:161:7: previous reference to 'copy' CALL copy(Sto(Pos1ob+nbeg),Nobspf,-1,trnsrs) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ flang-new-18 -c -o armacr.o armacr.f flang-new-18 -c -o armafl.o armafl.f ./armafl.f:220:9: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL copy(Mata,nelta,-1,Mata(neltwp+1)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./armafl.f:79:10: previous reference to 'copy' CALL copy(fulma,nfulma,1,psiwgt) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./armafl.f:227:8: warning: Reference to the procedure 'arflt' has an implicit interface that is distinct from another reference: incompatible dummy argument #7: incompatible dummy data object shapes CALL arflt(nelta,Arimap,Arimal,Opr,Mdl(AR-1),Mdl(AR)-1, ^ ./armafl.f:213:8: previous reference to 'arflt' CALL arflt(nelta,Arimap,Arimal,Opr,Mdl(DIFF-1),Mdl(DIFF)-1,Mata, ^ ./armafl.f:232:8: warning: Reference to the procedure 'exctma' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes CALL exctma(Nc,Mata(neltwp+1),nelta,Nata-neltwp) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./armafl.f:145:10: previous reference to 'exctma' CALL exctma(Mxarlg,Matd,neltd,PMATD) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ flang-new-18 -c -o armats.o armats.f flang-new-18 -c -o arspc.o arspc.f flang-new-18 -c -o autoer.o autoer.f flang-new-18 -c -o automd.o automd.f ./automd.f:370:7: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL copy(Adj,PLEN,1,adj0) ^^^^^^^^^^^^^^^^^^^^^^^^^^ ./automd.f:367:7: previous reference to 'copy' CALL copy(A,Na,1,a0) ^^^^^^^^^^^^^^^^^^^^ ./automd.f:371:7: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL copy(Trnsrs,PLEN,1,trns0) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./automd.f:367:7: previous reference to 'copy' CALL copy(A,Na,1,a0) ^^^^^^^^^^^^^^^^^^^^ flang-new-18 -c -o automx.o automx.f ./automx.f:173:7: warning: Reference to the procedure 'cpyint' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL cpyint(Rgvrtp,PB,1,rgv1) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./automx.f:170:7: previous reference to 'cpyint' CALL cpyint(Colptr(0),PB+1,1,clptr1(0)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./automx.f:174:7: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL copy(B,PB,1,b1) ^^^^^^^^^^^^^^^^^^^^ ./automx.f:99:7: previous reference to 'copy' CALL copy(Trnsrs,PLEN,1,tsrs) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./automx.f:284:12: warning: Reference to the procedure 'eltfcn' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes CALL eltfcn(DIV,Y(Frstsy),Adj(Adj1st),Nspobs,PLEN,Trnsrs) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./automx.f:280:27: previous reference to 'eltfcn' IF(Nustad.gt.0)CALL eltfcn(MULT,Adj,Usrtad(Frstat),Nspobs, ^ ./automx.f:288:28: warning: Reference to the procedure 'eltfcn' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes IF(Nustad.gt.0)CALL eltfcn(DIV,Y(Frstsy),Usrtad(Frstat), ^ ./automx.f:280:27: previous reference to 'eltfcn' IF(Nustad.gt.0)CALL eltfcn(MULT,Adj,Usrtad(Frstat),Nspobs, ^ ./automx.f:290:28: warning: Reference to the procedure 'eltfcn' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes IF(Nuspad.gt.0)CALL eltfcn(DIV,Y(Frstsy),Usrpad(Frstap), ^ ./automx.f:280:27: previous reference to 'eltfcn' IF(Nustad.gt.0)CALL eltfcn(MULT,Adj,Usrtad(Frstat),Nspobs, ^ ./automx.f:293:13: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL copy(Y(Frstsy),Nspobs,-1,Trnsrs) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./automx.f:99:7: previous reference to 'copy' CALL copy(Trnsrs,PLEN,1,tsrs) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./automx.f:326:10: warning: Reference to the procedure 'cpyint' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL cpyint(rgv1,PB,1,Rgvrtp) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./automx.f:170:7: previous reference to 'cpyint' CALL cpyint(Colptr(0),PB+1,1,clptr1(0)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./automx.f:327:10: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL copy(b1,PB,1,B) ^^^^^^^^^^^^^^^^^^^^ ./automx.f:99:7: previous reference to 'copy' CALL copy(Trnsrs,PLEN,1,tsrs) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./automx.f:757:8: warning: Reference to the procedure 'cpyint' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL cpyint(rgv1,PB,1,Rgvrtp) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./automx.f:170:7: previous reference to 'cpyint' CALL cpyint(Colptr(0),PB+1,1,clptr1(0)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./automx.f:758:8: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL copy(b1,PB,1,B) ^^^^^^^^^^^^^^^^^^^^ ./automx.f:99:7: previous reference to 'copy' CALL copy(Trnsrs,PLEN,1,tsrs) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ flang-new-18 -c -o avedur.o avedur.f flang-new-18 -c -o aver.o aver.f flang-new-18 -c -o averag.o averag.f flang-new-18 -c -o bakusr.o bakusr.f ./bakusr.f:54:7: warning: Reference to the procedure 'cpyint' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object shapes CALL cpyint(Usrptr(0),PUREG+1,1,Usrpt2(disp)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./bakusr.f:52:7: previous reference to 'cpyint' CALL cpyint(Usrtyp(disp),PUREG,1,Usrty2) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ flang-new-18 -c -o bench.o bench.f flang-new-18 -c -o bestmd.o bestmd.f flang-new-18 -c -o bkdfmd.o bkdfmd.f ./bkdfmd.f:39:8: warning: Reference to the procedure 'cpyint' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL cpyint(Rgvrtp,PB,1,Rgv2rv) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./bkdfmd.f:36:8: previous reference to 'cpyint' CALL cpyint(Colptr(0),PB+1,1,Clptrv(0)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./bkdfmd.f:41:8: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL copy(B,PB,1,Bbrv) ^^^^^^^^^^^^^^^^^^^^^^ ./bkdfmd.f:40:8: previous reference to 'copy' CALL copy(Arimap,PARIMA,1,Ap2rv) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./bkdfmd.f:46:8: warning: Reference to the procedure 'copylg' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL copylg(Regfx,PB,1,Rgfx2r) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./bkdfmd.f:42:8: previous reference to 'copylg' CALL copylg(Arimaf,PARIMA,1,Fxarv) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./bkdfmd.f:74:8: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL copy(Chlxpx,PXPX,1,Chx2r) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./bkdfmd.f:40:8: previous reference to 'copy' CALL copy(Arimap,PARIMA,1,Ap2rv) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./bkdfmd.f:75:8: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL copy(Chlgpg,PGPG,1,Chg2r) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./bkdfmd.f:40:8: previous reference to 'copy' CALL copy(Arimap,PARIMA,1,Ap2rv) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./bkdfmd.f:76:8: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL copy(Armacm,PACM,1,Acm2r) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./bkdfmd.f:40:8: previous reference to 'copy' CALL copy(Arimap,PARIMA,1,Ap2rv) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./bkdfmd.f:93:8: warning: Reference to the procedure 'cpyint' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL cpyint(Rgv2rv,PB,1,Rgvrtp) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./bkdfmd.f:36:8: previous reference to 'cpyint' CALL cpyint(Colptr(0),PB+1,1,Clptrv(0)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./bkdfmd.f:95:8: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL copy(Bbrv,PB,1,B) ^^^^^^^^^^^^^^^^^^^^^^ ./bkdfmd.f:40:8: previous reference to 'copy' CALL copy(Arimap,PARIMA,1,Ap2rv) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./bkdfmd.f:100:8: warning: Reference to the procedure 'copylg' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL copylg(Rgfx2r,PB,1,Regfx) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./bkdfmd.f:42:8: previous reference to 'copylg' CALL copylg(Arimaf,PARIMA,1,Fxarv) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./bkdfmd.f:128:8: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL copy(Chx2r,PXPX,1,Chlxpx) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./bkdfmd.f:40:8: previous reference to 'copy' CALL copy(Arimap,PARIMA,1,Ap2rv) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./bkdfmd.f:129:8: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL copy(Chg2r,PGPG,1,Chlgpg) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./bkdfmd.f:40:8: previous reference to 'copy' CALL copy(Arimap,PARIMA,1,Ap2rv) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./bkdfmd.f:130:8: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL copy(Acm2r,PACM,1,Armacm) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./bkdfmd.f:40:8: previous reference to 'copy' CALL copy(Arimap,PARIMA,1,Ap2rv) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ flang-new-18 -c -o bldcov.o bldcov.f ./bldcov.f:291:11: warning: Reference to the procedure 'gettpltz' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object shapes CALL getTpltz( vCovS, nLags, nT-dS+nPer, mU, nU ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./bldcov.f:283:11: previous reference to 'gettpltz' CALL getTpltz( vCovS, nLags, nT-dS, mSigUS, nSigUS ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./bldcov.f:318:11: warning: Reference to the procedure 'gettpltz' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object shapes CALL getTpltz( vCovT, nT+nPer, nT-dT+nPer, mU, nU ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./bldcov.f:283:11: previous reference to 'gettpltz' CALL getTpltz( vCovS, nLags, nT-dS, mSigUS, nSigUS ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./bldcov.f:341:9: warning: Reference to the procedure 'gettpltz' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object shapes CALL getTpltz( vCovC, nLags, nLags, mSigUC, nSigUC ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./bldcov.f:283:11: previous reference to 'gettpltz' CALL getTpltz( vCovS, nLags, nT-dS, mSigUS, nSigUS ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./bldcov.f:359:9: warning: Reference to the procedure 'getidm' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes CALL getIdM( nLags, mU, nU ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./bldcov.f:356:9: previous reference to 'getidm' CALL getIdM( nLags, mSigUI, nSigUI ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./bldcov.f:360:9: warning: Reference to the procedure 'mulsca' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes CALL mulSca( sIrrVar, mU, nU ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./bldcov.f:357:9: previous reference to 'mulsca' CALL mulSca( sIrrVar, mSigUI, nSigUI ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./bldcov.f:367:9: warning: Reference to the procedure 'addmat' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL addMat( mSigUC, nSigUC, mSigUI, nSigUI, mSigUI, nSigUI ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./bldcov.f:324:11: previous reference to 'addmat' CALL addMat( mPartA, nPartA, mW, nW, mW, nW ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./bldcov.f:402:9: warning: Reference to the procedure 'mulqdmat' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL mulQdMat( dDelS, nDelS, mSigUI, nSigUI, mSigWS, nSigWS ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./bldcov.f:293:11: previous reference to 'mulqdmat' CALL mulQdMat( dDelT, nFurDelT, mU, nU, mW, nW ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./bldcov.f:403:9: warning: Reference to the procedure 'addmat' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL addMat( mSigUS, nSigUS, mSigWS, nSigWS, mSigWS, nSigWS ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./bldcov.f:324:11: previous reference to 'addmat' CALL addMat( mPartA, nPartA, mW, nW, mW, nW ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./bldcov.f:412:11: warning: Reference to the procedure 'mulqdmat' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL mulQdMat( dDelT, nDelT, mSigUI, nSigUI, mSigWT, nSigWT ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./bldcov.f:293:11: previous reference to 'mulqdmat' CALL mulQdMat( dDelT, nFurDelT, mU, nU, mW, nW ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./bldcov.f:413:11: warning: Reference to the procedure 'addmat' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL addMat( mSigUT, nSigUT, mSigWT, nSigWT, mSigWT, nSigWT ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./bldcov.f:324:11: previous reference to 'addmat' CALL addMat( mPartA, nPartA, mW, nW, mW, nW ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./bldcov.f:434:11: warning: Reference to the procedure 'mulqdmat' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL mulQdMat( dRedDelS, nRedDelS, mSigUT, nSigUT, ^ ./bldcov.f:293:11: previous reference to 'mulqdmat' CALL mulQdMat( dDelT, nFurDelT, mU, nU, mW, nW ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./bldcov.f:436:11: warning: Reference to the procedure 'mulqdmat' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL mulQdMat( dRedDelT, nRedDelT, mSigUS, nSigUS, ^ ./bldcov.f:293:11: previous reference to 'mulqdmat' CALL mulQdMat( dDelT, nFurDelT, mU, nU, mW, nW ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./bldcov.f:438:11: warning: Reference to the procedure 'addmat' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL addMat( mPartA, nPartA, mSigW, nSigW, mSigW, nSigW ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./bldcov.f:324:11: previous reference to 'addmat' CALL addMat( mPartA, nPartA, mW, nW, mW, nW ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./bldcov.f:439:11: warning: Reference to the procedure 'mulqdmat' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL mulQdMat( dDel, nDel, mSigUI, nSigUI, mPartA, nPartA ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./bldcov.f:293:11: previous reference to 'mulqdmat' CALL mulQdMat( dDelT, nFurDelT, mU, nU, mW, nW ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./bldcov.f:440:11: warning: Reference to the procedure 'addmat' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL addMat( mPartA, nPartA, mSigW, nSigW, mSigW, nSigW ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./bldcov.f:324:11: previous reference to 'addmat' CALL addMat( mPartA, nPartA, mW, nW, mW, nW ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ flang-new-18 -c -o blddif.o blddif.f flang-new-18 -c -o bstget.o bstget.f ./bstget.f:23:7: warning: Reference to the procedure 'setint' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL setint(0,POPR,Oprfac) ^^^^^^^^^^^^^^^^^^^^^^^^^^ ./bstget.f:22:7: previous reference to 'setint' CALL setint(0,PARIMA,Arimal) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./bstget.f:26:7: warning: Reference to the procedure 'setdp' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL setdp(0.D0,PARIMA,Arimap) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./bstget.f:25:7: previous reference to 'setdp' CALL setdp(0.D0,PB,B) ^^^^^^^^^^^^^^^^^^^^^ ./bstget.f:29:7: warning: Reference to the procedure 'intlst' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes CALL intlst(3*PMDL,Mdl,Nmdl) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./bstget.f:27:7: previous reference to 'intlst' CALL intlst(POPR,Opr,Nopr) ^^^^^^^^^^^^^^^^^^^^^^^^^^ ./bstget.f:39:7: warning: Reference to the procedure 'cpyint' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL cpyint(Bstofc,POPR,1,Oprfac) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./bstget.f:37:7: previous reference to 'cpyint' CALL cpyint(Bsto(0),POPR+1,1,Opr(0)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./bstget.f:42:7: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL copy(Bstb,PB,1,B) ^^^^^^^^^^^^^^^^^^^^^^ ./bstget.f:41:7: previous reference to 'copy' CALL copy(Bstap,PARIMA,1,Arimap) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./bstget.f:44:7: warning: Reference to the procedure 'cpyint' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL cpyint(Bstalg,PARIMA,1,Arimal) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./bstget.f:37:7: previous reference to 'cpyint' CALL cpyint(Bsto(0),POPR+1,1,Opr(0)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./bstget.f:65:7: warning: Reference to the procedure 'cpyint' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL cpyint(Bstrgv,PB,1,Rgvrtp) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./bstget.f:37:7: previous reference to 'cpyint' CALL cpyint(Bsto(0),POPR+1,1,Opr(0)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ flang-new-18 -c -o bstmdl.o bstmdl.f ./bstmdl.f:23:7: warning: Reference to the procedure 'setint' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL setint(0,POPR,Bstofc) ^^^^^^^^^^^^^^^^^^^^^^^^^^ ./bstmdl.f:22:7: previous reference to 'setint' CALL setint(0,PARIMA,Bstalg) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./bstmdl.f:25:7: warning: Reference to the procedure 'setdp' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL setdp(0D0,PARIMA,Bstap) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./bstmdl.f:24:7: previous reference to 'setdp' CALL setdp(0D0,PB,Bstb) ^^^^^^^^^^^^^^^^^^^^^^^ ./bstmdl.f:28:7: warning: Reference to the procedure 'intlst' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes CALL intlst(3*PMDL,Bstm,Bstnm) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./bstmdl.f:26:7: previous reference to 'intlst' CALL intlst(POPR,Bsto,Bstno) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./bstmdl.f:38:7: warning: Reference to the procedure 'cpyint' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL cpyint(Oprfac,POPR,1,Bstofc) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./bstmdl.f:36:7: previous reference to 'cpyint' CALL cpyint(Opr(0),POPR+1,1,Bsto(0)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./bstmdl.f:41:7: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL copy(B,PB,1,Bstb) ^^^^^^^^^^^^^^^^^^^^^^ ./bstmdl.f:40:7: previous reference to 'copy' CALL copy(Arimap,PARIMA,1,Bstap) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./bstmdl.f:43:7: warning: Reference to the procedure 'cpyint' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL cpyint(Arimal,PARIMA,1,Bstalg) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./bstmdl.f:36:7: previous reference to 'cpyint' CALL cpyint(Opr(0),POPR+1,1,Bsto(0)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./bstmdl.f:65:7: warning: Reference to the procedure 'cpyint' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL cpyint(Rgvrtp,PB,1,Bstrgv) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./bstmdl.f:36:7: previous reference to 'cpyint' CALL cpyint(Opr(0),POPR+1,1,Bsto(0)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ flang-new-18 -c -o btrit.o btrit.f flang-new-18 -c -o calcqs.o calcqs.f flang-new-18 -c -o calcqs2.o calcqs2.f flang-new-18 -c -o calcsc.o calcsc.f flang-new-18 -c -o ceilng.o ceilng.f flang-new-18 -c -o change.o change.f flang-new-18 -c -o chisq.o chisq.f flang-new-18 -c -o chitst.o chitst.f flang-new-18 -c -o chkadj.o chkadj.f flang-new-18 -c -o chkchi.o chkchi.f flang-new-18 -c -o chkcvr.o chkcvr.f flang-new-18 -c -o chkeas.o chkeas.f flang-new-18 -c -o chkmu.o chkmu.f flang-new-18 -c -o chkorv.o chkorv.f ./chkorv.f:200:8: warning: Reference to the procedure 'cpyint' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL cpyint(Rgvrtp,PB,1,Rgv2) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./chkorv.f:196:8: previous reference to 'cpyint' CALL cpyint(Colptr(0),PB+1,1,Clptr(0)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ flang-new-18 -c -o chkrt1.o chkrt1.f flang-new-18 -c -o chkrt2.o chkrt2.f flang-new-18 -c -o chkrts.o chkrts.f flang-new-18 -c -o chksmd.o chksmd.f flang-new-18 -c -o chktrn.o chktrn.f flang-new-18 -c -o chkuhg.o chkuhg.f flang-new-18 -c -o chkurt.o chkurt.f flang-new-18 -c -o chkzro.o chkzro.f flang-new-18 -c -o chrt.o chrt.f flang-new-18 -c -o chsppf.o chsppf.f flang-new-18 -c -o chusrg.o chusrg.f flang-new-18 -c -o clrotl.o clrotl.f flang-new-18 -c -o clsgrp.o clsgrp.f flang-new-18 -c -o cmpchi.o cmpchi.f flang-new-18 -c -o cmpstr.o cmpstr.f flang-new-18 -c -o cncrnt.o cncrnt.f ./cncrnt.f:484:13: warning: Reference to the procedure 'mult0' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object shapes call mult0(phin, mx, pn, acgths, mx,mx, qs, qs, tmp, mx,mx) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./cncrnt.f:419:10: previous reference to 'mult0' call mult0(thetas,mx,qs,thetas,0,mx,0,qs,acgths,mx,mx) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./cncrnt.f:607:13: warning: Reference to the procedure 'mult1' has an implicit interface that is distinct from another reference: incompatible dummy argument #7: incompatible dummy data object shapes call mult1(numer,mx,pn+k,thetil,mx,mx,alpha,2*mx) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./cncrnt.f:589:13: previous reference to 'mult1' call mult1(phin,mx,pn,d,mx,k,numer,mx) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./cncrnt.f:669:13: warning: Reference to the procedure 'mult2' has an implicit interface that is distinct from another reference: incompatible dummy argument #11: incompatible dummy data object shapes call mult2(gminfn,mx, mx, qs+qn, qs+qn, acgtil, mx, mx, mx, ^ ./cncrnt.f:660:13: previous reference to 'mult2' call mult2(acgths, mx, mx, qs, qs, acgthn, mx, mx, qn, qn, ^ ./cncrnt.f:682:13: warning: Reference to the procedure 'mult2' has an implicit interface that is distinct from another reference: incompatible dummy argument #11: incompatible dummy data object shapes call mult2(tmp2, mx, mx, h, h, acgtil, mx, mx, mx, mx, ^ ./cncrnt.f:660:13: previous reference to 'mult2' call mult2(acgths, mx, mx, qs, qs, acgthn, mx, mx, qn, qn, ^ flang-new-18 -c -o cnvfil.o cnvfil.f flang-new-18 -c -o cnvfmt.o cnvfmt.f flang-new-18 -c -o cnvmdl.o cnvmdl.f flang-new-18 -c -o coladd.o coladd.f flang-new-18 -c -o combft.o combft.f flang-new-18 -c -o compb.o compb.f flang-new-18 -c -o compcrodiag.o compcrodiag.f ./compcrodiag.f:292:7: warning: Reference to the procedure 'muldmat' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL mulDMat( dRedDelT, nRedDelT, mSigUS, nSigUS, mTemp4, nTemp4, ^ ./compcrodiag.f:279:7: previous reference to 'muldmat' CALL mulDMat( dDelS, nDelS, vSeaEst, nSeaEst, vTemp1, nTemp1, ^ ./compcrodiag.f:295:7: warning: Reference to the procedure 'muldmat' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL mulDMat( dLagS, nLagS, mSigUI, nSigUI, mTemp3, nTemp3, pdA ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./compcrodiag.f:279:7: previous reference to 'muldmat' CALL mulDMat( dDelS, nDelS, vSeaEst, nSeaEst, vTemp1, nTemp1, ^ ./compcrodiag.f:305:7: warning: Reference to the procedure 'mulmat' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL mulMat( mInvSigW, nInvSigW, mCov, nCov, mTemp7, nTemp7 ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./compcrodiag.f:298:7: previous reference to 'mulmat' CALL mulMat( mTemp4, nTemp4, mTemp5, nTemp5, mTemp6, nTemp6 ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./compcrodiag.f:341:7: warning: Reference to the procedure 'muldmat' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL mulDMat( dRedDelT, nRedDelT, mSigUS, nSigUS, mTemp4, nTemp4, ^ ./compcrodiag.f:279:7: previous reference to 'muldmat' CALL mulDMat( dDelS, nDelS, vSeaEst, nSeaEst, vTemp1, nTemp1, ^ ./compcrodiag.f:344:7: warning: Reference to the procedure 'muldmat' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL mulDMat( dLagSmT, nLagSmT, mSigUT, nSigUT, mTempA, nTempA, ^ ./compcrodiag.f:279:7: previous reference to 'muldmat' CALL mulDMat( dDelS, nDelS, vSeaEst, nSeaEst, vTemp1, nTemp1, ^ ./compcrodiag.f:356:7: warning: Reference to the procedure 'mulmat' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL mulMat( mInvSigW, nInvSigW, mCov, nCov, mTemp7, nTemp7 ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./compcrodiag.f:298:7: previous reference to 'mulmat' CALL mulMat( mTemp4, nTemp4, mTemp5, nTemp5, mTemp6, nTemp6 ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./compcrodiag.f:389:7: warning: Reference to the procedure 'muldmat' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL mulDMat( dRedDelS, nRedDelS, mSigUT, nSigUT, mTempD, nTempD, ^ ./compcrodiag.f:279:7: previous reference to 'muldmat' CALL mulDMat( dDelS, nDelS, vSeaEst, nSeaEst, vTemp1, nTemp1, ^ ./compcrodiag.f:392:7: warning: Reference to the procedure 'muldmat' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL mulDMat( dLagT, nLagT, mSigUI, nSigUI, mTempF, nTempF, ^ ./compcrodiag.f:279:7: previous reference to 'muldmat' CALL mulDMat( dDelS, nDelS, vSeaEst, nSeaEst, vTemp1, nTemp1, ^ ./compcrodiag.f:403:7: warning: Reference to the procedure 'mulmat' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL mulMat( mInvSigW, nInvSigW, mCov, nCov, mTemp7, nTemp7 ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./compcrodiag.f:298:7: previous reference to 'mulmat' CALL mulMat( mTemp4, nTemp4, mTemp5, nTemp5, mTemp6, nTemp6 ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ flang-new-18 -c -o compdiag.o compdiag.f flang-new-18 -c -o complagdiag.o complagdiag.f ./complagdiag.f:332:7: warning: Reference to the procedure 'getsmat' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL getSMat( mCovIrr, nCovIrr, nPer+1, nCovIrr(1)-nPer, ^ ./complagdiag.f:255:7: previous reference to 'getsmat' CALL getSMat( mLag, nLag, 1, nT-dS, mLagS, nLagS ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./complagdiag.f:334:7: warning: Reference to the procedure 'getsmat' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL getSMat( mCovSea, nCovSea, nPer+1, nCovSea(1)-nPer, ^ ./complagdiag.f:255:7: previous reference to 'getsmat' CALL getSMat( mLag, nLag, 1, nT-dS, mLagS, nLagS ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./complagdiag.f:336:7: warning: Reference to the procedure 'getsmat' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL getSMat( mCovTre, nCovTre, nPer+1, nCovTre(1)-nPer, ^ ./complagdiag.f:255:7: previous reference to 'getsmat' CALL getSMat( mLag, nLag, 1, nT-dS, mLagS, nLagS ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./complagdiag.f:338:7: warning: Reference to the procedure 'getsmat' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL getSMat( mCovSA, nCovSA, nPer+1, nCovSA(1)-nPer, ^ ./complagdiag.f:255:7: previous reference to 'getsmat' CALL getSMat( mLag, nLag, 1, nT-dS, mLagS, nLagS ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./complagdiag.f:360:7: warning: Reference to the procedure 'mulmat' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL mulMat( mCovIrrNoe, nCovIrrNoe, mLagNoe, nLagNoe, ^ ./complagdiag.f:344:7: previous reference to 'mulmat' CALL mulMat( mCovIrr, nCovIrr, mLag, nLag, mTemp4, nTemp4 ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./complagdiag.f:365:7: warning: Reference to the procedure 'mulmat' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL mulMat( mCovSeaNoe, nCovSeaNoe, mLagSNoe, nLagSNoe, ^ ./complagdiag.f:344:7: previous reference to 'mulmat' CALL mulMat( mCovIrr, nCovIrr, mLag, nLag, mTemp4, nTemp4 ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./complagdiag.f:370:7: warning: Reference to the procedure 'mulmat' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL mulMat( mCovTreNoe, nCovTreNoe, mLagTNoe, nLagTNoe, ^ ./complagdiag.f:344:7: previous reference to 'mulmat' CALL mulMat( mCovIrr, nCovIrr, mLag, nLag, mTemp4, nTemp4 ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./complagdiag.f:375:7: warning: Reference to the procedure 'mulmat' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL mulMat( mCovSANoe, nCovSANoe, mLagTNoe, nLagTNoe, ^ ./complagdiag.f:344:7: previous reference to 'mulmat' CALL mulMat( mCovIrr, nCovIrr, mLag, nLag, mTemp4, nTemp4 ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./complagdiag.f:669:7: warning: Reference to the procedure 'mulmat' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL mulMat( mB, nB, mInvSigW, nInvSigW, mTemp1, nTemp1 ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./complagdiag.f:344:7: previous reference to 'mulmat' CALL mulMat( mCovIrr, nCovIrr, mLag, nLag, mTemp4, nTemp4 ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./complagdiag.f:670:7: warning: Reference to the procedure 'mulqmattr' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes CALL mulQMatTr( vW, nW, mTemp1, nTemp1, sResult, nResult ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./complagdiag.f:265:9: previous reference to 'mulqmattr' CALL mulQMatTr( vIrrEst, nIrrEst, mLag, nLag, ^ ./complagdiag.f:708:7: warning: Reference to the procedure 'mulmat' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL mulMat( mB, nB, mInvSigW, nInvSigW, mTemp1, nTemp1 ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./complagdiag.f:344:7: previous reference to 'mulmat' CALL mulMat( mCovIrr, nCovIrr, mLag, nLag, mTemp4, nTemp4 ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./complagdiag.f:709:7: warning: Reference to the procedure 'mulqmattr' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes CALL mulQMatTr( vW, nW, mTemp1, nTemp1, sResult, nResult ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./complagdiag.f:265:9: previous reference to 'mulqmattr' CALL mulQMatTr( vIrrEst, nIrrEst, mLag, nLag, ^ ./complagdiag.f:747:7: warning: Reference to the procedure 'mulmat' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL mulMat( mB, nB, mInvSigW, nInvSigW, mTemp1, nTemp1 ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./complagdiag.f:344:7: previous reference to 'mulmat' CALL mulMat( mCovIrr, nCovIrr, mLag, nLag, mTemp4, nTemp4 ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./complagdiag.f:748:7: warning: Reference to the procedure 'mulqmattr' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes CALL mulQMatTr( vW, nW, mTemp1, nTemp1, sResult, nResult ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./complagdiag.f:265:9: previous reference to 'mulqmattr' CALL mulQMatTr( vIrrEst, nIrrEst, mLag, nLag, ^ ./complagdiag.f:786:7: warning: Reference to the procedure 'mulmat' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL mulMat( mB, nB, mInvSigW, nInvSigW, mTemp1, nTemp1 ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./complagdiag.f:344:7: previous reference to 'mulmat' CALL mulMat( mCovIrr, nCovIrr, mLag, nLag, mTemp4, nTemp4 ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./complagdiag.f:787:7: warning: Reference to the procedure 'mulqmattr' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes CALL mulQMatTr( vW, nW, mTemp1, nTemp1, sResult, nResult ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./complagdiag.f:265:9: previous reference to 'mulqmattr' CALL mulQMatTr( vIrrEst, nIrrEst, mLag, nLag, ^ flang-new-18 -c -o compmse.o compmse.f ./compmse.f:178:9: warning: Reference to the procedure 'addmat' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL addMat( mQuadWT, nQuadWT, mQuadUS, nQuadUS, ^ ./compmse.f:158:9: previous reference to 'addmat' CALL addMat( mSigUI, nSigUI, mTemp1, nTemp1, mIrrVar, nIrrVar ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./compmse.f:184:9: warning: Reference to the procedure 'mulsca' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes CALL mulSca( ZERO, mSeaVar, nSeaVar ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./compmse.f:157:9: previous reference to 'mulsca' CALL mulSca( MINUSONE, mTemp1, nTemp1 ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./compmse.f:208:11: warning: Reference to the procedure 'addmat' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL addMat( mQuadUT, nQuadUT, mQuadWS, nQuadWS, ^ ./compmse.f:158:9: previous reference to 'addmat' CALL addMat( mSigUI, nSigUI, mTemp1, nTemp1, mIrrVar, nIrrVar ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./compmse.f:222:11: warning: Reference to the procedure 'getidm' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes CALL getIdM( nT, mId, nId ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./compmse.f:183:9: previous reference to 'getidm' CALL getIdM( nT, mSeaVar, nSeaVar ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./compmse.f:228:11: warning: Reference to the procedure 'addmat' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL addMat( mId, nId, mInvFSIS, nInvFSIS, ^ ./compmse.f:158:9: previous reference to 'addmat' CALL addMat( mSigUI, nSigUI, mTemp1, nTemp1, mIrrVar, nIrrVar ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./compmse.f:231:11: warning: Reference to the procedure 'mulmat' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL mulMat( mInvFSIS, nInvFSIS, mSeaVar, nSeaVar, ^ ./compmse.f:226:11: previous reference to 'mulmat' CALL mulMat( mSigUI, nSigUI, mQuadUS, nQuadUS, ^ ./compmse.f:238:11: warning: Reference to the procedure 'addmat' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL addMat( mId, nId, mFTIT, nFTIT, mFTIT, nFTIT ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./compmse.f:158:9: previous reference to 'addmat' CALL addMat( mSigUI, nSigUI, mTemp1, nTemp1, mIrrVar, nIrrVar ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./compmse.f:254:11: warning: Reference to the procedure 'addmat' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL addMat( mId, nId, mFTIT, nFTIT, mFTIT, nFTIT ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./compmse.f:158:9: previous reference to 'addmat' CALL addMat( mSigUI, nSigUI, mTemp1, nTemp1, mIrrVar, nIrrVar ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./compmse.f:258:11: warning: Reference to the procedure 'mulmat' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL mulMat( mFTIT, nFTIT, mSigUI, nSigUI, mTreVar, nTreVar ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./compmse.f:226:11: previous reference to 'mulmat' CALL mulMat( mSigUI, nSigUI, mQuadUS, nQuadUS, ^ flang-new-18 -c -o compmsealt.o compmsealt.f ./compmsealt.f:130:2: warning: Reference to the procedure 'mulqmattr' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL mulQMatTr( mDel, nDel, mInvSigW, nInvSigW, mQuadW, nQuadW ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./compmsealt.f:126:2: previous reference to 'mulqmattr' CALL mulQMatTr( mDelS, nDelS, mInvSigWS, nInvSigWS, ^ ./compmsealt.f:152:2: warning: Reference to the procedure 'addmat' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes CALL addMat( mId, nId, mTemp2, nTemp2, mIrrVar, nIrrVar ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./compmsealt.f:140:2: previous reference to 'addmat' CALL addMat( mTemp2, nTemp2, mId, nId, mFSISea, nFSISea ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./compmsealt.f:153:2: warning: Reference to the procedure 'mulsca' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes CALL mulSca( DBLE(sIrrVar), mIrrVar, nIrrVar ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./compmsealt.f:136:2: previous reference to 'mulsca' CALL mulSca( sIrrVar, mFSTIIrr, nFSTIIrr ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./compmsealt.f:160:2: warning: Reference to the procedure 'invmat' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL invMat( mTemp2A, nTemp2A, mTemp2, nTemp2 ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./compmsealt.f:120:2: previous reference to 'invmat' CALL invMat( mSigWS, nSigWS, mInvSigWS, nInvSigWS ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./compmsealt.f:162:2: warning: Reference to the procedure 'mulmat' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes CALL mulMat( mTemp2A, nTemp2A, mFSISea, nFSISea, ^ ./compmsealt.f:161:2: previous reference to 'mulmat' CALL mulMat( mTemp2, nTemp2, mFTITre, nFTITre, mTemp2A, nTemp2A ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./compmsealt.f:164:2: warning: Reference to the procedure 'mulsca' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes CALL mulSca( DBLE(sIrrVar), mSeaVar, nSeaVar ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./compmsealt.f:136:2: previous reference to 'mulsca' CALL mulSca( sIrrVar, mFSTIIrr, nFSTIIrr ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./compmsealt.f:171:2: warning: Reference to the procedure 'invmat' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL invMat( mTemp2A, nTemp2A, mTemp2, nTemp2 ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./compmsealt.f:120:2: previous reference to 'invmat' CALL invMat( mSigWS, nSigWS, mInvSigWS, nInvSigWS ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./compmsealt.f:173:2: warning: Reference to the procedure 'mulmat' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes CALL mulMat( mTemp2A, nTemp2A, mFTITre, nFTITre, ^ ./compmsealt.f:161:2: previous reference to 'mulmat' CALL mulMat( mTemp2, nTemp2, mFTITre, nFTITre, mTemp2A, nTemp2A ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./compmsealt.f:175:2: warning: Reference to the procedure 'mulsca' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes CALL mulSca( DBLE(sIrrVar), mTreVar, nTreVar ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./compmsealt.f:136:2: previous reference to 'mulsca' CALL mulSca( sIrrVar, mFSTIIrr, nFSTIIrr ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ flang-new-18 -c -o component.o component.f flang-new-18 -c -o comprevs.o comprevs.f flang-new-18 -c -o constant.o constant.f flang-new-18 -c -o copy.o copy.f flang-new-18 -c -o copycl.o copycl.f flang-new-18 -c -o copylg.o copylg.f flang-new-18 -c -o cormtx.o cormtx.f flang-new-18 -c -o cornom.o cornom.f flang-new-18 -c -o corplt.o corplt.f flang-new-18 -c -o covar.o covar.f flang-new-18 -c -o cpyint.o cpyint.f flang-new-18 -c -o cpymat.o cpymat.f flang-new-18 -c -o crosco.o crosco.f flang-new-18 -c -o ctod.o ctod.f flang-new-18 -c -o ctodat.o ctodat.f flang-new-18 -c -o ctoi.o ctoi.f flang-new-18 -c -o cumnor.o cumnor.f flang-new-18 -c -o cvcmma.o cvcmma.f flang-new-18 -c -o cvdttm.o cvdttm.f flang-new-18 -c -o cvrerr.o cvrerr.f flang-new-18 -c -o daxpy.o daxpy.f flang-new-18 -c -o dcopy.o dcopy.f flang-new-18 -c -o ddot.o ddot.f flang-new-18 -c -o decibl.o decibl.f flang-new-18 -c -o delstr.o delstr.f flang-new-18 -c -o deltst.o deltst.f flang-new-18 -c -o desreg.o desreg.f flang-new-18 -c -o devlpl.o devlpl.f flang-new-18 -c -o dfdate.o dfdate.f flang-new-18 -c -o dgefa.o dgefa.f flang-new-18 -c -o dgesl.o dgesl.f flang-new-18 -c -o difflt.o difflt.f flang-new-18 -c -o dinvnr.o dinvnr.f flang-new-18 -c -o divgud.o divgud.f flang-new-18 -c -o divsub.o divsub.f flang-new-18 -c -o dlrgef.o dlrgef.f flang-new-18 -c -o dlrgrw.o dlrgrw.f flang-new-18 -c -o dlusrg.o dlusrg.f flang-new-18 -c -o dot.o dot.f flang-new-18 -c -o dpeq.o dpeq.f flang-new-18 -c -o dpmpar.o dpmpar.f flang-new-18 -c -o dppdi.o dppdi.f flang-new-18 -c -o dppfa.o dppfa.f flang-new-18 -c -o dppsl.o dppsl.f flang-new-18 -c -o dsarma.o dsarma.f flang-new-18 -c -o dscal.o dscal.f flang-new-18 -c -o dsolve.o dsolve.f flang-new-18 -c -o dtoc.o dtoc.f flang-new-18 -c -o easaic.o easaic.f flang-new-18 -c -o easter.o easter.f flang-new-18 -c -o editor.o editor.f ./editor.f:1095:11: warning: Reference to the procedure 'getstr' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes CALL getstr(AICDIC,aicptr,PAICTD,aicidx,str,nchr) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./editor.f:258:10: previous reference to 'getstr' CALL getstr(Colttl,Colptr,Nb,icol,igrptl,nchr) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./editor.f:1100:11: warning: Reference to the procedure 'getstr' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes CALL getstr(AICDIC,aicptr,PAICTD,Itdtst,str,nchr) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./editor.f:258:10: previous reference to 'getstr' CALL getstr(Colttl,Colptr,Nb,icol,igrptl,nchr) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./editor.f:1133:11: warning: Reference to the procedure 'getstr' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes CALL getstr(AICDIC,aicptr,PAICTD,aicidx,str,nchr) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./editor.f:258:10: previous reference to 'getstr' CALL getstr(Colttl,Colptr,Nb,icol,igrptl,nchr) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./editor.f:1138:11: warning: Reference to the procedure 'getstr' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes CALL getstr(AICDIC,aicptr,PAICTD,Itdtst,str,nchr) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./editor.f:258:10: previous reference to 'getstr' CALL getstr(Colttl,Colptr,Nb,icol,igrptl,nchr) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./editor.f:1192:8: warning: Reference to the procedure 'getstr' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes CALL getstr(AICDIC,aicptr,PAICTD,Itdtst,str,nchr) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./editor.f:258:10: previous reference to 'getstr' CALL getstr(Colttl,Colptr,Nb,icol,igrptl,nchr) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./editor.f:1925:11: warning: Reference to the procedure 'getstr' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes CALL getstr(XAICDC,xaicpt,PXTAIC,Xtdtst,str,nchr) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./editor.f:258:10: previous reference to 'getstr' CALL getstr(Colttl,Colptr,Nb,icol,igrptl,nchr) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ flang-new-18 -c -o eltfcn.o eltfcn.f flang-new-18 -c -o eltlen.o eltlen.f flang-new-18 -c -o emcomp.o emcomp.f flang-new-18 -c -o ends.o ends.f flang-new-18 -c -o endsf.o endsf.f flang-new-18 -c -o enorm.o enorm.f flang-new-18 -c -o entsch.o entsch.f flang-new-18 -c -o errhdr.o errhdr.f flang-new-18 -c -o estrmu.o estrmu.f flang-new-18 -c -o euclid.o euclid.f flang-new-18 -c -o exctma.o exctma.f ./exctma.f:39:9: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL copy(A(neltq+1),Nelta,1,work(neltq+1)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./exctma.f:35:9: previous reference to 'copy' CALL copy(A,Nelta,-1,A(neltq+1)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./exctma.f:55:9: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL copy(work,neltq,1,A) ^^^^^^^^^^^^^^^^^^^^^^^^^ ./exctma.f:35:9: previous reference to 'copy' CALL copy(A,Nelta,-1,A(neltq+1)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./exctma.f:60:8: warning: Reference to the procedure 'ratpos' has an implicit interface that is distinct from another reference: incompatible dummy argument #8: incompatible dummy data object shapes CALL ratpos(Nelta,Arimap,Arimal,Opr,Mdl(MA-1),Mdl(MA)-1,Nelta,A) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./exctma.f:43:9: previous reference to 'ratpos' CALL ratpos(Nelta,Arimap,Arimal,Opr,Mdl(MA-1),Mdl(MA)-1,Nelta, ^ flang-new-18 -c -o extend.o extend.f ./extend.f:96:21: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes IF(Nfcst.gt.0)CALL copy(Fcst,Nfcst,1,Orix(Posfob+1)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./extend.f:91:7: previous reference to 'copy' CALL copy(Trnsrs,Nspobs,1,Orix(Pos1ob)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./extend.f:110:8: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL copy(bcst2,Nbcst,1,Orix(Pos1bk)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./extend.f:91:7: previous reference to 'copy' CALL copy(Trnsrs,Nspobs,1,Orix(Pos1ob)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ flang-new-18 -c -o extsgnl.o extsgnl.f ./extsgnl.f:292:7: warning: Reference to the procedure 'mulmat' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL mulMat( mFSTIIrr, nFSTIIrr, vY, nY, vIrrEst, nIrrEst ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./extsgnl.f:285:7: previous reference to 'mulmat' CALL mulMat( mSigUI, nSigUI, mQuadW, nQuadW, mFSTIIrr, nFSTIIrr ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./extsgnl.f:308:7: warning: Reference to the procedure 'mulmat' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL mulMat( mTemp2, nTemp2, mQuadWT, nQuadWT, mTemp1, nTemp1 ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./extsgnl.f:285:7: previous reference to 'mulmat' CALL mulMat( mSigUI, nSigUI, mQuadW, nQuadW, mFSTIIrr, nFSTIIrr ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./extsgnl.f:309:7: warning: Reference to the procedure 'mulmat' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL mulMat( mTemp1, nTemp1, vY, nY, vSeaEst, nSeaEst ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./extsgnl.f:285:7: previous reference to 'mulmat' CALL mulMat( mSigUI, nSigUI, mQuadW, nQuadW, mFSTIIrr, nFSTIIrr ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./extsgnl.f:311:7: warning: Reference to the procedure 'mulmat' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL mulMat( mTemp2, nTemp2, mQuadWTp1, nQuadWTp1, ^ ./extsgnl.f:285:7: previous reference to 'mulmat' CALL mulMat( mSigUI, nSigUI, mQuadW, nQuadW, mFSTIIrr, nFSTIIrr ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./extsgnl.f:326:7: warning: Reference to the procedure 'mulmat' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL mulMat( mTemp2, nTemp2, mQuadWS, nQuadWS, mTemp1, nTemp1 ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./extsgnl.f:285:7: previous reference to 'mulmat' CALL mulMat( mSigUI, nSigUI, mQuadW, nQuadW, mFSTIIrr, nFSTIIrr ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./extsgnl.f:327:7: warning: Reference to the procedure 'mulmat' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL mulMat( mTemp1, nTemp1, vY, nY, vTreEst, nTreEst ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./extsgnl.f:285:7: previous reference to 'mulmat' CALL mulMat( mSigUI, nSigUI, mQuadW, nQuadW, mFSTIIrr, nFSTIIrr ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./extsgnl.f:329:7: warning: Reference to the procedure 'mulmat' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL mulMat( mTemp2, nTemp2, mQuadWSp1, nQuadWSp1, ^ ./extsgnl.f:285:7: previous reference to 'mulmat' CALL mulMat( mSigUI, nSigUI, mQuadW, nQuadW, mFSTIIrr, nFSTIIrr ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./extsgnl.f:343:7: warning: Reference to the procedure 'muldtrmat' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL mulDTrMat( dRedDelT, nRedDelT, mIrrPFlt, nIrrPFlt, ^ ./extsgnl.f:256:7: previous reference to 'muldtrmat' CALL mulDTrMat( dDelS, nDelS, mInvSigWS, nInvSigWS, ^ ./extsgnl.f:345:7: warning: Reference to the procedure 'addmat' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL addMat( mTrePFlt, nTrePFlt, mSAPFlt, nSAPFlt, ^ ./extsgnl.f:306:7: previous reference to 'addmat' CALL addMat( mQuadUS, nQuadUS, mQuadWT, nQuadWT, mTemp1, nTemp1 ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ flang-new-18 -c -o f3cal.o f3cal.f flang-new-18 -c -o f3gen.o f3gen.f flang-new-18 -c -o fclose.o fclose.f flang-new-18 -c -o fcnar.o fcnar.f flang-new-18 -c -o fcstxy.o fcstxy.f ./fcstxy.f:127:8: warning: Reference to the procedure 'polyml' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object shapes CALL polyml(Arimap(beglag),Arimal(beglag),nlag,fulmap,fulmal, ^ ./fcstxy.f:112:8: previous reference to 'polyml' CALL polyml(Arimap(beglag),Arimal(beglag),nlag,fularp,fularl, ^ ./fcstxy.f:168:7: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL copy(Xy(neltxy-ndltar+1),ndltar+neltf,1,tfcst) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./fcstxy.f:99:7: previous reference to 'copy' CALL copy(Xy,Fctori*Ncxy,1,a) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ flang-new-18 -c -o fdjac2.o fdjac2.f flang-new-18 -c -o fgen.o fgen.f flang-new-18 -c -o fis.o fis.f flang-new-18 -c -o fopen.o fopen.f flang-new-18 -c -o forcst.o forcst.f flang-new-18 -c -o fouger.o fouger.f flang-new-18 -c -o fstop.o fstop.f flang-new-18 -c -o ftest.o ftest.f flang-new-18 -c -o fvalue.o fvalue.f flang-new-18 -c -o fxshfr.o fxshfr.f flang-new-18 -c -o gauss.o gauss.f flang-new-18 -c -o gendff.o gendff.f flang-new-18 -c -o genfoot.o genfoot.f flang-new-18 -c -o genfor.o genfor.f flang-new-18 -c -o genindex.o genindex.f ./genindex.f:411:8: warning: Reference to the procedure 'getstr' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes CALL getstr(OTLDIC,otlptr,POTL,iss,eststr,nstr) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./genindex.f:237:9: previous reference to 'getstr' CALL getstr(SSEDIC,sseptr,PSSE,PSSE,eststr,nstr) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./genindex.f:416:8: warning: Reference to the procedure 'getstr' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes CALL getstr(OTLDIC,otlptr,POTL,iss,eststr,nstr) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./genindex.f:237:9: previous reference to 'getstr' CALL getstr(SSEDIC,sseptr,PSSE,PSSE,eststr,nstr) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./genindex.f:484:8: warning: Reference to the procedure 'getstr' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes CALL getstr(SETDIC,setptr,PSET,iss,eststr,nstr) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./genindex.f:237:9: previous reference to 'getstr' CALL getstr(SSEDIC,sseptr,PSSE,PSSE,eststr,nstr) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./genindex.f:489:8: warning: Reference to the procedure 'getstr' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes CALL getstr(SETDIC,setptr,PSET,iss,eststr,nstr) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./genindex.f:237:9: previous reference to 'getstr' CALL getstr(SSEDIC,sseptr,PSSE,PSSE,eststr,nstr) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./genindex.f:504:8: warning: Reference to the procedure 'getstr' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes CALL getstr(SERDIC,serptr,PSER,iss,eststr,nstr) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./genindex.f:237:9: previous reference to 'getstr' CALL getstr(SSEDIC,sseptr,PSSE,PSSE,eststr,nstr) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./genindex.f:509:8: warning: Reference to the procedure 'getstr' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes CALL getstr(REGDIC,regptr,PREG,iss,eststr,nstr) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./genindex.f:237:9: previous reference to 'getstr' CALL getstr(SSEDIC,sseptr,PSSE,PSSE,eststr,nstr) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./genindex.f:514:8: warning: Reference to the procedure 'getstr' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes CALL getstr(FINDIC,finptr,PFIN,iss,eststr,nstr) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./genindex.f:237:9: previous reference to 'getstr' CALL getstr(SSEDIC,sseptr,PSSE,PSSE,eststr,nstr) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./genindex.f:519:8: warning: Reference to the procedure 'getstr' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes CALL getstr(REGDIC,regptr,PREG,iss,eststr,nstr) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./genindex.f:237:9: previous reference to 'getstr' CALL getstr(SSEDIC,sseptr,PSSE,PSSE,eststr,nstr) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./genindex.f:553:8: warning: Reference to the procedure 'getstr' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes CALL getstr(PREDIC,preptr,PPRE,iss,eststr,nstr) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./genindex.f:237:9: previous reference to 'getstr' CALL getstr(SSEDIC,sseptr,PSSE,PSSE,eststr,nstr) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./genindex.f:558:8: warning: Reference to the procedure 'getstr' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes CALL getstr(RSEDIC,rseptr,PRSE,iss,eststr,nstr) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./genindex.f:237:9: previous reference to 'getstr' CALL getstr(SSEDIC,sseptr,PSSE,PSSE,eststr,nstr) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./genindex.f:648:9: warning: Reference to the procedure 'getstr' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes CALL getstr(SETDIC,setptr,PSET,iss,eststr,nstr) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./genindex.f:237:9: previous reference to 'getstr' CALL getstr(SSEDIC,sseptr,PSSE,PSSE,eststr,nstr) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./genindex.f:671:9: warning: Reference to the procedure 'getstr' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes CALL getstr(SETDIC,setptr,PSET,iss,eststr,nstr) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./genindex.f:237:9: previous reference to 'getstr' CALL getstr(SSEDIC,sseptr,PSSE,PSSE,eststr,nstr) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./genindex.f:698:9: warning: Reference to the procedure 'getstr' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes CALL getstr(SETDIC,setptr,PSET,iss,eststr,nstr) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./genindex.f:237:9: previous reference to 'getstr' CALL getstr(SSEDIC,sseptr,PSSE,PSSE,eststr,nstr) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ flang-new-18 -c -o genqs.o genqs.f flang-new-18 -c -o genrtt.o genrtt.f flang-new-18 -c -o genskip.o genskip.f flang-new-18 -c -o genssm.o genssm.f flang-new-18 -c -o getadj.o getadj.f ./getadj.f:139:7: warning: Reference to the procedure 'setint' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL setint(NOTSET,2*PARG,arglog) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./getadj.f:138:7: previous reference to 'setint' CALL setint(3,PNADJ,decvec) ^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./getadj.f:144:7: warning: Reference to the procedure 'setint' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL setint(NOTSET,2*PNADJ,tmpdat) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./getadj.f:138:7: previous reference to 'setint' CALL setint(3,PNADJ,decvec) ^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./getadj.f:262:9: warning: Reference to the procedure 'gtdcvc' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes 70 CALL gtdcvc(LPAREN,T,1,RGADIC,rgaptr,PRGA, ^ ./getadj.f:227:9: previous reference to 'gtdcvc' 60 CALL gtdcvc(LPAREN,T,1,ADJDIC,adjptr,PADJ, ^ ./getadj.f:284:9: warning: Reference to the procedure 'gtdpvc' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object shapes 80 CALL gtdpvc(LPAREN,T,1,dvec,nelt,argok,Inptok) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./getadj.f:173:9: previous reference to 'gtdpvc' CALL gtdpvc(LPAREN,T,PLEN*PNADJ,adjtmp,nadtmp,argok,Inptok) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./getadj.f:302:9: warning: Reference to the procedure 'gtdcvc' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes 90 CALL gtdcvc(LPAREN,T,1,FCNDIC,fcnptr,PFCN, ^ ./getadj.f:227:9: previous reference to 'gtdcvc' 60 CALL gtdcvc(LPAREN,T,1,ADJDIC,adjptr,PADJ, ^ ./getadj.f:342:9: warning: Reference to the procedure 'gtdcvc' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes 120 CALL gtdcvc(LPAREN,T,PNADJ,MODDIC,modptr,PMOD, ^ ./getadj.f:227:9: previous reference to 'gtdcvc' 60 CALL gtdcvc(LPAREN,T,1,ADJDIC,adjptr,PADJ, ^ ./getadj.f:362:9: warning: Reference to the procedure 'gtdcvc' has an implicit interface that is distinct from another reference: incompatible dummy argument #8: incompatible dummy data object shapes 140 CALL gtdcvc(LPAREN,T,PNADJ,TYPDIC,typptr,PATYPE, ^ ./getadj.f:227:9: previous reference to 'gtdcvc' 60 CALL gtdcvc(LPAREN,T,1,ADJDIC,adjptr,PADJ, ^ ./getadj.f:398:9: warning: Reference to the procedure 'gtdpvc' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object shapes 160 CALL gtdpvc(LPAREN,T,1,dvec,nelt,argok,Inptok) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./getadj.f:173:9: previous reference to 'gtdpvc' CALL gtdpvc(LPAREN,T,PLEN*PNADJ,adjtmp,nadtmp,argok,Inptok) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./getadj.f:410:9: warning: Reference to the procedure 'gtdcvc' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes 175 CALL gtdcvc(LPAREN,T,1,ZRODIC,zroptr,PZRO, ^ ./getadj.f:227:9: previous reference to 'gtdcvc' 60 CALL gtdcvc(LPAREN,T,1,ADJDIC,adjptr,PADJ, ^ ./getadj.f:419:9: warning: Reference to the procedure 'gtdcvc' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes 176 CALL gtdcvc(LPAREN,T,1,YSNDIC,ysnptr,PYSN, ^ ./getadj.f:227:9: previous reference to 'gtdcvc' 60 CALL gtdcvc(LPAREN,T,1,ADJDIC,adjptr,PADJ, ^ ./getadj.f:428:9: warning: Reference to the procedure 'gtdpvc' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object shapes 177 CALL gtdpvc(LPAREN,T,1,dvec,nelt,argok,Inptok) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./getadj.f:173:9: previous reference to 'gtdpvc' CALL gtdpvc(LPAREN,T,PLEN*PNADJ,adjtmp,nadtmp,argok,Inptok) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ flang-new-18 -c -o getchk.o getchk.f flang-new-18 -c -o getchr.o getchr.f flang-new-18 -c -o getcmp.o getcmp.f ./getcmp.f:71:7: warning: Reference to the procedure 'setint' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL setint(NOTSET,2*PARG,arglog) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./getcmp.f:70:7: previous reference to 'setint' CALL setint(NOTSET,4,spnmdl) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./getcmp.f:219:9: warning: Reference to the procedure 'cpyint' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL cpyint(spnmdl,2,1,Begmdl) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./getcmp.f:217:9: previous reference to 'cpyint' CALL cpyint(Begspn,2,1,Begmdl) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./getcmp.f:228:9: warning: Reference to the procedure 'cpyint' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL cpyint(spnmdl(1,2),2,1,Endmdl) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./getcmp.f:217:9: previous reference to 'cpyint' CALL cpyint(Begspn,2,1,Begmdl) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ flang-new-18 -c -o getdat.o getdat.f flang-new-18 -c -o getdbl.o getdbl.f flang-new-18 -c -o getdes.o getdes.f ./getdes.f:54:8: warning: Reference to the procedure 'makttl' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes CALL makttl(DSMDIC,dsmptr,PDSM,Itbl,PDSR,Fildes,Ndescr,Label,F) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./getdes.f:52:8: previous reference to 'makttl' CALL makttl(DSRDIC,dsrptr,PDSR,Itbl,0,Fildes,Ndescr,Label,F) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./getdes.f:56:8: warning: Reference to the procedure 'makttl' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes CALL makttl(DSPDIC,dspptr,PDSP,Itbl,PDSUM1,Fildes,Ndescr,Label,F) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./getdes.f:52:8: previous reference to 'makttl' CALL makttl(DSRDIC,dsrptr,PDSR,Itbl,0,Fildes,Ndescr,Label,F) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./getdes.f:58:8: warning: Reference to the procedure 'makttl' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes CALL makttl(DSXDIC,dsxptr,PDSX,Itbl,PDSUM2,Fildes,Ndescr,Label,F) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./getdes.f:52:8: previous reference to 'makttl' CALL makttl(DSRDIC,dsrptr,PDSR,Itbl,0,Fildes,Ndescr,Label,F) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./getdes.f:60:8: warning: Reference to the procedure 'makttl' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes CALL makttl(DSSDIC,dssptr,PDSS,Itbl,PDSUM3,Fildes,Ndescr,Label,F) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./getdes.f:52:8: previous reference to 'makttl' CALL makttl(DSRDIC,dsrptr,PDSR,Itbl,0,Fildes,Ndescr,Label,F) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./getdes.f:62:8: warning: Reference to the procedure 'makttl' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes CALL makttl(DSADIC,dsaptr,PDSA,Itbl,PDSUM4,Fildes,Ndescr,Label,F) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./getdes.f:52:8: previous reference to 'makttl' CALL makttl(DSRDIC,dsrptr,PDSR,Itbl,0,Fildes,Ndescr,Label,F) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./getdes.f:64:8: warning: Reference to the procedure 'makttl' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes CALL makttl(DSIDIC,dsiptr,PDSI,Itbl,PDSUM5,Fildes,Ndescr,Label,F) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./getdes.f:52:8: previous reference to 'makttl' CALL makttl(DSRDIC,dsrptr,PDSR,Itbl,0,Fildes,Ndescr,Label,F) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./getdes.f:66:8: warning: Reference to the procedure 'makttl' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes CALL makttl(DSDDIC,dsdptr,PDSD,Itbl,PDSUM6,Fildes,Ndescr,Label,F) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./getdes.f:52:8: previous reference to 'makttl' CALL makttl(DSRDIC,dsrptr,PDSR,Itbl,0,Fildes,Ndescr,Label,F) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./getdes.f:70:8: warning: Reference to the procedure 'makttl' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes CALL makttl(DSCDIC,dscptr,PDSC,Itbl,PDSUM8,Fildes,Ndescr,Label,F) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./getdes.f:52:8: previous reference to 'makttl' CALL makttl(DSRDIC,dsrptr,PDSR,Itbl,0,Fildes,Ndescr,Label,F) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./getdes.f:72:8: warning: Reference to the procedure 'makttl' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes CALL makttl(DC2DIC,dc2ptr,PDC2,Itbl,PDSUM9,Fildes,Ndescr,Label,F) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./getdes.f:52:8: previous reference to 'makttl' CALL makttl(DSRDIC,dsrptr,PDSR,Itbl,0,Fildes,Ndescr,Label,F) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./getdes.f:74:8: warning: Reference to the procedure 'makttl' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes CALL makttl(DSEDIC,dseptr,PDSE,Itbl,PDSUM10,Fildes,Ndescr,Label, ^ ./getdes.f:52:8: previous reference to 'makttl' CALL makttl(DSRDIC,dsrptr,PDSR,Itbl,0,Fildes,Ndescr,Label,F) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./getdes.f:77:8: warning: Reference to the procedure 'makttl' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes CALL makttl(DS2DIC,ds2ptr,PDS2,Itbl,PDSUM11,Fildes,Ndescr,Label, ^ ./getdes.f:52:8: previous reference to 'makttl' CALL makttl(DSRDIC,dsrptr,PDSR,Itbl,0,Fildes,Ndescr,Label,F) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ flang-new-18 -c -o getdiag.o getdiag.f ./getdiag.f:1244:8: warning: Reference to the procedure 'getrevdecomp' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL getRevDecomp( vSeaARD, sSeaARD-1, vIrrAR, oIrrAR, ^ ./getdiag.f:1225:8: previous reference to 'getrevdecomp' CALL getRevDecomp( vSeaARD, sSeaARD-1, vSAAR, oSAAR, ^ ./getdiag.f:1289:8: warning: Reference to the procedure 'getrevdecomp' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL getRevDecomp( vTreARD, sTreARD-1, vIrrAR, oIrrAR, ^ ./getdiag.f:1225:8: previous reference to 'getrevdecomp' CALL getRevDecomp( vSeaARD, sSeaARD-1, vSAAR, oSAAR, ^ flang-new-18 -c -o getfcn.o getfcn.f flang-new-18 -c -o getfrc.o getfrc.f ./getfrc.f:111:9: warning: Reference to the procedure 'gtdcvc' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes 20 CALL gtdcvc(LPAREN,T,1,YSNDIC,ysnptr,PYSN, ^ ./getfrc.f:102:9: previous reference to 'gtdcvc' 10 CALL gtdcvc(LPAREN,T,1,FRCDIC,frcptr,PFRC, ^ ./getfrc.f:120:9: warning: Reference to the procedure 'gtdcvc' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes 30 CALL gtdcvc(LPAREN,T,1,FRTDIC,frtptr,PFRT, ^ ./getfrc.f:102:9: previous reference to 'gtdcvc' 10 CALL gtdcvc(LPAREN,T,1,FRCDIC,frcptr,PFRC, ^ ./getfrc.f:131:9: warning: Reference to the procedure 'gtdcvc' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes 40 CALL gtdcvc(LPAREN,T,1,SUMDIC,sumptr,PSUM, ^ ./getfrc.f:102:9: previous reference to 'gtdcvc' 10 CALL gtdcvc(LPAREN,T,1,FRCDIC,frcptr,PFRC, ^ ./getfrc.f:164:9: warning: Reference to the procedure 'gtdcvc' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes 70 CALL gtdcvc(LPAREN,T,1,YSNDIC,ysnptr,PYSN, ^ ./getfrc.f:102:9: previous reference to 'gtdcvc' 10 CALL gtdcvc(LPAREN,T,1,FRCDIC,frcptr,PFRC, ^ ./getfrc.f:173:9: warning: Reference to the procedure 'gtdcvc' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes 80 CALL gtdcvc(LPAREN,T,1,YSNDIC,ysnptr,PYSN, ^ ./getfrc.f:102:9: previous reference to 'gtdcvc' 10 CALL gtdcvc(LPAREN,T,1,FRCDIC,frcptr,PFRC, ^ ./getfrc.f:219:9: warning: Reference to the procedure 'gtdcvc' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes 110 CALL gtdcvc(LPAREN,T,1,FMDDIC,fmdptr,PFMD, ^ ./getfrc.f:102:9: previous reference to 'gtdcvc' 10 CALL gtdcvc(LPAREN,T,1,FRCDIC,frcptr,PFRC, ^ flang-new-18 -c -o getgr.o getgr.f ./getgr.f:743:7: warning: Reference to the procedure 'mulmat' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL mulMat( mB, nB, mTemp1, nTemp1, mTemp2, nTemp2 ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./getgr.f:741:7: previous reference to 'mulmat' CALL mulMat( mSigUfU, nSigUfU, mInvSigU, nInvSigU, ^ ./getgr.f:765:7: warning: Reference to the procedure 'mulmat' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL mulMat( mD, nD, mCmpVar, nCmpVar, mSigCfC, nSigCfC ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./getgr.f:741:7: previous reference to 'mulmat' CALL mulMat( mSigUfU, nSigUfU, mInvSigU, nInvSigU, ^ ./getgr.f:766:7: warning: Reference to the procedure 'mulmattr' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL mulMatTr( mSigCfC, nSigCfC, mD, nD, mSigCf, nSigCf ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./getgr.f:756:7: previous reference to 'mulmattr' CALL mulMatTr( mTemp1, nTemp1, mSigUfU, nSigUfU, mTemp2, nTemp2 ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./getgr.f:767:7: warning: Reference to the procedure 'addmat' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL addMat( mSigCf, nSigCf, mG, nG, mSigCf, nSigCf ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./getgr.f:758:7: previous reference to 'addmat' CALL addMat( mSigUf, nSigUf, mTemp2, nTemp2, mTemp1, nTemp1 ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./getgr.f:875:7: warning: Reference to the procedure 'mulqmat' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL mulQMat( mSigWfW, nSigWfW, mInvSigW, nInvSigW, ^ ./getgr.f:759:7: previous reference to 'mulqmat' CALL mulQMat( mB, nB, mTemp1, nTemp1, mG, nG ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ flang-new-18 -c -o getid.o getid.f ./getid.f:56:9: warning: Reference to the procedure 'getivc' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object shapes 20 CALL getivc(LPAREN,T,PDFLG,Dflist(1,2),Nidsdf,argok,Inptok) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./getid.f:50:9: previous reference to 'getivc' 10 CALL getivc(LPAREN,T,PDFLG,Dflist,Niddf,argok,Inptok) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./getid.f:78:9: warning: Reference to the procedure 'getivc' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object shapes 30 CALL getivc(LPAREN,T,1,ivec,nelt,argok,Inptok) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./getid.f:50:9: previous reference to 'getivc' 10 CALL getivc(LPAREN,T,PDFLG,Dflist,Niddf,argok,Inptok) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ flang-new-18 -c -o getidm.o getidm.f flang-new-18 -c -o getint.o getint.f flang-new-18 -c -o getivc.o getivc.f flang-new-18 -c -o getmdl.o getmdl.f ./getmdl.f:54:8: warning: Reference to the procedure 'getopr' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes CALL getopr(DIFF,dfcoef,dflag,dffix,ndcoef,ndf,naimcf,argok, ^ ./getmdl.f:50:8: previous reference to 'getopr' CALL getopr(AR,arcoef,arlag,arfix,nar,itmp,naimcf,argok,Locok) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./getmdl.f:188:12: warning: Reference to the procedure 'iscrfn' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL iscrfn(MULT,facsp,dflag,ndcoef,PDIFOR,dflag) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./getmdl.f:128:11: previous reference to 'iscrfn' CALL iscrfn(MULT,facsp,arlag,nar,PORDER,arlag) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./getmdl.f:190:27: warning: Reference to the procedure 'insopr' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes IF(.not.Lfatal)CALL insopr(DIFF,dfcoef,dflag,dffix,ndcoef, ^ ./getmdl.f:130:26: previous reference to 'insopr' IF(.not.Lfatal)CALL insopr(AR,arcoef,arlag,arfix,nar,facsp, ^ flang-new-18 -c -o getmtd.o getmtd.f flang-new-18 -c -o getopr.o getopr.f flang-new-18 -c -o getprt.o getprt.f ./getprt.f:77:10: warning: Reference to the procedure 'gtdcnm' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes CALL gtdcnm(TB1DIC,tb1ptr(2*Spcdsp),2*Nspctb,tblidx,argok) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./getprt.f:54:8: previous reference to 'gtdcnm' CALL gtdcnm(LVLDIC,lvlptr,NLVL,itmp,argok) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./getprt.f:79:10: warning: Reference to the procedure 'gtdcnm' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes CALL gtdcnm(TB2DIC,tb2ptr(2*(Spcdsp-BRKDSP)),2*Nspctb,tblidx, ^ ./getprt.f:54:8: previous reference to 'gtdcnm' CALL gtdcnm(LVLDIC,lvlptr,NLVL,itmp,argok) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./getprt.f:82:10: warning: Reference to the procedure 'gtdcnm' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes CALL gtdcnm(TB3DIC,tb3ptr(2*(Spcdsp-BRKDS2)),2*Nspctb,tblidx, ^ ./getprt.f:54:8: previous reference to 'gtdcnm' CALL gtdcnm(LVLDIC,lvlptr,NLVL,itmp,argok) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./getprt.f:85:10: warning: Reference to the procedure 'gtdcnm' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes CALL gtdcnm(TB4DIC,tb4ptr(2*(Spcdsp-BRKDS3)),2*Nspctb,tblidx, ^ ./getprt.f:54:8: previous reference to 'gtdcnm' CALL gtdcnm(LVLDIC,lvlptr,NLVL,itmp,argok) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./getprt.f:158:12: warning: Reference to the procedure 'gtdcnm' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes CALL gtdcnm(TB1DIC,tb1ptr(2*Spcdsp),2*Nspctb,tblidx,argok) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./getprt.f:54:8: previous reference to 'gtdcnm' CALL gtdcnm(LVLDIC,lvlptr,NLVL,itmp,argok) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./getprt.f:160:12: warning: Reference to the procedure 'gtdcnm' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes CALL gtdcnm(TB2DIC,tb2ptr(2*(Spcdsp-BRKDSP)),2*Nspctb, ^ ./getprt.f:54:8: previous reference to 'gtdcnm' CALL gtdcnm(LVLDIC,lvlptr,NLVL,itmp,argok) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./getprt.f:163:12: warning: Reference to the procedure 'gtdcnm' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes CALL gtdcnm(TB3DIC,tb3ptr(2*(Spcdsp-BRKDS2)),2*Nspctb, ^ ./getprt.f:54:8: previous reference to 'gtdcnm' CALL gtdcnm(LVLDIC,lvlptr,NLVL,itmp,argok) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./getprt.f:166:12: warning: Reference to the procedure 'gtdcnm' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes CALL gtdcnm(TB4DIC,tb4ptr(2*(Spcdsp-BRKDS3)),2*Nspctb, ^ ./getprt.f:54:8: previous reference to 'gtdcnm' CALL gtdcnm(LVLDIC,lvlptr,NLVL,itmp,argok) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ flang-new-18 -c -o getreg.o getreg.f ./getreg.f:137:7: warning: Reference to the procedure 'setint' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL setint(NOTSET,2,ispn) ^^^^^^^^^^^^^^^^^^^^^^^^^^ ./getreg.f:136:7: previous reference to 'setint' CALL setint(NOTSET,2*PARG,arglog) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./getreg.f:138:7: warning: Reference to the procedure 'setint' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL setint(0,PUHLGP,iuhl) ^^^^^^^^^^^^^^^^^^^^^^^^^^ ./getreg.f:136:7: previous reference to 'setint' CALL setint(NOTSET,2*PARG,arglog) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./getreg.f:191:9: warning: Reference to the procedure 'gtnmvc' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes CALL gtnmvc(LPAREN,T,1,rgfile,itmpvc,neltux,PFILCR,argok,locok) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./getreg.f:164:9: previous reference to 'gtnmvc' 20 CALL gtnmvc(LPAREN,T,PUREG,Usrttl,Usrptr,Ncusrx,PCOLCR,argok, ^ ./getreg.f:203:9: warning: Reference to the procedure 'gtnmvc' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes 60 CALL gtnmvc(LPAREN,T,1,rgfmt,itmpvc,nelt,PFILCR,argok,locok) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./getreg.f:164:9: previous reference to 'gtnmvc' 20 CALL gtnmvc(LPAREN,T,PUREG,Usrttl,Usrptr,Ncusrx,PCOLCR,argok, ^ ./getreg.f:281:9: warning: Reference to the procedure 'gtdcvc' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes 110 CALL gtdcvc(LPAREN,F,1,YSNDIC,ysnptr,PYSN, ^ ./getreg.f:231:9: previous reference to 'gtdcvc' 100 CALL gtdcvc(LPAREN,F,4,AICDIC,aicptr,PAIC,'Choices for aictest a ^ ./getreg.f:290:9: warning: Reference to the procedure 'gtdcvc' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes 120 CALL gtdcvc(LPAREN,T,PMODEL,MDLDIC,mdlptr,PMODEL,'Choices for th ^ ./getreg.f:231:9: previous reference to 'gtdcvc' 100 CALL gtdcvc(LPAREN,F,4,AICDIC,aicptr,PAIC,'Choices for aictest a ^ ./getreg.f:320:9: warning: Reference to the procedure 'gtdcvc' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes 130 CALL gtdcvc(LPAREN,F,PUREG,URGDIC,urgptr,PURG, ^ ./getreg.f:231:9: previous reference to 'gtdcvc' 100 CALL gtdcvc(LPAREN,F,4,AICDIC,aicptr,PAIC,'Choices for aictest a ^ ./getreg.f:375:9: warning: Reference to the procedure 'gtdcvc' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes 140 CALL gtdcvc(LPAREN,F,1,URRDIC,urrptr,PURR, ^ ./getreg.f:231:9: previous reference to 'gtdcvc' 100 CALL gtdcvc(LPAREN,F,4,AICDIC,aicptr,PAIC,'Choices for aictest a ^ ./getreg.f:393:10: warning: Reference to the procedure 'gtdpvc' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object shapes CALL gtdpvc(LPAREN,T,1,dvec,nelt,argok,locok) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./getreg.f:175:9: previous reference to 'gtdpvc' CALL gtdpvc(LPAREN,T,peltux,Userx,neltux,argok,locok) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./getreg.f:415:9: warning: Reference to the procedure 'gtdpvc' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object shapes CALL gtdpvc(LPAREN,F,PAICT,daicdf,nelt,argok,locok) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./getreg.f:175:9: previous reference to 'gtdpvc' CALL gtdpvc(LPAREN,T,peltux,Userx,neltux,argok,locok) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./getreg.f:438:9: warning: Reference to the procedure 'gtdcvc' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes 180 CALL gtdcvc(LPAREN,F,1,YSNDIC,ysnptr,PYSN, ^ ./getreg.f:231:9: previous reference to 'gtdcvc' 100 CALL gtdcvc(LPAREN,F,4,AICDIC,aicptr,PAIC,'Choices for aictest a ^ ./getreg.f:447:9: warning: Reference to the procedure 'gtdpvc' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object shapes 190 CALL gtdpvc(LPAREN,T,1,dvec,nelt,argok,locok) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./getreg.f:175:9: previous reference to 'gtdpvc' CALL gtdpvc(LPAREN,T,peltux,Userx,neltux,argok,locok) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./getreg.f:462:9: warning: Reference to the procedure 'gtdpvc' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object shapes 191 CALL gtdpvc(LPAREN,T,1,dvec,nelt,argok,locok) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./getreg.f:175:9: previous reference to 'gtdpvc' CALL gtdpvc(LPAREN,T,peltux,Userx,neltux,argok,locok) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./getreg.f:482:9: warning: Reference to the procedure 'gtdpvc' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object shapes CALL gtdpvc(LPAREN,T,1,dvec,nelt,argok,locok) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./getreg.f:175:9: previous reference to 'gtdpvc' CALL gtdpvc(LPAREN,T,peltux,Userx,neltux,argok,locok) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./getreg.f:502:9: warning: Reference to the procedure 'gtdcvc' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes 193 CALL gtdcvc(LPAREN,F,1,YSNDIC,ysnptr,PYSN, ^ ./getreg.f:231:9: previous reference to 'gtdcvc' 100 CALL gtdcvc(LPAREN,F,4,AICDIC,aicptr,PAIC,'Choices for aictest a ^ ./getreg.f:511:9: warning: Reference to the procedure 'gtdcvc' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes 199 CALL gtdcvc(LPAREN,F,1,YSNDIC,ysnptr,PYSN, ^ ./getreg.f:231:9: previous reference to 'gtdcvc' 100 CALL gtdcvc(LPAREN,F,4,AICDIC,aicptr,PAIC,'Choices for aictest a ^ flang-new-18 -c -o getrev.o getrev.f flang-new-18 -c -o getrevdec.o getrevdec.f ./getrevdec.f:315:9: warning: Reference to the procedure 'conv' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL CONV( vDmS0R, 1, vDmS, sDmS, vDmSN, sDmSN ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./getrevdec.f:232:7: previous reference to 'conv' CALL CONV( vPhiN, pn+1, vThetaS, qs+1, vNumP1S, sNumP1S ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./getrevdec.f:330:9: warning: Reference to the procedure 'conv' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL CONV( vDmN0R, 1, vDmN, sDmN, vDmNN, sDmNN ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./getrevdec.f:232:7: previous reference to 'conv' CALL CONV( vPhiN, pn+1, vThetaS, qs+1, vNumP1S, sNumP1S ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./getrevdec.f:376:11: warning: Reference to the procedure 'conv' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL CONV( vTP2, sTP2, vPhiS, ps+1, vTP1, sTP1 ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./getrevdec.f:232:7: previous reference to 'conv' CALL CONV( vPhiN, pn+1, vThetaS, qs+1, vNumP1S, sNumP1S ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./getrevdec.f:383:11: warning: Reference to the procedure 'conv' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL CONV( vTP2, sTP2, vTheta, q+1, vTP1, sTP1 ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./getrevdec.f:232:7: previous reference to 'conv' CALL CONV( vPhiN, pn+1, vThetaS, qs+1, vNumP1S, sNumP1S ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./getrevdec.f:391:11: warning: Reference to the procedure 'conv' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL CONV( vTP2, sTP2, vPhiN, pn+1, vTP1, sTP1 ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./getrevdec.f:232:7: previous reference to 'conv' CALL CONV( vPhiN, pn+1, vThetaS, qs+1, vNumP1S, sNumP1S ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./getrevdec.f:398:11: warning: Reference to the procedure 'conv' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL CONV( vTP2, sTP2, vTheta, q+1, vTP1, sTP1 ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./getrevdec.f:232:7: previous reference to 'conv' CALL CONV( vPhiN, pn+1, vThetaS, qs+1, vNumP1S, sNumP1S ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./getrevdec.f:634:7: warning: Reference to the procedure 'conv' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL CONV( v2, 1, vA, sA, vAN, sAN ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./getrevdec.f:232:7: previous reference to 'conv' CALL CONV( vPhiN, pn+1, vThetaS, qs+1, vNumP1S, sNumP1S ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./getrevdec.f:635:7: warning: Reference to the procedure 'conv' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL CONV( v2, 1, vB, sB, vBN, sBN ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./getrevdec.f:232:7: previous reference to 'conv' CALL CONV( vPhiN, pn+1, vThetaS, qs+1, vNumP1S, sNumP1S ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./getrevdec.f:662:11: warning: Reference to the procedure 'conv' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL CONV( vQuot, sQuot, vBN, sBN, vW, sW ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./getrevdec.f:232:7: previous reference to 'conv' CALL CONV( vPhiN, pn+1, vThetaS, qs+1, vNumP1S, sNumP1S ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./getrevdec.f:663:11: warning: Reference to the procedure 'conv' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL CONV( v3, 1, vW, sW, vW, sW ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./getrevdec.f:232:7: previous reference to 'conv' CALL CONV( vPhiN, pn+1, vThetaS, qs+1, vNumP1S, sNumP1S ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./getrevdec.f:667:9: warning: Reference to the procedure 'conv' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL CONV( v1, 1, vW, sW, vW, sW ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./getrevdec.f:232:7: previous reference to 'conv' CALL CONV( vPhiN, pn+1, vThetaS, qs+1, vNumP1S, sNumP1S ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./getrevdec.f:1057:7: warning: Reference to the procedure 'multrmat' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL mulTrMat( mS, nS, mS, nS, mStrS, nStrS ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./getrevdec.f:1056:7: previous reference to 'multrmat' CALL mulTrMat( mS, nS, vRes, nRes, vF1, nF1 ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ flang-new-18 -c -o getsav.o getsav.f flang-new-18 -c -o getsma.o getsma.f flang-new-18 -c -o getsmat.o getsmat.f flang-new-18 -c -o getsrs.o getsrs.f ./getsrs.f:104:7: warning: Reference to the procedure 'setint' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL setint(NOTSET,2*PARG,arglog) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./getsrs.f:102:7: previous reference to 'setint' CALL setint(NOTSET,4,spnvec) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./getsrs.f:105:7: warning: Reference to the procedure 'setint' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL setint(NOTSET,2,endspn) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./getsrs.f:102:7: previous reference to 'setint' CALL setint(NOTSET,4,spnvec) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./getsrs.f:188:9: warning: Reference to the procedure 'gtdtvc' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object shapes 40 CALL gtdtvc(Havesp,Sp,LPAREN,F,2,spnvec,nelt,argok,locok) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./getsrs.f:149:9: previous reference to 'gtdtvc' 20 CALL gtdtvc(Havesp,Sp,LPAREN,F,1,Start,nelt,argok,locok) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./getsrs.f:293:9: warning: Reference to the procedure 'gtdtvc' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object shapes 130 CALL gtdtvc(Havesp,Sp,LPAREN,F,2,spnmdl,nelt,argok,Inptok) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./getsrs.f:149:9: previous reference to 'gtdtvc' 20 CALL gtdtvc(Havesp,Sp,LPAREN,F,1,Start,nelt,argok,locok) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./getsrs.f:319:9: warning: Reference to the procedure 'gtdpvc' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object shapes 150 CALL gtdpvc(LPAREN,T,1,dvec,nelt,argok,Inptok) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./getsrs.f:138:9: previous reference to 'gtdpvc' CALL gtdpvc(LPAREN,T,PLEN,Y,Nobs,argok,locok) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./getsrs.f:338:9: warning: Reference to the procedure 'gtdpvc' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object shapes 160 CALL gtdpvc(LPAREN,T,1,dvec,nelt,argok,Inptok) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./getsrs.f:138:9: previous reference to 'gtdpvc' CALL gtdpvc(LPAREN,T,PLEN,Y,Nobs,argok,locok) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./getsrs.f:345:9: warning: Reference to the procedure 'gtdpvc' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object shapes 170 CALL gtdpvc(LPAREN,T,1,dvec,nelt,argok,Inptok) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./getsrs.f:138:9: previous reference to 'gtdpvc' CALL gtdpvc(LPAREN,T,PLEN,Y,Nobs,argok,locok) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./getsrs.f:367:9: warning: Reference to the procedure 'gtdcvc' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes 190 CALL gtdcvc(LPAREN,T,1,YSNDIC,ysnptr,PYSN, ^ ./getsrs.f:307:9: previous reference to 'gtdcvc' 140 CALL gtdcvc(LPAREN,T,1,CMPDIC,cmpptr,PCMP, ^ ./getsrs.f:376:9: warning: Reference to the procedure 'gtdcvc' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes 200 CALL gtdcvc(LPAREN,T,1,ZRODIC,zroptr,PZRO, ^ ./getsrs.f:307:9: previous reference to 'gtdcvc' 140 CALL gtdcvc(LPAREN,T,1,CMPDIC,cmpptr,PCMP, ^ ./getsrs.f:401:9: warning: Reference to the procedure 'gtdcvc' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes 220 CALL gtdcvc(LPAREN,T,1,YSNDIC,ysnptr,PYSN, ^ ./getsrs.f:307:9: previous reference to 'gtdcvc' 140 CALL gtdcvc(LPAREN,T,1,CMPDIC,cmpptr,PCMP, ^ ./getsrs.f:410:9: warning: Reference to the procedure 'gtdcvc' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes 230 CALL gtdcvc(LPAREN,T,1,YSNDIC,ysnptr,PYSN, ^ ./getsrs.f:307:9: previous reference to 'gtdcvc' 140 CALL gtdcvc(LPAREN,T,1,CMPDIC,cmpptr,PCMP, ^ ./getsrs.f:419:9: warning: Reference to the procedure 'gtdcvc' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes 240 CALL gtdcvc(LPAREN,T,1,TYPDIC,typptr,PTYP, ^ ./getsrs.f:307:9: previous reference to 'gtdcvc' 140 CALL gtdcvc(LPAREN,T,1,CMPDIC,cmpptr,PCMP, ^ ./getsrs.f:454:9: warning: Reference to the procedure 'cpyint' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL cpyint(spnvec(1,2),2,1,endspn) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./getsrs.f:446:9: previous reference to 'cpyint' CALL cpyint(spnvec,2,1,Begspn) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./getsrs.f:492:35: warning: Reference to the procedure 'cpyint' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes IF(spnvec(YR,1).eq.NOTSET)CALL cpyint(Start,2,1,Begspn) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./getsrs.f:446:9: previous reference to 'cpyint' CALL cpyint(spnvec,2,1,Begspn) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./getsrs.f:510:10: warning: Reference to the procedure 'cpyint' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL cpyint(Begspn,2,1,Begmdl) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./getsrs.f:446:9: previous reference to 'cpyint' CALL cpyint(spnvec,2,1,Begspn) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./getsrs.f:527:10: warning: Reference to the procedure 'cpyint' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL cpyint(spnmdl(1,2),2,1,Endmdl) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./getsrs.f:446:9: previous reference to 'cpyint' CALL cpyint(spnvec,2,1,Begspn) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ flang-new-18 -c -o getssp.o getssp.f ./getssp.f:193:9: warning: Reference to the procedure 'gtdcvc' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes 100 CALL gtdcvc(LPAREN,T,1,YSNDIC,ysnptr,PYSN, ^ ./getssp.f:143:9: previous reference to 'gtdcvc' 50 CALL gtdcvc(LPAREN,T,1,OTLDIC,otlptr,POTLSS, ^ ./getssp.f:202:9: warning: Reference to the procedure 'gtdcvc' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes 110 CALL gtdcvc(LPAREN,.true.,1,YSNDIC,ysnptr,PYSN, ^ ./getssp.f:143:9: previous reference to 'gtdcvc' 50 CALL gtdcvc(LPAREN,T,1,OTLDIC,otlptr,POTLSS, ^ ./getssp.f:216:9: warning: Reference to the procedure 'gtdcvc' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes 130 CALL gtdcvc(LPAREN,T,PFXR,FXRDIC,fxrptr,PFXR, ^ ./getssp.f:143:9: previous reference to 'gtdcvc' 50 CALL gtdcvc(LPAREN,T,1,OTLDIC,otlptr,POTLSS, ^ ./getssp.f:224:9: warning: Reference to the procedure 'gtdcvc' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes 140 CALL gtdcvc(LPAREN,T,1,ADDDIC,addptr,PADD, ^ ./getssp.f:143:9: previous reference to 'gtdcvc' 50 CALL gtdcvc(LPAREN,T,1,OTLDIC,otlptr,POTLSS, ^ ./getssp.f:254:9: warning: Reference to the procedure 'gtdcvc' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes 160 CALL gtdcvc(LPAREN,.true.,1,YSNDIC,ysnptr,PYSN, ^ ./getssp.f:143:9: previous reference to 'gtdcvc' 50 CALL gtdcvc(LPAREN,T,1,OTLDIC,otlptr,POTLSS, ^ flang-new-18 -c -o getstr.o getstr.f flang-new-18 -c -o getsvec.o getsvec.f flang-new-18 -c -o getsvl.o getsvl.f flang-new-18 -c -o gettpltz.o gettpltz.f flang-new-18 -c -o gettr.o gettr.f flang-new-18 -c -o gettrc.o gettrc.f flang-new-18 -c -o getttl.o getttl.f flang-new-18 -c -o getx11.o getx11.f ./getx11.f:166:7: warning: Reference to the procedure 'setint' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL setint(NOTSET,2*PX11,x11log) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./getx11.f:165:7: previous reference to 'setint' CALL setint(NOTSET,PSP,isf) ^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./getx11.f:232:9: warning: Reference to the procedure 'gtdcvc' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes 30 CALL gtdcvc(LPAREN,F,PSP,SFDIC,sfptr,PSF, ^ ./getx11.f:180:9: previous reference to 'gtdcvc' 10 CALL gtdcvc(LPAREN,T,1,MODDIC,modptr,PMODE, ^ ./getx11.f:328:9: warning: Reference to the procedure 'gtdcvc' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes 70 CALL gtdcvc(LPAREN,T,1,OTLDIC,otlptr,POTLXV,'Improper X-11 outli ^ ./getx11.f:180:9: previous reference to 'gtdcvc' 10 CALL gtdcvc(LPAREN,T,1,MODDIC,modptr,PMODE, ^ ./getx11.f:342:9: warning: Reference to the procedure 'gtdcvc' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes 80 CALL gtdcvc(LPAREN,T,1,TYPDIC,typptr,PSATYP, ^ ./getx11.f:180:9: previous reference to 'gtdcvc' 10 CALL gtdcvc(LPAREN,T,1,MODDIC,modptr,PMODE, ^ ./getx11.f:351:9: warning: Reference to the procedure 'gtdcvc' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes 90 CALL gtdcvc(LPAREN,T,1,YSNDIC,ysnptr,PYSN, ^ ./getx11.f:180:9: previous reference to 'gtdcvc' 10 CALL gtdcvc(LPAREN,T,1,MODDIC,modptr,PMODE, ^ ./getx11.f:360:9: warning: Reference to the procedure 'gtdcvc' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes 100 CALL gtdcvc(LPAREN,T,1,YSNDIC,ysnptr,PYSN, ^ ./getx11.f:180:9: previous reference to 'gtdcvc' 10 CALL gtdcvc(LPAREN,T,1,MODDIC,modptr,PMODE, ^ ./getx11.f:369:9: warning: Reference to the procedure 'gtdpvc' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object shapes 120 CALL gtdpvc(LPAREN,T,1,dvec,nelt,argok,Inptok) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./getx11.f:202:9: previous reference to 'gtdpvc' 20 CALL gtdpvc(LPAREN,F,2,sigl,nelt,argok,Inptok) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./getx11.f:393:9: warning: Reference to the procedure 'gtdcvc' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes 140 CALL gtdcvc(LPAREN,T,PSP,SUMDIC,sumptr,PSUM, ^ ./getx11.f:180:9: previous reference to 'gtdcvc' 10 CALL gtdcvc(LPAREN,T,1,MODDIC,modptr,PMODE, ^ ./getx11.f:448:9: warning: Reference to the procedure 'gtdcvc' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes 160 CALL gtdcvc(LPAREN,T,1,YSNDIC,ysnptr,PYSN, ^ ./getx11.f:180:9: previous reference to 'gtdcvc' 10 CALL gtdcvc(LPAREN,T,1,MODDIC,modptr,PMODE, ^ ./getx11.f:457:9: warning: Reference to the procedure 'gtdcvc' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes 170 CALL gtdcvc(LPAREN,T,1,YSNDIC,ysnptr,PYSN, ^ ./getx11.f:180:9: previous reference to 'gtdcvc' 10 CALL gtdcvc(LPAREN,T,1,MODDIC,modptr,PMODE, ^ ./getx11.f:466:9: warning: Reference to the procedure 'gtdcvc' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes 200 CALL gtdcvc(LPAREN,T,1,SHKDIC,shkptr,PSHK, ^ ./getx11.f:180:9: previous reference to 'gtdcvc' 10 CALL gtdcvc(LPAREN,T,1,MODDIC,modptr,PMODE, ^ ./getx11.f:475:9: warning: Reference to the procedure 'gtdcvc' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes 210 CALL gtdcvc(LPAREN,T,1,YSNDIC,ysnptr,PYSN, ^ ./getx11.f:180:9: previous reference to 'gtdcvc' 10 CALL gtdcvc(LPAREN,T,1,MODDIC,modptr,PMODE, ^ ./getx11.f:484:9: warning: Reference to the procedure 'gtdpvc' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object shapes 250 CALL gtdpvc(LPAREN,T,1,dvec,nelt,argok,Inptok) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./getx11.f:202:9: previous reference to 'gtdpvc' 20 CALL gtdpvc(LPAREN,F,2,sigl,nelt,argok,Inptok) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./getx11.f:502:9: warning: Reference to the procedure 'gtdcvc' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes 260 CALL gtdcvc(LPAREN,T,1,YSNDIC,ysnptr,PYSN, ^ ./getx11.f:180:9: previous reference to 'gtdcvc' 10 CALL gtdcvc(LPAREN,T,1,MODDIC,modptr,PMODE, ^ ./getx11.f:512:9: warning: Reference to the procedure 'gtdcvc' has an implicit interface that is distinct from another reference: incompatible dummy argument #8: incompatible dummy data object shapes 290 CALL gtdcvc(LPAREN,T,PFIN,FINDIC,finptr,PFIN, ^ ./getx11.f:180:9: previous reference to 'gtdcvc' 10 CALL gtdcvc(LPAREN,T,1,MODDIC,modptr,PMODE, ^ ./getx11.f:534:9: warning: Reference to the procedure 'gtdcvc' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes 265 CALL gtdcvc(LPAREN,T,1,YSNDIC,ysnptr,PYSN, ^ ./getx11.f:180:9: previous reference to 'gtdcvc' 10 CALL gtdcvc(LPAREN,T,1,MODDIC,modptr,PMODE, ^ ./getx11.f:558:9: warning: Reference to the procedure 'gtdcvc' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes 310 CALL gtdcvc(LPAREN,T,1,YSNDIC,ysnptr,PYSN, ^ ./getx11.f:180:9: previous reference to 'gtdcvc' 10 CALL gtdcvc(LPAREN,T,1,MODDIC,modptr,PMODE, ^ ./getx11.f:567:9: warning: Reference to the procedure 'gtdcvc' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes 320 CALL gtdcvc(LPAREN,T,1,YSNDIC,ysnptr,PYSN, ^ ./getx11.f:180:9: previous reference to 'gtdcvc' 10 CALL gtdcvc(LPAREN,T,1,MODDIC,modptr,PMODE, ^ flang-new-18 -c -o getxop.o getxop.f flang-new-18 -c -o getxtd.o getxtd.f flang-new-18 -c -o glbshk.o glbshk.f flang-new-18 -c -o gnfcrv.o gnfcrv.f flang-new-18 -c -o grzlst.o grzlst.f flang-new-18 -c -o grzmth.o grzmth.f flang-new-18 -c -o grzmyr.o grzmyr.f flang-new-18 -c -o gtarg.o gtarg.f flang-new-18 -c -o gtarma.o gtarma.f flang-new-18 -c -o gtauto.o gtauto.f ./gtauto.f:75:7: warning: Reference to the procedure 'setint' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL setint(NOTSET,2,omax) ^^^^^^^^^^^^^^^^^^^^^^^^^^ ./gtauto.f:74:7: previous reference to 'setint' CALL setint(NOTSET,2*PARG,arglog) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./gtauto.f:76:7: warning: Reference to the procedure 'setint' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL setint(NOTSET,2,adif) ^^^^^^^^^^^^^^^^^^^^^^^^^^ ./gtauto.f:74:7: previous reference to 'setint' CALL setint(NOTSET,2*PARG,arglog) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./gtauto.f:192:9: warning: Reference to the procedure 'getivc' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object shapes 50 CALL getivc(LPAREN,T,1,ivec,nelt,argok,Inptok) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./gtauto.f:91:9: previous reference to 'getivc' 10 CALL getivc(LPAREN,T,2,adif,nelt,argok,Inptok) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./gtauto.f:305:9: warning: Reference to the procedure 'gtdcvc' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes 110 CALL gtdcvc(LPAREN,T,1,EXDDIC,exdptr,PEXD, ^ ./gtauto.f:296:9: previous reference to 'gtdcvc' 100 CALL gtdcvc(LPAREN,T,1,YSNDIC,ysnptr,PYSN, ^ flang-new-18 -c -o gtautx.o gtautx.f flang-new-18 -c -o gtdcnm.o gtdcnm.f flang-new-18 -c -o gtdcvc.o gtdcvc.f flang-new-18 -c -o gtdpvc.o gtdpvc.f flang-new-18 -c -o gtdtvc.o gtdtvc.f ./gtdtvc.f:86:10: warning: Reference to the procedure 'getdat' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL getdat(Havesp,Sp,tmpdat,argok,Locok) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./gtdtvc.f:28:8: previous reference to 'getdat' CALL getdat(Havesp,Sp,Datvec,argok,Locok) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ flang-new-18 -c -o gtedit.o gtedit.f flang-new-18 -c -o gtestm.o gtestm.f ./gtestm.f:176:9: warning: Reference to the procedure 'gtdcvc' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes 60 CALL gtdcvc(LPAREN,T,1,EXTDIC,extptr,PEXT, ^ ./gtestm.f:154:9: previous reference to 'gtdcvc' 50 CALL gtdcvc(LPAREN,T,1,ESTDIC,estptr,PEST, ^ ./gtestm.f:237:9: warning: Reference to the procedure 'gtdcvc' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes 110 CALL gtdcvc(LPAREN,T,1,FIXDIC,fixptr,PRMFIX, ^ ./gtestm.f:154:9: previous reference to 'gtdcvc' 50 CALL gtdcvc(LPAREN,T,1,ESTDIC,estptr,PEST, ^ flang-new-18 -c -o gtfcst.o gtfcst.f flang-new-18 -c -o gtfldt.o gtfldt.f flang-new-18 -c -o gtfrcm.o gtfrcm.f flang-new-18 -c -o gtfree.o gtfree.f flang-new-18 -c -o gtinpt.o gtinpt.f ./gtinpt.f:126:7: warning: Reference to the procedure 'setlg' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL setlg(F,NSVLOG,Svltab) ^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./gtinpt.f:117:8: previous reference to 'setlg' CALL setlg(F,NTBL,Prttab) ^^^^^^^^^^^^^^^^^^^^^^^^^ ./gtinpt.f:154:7: warning: Reference to the procedure 'setdp' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL setdp(DNOTST,PB,B) ^^^^^^^^^^^^^^^^^^^^^^^ ./gtinpt.f:152:7: previous reference to 'setdp' CALL setdp(ZERO,PLEN,Y) ^^^^^^^^^^^^^^^^^^^^^^^ ./gtinpt.f:164:7: warning: Reference to the procedure 'setint' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL setint(NOTSET,PNAD,Percnt) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./gtinpt.f:112:7: previous reference to 'setint' CALL setint(NOTSET,2*PSPC,spclog) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./gtinpt.f:165:7: warning: Reference to the procedure 'setint' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL setint(NOTSET,PNAD,Prtype) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./gtinpt.f:112:7: previous reference to 'setint' CALL setint(NOTSET,2*PSPC,spclog) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./gtinpt.f:191:7: warning: Reference to the procedure 'intlst' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes CALL intlst(POPR,Opr,Nopr) ^^^^^^^^^^^^^^^^^^^^^^^^^^ ./gtinpt.f:186:7: previous reference to 'intlst' CALL intlst(PB,Colptr,Ncoltl) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./gtinpt.f:192:7: warning: Reference to the procedure 'intlst' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes CALL intlst(PMDL,Mdl,Nmdl) ^^^^^^^^^^^^^^^^^^^^^^^^^^ ./gtinpt.f:186:7: previous reference to 'intlst' CALL intlst(PB,Colptr,Ncoltl) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./gtinpt.f:197:7: warning: Reference to the procedure 'setlg' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL setlg(F,PB,Regfx) ^^^^^^^^^^^^^^^^^^^^^^ ./gtinpt.f:117:8: previous reference to 'setlg' CALL setlg(F,NTBL,Prttab) ^^^^^^^^^^^^^^^^^^^^^^^^^ ./gtinpt.f:198:7: warning: Reference to the procedure 'intlst' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes CALL intlst(PUREG,Usrptr,Ncusrx) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./gtinpt.f:186:7: previous reference to 'intlst' CALL intlst(PB,Colptr,Ncoltl) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./gtinpt.f:206:7: warning: Reference to the procedure 'setlg' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL setlg(F,PARIMA,Arimaf) ^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./gtinpt.f:117:8: previous reference to 'setlg' CALL setlg(F,NTBL,Prttab) ^^^^^^^^^^^^^^^^^^^^^^^^^ ./gtinpt.f:207:7: warning: Reference to the procedure 'setint' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL setint(0,PARIMA,Arimal) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./gtinpt.f:112:7: previous reference to 'setint' CALL setint(NOTSET,2*PSPC,spclog) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./gtinpt.f:208:7: warning: Reference to the procedure 'setdp' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL setdp(ZERO,PARIMA,Arimap) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./gtinpt.f:152:7: previous reference to 'setdp' CALL setdp(ZERO,PLEN,Y) ^^^^^^^^^^^^^^^^^^^^^^^ ./gtinpt.f:237:7: warning: Reference to the procedure 'setint' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL setint(0,2,Maxord) ^^^^^^^^^^^^^^^^^^^^^^^ ./gtinpt.f:112:7: previous reference to 'setint' CALL setint(NOTSET,2*PSPC,spclog) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./gtinpt.f:238:7: warning: Reference to the procedure 'setint' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL setint(NOTSET,2,Diffam) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./gtinpt.f:112:7: previous reference to 'setint' CALL setint(NOTSET,2*PSPC,spclog) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./gtinpt.f:261:7: warning: Reference to the procedure 'setint' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL setint(0,PUREG,Usrtyp) ^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./gtinpt.f:112:7: previous reference to 'setint' CALL setint(NOTSET,2*PSPC,spclog) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./gtinpt.f:292:7: warning: Reference to the procedure 'setdp' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL setdp(ZERO,PAICT,Rgaicd) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./gtinpt.f:152:7: previous reference to 'setdp' CALL setdp(ZERO,PLEN,Y) ^^^^^^^^^^^^^^^^^^^^^^^ ./gtinpt.f:307:7: warning: Reference to the procedure 'setdp' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL setdp(DNOTST,POTLR,Critvl) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./gtinpt.f:152:7: previous reference to 'setdp' CALL setdp(ZERO,PLEN,Y) ^^^^^^^^^^^^^^^^^^^^^^^ ./gtinpt.f:328:7: warning: Reference to the procedure 'setlg' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL setlg(F,PSP,Csigvc) ^^^^^^^^^^^^^^^^^^^^^^^^ ./gtinpt.f:117:8: previous reference to 'setlg' CALL setlg(F,NTBL,Prttab) ^^^^^^^^^^^^^^^^^^^^^^^^^ ./gtinpt.f:331:7: warning: Reference to the procedure 'setint' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL setint(0,12,Lter) ^^^^^^^^^^^^^^^^^^^^^^ ./gtinpt.f:112:7: previous reference to 'setint' CALL setint(NOTSET,2*PSPC,spclog) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./gtinpt.f:368:7: warning: Reference to the procedure 'setint' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL setint(NOTSET,2,Bgspec) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./gtinpt.f:112:7: previous reference to 'setint' CALL setint(NOTSET,2*PSPC,spclog) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./gtinpt.f:382:7: warning: Reference to the procedure 'setdp' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL setdp(DNOTST,6,Ptsr) ^^^^^^^^^^^^^^^^^^^^^^^^^ ./gtinpt.f:152:7: previous reference to 'setdp' CALL setdp(ZERO,PLEN,Y) ^^^^^^^^^^^^^^^^^^^^^^^ ./gtinpt.f:383:7: warning: Reference to the procedure 'setdp' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL setdp(DNOTST,6,Ptso) ^^^^^^^^^^^^^^^^^^^^^^^^^ ./gtinpt.f:152:7: previous reference to 'setdp' CALL setdp(ZERO,PLEN,Y) ^^^^^^^^^^^^^^^^^^^^^^^ ./gtinpt.f:384:7: warning: Reference to the procedure 'setdp' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL setdp(DNOTST,6,Ptsa) ^^^^^^^^^^^^^^^^^^^^^^^^^ ./gtinpt.f:152:7: previous reference to 'setdp' CALL setdp(ZERO,PLEN,Y) ^^^^^^^^^^^^^^^^^^^^^^^ ./gtinpt.f:385:7: warning: Reference to the procedure 'setdp' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL setdp(DNOTST,6,Ptsi) ^^^^^^^^^^^^^^^^^^^^^^^^^ ./gtinpt.f:152:7: previous reference to 'setdp' CALL setdp(ZERO,PLEN,Y) ^^^^^^^^^^^^^^^^^^^^^^^ ./gtinpt.f:391:7: warning: Reference to the procedure 'setint' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL setint(NOTSET,4,Itukey) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./gtinpt.f:112:7: previous reference to 'setint' CALL setint(NOTSET,2*PSPC,spclog) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./gtinpt.f:412:7: warning: Reference to the procedure 'setint' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL setint(NOTSET,2,Tddate) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./gtinpt.f:112:7: previous reference to 'setint' CALL setint(NOTSET,2*PSPC,spclog) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./gtinpt.f:413:7: warning: Reference to the procedure 'setint' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL setint(NOTSET,2,Lndate) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./gtinpt.f:112:7: previous reference to 'setint' CALL setint(NOTSET,2*PSPC,spclog) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./gtinpt.f:451:7: warning: Reference to the procedure 'setint' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL setint(0,PUREG,Usxtyp) ^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./gtinpt.f:112:7: previous reference to 'setint' CALL setint(NOTSET,2*PSPC,spclog) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./gtinpt.f:452:7: warning: Reference to the procedure 'intlst' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes CALL intlst(PUREG,Usrxpt,Ncxusx) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./gtinpt.f:186:7: previous reference to 'intlst' CALL intlst(PB,Colptr,Ncoltl) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./gtinpt.f:465:7: warning: Reference to the procedure 'setint' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL setint(NOTSET,2,Xaicrg) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./gtinpt.f:112:7: previous reference to 'setint' CALL setint(NOTSET,2*PSPC,spclog) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./gtinpt.f:467:7: warning: Reference to the procedure 'setdp' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL setdp(DNOTST,7,Dwt) ^^^^^^^^^^^^^^^^^^^^^^^^ ./gtinpt.f:152:7: previous reference to 'setdp' CALL setdp(ZERO,PLEN,Y) ^^^^^^^^^^^^^^^^^^^^^^^ ./gtinpt.f:472:7: warning: Reference to the procedure 'setlg' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL setlg(F,PLEN,Rgxcld) ^^^^^^^^^^^^^^^^^^^^^^^^^ ./gtinpt.f:117:8: previous reference to 'setlg' CALL setlg(F,NTBL,Prttab) ^^^^^^^^^^^^^^^^^^^^^^^^^ ./gtinpt.f:486:7: warning: Reference to the procedure 'setint' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL setint(NOTSET,PTARGT,Targsa) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./gtinpt.f:112:7: previous reference to 'setint' CALL setint(NOTSET,2*PSPC,spclog) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./gtinpt.f:488:7: warning: Reference to the procedure 'setint' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL setint(NOTSET,PTARGT,Targtr) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./gtinpt.f:112:7: previous reference to 'setint' CALL setint(NOTSET,2*PSPC,spclog) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./gtinpt.f:490:7: warning: Reference to the procedure 'setint' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL setint(NOTSET,PFCLAG,Rfctlg) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./gtinpt.f:112:7: previous reference to 'setint' CALL setint(NOTSET,2*PSPC,spclog) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./gtinpt.f:513:7: warning: Reference to the procedure 'setint' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL setint(NOTSET,4,Rvfxrg) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./gtinpt.f:112:7: previous reference to 'setint' CALL setint(NOTSET,2*PSPC,spclog) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./gtinpt.f:520:7: warning: Reference to the procedure 'setdp' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL setdp(3D0,5,Sscut) ^^^^^^^^^^^^^^^^^^^^^^^ ./gtinpt.f:152:7: previous reference to 'setdp' CALL setdp(ZERO,PLEN,Y) ^^^^^^^^^^^^^^^^^^^^^^^ ./gtinpt.f:522:7: warning: Reference to the procedure 'setint' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL setint(NOTSET,2,Strtss) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./gtinpt.f:112:7: previous reference to 'setint' CALL setint(NOTSET,2*PSPC,spclog) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./gtinpt.f:523:7: warning: Reference to the procedure 'setint' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL setint(NOTSET,4,Ssfxrg) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./gtinpt.f:112:7: previous reference to 'setint' CALL setint(NOTSET,2*PSPC,spclog) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./gtinpt.f:550:7: warning: Reference to the procedure 'intlst' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes CALL intlst(PMTDAT,Keyptr,Nkey) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./gtinpt.f:186:7: previous reference to 'intlst' CALL intlst(PB,Colptr,Ncoltl) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./gtinpt.f:551:7: warning: Reference to the procedure 'intlst' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes CALL intlst(PMTDAT,Valptr,Nval) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./gtinpt.f:186:7: previous reference to 'intlst' CALL intlst(PB,Colptr,Ncoltl) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ flang-new-18 -c -o gtinvl.o gtinvl.f flang-new-18 -c -o gtmdfl.o gtmdfl.f flang-new-18 -c -o gtmtdt.o gtmtdt.f flang-new-18 -c -o gtmtfl.o gtmtfl.f flang-new-18 -c -o gtnmvc.o gtnmvc.f flang-new-18 -c -o gtotlr.o gtotlr.f ./gtotlr.f:137:9: warning: Reference to the procedure 'gtdcvc' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes 20 CALL gtdcvc(LPAREN,T,1,MTDDIC,mtdptr,PMTD, ^ ./gtotlr.f:100:9: previous reference to 'gtdcvc' 10 CALL gtdcvc(LPAREN,T,PTYP,TYPDIC,typptr,PTYP, ^ ./gtotlr.f:189:12: warning: Reference to the procedure 'cpyint' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL cpyint(spnvec,2,1,Begtst) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./gtotlr.f:187:12: previous reference to 'cpyint' CALL cpyint(Begmdl,2,1,Begtst) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./gtotlr.f:194:12: warning: Reference to the procedure 'cpyint' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL cpyint(spnvec(1,2),2,1,Endtst) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./gtotlr.f:187:12: previous reference to 'cpyint' CALL cpyint(Begmdl,2,1,Begtst) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./gtotlr.f:236:10: warning: Reference to the procedure 'gtdpvc' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object shapes CALL gtdpvc(LPAREN,T,1,dvec,nelt,argok,Inptok) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./gtotlr.f:147:9: previous reference to 'gtdpvc' 30 CALL gtdpvc(LPAREN,F,PNOTL,critmp,nelt,argok,Locok) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./gtotlr.f:253:9: warning: Reference to the procedure 'gtdpvc' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object shapes 90 CALL gtdpvc(LPAREN,T,1,dvec,nelt,argok,Inptok) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./gtotlr.f:147:9: previous reference to 'gtdpvc' 30 CALL gtdpvc(LPAREN,F,PNOTL,critmp,nelt,argok,Locok) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./gtotlr.f:268:9: warning: Reference to the procedure 'gtdcvc' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes 100 CALL gtdcvc(LPAREN,T,1,DEFDIC,defptr,PDEF, ^ ./gtotlr.f:100:9: previous reference to 'gtdcvc' 10 CALL gtdcvc(LPAREN,T,PTYP,TYPDIC,typptr,PTYP, ^ ./gtotlr.f:279:9: warning: Reference to the procedure 'gtdpvc' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object shapes 110 CALL gtdpvc(LPAREN,T,1,dvec,nelt,argok,Inptok) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./gtotlr.f:147:9: previous reference to 'gtdpvc' 30 CALL gtdpvc(LPAREN,F,PNOTL,critmp,nelt,argok,Locok) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ flang-new-18 -c -o gtpdrg.o gtpdrg.f flang-new-18 -c -o gtrgdt.o gtrgdt.f flang-new-18 -c -o gtrgpt.o gtrgpt.f flang-new-18 -c -o gtrgvl.o gtrgvl.f flang-new-18 -c -o gtrvst.o gtrvst.f ./gtrvst.f:182:9: warning: Reference to the procedure 'getivc' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object shapes 40 CALL getivc(LPAREN,T,PFCLAG,Rfctlg,Nfctlg,argok,Inptok) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./gtrvst.f:144:9: previous reference to 'getivc' 20 CALL getivc(LPAREN,T,PTARGT,Targsa,Ntarsa,argok,Inptok) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./gtrvst.f:220:9: warning: Reference to the procedure 'gtdcvc' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes 70 CALL gtdcvc(LPAREN,T,1,YSNDIC,ysnptr,PYSN, ^ ./gtrvst.f:109:9: previous reference to 'gtdcvc' 10 CALL gtdcvc(LPAREN,F,PRVEST,ESTDIC,estptr,PRVEST, ^ ./gtrvst.f:229:9: warning: Reference to the procedure 'gtdcvc' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes 80 CALL gtdcvc(LPAREN,.true.,1,YSNDIC,ysnptr,PYSN, ^ ./gtrvst.f:109:9: previous reference to 'gtdcvc' 10 CALL gtdcvc(LPAREN,F,PRVEST,ESTDIC,estptr,PRVEST, ^ ./gtrvst.f:238:9: warning: Reference to the procedure 'gtdcvc' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes 90 CALL gtdcvc(LPAREN,T,1,YSNDIC,ysnptr,PYSN, ^ ./gtrvst.f:109:9: previous reference to 'gtdcvc' 10 CALL gtdcvc(LPAREN,F,PRVEST,ESTDIC,estptr,PRVEST, ^ ./gtrvst.f:247:9: warning: Reference to the procedure 'gtdcvc' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes 100 CALL gtdcvc(LPAREN,T,2,OTLDIC,otlptr,POTLRV, ^ ./gtrvst.f:109:9: previous reference to 'gtdcvc' 10 CALL gtdcvc(LPAREN,F,PRVEST,ESTDIC,estptr,PRVEST, ^ ./gtrvst.f:267:9: warning: Reference to the procedure 'getivc' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object shapes 110 CALL getivc(LPAREN,T,1,ivec,nelt,argok,Inptok) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./gtrvst.f:144:9: previous reference to 'getivc' 20 CALL getivc(LPAREN,T,PTARGT,Targsa,Ntarsa,argok,Inptok) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./gtrvst.f:280:9: warning: Reference to the procedure 'gtdcvc' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes 120 CALL gtdcvc(LPAREN,T,1,YSNDIC,ysnptr,PYSN, ^ ./gtrvst.f:109:9: previous reference to 'gtdcvc' 10 CALL gtdcvc(LPAREN,F,PRVEST,ESTDIC,estptr,PRVEST, ^ ./gtrvst.f:289:9: warning: Reference to the procedure 'gtdcvc' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes 130 CALL gtdcvc(LPAREN,T,1,ADDDIC,addptr,PADD, ^ ./gtrvst.f:109:9: previous reference to 'gtdcvc' 10 CALL gtdcvc(LPAREN,F,PRVEST,ESTDIC,estptr,PRVEST, ^ ./gtrvst.f:298:9: warning: Reference to the procedure 'gtdcvc' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes 140 CALL gtdcvc(LPAREN,T,1,YSNDIC,ysnptr,PYSN, ^ ./gtrvst.f:109:9: previous reference to 'gtdcvc' 10 CALL gtdcvc(LPAREN,F,PRVEST,ESTDIC,estptr,PRVEST, ^ ./gtrvst.f:307:9: warning: Reference to the procedure 'gtdcvc' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes 150 CALL gtdcvc(LPAREN,T,1,TRGDIC,trgptr,PTRG, ^ ./gtrvst.f:109:9: previous reference to 'gtdcvc' 10 CALL gtdcvc(LPAREN,F,PRVEST,ESTDIC,estptr,PRVEST, ^ ./gtrvst.f:316:9: warning: Reference to the procedure 'gtdcvc' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes 160 CALL gtdcvc(LPAREN,T,1,YSNDIC,ysnptr,PYSN, ^ ./gtrvst.f:109:9: previous reference to 'gtdcvc' 10 CALL gtdcvc(LPAREN,F,PRVEST,ESTDIC,estptr,PRVEST, ^ ./gtrvst.f:340:9: warning: Reference to the procedure 'gtdcvc' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes 200 CALL gtdcvc(LPAREN,T,PFXR,FXRDIC,fxrptr,PFXR, ^ ./gtrvst.f:109:9: previous reference to 'gtdcvc' 10 CALL gtdcvc(LPAREN,F,PRVEST,ESTDIC,estptr,PRVEST, ^ flang-new-18 -c -o gtseat.o gtseat.f ./gtseat.f:328:9: warning: Reference to the procedure 'gtdcvc' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes 280 CALL gtdcvc(LPAREN,T,1,HPTDIC,hptptr,PHPT, ^ ./gtseat.f:103:9: previous reference to 'gtdcvc' 50 CALL gtdcvc(LPAREN,T,1,YSNDIC,ysnptr,PYSN, ^ flang-new-18 -c -o gtspec.o gtspec.f ./gtspec.f:129:9: warning: Reference to the procedure 'gtdcvc' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes 30 CALL gtdcvc(LPAREN,T,1,STPDIC,stpptr,PSTP, ^ ./gtspec.f:113:9: previous reference to 'gtdcvc' 20 CALL gtdcvc(LPAREN,T,1,DFFDIC,dffptr,PDFF, ^ ./gtspec.f:138:9: warning: Reference to the procedure 'gtdcvc' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes 40 CALL gtdcvc(LPAREN,T,1,SPSDIC,spsptr,PSPS, ^ ./gtspec.f:113:9: previous reference to 'gtdcvc' 20 CALL gtdcvc(LPAREN,T,1,DFFDIC,dffptr,PDFF, ^ ./gtspec.f:201:9: warning: Reference to the procedure 'gtdcvc' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes 80 CALL gtdcvc(LPAREN,T,1,YSNDIC,ysnptr,PYSN, ^ ./gtspec.f:113:9: previous reference to 'gtdcvc' 20 CALL gtdcvc(LPAREN,T,1,DFFDIC,dffptr,PDFF, ^ ./gtspec.f:210:9: warning: Reference to the procedure 'gtdcvc' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes 90 CALL gtdcvc(LPAREN,T,1,YSNDIC,ysnptr,PYSN, ^ ./gtspec.f:113:9: previous reference to 'gtdcvc' 20 CALL gtdcvc(LPAREN,T,1,DFFDIC,dffptr,PDFF, ^ ./gtspec.f:243:9: warning: Reference to the procedure 'gtdcvc' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes 140 CALL gtdcvc(LPAREN,T,1,YSNDIC,ysnptr,PYSN, ^ ./gtspec.f:113:9: previous reference to 'gtdcvc' 20 CALL gtdcvc(LPAREN,T,1,DFFDIC,dffptr,PDFF, ^ ./gtspec.f:252:9: warning: Reference to the procedure 'gtdcvc' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes 150 CALL gtdcvc(LPAREN,T,1,YSNDIC,ysnptr,PYSN, ^ ./gtspec.f:113:9: previous reference to 'gtdcvc' 20 CALL gtdcvc(LPAREN,T,1,DFFDIC,dffptr,PDFF, ^ ./gtspec.f:276:9: warning: Reference to the procedure 'gtdcvc' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes 170 CALL gtdcvc(LPAREN,T,1,YSNDIC,ysnptr,PYSN, ^ ./gtspec.f:113:9: previous reference to 'gtdcvc' 20 CALL gtdcvc(LPAREN,T,1,DFFDIC,dffptr,PDFF, ^ ./gtspec.f:285:9: warning: Reference to the procedure 'gtdcvc' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes 175 CALL gtdcvc(LPAREN,T,1,YSNDIC,ysnptr,PYSN, ^ ./gtspec.f:113:9: previous reference to 'gtdcvc' 20 CALL gtdcvc(LPAREN,T,1,DFFDIC,dffptr,PDFF, ^ ./gtspec.f:294:9: warning: Reference to the procedure 'gtdcvc' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes 180 CALL gtdcvc(LPAREN,T,1,YSNDIC,ysnptr,PYSN, ^ ./gtspec.f:113:9: previous reference to 'gtdcvc' 20 CALL gtdcvc(LPAREN,T,1,DFFDIC,dffptr,PDFF, ^ ./gtspec.f:303:9: warning: Reference to the procedure 'gtdcvc' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes 190 CALL gtdcvc(LPAREN,T,1,YSNDIC,ysnptr,PYSN, ^ ./gtspec.f:113:9: previous reference to 'gtdcvc' 20 CALL gtdcvc(LPAREN,T,1,DFFDIC,dffptr,PDFF, ^ ./gtspec.f:312:9: warning: Reference to the procedure 'gtdcvc' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes 200 CALL gtdcvc(LPAREN,T,1,YSNDIC,ysnptr,PYSN, ^ ./gtspec.f:113:9: previous reference to 'gtdcvc' 20 CALL gtdcvc(LPAREN,T,1,DFFDIC,dffptr,PDFF, ^ flang-new-18 -c -o gttrmo.o gttrmo.f flang-new-18 -c -o gtwacf.o gtwacf.f flang-new-18 -c -o gtx11d.o gtx11d.f flang-new-18 -c -o gtx12s.o gtx12s.f flang-new-18 -c -o gtxreg.o gtxreg.f ./gtxreg.f:164:7: warning: Reference to the procedure 'setint' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL setint(NOTSET,4,spnxrg) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./gtxreg.f:163:7: previous reference to 'setint' CALL setint(NOTSET,2*PARG,arglog) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./gtxreg.f:165:7: warning: Reference to the procedure 'setint' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL setint(NOTSET,4,spnotl) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./gtxreg.f:163:7: previous reference to 'setint' CALL setint(NOTSET,2*PARG,arglog) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./gtxreg.f:166:7: warning: Reference to the procedure 'setint' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL setint(NOTSET,2,ispn) ^^^^^^^^^^^^^^^^^^^^^^^^^^ ./gtxreg.f:163:7: previous reference to 'setint' CALL setint(NOTSET,2*PARG,arglog) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./gtxreg.f:167:7: warning: Reference to the procedure 'setint' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL setint(0,PUREG,Usxtyp) ^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./gtxreg.f:163:7: previous reference to 'setint' CALL setint(NOTSET,2*PARG,arglog) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./gtxreg.f:228:9: warning: Reference to the procedure 'gtnmvc' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes CALL gtnmvc(LPAREN,T,1,xrfile,itmpvc,neltux,PFILCR,argok,Inptok) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./gtxreg.f:201:9: previous reference to 'gtnmvc' 20 CALL gtnmvc(LPAREN,T,PUREG,Usrxtt,Usrxpt,Ncxusx,PCOLCR,argok, ^ ./gtxreg.f:239:9: warning: Reference to the procedure 'gtnmvc' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes 60 CALL gtnmvc(LPAREN,T,1,xrfmt,itmpvc,nelt,PFILCR,argok,Inptok) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./gtxreg.f:201:9: previous reference to 'gtnmvc' 20 CALL gtnmvc(LPAREN,T,PUREG,Usrxtt,Usrxpt,Ncxusx,PCOLCR,argok, ^ ./gtxreg.f:291:9: warning: Reference to the procedure 'gtdpvc' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object shapes 110 CALL gtdpvc(LPAREN,T,1,dvec,nelt,argok,Inptok) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./gtxreg.f:212:9: previous reference to 'gtdpvc' CALL gtdpvc(LPAREN,T,peltux,Xuserx,neltux,argok,Inptok) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./gtxreg.f:310:9: warning: Reference to the procedure 'gtdpvc' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object shapes 120 CALL gtdpvc(LPAREN,T,1,dvec,nelt,argok,Inptok) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./gtxreg.f:212:9: previous reference to 'gtdpvc' CALL gtdpvc(LPAREN,T,peltux,Xuserx,neltux,argok,Inptok) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./gtxreg.f:336:9: warning: Reference to the procedure 'gtdpvc' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object shapes CALL gtdpvc(LPAREN,T,PLEN,Umean,neltum,argok,Inptok) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./gtxreg.f:212:9: previous reference to 'gtdpvc' CALL gtdpvc(LPAREN,T,peltux,Xuserx,neltux,argok,Inptok) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./gtxreg.f:352:9: warning: Reference to the procedure 'gtnmvc' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes CALL gtnmvc(LPAREN,T,1,umfile,itmpvc,neltum,PFILCR,argok,Inptok) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./gtxreg.f:201:9: previous reference to 'gtnmvc' 20 CALL gtnmvc(LPAREN,T,PUREG,Usrxtt,Usrxpt,Ncxusx,PCOLCR,argok, ^ ./gtxreg.f:363:9: warning: Reference to the procedure 'gtnmvc' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes 160 CALL gtnmvc(LPAREN,T,1,umfmt,itmpvc,nelt,PFILCR,argok,Inptok) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./gtxreg.f:201:9: previous reference to 'gtnmvc' 20 CALL gtnmvc(LPAREN,T,PUREG,Usrxtt,Usrxpt,Ncxusx,PCOLCR,argok, ^ ./gtxreg.f:373:9: warning: Reference to the procedure 'gtnmvc' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes 170 CALL gtnmvc(LPAREN,T,1,umname,itmpvc,nelt,64,argok,Inptok) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./gtxreg.f:201:9: previous reference to 'gtnmvc' 20 CALL gtnmvc(LPAREN,T,PUREG,Usrxtt,Usrxpt,Ncxusx,PCOLCR,argok, ^ ./gtxreg.f:383:9: warning: Reference to the procedure 'gtdcvc' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes 180 CALL gtdcvc(LPAREN,T,1,MTDDIC,mtdptr,PMTD, ^ ./gtxreg.f:267:9: previous reference to 'gtdcvc' 100 CALL gtdcvc(LPAREN,F,PUREG,USXDIC,usxptr,PUSX, ^ ./gtxreg.f:393:9: warning: Reference to the procedure 'gtdcvc' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes 190 CALL gtdcvc(LPAREN,F,3,XAICDC,xaicpt,PXAIC, ^ ./gtxreg.f:267:9: previous reference to 'gtdcvc' 100 CALL gtdcvc(LPAREN,F,PUREG,USXDIC,usxptr,PUSX, ^ ./gtxreg.f:422:9: warning: Reference to the procedure 'gtdpvc' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object shapes 200 CALL gtdpvc(LPAREN,T,7,Dwt,neltdw,argok,Inptok) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./gtxreg.f:212:9: previous reference to 'gtdpvc' CALL gtdpvc(LPAREN,T,peltux,Xuserx,neltux,argok,Inptok) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./gtxreg.f:433:9: warning: Reference to the procedure 'gtdcvc' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes 210 CALL gtdcvc(LPAREN,T,3,NAPDIC,napptr,PNAP, ^ ./gtxreg.f:267:9: previous reference to 'gtdcvc' 100 CALL gtdcvc(LPAREN,F,PUREG,USXDIC,usxptr,PUSX, ^ ./gtxreg.f:451:9: warning: Reference to the procedure 'gtdcvc' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes 220 CALL gtdcvc(LPAREN,F,1,YSNDIC,ysnptr,PYSN, ^ ./gtxreg.f:267:9: previous reference to 'gtdcvc' 100 CALL gtdcvc(LPAREN,F,PUREG,USXDIC,usxptr,PUSX, ^ ./gtxreg.f:460:9: warning: Reference to the procedure 'gtdcvc' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes 230 CALL gtdcvc(LPAREN,F,1,YSNDIC,ysnptr,PYSN, ^ ./gtxreg.f:267:9: previous reference to 'gtdcvc' 100 CALL gtdcvc(LPAREN,F,PUREG,USXDIC,usxptr,PUSX, ^ ./gtxreg.f:469:9: warning: Reference to the procedure 'gtdcvc' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes 240 CALL gtdcvc(LPAREN,T,1,YSNDIC,ysnptr,PYSN, ^ ./gtxreg.f:267:9: previous reference to 'gtdcvc' 100 CALL gtdcvc(LPAREN,F,PUREG,USXDIC,usxptr,PUSX, ^ ./gtxreg.f:478:9: warning: Reference to the procedure 'gtdtvc' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object shapes 250 CALL gtdtvc(Havesp,Sp,LPAREN,F,2,spnxrg,nelt,argok,Inptok) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./gtxreg.f:219:9: previous reference to 'gtdtvc' 40 CALL gtdtvc(Havesp,Sp,LPAREN,F,1,Bgusrx,nelt,argok,Inptok) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./gtxreg.f:494:9: warning: Reference to the procedure 'gtdtvc' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object shapes 260 CALL gtdtvc(T,Sp,LPAREN,F,2,spnotl,nelt,argok,Inptok) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./gtxreg.f:219:9: previous reference to 'gtdtvc' 40 CALL gtdtvc(Havesp,Sp,LPAREN,F,1,Bgusrx,nelt,argok,Inptok) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./gtxreg.f:524:9: warning: Reference to the procedure 'gtdpvc' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object shapes 280 CALL gtdpvc(LPAREN,T,1,dvec,nelt,argok,Inptok) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./gtxreg.f:212:9: previous reference to 'gtdpvc' CALL gtdpvc(LPAREN,T,peltux,Xuserx,neltux,argok,Inptok) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./gtxreg.f:536:9: warning: Reference to the procedure 'gtdcvc' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes 300 CALL gtdcvc(LPAREN,F,1,ZRODIC,zroptr,PZRO, ^ ./gtxreg.f:267:9: previous reference to 'gtdcvc' 100 CALL gtdcvc(LPAREN,F,PUREG,USXDIC,usxptr,PUSX, ^ ./gtxreg.f:545:9: warning: Reference to the procedure 'gtdcvc' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes 310 CALL gtdcvc(LPAREN,F,1,URRDIC,urrptr,PURR, ^ ./gtxreg.f:267:9: previous reference to 'gtdcvc' 100 CALL gtdcvc(LPAREN,F,PUREG,USXDIC,usxptr,PUSX, ^ ./gtxreg.f:557:9: warning: Reference to the procedure 'gtdcvc' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes 320 CALL gtdcvc(LPAREN,F,1,YSNDIC,ysnptr,PYSN, ^ ./gtxreg.f:267:9: previous reference to 'gtdcvc' 100 CALL gtdcvc(LPAREN,F,PUREG,USXDIC,usxptr,PUSX, ^ ./gtxreg.f:566:9: warning: Reference to the procedure 'gtdpvc' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object shapes 330 CALL gtdpvc(LPAREN,T,1,dvec,nelt,argok,Inptok) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./gtxreg.f:212:9: previous reference to 'gtdpvc' CALL gtdpvc(LPAREN,T,peltux,Xuserx,neltux,argok,Inptok) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./gtxreg.f:581:9: warning: Reference to the procedure 'gtdcvc' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes 340 CALL gtdcvc(LPAREN,T,1,DEFDIC,defptr,PDEF, ^ ./gtxreg.f:267:9: previous reference to 'gtdcvc' 100 CALL gtdcvc(LPAREN,F,PUREG,USXDIC,usxptr,PUSX, ^ ./gtxreg.f:591:9: warning: Reference to the procedure 'gtdcvc' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes 345 CALL gtdcvc(LPAREN,F,1,YSNDIC,ysnptr,PYSN, ^ ./gtxreg.f:267:9: previous reference to 'gtdcvc' 100 CALL gtdcvc(LPAREN,F,PUREG,USXDIC,usxptr,PUSX, ^ ./gtxreg.f:601:9: warning: Reference to the procedure 'gtdpvc' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object shapes 346 CALL gtdpvc(LPAREN,T,1,dvec,nelt,argok,Inptok) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./gtxreg.f:212:9: previous reference to 'gtdpvc' CALL gtdpvc(LPAREN,T,peltux,Xuserx,neltux,argok,Inptok) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./gtxreg.f:641:9: warning: Reference to the procedure 'cpyint' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL cpyint(spnxrg,2,1,Begxrg) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./gtxreg.f:639:9: previous reference to 'cpyint' CALL cpyint(Begspn,2,1,Begxrg) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./gtxreg.f:651:9: warning: Reference to the procedure 'cpyint' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL cpyint(spnxrg(1,2),2,1,Endxrg) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./gtxreg.f:639:9: previous reference to 'cpyint' CALL cpyint(Begspn,2,1,Begxrg) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./gtxreg.f:676:9: warning: Reference to the procedure 'cpyint' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL cpyint(spnotl,2,1,Begxot) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./gtxreg.f:639:9: previous reference to 'cpyint' CALL cpyint(Begspn,2,1,Begxrg) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./gtxreg.f:681:9: warning: Reference to the procedure 'cpyint' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL cpyint(spnotl(1,2),2,1,Endxot) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./gtxreg.f:639:9: previous reference to 'cpyint' CALL cpyint(Begspn,2,1,Begxrg) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./gtxreg.f:821:10: warning: Reference to the procedure 'gtfldt' has an implicit interface that is distinct from another reference: incompatible dummy argument #8: incompatible dummy data object shapes CALL gtfldt(PLEN,umfile,numfch,hvumft,umfmt,numftc,ltrim,Umean, ^ ./gtxreg.f:631:11: previous reference to 'gtfldt' & CALL gtfldt(peltux,xrfile,nflchr,havfmt,xrfmt,nfmtch,2,Xuserx, ^ flang-new-18 -c -o hender.o hender.f flang-new-18 -c -o hinge.o hinge.f flang-new-18 -c -o hist.o hist.f flang-new-18 -c -o histx.o histx.f flang-new-18 -c -o hndend.o hndend.f flang-new-18 -c -o hndtrn.o hndtrn.f flang-new-18 -c -o holday.o holday.f flang-new-18 -c -o holidy.o holidy.f flang-new-18 -c -o hrest.o hrest.f flang-new-18 -c -o htmlfortable.o htmlfortable.f flang-new-18 -c -o htmlout.o htmlout.f ./htmlout.f:3709:8: warning: Reference to the procedure 'usrentry' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes call USRENTRY(Chins,1,Nchins,1,8,1058) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./htmlout.f:3690:8: previous reference to 'usrentry' call USRENTRY(Chis,1,Nchis,1,17,1059) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./htmlout.f:3727:8: warning: Reference to the procedure 'usrentry' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes call USRENTRY(Chi,1,Nchi,1,8,1059) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./htmlout.f:3690:8: previous reference to 'usrentry' call USRENTRY(Chis,1,Nchis,1,17,1059) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./htmlout.f:3780:8: warning: Reference to the procedure 'usrentry' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes call USRENTRY(Cycns,1,Ncycns,1,5,1061) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./htmlout.f:3690:8: previous reference to 'usrentry' call USRENTRY(Chis,1,Nchis,1,17,1059) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./htmlout.f:3820:8: warning: Reference to the procedure 'usrentry' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes call USRENTRY(Psis,1,Npsis,1,16,1151) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./htmlout.f:3690:8: previous reference to 'usrentry' call USRENTRY(Chis,1,Nchis,1,17,1059) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./htmlout.f:3826:8: warning: Reference to the procedure 'usrentry' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes call USRENTRY(Psins,1,Npsins,1,27,1150) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./htmlout.f:3690:8: previous reference to 'usrentry' call USRENTRY(Chis,1,Nchis,1,17,1059) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./htmlout.f:3854:8: warning: Reference to the procedure 'usrentry' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes call USRENTRY(Adjns,1,Nadjns,1,8,1153) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./htmlout.f:3690:8: previous reference to 'usrentry' call USRENTRY(Chis,1,Nchis,1,17,1059) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./htmlout.f:4085:9: warning: Reference to the procedure 'usrentry' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes call USRENTRY(dvec,1,1,1,1,1040) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./htmlout.f:3690:8: previous reference to 'usrentry' call USRENTRY(Chis,1,Nchis,1,17,1059) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./htmlout.f:4087:9: warning: Reference to the procedure 'usrentry' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes call USRENTRY(dvec,1,1,1,1,1041) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./htmlout.f:3690:8: previous reference to 'usrentry' call USRENTRY(Chis,1,Nchis,1,17,1059) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./htmlout.f:4089:9: warning: Reference to the procedure 'usrentry' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes call USRENTRY(dvec,1,1,1,1,1045) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./htmlout.f:3690:8: previous reference to 'usrentry' call USRENTRY(Chis,1,Nchis,1,17,1059) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./htmlout.f:4091:9: warning: Reference to the procedure 'usrentry' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes call USRENTRY(dvec,1,1,1,1,1046) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./htmlout.f:3690:8: previous reference to 'usrentry' call USRENTRY(Chis,1,Nchis,1,17,1059) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./htmlout.f:4093:9: warning: Reference to the procedure 'usrentry' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes call USRENTRY(dvec,1,1,1,1,1042) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./htmlout.f:3690:8: previous reference to 'usrentry' call USRENTRY(Chis,1,Nchis,1,17,1059) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./htmlout.f:4095:9: warning: Reference to the procedure 'usrentry' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes call USRENTRY(dvec,1,1,1,1,1043) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./htmlout.f:3690:8: previous reference to 'usrentry' call USRENTRY(Chis,1,Nchis,1,17,1059) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./htmlout.f:4097:9: warning: Reference to the procedure 'usrentry' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes call USRENTRY(dvec,1,1,1,1,1044) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./htmlout.f:3690:8: previous reference to 'usrentry' call USRENTRY(Chis,1,Nchis,1,17,1059) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./htmlout.f:4099:9: warning: Reference to the procedure 'usrentry' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes call USRENTRY(dvec,1,1,1,1,1047) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./htmlout.f:3690:8: previous reference to 'usrentry' call USRENTRY(Chis,1,Nchis,1,17,1059) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./htmlout.f:4101:9: warning: Reference to the procedure 'usrentry' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes call USRENTRY(dvec,1,1,1,1,1048) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./htmlout.f:3690:8: previous reference to 'usrentry' call USRENTRY(Chis,1,Nchis,1,17,1059) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./htmlout.f:4104:11: warning: Reference to the procedure 'usrentry' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes call USRENTRY(dvec,1,1,1,1,1049) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./htmlout.f:3690:8: previous reference to 'usrentry' call USRENTRY(Chis,1,Nchis,1,17,1059) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./htmlout.f:4829:16: warning: Reference to the procedure 'prttbl' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes call prttbl(thisDate,Mq,z,nz,'TRANSFORMED SERIES',2, ^ ./htmlout.f:4029:9: previous reference to 'prttbl' call prttbl(thisDate,Mq,resid,nz,'EXTENDED RESIDUALS',ndec, ^ ./htmlout.f:4832:16: warning: Reference to the procedure 'prttbl' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes call prttbl(thisDate,Mq,z,nz,'TRANSFORMED SERIES',Ndec, ^ ./htmlout.f:4029:9: previous reference to 'prttbl' call prttbl(thisDate,Mq,resid,nz,'EXTENDED RESIDUALS',ndec, ^ ./htmlout.f:4867:14: warning: Reference to the procedure 'prttbl' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes call prttbl(thisDate,Mq,Wdif,NwDif,'DIFFERENCED SERIES', ^ ./htmlout.f:4029:9: previous reference to 'prttbl' call prttbl(thisDate,Mq,resid,nz,'EXTENDED RESIDUALS',ndec, ^ ./htmlout.f:4870:10: warning: Reference to the procedure 'usrentry' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes call USRENTRY(Wdif,1,NwDif,1,mpkp,3001) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./htmlout.f:3690:8: previous reference to 'usrentry' call USRENTRY(Chis,1,Nchis,1,17,1059) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./htmlout.f:4890:16: warning: Reference to the procedure 'prttbl' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes call prttbl(thisDate,Mq,WdifCen,NwDif,htmtit,Ndec, ^ ./htmlout.f:4029:9: previous reference to 'prttbl' call prttbl(thisDate,Mq,resid,nz,'EXTENDED RESIDUALS',ndec, ^ ./htmlout.f:5760:7: warning: Reference to the procedure 'addbjpols' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object shapes call AddBJpols(MA,MAdim,nMA,Psis,nPsis) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./htmlout.f:5759:7: previous reference to 'addbjpols' call AddBJpols(MA,MAdim,nMA,thadj,nthadj) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./htmlout.f:5761:7: warning: Reference to the procedure 'addbjpols' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object shapes call AddBJpols(AR,ARdim,nAR,chis,nchis) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./htmlout.f:5759:7: previous reference to 'addbjpols' call AddBJpols(MA,MAdim,nMA,thadj,nthadj) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./htmlout.f:5763:9: warning: Reference to the procedure 'addbjpols' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object shapes call AddBJpols(MA,MAdim,nMA,Cycs,nCycs) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./htmlout.f:5759:7: previous reference to 'addbjpols' call AddBJpols(MA,MAdim,nMA,thadj,nthadj) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./htmlout.f:5765:9: warning: Reference to the procedure 'addbjpols' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object shapes call AddBJpols(AR,ARdim,nAR,Cycs,nCycs) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./htmlout.f:5759:7: previous reference to 'addbjpols' call AddBJpols(MA,MAdim,nMA,thadj,nthadj) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./htmlout.f:5778:9: warning: Reference to the procedure 'addbjpols' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object shapes call AddBJpols(MA,MAdim,nMA,thetp,nthetp) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./htmlout.f:5759:7: previous reference to 'addbjpols' call AddBJpols(MA,MAdim,nMA,thadj,nthadj) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./htmlout.f:5779:9: warning: Reference to the procedure 'addbjpols' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object shapes call AddBJpols(MA,MAdim,nMA,Psis,nPsis) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./htmlout.f:5759:7: previous reference to 'addbjpols' call AddBJpols(MA,MAdim,nMA,thadj,nthadj) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./htmlout.f:5780:9: warning: Reference to the procedure 'addbjpols' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object shapes call AddBJpols(MA,MAdim,nMA,Cycs,nCycs) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./htmlout.f:5759:7: previous reference to 'addbjpols' call AddBJpols(MA,MAdim,nMA,thadj,nthadj) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./htmlout.f:5781:9: warning: Reference to the procedure 'addbjpols' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object shapes call AddBJpols(AR,ARdim,nAR,chis,nchis) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./htmlout.f:5759:7: previous reference to 'addbjpols' call AddBJpols(MA,MAdim,nMA,thadj,nthadj) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./htmlout.f:5794:9: warning: Reference to the procedure 'addbjpols' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object shapes call AddBJpols(MA,MAdim,nMA,thets,nthets) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./htmlout.f:5759:7: previous reference to 'addbjpols' call AddBJpols(MA,MAdim,nMA,thadj,nthadj) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./htmlout.f:5795:9: warning: Reference to the procedure 'addbjpols' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object shapes call AddBJpols(MA,MAdim,nMA,chis,nChis) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./htmlout.f:5759:7: previous reference to 'addbjpols' call AddBJpols(MA,MAdim,nMA,thadj,nthadj) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./htmlout.f:5796:9: warning: Reference to the procedure 'addbjpols' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object shapes call AddBJpols(MA,MAdim,nMA,Cycs,nCycs) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./htmlout.f:5759:7: previous reference to 'addbjpols' call AddBJpols(MA,MAdim,nMA,thadj,nthadj) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./htmlout.f:5797:9: warning: Reference to the procedure 'addbjpols' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object shapes call AddBJpols(AR,ARdim,nAR,Psis,nPsis) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./htmlout.f:5759:7: previous reference to 'addbjpols' call AddBJpols(MA,MAdim,nMA,thadj,nthadj) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./htmlout.f:5820:9: warning: Reference to the procedure 'addbjpols' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object shapes call AddBJpols(MA,MAdim,nMA,chis,nChis) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./htmlout.f:5759:7: previous reference to 'addbjpols' call AddBJpols(MA,MAdim,nMA,thadj,nthadj) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./htmlout.f:5821:9: warning: Reference to the procedure 'addbjpols' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object shapes call AddBJpols(MA,MAdim,nMA,Psis,nPsis) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./htmlout.f:5759:7: previous reference to 'addbjpols' call AddBJpols(MA,MAdim,nMA,thadj,nthadj) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./htmlout.f:5822:9: warning: Reference to the procedure 'addbjpols' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object shapes call AddBJpols(AR,ARdim,nAR,Cycs,nCycs) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./htmlout.f:5759:7: previous reference to 'addbjpols' call AddBJpols(MA,MAdim,nMA,thadj,nthadj) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./htmlout.f:5836:8: warning: Reference to the procedure 'addbjpols' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object shapes call AddBJpols(MA,MAdim,nMA,chis,nChis) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./htmlout.f:5759:7: previous reference to 'addbjpols' call AddBJpols(MA,MAdim,nMA,thadj,nthadj) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./htmlout.f:5837:8: warning: Reference to the procedure 'addbjpols' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object shapes call AddBJpols(MA,MAdim,nMA,Psis,nPsis) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./htmlout.f:5759:7: previous reference to 'addbjpols' call AddBJpols(MA,MAdim,nMA,thadj,nthadj) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./htmlout.f:5838:8: warning: Reference to the procedure 'addbjpols' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object shapes call AddBJpols(MA,MAdim,nMA,Cycs,nCycs) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./htmlout.f:5759:7: previous reference to 'addbjpols' call AddBJpols(MA,MAdim,nMA,thadj,nthadj) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./htmlout.f:5888:9: warning: Reference to the procedure 'strpolyn' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes call strPolyn('B ',ePol,lTHc+1,diffInt,strTmp,lineTmp) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./htmlout.f:5749:7: previous reference to 'strpolyn' call strPolyn('F ',eTHstar,qstar0+1,diffInt,strTH,lineTH) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./htmlout.f:5937:9: warning: Reference to the procedure 'addbjpols' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object shapes call AddBJPols(MA,MAdim,nMA,Hc,lHc) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./htmlout.f:5759:7: previous reference to 'addbjpols' call AddBJpols(MA,MAdim,nMA,thadj,nthadj) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ flang-new-18 -c -o htmlutil.o htmlutil.f flang-new-18 -c -o idamax.o idamax.f flang-new-18 -c -o iddiff.o iddiff.f ./iddiff.f:534:11: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL copy(Chlxpx,nelt,1,xpxinv) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./iddiff.f:118:8: previous reference to 'copy' CALL copy(Trnsrs,nelta,1,txy) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ flang-new-18 -c -o idmdl.o idmdl.f ./idmdl.f:43:8: warning: Reference to the procedure 'maxidx' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL maxidx(Dflist(1,2),Nidsdf,itmp,mxnsdf) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./idmdl.f:42:8: previous reference to 'maxidx' CALL maxidx(Dflist,Niddf,itmp,mxndf) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./idmdl.f:164:9: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL copy(a,Nspobs,1,txy) ^^^^^^^^^^^^^^^^^^^^^^^^^ ./idmdl.f:44:8: previous reference to 'copy' CALL copy(Xy,Nspobs*Ncxy,1,txy) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ flang-new-18 -c -o idotlr.o idotlr.f ./idotlr.f:371:19: warning: Reference to the procedure 'setdp' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes IF(Ltstao)CALL setdp(ZERO,ntst,ttst(ibgtst,AO)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./idotlr.f:217:7: previous reference to 'setdp' CALL setdp(DNOTST,POTLR,almost) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./idotlr.f:372:19: warning: Reference to the procedure 'setdp' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes IF(Ltstls)CALL setdp(ZERO,ntst,ttst(ibgtst,LS)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./idotlr.f:217:7: previous reference to 'setdp' CALL setdp(DNOTST,POTLR,almost) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./idotlr.f:373:19: warning: Reference to the procedure 'setdp' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes IF(Ltsttc)CALL setdp(ZERO,ntst,ttst(ibgtst,TC)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./idotlr.f:217:7: previous reference to 'setdp' CALL setdp(DNOTST,POTLR,almost) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./idotlr.f:453:11: warning: Reference to the procedure 'armafl' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes CALL armafl(Nspobs,ntype,F,F,otlvar,na,POA,info) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./idotlr.f:382:9: previous reference to 'armafl' CALL armafl(Nspobs,Ncxy,F,F,txa,na,PXA,info) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./idotlr.f:466:10: warning: Reference to the procedure 'setint' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL setint(NOTSET,POTLR,mxtype) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./idotlr.f:223:7: previous reference to 'setint' CALL setint(0,POTLR*Nspobs,tstpt) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./idotlr.f:817:11: warning: Reference to the procedure 'getstr' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes CALL getstr(csinglr,ncsptr,ncsin,i,tmpttl,ntmpcr) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./idotlr.f:292:9: previous reference to 'getstr' CALL getstr(Colttl,Colptr,Ncoltl,icol,tmpttl,ntmpcr) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./idotlr.f:974:9: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL copy(Critvl,POTLR,1,oldcvl) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./idotlr.f:377:8: previous reference to 'copy' CALL copy(Xy,Nspobs*Ncxy,1,txa) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./idotlr.f:1198:8: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL copy(Critvl,POTLR,1,oldcvl) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./idotlr.f:377:8: previous reference to 'copy' CALL copy(Xy,Nspobs*Ncxy,1,txa) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./idotlr.f:1222:9: warning: Reference to the procedure 'getstr' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes CALL getstr(OTTDIC,ottptr,POTT,ottind,outstr(1),nstr) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./idotlr.f:292:9: previous reference to 'getstr' CALL getstr(Colttl,Colptr,Ncoltl,icol,tmpttl,ntmpcr) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./idotlr.f:1441:33: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes IF(.not.Lfatal.and.lalmst)CALL copy(oldcvl,POTLR,1,Critvl) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./idotlr.f:377:8: previous reference to 'copy' CALL copy(Xy,Nspobs*Ncxy,1,txa) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ flang-new-18 -c -o idpeak.o idpeak.f flang-new-18 -c -o inbtwn.o inbtwn.f flang-new-18 -c -o indx.o indx.f flang-new-18 -c -o initdg.o initdg.f ./initdg.f:66:8: warning: Reference to the procedure 'setdp' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL setdp(DNOTST,3,Vartrn) ^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./initdg.f:62:8: previous reference to 'setdp' CALL setdp(DNOTST,5,Prsetr) ^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./initdg.f:67:8: warning: Reference to the procedure 'setdp' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL setdp(DNOTST,3,Varsad) ^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./initdg.f:62:8: previous reference to 'setdp' CALL setdp(DNOTST,5,Prsetr) ^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./initdg.f:68:8: warning: Reference to the procedure 'setdp' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL setdp(DNOTST,3,Varirr) ^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./initdg.f:62:8: previous reference to 'setdp' CALL setdp(DNOTST,5,Prsetr) ^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./initdg.f:69:8: warning: Reference to the procedure 'setdp' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL setdp(DNOTST,3,Varsea) ^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./initdg.f:62:8: previous reference to 'setdp' CALL setdp(DNOTST,5,Prsetr) ^^^^^^^^^^^^^^^^^^^^^^^^^^^ flang-new-18 -c -o initst.o initst.f flang-new-18 -c -o inpter.o inpter.f flang-new-18 -c -o insdbl.o insdbl.f ./insdbl.f:20:7: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL copy(Subvec,nielt,1,Vec(Ptrvec(Ielt-1))) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./insdbl.f:18:7: previous reference to 'copy' CALL copy(Vec(Ptrvec(Ielt-1)),nrest,-1,Vec(Ptrvec(Ielt))) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ flang-new-18 -c -o insint.o insint.f ./insint.f:20:7: warning: Reference to the procedure 'cpyint' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL cpyint(Subvec,nielt,1,Vec(Ptrvec(Ielt-1))) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./insint.f:18:7: previous reference to 'cpyint' CALL cpyint(Vec(Ptrvec(Ielt-1)),nrest,-1,Vec(Ptrvec(Ielt))) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ flang-new-18 -c -o inslg.o inslg.f ./inslg.f:21:7: warning: Reference to the procedure 'copylg' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL copylg(Subvec,nielt,1,Vec(Ptrvec(Ielt-1))) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./inslg.f:19:7: previous reference to 'copylg' CALL copylg(Vec(Ptrvec(Ielt-1)),nrest,-1,Vec(Ptrvec(Ielt))) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ flang-new-18 -c -o insopr.o insopr.f ./insopr.f:50:8: warning: Reference to the procedure 'insptr' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object shapes CALL insptr(T,Ncoef,iopr,POPR,PARIMA,Opr,Nopr) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./insopr.f:43:7: previous reference to 'insptr' CALL insptr(F,1,Optype,3,POPR,Mdl,i) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ flang-new-18 -c -o insort.o insort.f flang-new-18 -c -o insptr.o insptr.f flang-new-18 -c -o insstr.o insstr.f flang-new-18 -c -o intfmt.o intfmt.f flang-new-18 -c -o intgpg.o intgpg.f flang-new-18 -c -o intinp.o intinp.f flang-new-18 -c -o intlst.o intlst.f flang-new-18 -c -o intrpp.o intrpp.f flang-new-18 -c -o intsrt.o intsrt.f flang-new-18 -c -o invfcn.o invfcn.f flang-new-18 -c -o invmat.o invmat.f flang-new-18 -c -o ipmpar.o ipmpar.f flang-new-18 -c -o iscrfn.o iscrfn.f flang-new-18 -c -o isdate.o isdate.f flang-new-18 -c -o isfals.o isfals.f flang-new-18 -c -o isfixd.o isfixd.f flang-new-18 -c -o ispeak.o ispeak.f flang-new-18 -c -o ispos.o ispos.f flang-new-18 -c -o issame.o issame.f flang-new-18 -c -o istrue.o istrue.f flang-new-18 -c -o itoc.o itoc.f flang-new-18 -c -o itrerr.o itrerr.f flang-new-18 -c -o kfcn.o kfcn.f flang-new-18 -c -o kwtest.o kwtest.f flang-new-18 -c -o lassol.o lassol.f flang-new-18 -c -o lendp.o lendp.f flang-new-18 -c -o lex.o lex.f flang-new-18 -c -o lgnrmc.o lgnrmc.f flang-new-18 -c -o lkshnk.o lkshnk.f flang-new-18 -c -o lmdif.o lmdif.f flang-new-18 -c -o lmpar.o lmpar.f flang-new-18 -c -o loadxr.o loadxr.f ./loadxr.f:39:8: warning: Reference to the procedure 'cpyint' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL cpyint(Rgvrtp,PB,1,Rgxvtp) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./loadxr.f:36:8: previous reference to 'cpyint' CALL cpyint(Colptr(0),PB+1,1,Clxptr(0)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./loadxr.f:44:8: warning: Reference to the procedure 'cpyint' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL cpyint(Bgusrx,2,1,Bgxusx) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./loadxr.f:36:8: previous reference to 'cpyint' CALL cpyint(Colptr(0),PB+1,1,Clxptr(0)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./loadxr.f:46:8: warning: Reference to the procedure 'cpyint' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL cpyint(Begxy,2,1,Xbegxy) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./loadxr.f:36:8: previous reference to 'cpyint' CALL cpyint(Colptr(0),PB+1,1,Clxptr(0)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./loadxr.f:52:8: warning: Reference to the procedure 'cpyint' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL cpyint(Tddate,2,1,Xtddat) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./loadxr.f:36:8: previous reference to 'cpyint' CALL cpyint(Colptr(0),PB+1,1,Clxptr(0)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./loadxr.f:73:8: warning: Reference to the procedure 'cpyint' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL cpyint(Rgxvtp,PB,1,Rgvrtp) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./loadxr.f:36:8: previous reference to 'cpyint' CALL cpyint(Colptr(0),PB+1,1,Clxptr(0)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./loadxr.f:74:8: warning: Reference to the procedure 'cpyint' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL cpyint(Usxtyp,PUREG,1,Usrtyp) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./loadxr.f:36:8: previous reference to 'cpyint' CALL cpyint(Colptr(0),PB+1,1,Clxptr(0)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./loadxr.f:78:8: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL copy(Xuserx,PUSERX,1,Userx) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./loadxr.f:40:8: previous reference to 'copy' CALL copy(B,PB,1,Bx) ^^^^^^^^^^^^^^^^^^^^ ./loadxr.f:81:8: warning: Reference to the procedure 'cpyint' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL cpyint(Bgxusx,2,1,Bgusrx) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./loadxr.f:36:8: previous reference to 'cpyint' CALL cpyint(Colptr(0),PB+1,1,Clxptr(0)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./loadxr.f:83:8: warning: Reference to the procedure 'cpyint' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL cpyint(Xbegxy,2,1,Begxy) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./loadxr.f:36:8: previous reference to 'cpyint' CALL cpyint(Colptr(0),PB+1,1,Clxptr(0)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./loadxr.f:89:8: warning: Reference to the procedure 'cpyint' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL cpyint(Xtddat,2,1,Tddate) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./loadxr.f:36:8: previous reference to 'cpyint' CALL cpyint(Colptr(0),PB+1,1,Clxptr(0)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ flang-new-18 -c -o locshk.o locshk.f ./locshk.f:74:7: warning: Reference to the procedure 'setdp' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL setdp(ZERO,PLEN,temps) ^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./locshk.f:51:7: previous reference to 'setdp' CALL setdp(ZERO,PSP*PSP,w) ^^^^^^^^^^^^^^^^^^^^^^^^^^ flang-new-18 -c -o logar.o logar.f flang-new-18 -c -o logdet.o logdet.f flang-new-18 -c -o lomaic.o lomaic.f flang-new-18 -c -o lstpth.o lstpth.f flang-new-18 -c -o makadj.o makadj.f flang-new-18 -c -o makotl.o makotl.f flang-new-18 -c -o makttl.o makttl.f ./makttl.f:130:9: warning: Reference to the procedure 'getstr' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes CALL getstr(LBFDIC,lbfptr,PLBF,Tblptr,clbl,nclbl) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./makttl.f:38:7: previous reference to 'getstr' CALL getstr(Ttldic,Ttlptr,Pttl,Tblptr-Dsptr,Tblttl,Ntbttl) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./makttl.f:132:9: warning: Reference to the procedure 'getstr' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes CALL getstr(LBLDIC,lblptr,PLBL,Tblptr,clbl,nclbl) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./makttl.f:38:7: previous reference to 'getstr' CALL getstr(Ttldic,Ttlptr,Pttl,Tblptr-Dsptr,Tblttl,Ntbttl) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ flang-new-18 -c -o map.o map.f flang-new-18 -c -o matrix.o matrix.f flang-new-18 -c -o maxidx.o maxidx.f flang-new-18 -c -o maxlag.o maxlag.f flang-new-18 -c -o maxvec.o maxvec.f flang-new-18 -c -o mdlchk.o mdlchk.f flang-new-18 -c -o mdlfix.o mdlfix.f flang-new-18 -c -o mdlinp.o mdlinp.f flang-new-18 -c -o mdlint.o mdlint.f ./mdlint.f:18:7: warning: Reference to the procedure 'intlst' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes CALL intlst(PMDL,Mdl,Nmdl) ^^^^^^^^^^^^^^^^^^^^^^^^^^ ./mdlint.f:15:7: previous reference to 'intlst' CALL intlst(POPR,Opr,Nopr) ^^^^^^^^^^^^^^^^^^^^^^^^^^ ./mdlint.f:24:7: warning: Reference to the procedure 'setdp' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL setdp(ZERO,PACM,Armacm) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./mdlint.f:23:7: previous reference to 'setdp' CALL setdp(ZERO,PARIMA,Arimap) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ flang-new-18 -c -o mdlmch.o mdlmch.f flang-new-18 -c -o mdlset.o mdlset.f ./mdlset.f:56:8: warning: Reference to the procedure 'setopr' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes CALL setopr(DIFF,dfcoef,dflag,dffix,ndcoef,Nrdiff,naimcf,argok, ^ ./mdlset.f:40:8: previous reference to 'setopr' CALL setopr(AR,arcoef,arlag,arfix,Nrar,itmp,naimcf,argok,Locok) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./mdlset.f:64:9: warning: Reference to the procedure 'iscrfn' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL iscrfn(MULT,1,dflag,ndcoef,PDIFOR,dflag) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./mdlset.f:43:9: previous reference to 'iscrfn' CALL iscrfn(MULT,1,arlag,Nrar,PORDER,arlag) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./mdlset.f:66:24: warning: Reference to the procedure 'insopr' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes IF(.not.Lfatal)CALL insopr(DIFF,dfcoef,dflag,dffix,ndcoef, ^ ./mdlset.f:45:24: previous reference to 'insopr' IF(.not.Lfatal)CALL insopr(AR,arcoef,arlag,arfix,Nrar,1, ^ ./mdlset.f:119:8: warning: Reference to the procedure 'setopr' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes CALL setopr(DIFF,dfcoef,dflag,dffix,ndcoef,Nsdiff,naimcf,argok, ^ ./mdlset.f:40:8: previous reference to 'setopr' CALL setopr(AR,arcoef,arlag,arfix,Nrar,itmp,naimcf,argok,Locok) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./mdlset.f:138:9: warning: Reference to the procedure 'iscrfn' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL iscrfn(MULT,Sp,dflag,ndcoef,PDIFOR,dflag) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./mdlset.f:43:9: previous reference to 'iscrfn' CALL iscrfn(MULT,1,arlag,Nrar,PORDER,arlag) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./mdlset.f:140:24: warning: Reference to the procedure 'insopr' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes IF(.not.Lfatal)CALL insopr(DIFF,dfcoef,dflag,dffix,ndcoef, ^ ./mdlset.f:45:24: previous reference to 'insopr' IF(.not.Lfatal)CALL insopr(AR,arcoef,arlag,arfix,Nrar,1, ^ flang-new-18 -c -o mdssln.o mdssln.f flang-new-18 -c -o meancra.o meancra.f flang-new-18 -c -o medabs.o medabs.f flang-new-18 -c -o mflag.o mflag.f flang-new-18 -c -o minim2.o minim2.f flang-new-18 -c -o mkback.o mkback.f ./mkback.f:246:8: warning: Reference to the procedure 'eltfcn' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL eltfcn(ff,Ubcst,Adj(Adj1st-Nbcst),Nbcst,PFCST,Ubcst) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./mkback.f:230:8: previous reference to 'eltfcn' CALL eltfcn(SUB,Ubcst,revfse,Nbcst,PFCST,lwrci) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./mkback.f:248:9: warning: Reference to the procedure 'eltfcn' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL eltfcn(ff,lwrci,Adj(Adj1st-Nbcst),Nbcst,PFCST,lwrci) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./mkback.f:230:8: previous reference to 'eltfcn' CALL eltfcn(SUB,Ubcst,revfse,Nbcst,PFCST,lwrci) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./mkback.f:249:9: warning: Reference to the procedure 'eltfcn' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL eltfcn(ff,uprci,Adj(Adj1st-Nbcst),Nbcst,PFCST,uprci) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./mkback.f:230:8: previous reference to 'eltfcn' CALL eltfcn(SUB,Ubcst,revfse,Nbcst,PFCST,lwrci) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./mkback.f:253:8: warning: Reference to the procedure 'eltfcn' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL eltfcn(ff,Ubcst,X11hol(Pos2),Nbcst,PFCST,Ubcst) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./mkback.f:230:8: previous reference to 'eltfcn' CALL eltfcn(SUB,Ubcst,revfse,Nbcst,PFCST,lwrci) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./mkback.f:255:9: warning: Reference to the procedure 'eltfcn' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL eltfcn(ff,lwrci,X11hol(Pos2),Nbcst,PFCST,lwrci) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./mkback.f:230:8: previous reference to 'eltfcn' CALL eltfcn(SUB,Ubcst,revfse,Nbcst,PFCST,lwrci) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./mkback.f:256:9: warning: Reference to the procedure 'eltfcn' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL eltfcn(ff,uprci,X11hol(Pos2),Nbcst,PFCST,uprci) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./mkback.f:230:8: previous reference to 'eltfcn' CALL eltfcn(SUB,Ubcst,revfse,Nbcst,PFCST,lwrci) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./mkback.f:260:8: warning: Reference to the procedure 'eltfcn' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL eltfcn(ff,Ubcst,Facxhl(Pos2),Nbcst,PFCST,Ubcst) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./mkback.f:230:8: previous reference to 'eltfcn' CALL eltfcn(SUB,Ubcst,revfse,Nbcst,PFCST,lwrci) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./mkback.f:262:9: warning: Reference to the procedure 'eltfcn' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL eltfcn(ff,lwrci,Facxhl(Pos2),Nbcst,PFCST,lwrci) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./mkback.f:230:8: previous reference to 'eltfcn' CALL eltfcn(SUB,Ubcst,revfse,Nbcst,PFCST,lwrci) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./mkback.f:263:9: warning: Reference to the procedure 'eltfcn' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL eltfcn(ff,uprci,Facxhl(Pos2),Nbcst,PFCST,uprci) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./mkback.f:230:8: previous reference to 'eltfcn' CALL eltfcn(SUB,Ubcst,revfse,Nbcst,PFCST,lwrci) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./mkback.f:267:8: warning: Reference to the procedure 'eltfcn' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL eltfcn(ff,Ubcst,Stptd(Pos2),Nbcst,PFCST,Ubcst) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./mkback.f:230:8: previous reference to 'eltfcn' CALL eltfcn(SUB,Ubcst,revfse,Nbcst,PFCST,lwrci) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./mkback.f:269:9: warning: Reference to the procedure 'eltfcn' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL eltfcn(ff,lwrci,Stptd(Pos2),Nbcst,PFCST,lwrci) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./mkback.f:230:8: previous reference to 'eltfcn' CALL eltfcn(SUB,Ubcst,revfse,Nbcst,PFCST,lwrci) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./mkback.f:270:9: warning: Reference to the procedure 'eltfcn' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL eltfcn(ff,uprci,Stptd(Pos2),Nbcst,PFCST,uprci) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./mkback.f:230:8: previous reference to 'eltfcn' CALL eltfcn(SUB,Ubcst,revfse,Nbcst,PFCST,lwrci) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ flang-new-18 -c -o mkealb.o mkealb.f flang-new-18 -c -o mkfreq.o mkfreq.f flang-new-18 -c -o mklnlb.o mklnlb.f flang-new-18 -c -o mkmdsn.o mkmdsn.f flang-new-18 -c -o mkmdsx.o mkmdsx.f flang-new-18 -c -o mkmetahtmlfile.o mkmetahtmlfile.f flang-new-18 -c -o mkoprt.o mkoprt.f flang-new-18 -c -o mkotky.o mkotky.f flang-new-18 -c -o mkpeak.o mkpeak.f flang-new-18 -c -o mkshdr.o mkshdr.f flang-new-18 -c -o mkspky.o mkspky.f flang-new-18 -c -o mksplb.o mksplb.f flang-new-18 -c -o mkssky.o mkssky.f flang-new-18 -c -o mkstlb.o mkstlb.f flang-new-18 -c -o mkspst.o mkspst.f flang-new-18 -c -o mktdlb.o mktdlb.f flang-new-18 -c -o mlist.o mlist.f flang-new-18 -c -o mltpos.o mltpos.f flang-new-18 -c -o month.o month.f flang-new-18 -c -o mstest.o mstest.f flang-new-18 -c -o mulmat.o mulmat.f flang-new-18 -c -o mulqmat.o mulqmat.f ./mulqmat.f:133:8: warning: Reference to the procedure 'mulmat' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL mulMat( mTemp, nTemp, mA, nA, mC, nC ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./mulqmat.f:58:8: previous reference to 'mulmat' CALL mulMat( mA, nA, mB, nB, mTemp, nTemp ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ flang-new-18 -c -o mulref.o mulref.f flang-new-18 -c -o mulsca.o mulsca.f flang-new-18 -c -o mult.o mult.f flang-new-18 -c -o mult0.o mult0.f flang-new-18 -c -o mult1.o mult1.f flang-new-18 -c -o mult2.o mult2.f flang-new-18 -c -o mxpeak.o mxpeak.f flang-new-18 -c -o nblank.o nblank.f flang-new-18 -c -o newest.o newest.f flang-new-18 -c -o nextk.o nextk.f flang-new-18 -c -o nmlmdl.o nmlmdl.f flang-new-18 -c -o nofcst.o nofcst.f flang-new-18 -c -o nrmtst.o nrmtst.f flang-new-18 -c -o numaff.o numaff.f flang-new-18 -c -o numfmt.o numfmt.f flang-new-18 -c -o olsreg.o olsreg.f flang-new-18 -c -o opnfil.o opnfil.f flang-new-18 -c -o otsort.o otsort.f flang-new-18 -c -o outchr.o outchr.f flang-new-18 -c -o pacf.o pacf.f flang-new-18 -c -o pass0.o pass0.f flang-new-18 -c -o pass2.o pass2.f ./pass2.f:100:10: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object shapes CALL copy(trns0,PLEN,1,Trnsrs) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./pass2.f:99:10: previous reference to 'copy' CALL copy(adj0,PLEN,1,Adj) ^^^^^^^^^^^^^^^^^^^^^^^^^^ ./pass2.f:101:10: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL copy(Adj,Nadj,-1,Sprior(Setpri)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./pass2.f:99:10: previous reference to 'copy' CALL copy(adj0,PLEN,1,Adj) ^^^^^^^^^^^^^^^^^^^^^^^^^^ ./pass2.f:149:9: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object shapes CALL copy(A0,Na,1,A) ^^^^^^^^^^^^^^^^^^^^ ./pass2.f:99:10: previous reference to 'copy' CALL copy(adj0,PLEN,1,Adj) ^^^^^^^^^^^^^^^^^^^^^^^^^^ flang-new-18 -c -o pctrit.o pctrit.f flang-new-18 -c -o phasegain.o phasegain.f flang-new-18 -c -o polyml.o polyml.f flang-new-18 -c -o polynom.o polynom.f flang-new-18 -c -o ppnd.o ppnd.f flang-new-18 -c -o pracf2.o pracf2.f flang-new-18 -c -o prafce.o prafce.f flang-new-18 -c -o pragr2.o pragr2.f flang-new-18 -c -o prfcrv.o prfcrv.f flang-new-18 -c -o pritd.o pritd.f flang-new-18 -c -o prlkhd.o prlkhd.f flang-new-18 -c -o procflts.o procflts.f flang-new-18 -c -o prothd.o prothd.f flang-new-18 -c -o prprad.o prprad.f flang-new-18 -c -o prrvob.o prrvob.f flang-new-18 -c -o prshd2.o prshd2.f flang-new-18 -c -o prtacf.o prtacf.f flang-new-18 -c -o prtadj.o prtadj.f flang-new-18 -c -o prtagr.o prtagr.f flang-new-18 -c -o prtamd.o prtamd.f flang-new-18 -c -o prtchi.o prtchi.f flang-new-18 -c -o prtcol.o prtcol.f flang-new-18 -c -o prtd8b.o prtd8b.f flang-new-18 -c -o prtd9a.o prtd9a.f flang-new-18 -c -o prtdtb.o prtdtb.f flang-new-18 -c -o prtdwr.o prtdwr.f flang-new-18 -c -o prterr.o prterr.f ./prterr.f:166:8: warning: Reference to the procedure 'getstr' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes CALL getstr(Oprttl,Oprptr,Noprtl,Prbfac,str,nchr) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./prterr.f:65:9: previous reference to 'getstr' CALL getstr(Colttl,Colptr,Ncoltl,Sngcol,str,nchr) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./prterr.f:191:8: warning: Reference to the procedure 'getstr' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes CALL getstr(Oprttl,Oprptr,Noprtl,Prbfac,str,nchr) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./prterr.f:65:9: previous reference to 'getstr' CALL getstr(Colttl,Colptr,Ncoltl,Sngcol,str,nchr) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ flang-new-18 -c -o prterx.o prterx.f flang-new-18 -c -o prtf2.o prtf2.f flang-new-18 -c -o prtf2w.o prtf2w.f flang-new-18 -c -o prtfct.o prtfct.f ./prtfct.f:505:9: warning: Reference to the procedure 'eltfcn' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL eltfcn(ff,untfct,Adj(Adj1st+fctori),Nfcst,PFCST,untfct) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./prtfct.f:260:9: previous reference to 'eltfcn' CALL eltfcn(SUB,trnsrs,fcst,nobsf,PFCST,fcterr) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./prtfct.f:507:12: warning: Reference to the procedure 'eltfcn' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes & CALL eltfcn(ff,untfct,X11hol(Pos2+1),Nfcst,PFCST,untfct) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./prtfct.f:260:9: previous reference to 'eltfcn' CALL eltfcn(SUB,trnsrs,fcst,nobsf,PFCST,fcterr) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./prtfct.f:509:12: warning: Reference to the procedure 'eltfcn' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes & CALL eltfcn(ff,untfct,Facxhl(Pos2+1),Nfcst,PFCST,untfct) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./prtfct.f:260:9: previous reference to 'eltfcn' CALL eltfcn(SUB,trnsrs,fcst,nobsf,PFCST,fcterr) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./prtfct.f:511:12: warning: Reference to the procedure 'eltfcn' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes & CALL eltfcn(ff,untfct,Stptd(Pos2+1),Nfcst,PFCST,untfct) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./prtfct.f:260:9: previous reference to 'eltfcn' CALL eltfcn(SUB,trnsrs,fcst,nobsf,PFCST,fcterr) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./prtfct.f:551:10: warning: Reference to the procedure 'eltfcn' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL eltfcn(ff,lwrci,Adj(Adj1st+fctori),Nfcst,PFCST,lwrci) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./prtfct.f:260:9: previous reference to 'eltfcn' CALL eltfcn(SUB,trnsrs,fcst,nobsf,PFCST,fcterr) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./prtfct.f:552:10: warning: Reference to the procedure 'eltfcn' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL eltfcn(ff,uprci,Adj(Adj1st+fctori),Nfcst,PFCST,uprci) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./prtfct.f:260:9: previous reference to 'eltfcn' CALL eltfcn(SUB,trnsrs,fcst,nobsf,PFCST,fcterr) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./prtfct.f:555:11: warning: Reference to the procedure 'eltfcn' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL eltfcn(ff,lwrci,X11hol(Pos2+1),Nfcst,PFCST,lwrci) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./prtfct.f:260:9: previous reference to 'eltfcn' CALL eltfcn(SUB,trnsrs,fcst,nobsf,PFCST,fcterr) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./prtfct.f:556:11: warning: Reference to the procedure 'eltfcn' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL eltfcn(ff,uprci,X11hol(Pos2+1),Nfcst,PFCST,uprci) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./prtfct.f:260:9: previous reference to 'eltfcn' CALL eltfcn(SUB,trnsrs,fcst,nobsf,PFCST,fcterr) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./prtfct.f:559:11: warning: Reference to the procedure 'eltfcn' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL eltfcn(ff,lwrci,Facxhl(Pos2+1),Nfcst,PFCST,lwrci) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./prtfct.f:260:9: previous reference to 'eltfcn' CALL eltfcn(SUB,trnsrs,fcst,nobsf,PFCST,fcterr) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./prtfct.f:560:11: warning: Reference to the procedure 'eltfcn' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL eltfcn(ff,uprci,Facxhl(Pos2+1),Nfcst,PFCST,uprci) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./prtfct.f:260:9: previous reference to 'eltfcn' CALL eltfcn(SUB,trnsrs,fcst,nobsf,PFCST,fcterr) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./prtfct.f:563:11: warning: Reference to the procedure 'eltfcn' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL eltfcn(ff,lwrci,Stptd(Pos2+1),Nfcst,PFCST,lwrci) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./prtfct.f:260:9: previous reference to 'eltfcn' CALL eltfcn(SUB,trnsrs,fcst,nobsf,PFCST,fcterr) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./prtfct.f:564:11: warning: Reference to the procedure 'eltfcn' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL eltfcn(ff,uprci,Stptd(Pos2+1),Nfcst,PFCST,uprci) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./prtfct.f:260:9: previous reference to 'eltfcn' CALL eltfcn(SUB,trnsrs,fcst,nobsf,PFCST,fcterr) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./prtfct.f:593:10: warning: Reference to the procedure 'eltfcn' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL eltfcn(ff,untfct,Facxhl(Pos2+1),Nfcst,PFCST,untfct) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./prtfct.f:260:9: previous reference to 'eltfcn' CALL eltfcn(SUB,trnsrs,fcst,nobsf,PFCST,fcterr) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./prtfct.f:594:10: warning: Reference to the procedure 'eltfcn' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL eltfcn(ff,lwrci,Facxhl(Pos2+1),Nfcst,PFCST,lwrci) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./prtfct.f:260:9: previous reference to 'eltfcn' CALL eltfcn(SUB,trnsrs,fcst,nobsf,PFCST,fcterr) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./prtfct.f:595:10: warning: Reference to the procedure 'eltfcn' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL eltfcn(ff,uprci,Facxhl(Pos2+1),Nfcst,PFCST,uprci) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./prtfct.f:260:9: previous reference to 'eltfcn' CALL eltfcn(SUB,trnsrs,fcst,nobsf,PFCST,fcterr) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./prtfct.f:598:10: warning: Reference to the procedure 'eltfcn' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL eltfcn(ff,untfct,X11hol(Pos2+1),Nfcst,PFCST,untfct) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./prtfct.f:260:9: previous reference to 'eltfcn' CALL eltfcn(SUB,trnsrs,fcst,nobsf,PFCST,fcterr) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./prtfct.f:599:10: warning: Reference to the procedure 'eltfcn' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL eltfcn(ff,lwrci,X11hol(Pos2+1),Nfcst,PFCST,lwrci) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./prtfct.f:260:9: previous reference to 'eltfcn' CALL eltfcn(SUB,trnsrs,fcst,nobsf,PFCST,fcterr) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./prtfct.f:600:10: warning: Reference to the procedure 'eltfcn' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL eltfcn(ff,uprci,X11hol(Pos2+1),Nfcst,PFCST,uprci) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./prtfct.f:260:9: previous reference to 'eltfcn' CALL eltfcn(SUB,trnsrs,fcst,nobsf,PFCST,fcterr) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./prtfct.f:603:10: warning: Reference to the procedure 'eltfcn' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL eltfcn(ff,untfct,Stptd(Pos2+1),Nfcst,PFCST,untfct) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./prtfct.f:260:9: previous reference to 'eltfcn' CALL eltfcn(SUB,trnsrs,fcst,nobsf,PFCST,fcterr) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./prtfct.f:604:10: warning: Reference to the procedure 'eltfcn' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL eltfcn(ff,lwrci,Stptd(Pos2+1),Nfcst,PFCST,lwrci) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./prtfct.f:260:9: previous reference to 'eltfcn' CALL eltfcn(SUB,trnsrs,fcst,nobsf,PFCST,fcterr) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./prtfct.f:605:10: warning: Reference to the procedure 'eltfcn' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL eltfcn(ff,uprci,Stptd(Pos2+1),Nfcst,PFCST,uprci) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./prtfct.f:260:9: previous reference to 'eltfcn' CALL eltfcn(SUB,trnsrs,fcst,nobsf,PFCST,fcterr) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./prtfct.f:731:9: warning: Reference to the procedure 'eltfcn' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL eltfcn(ff,untfct,Adj(Adj1st+fctori),Nfcst,PFCST,untfct) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./prtfct.f:260:9: previous reference to 'eltfcn' CALL eltfcn(SUB,trnsrs,fcst,nobsf,PFCST,fcterr) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./prtfct.f:733:12: warning: Reference to the procedure 'eltfcn' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes & CALL eltfcn(ff,untfct,Facxhl(Pos2+1),Nfcst,PFCST,untfct) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./prtfct.f:260:9: previous reference to 'eltfcn' CALL eltfcn(SUB,trnsrs,fcst,nobsf,PFCST,fcterr) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./prtfct.f:735:12: warning: Reference to the procedure 'eltfcn' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes & CALL eltfcn(ff,untfct,X11hol(Pos2+1),Nfcst,PFCST,untfct) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./prtfct.f:260:9: previous reference to 'eltfcn' CALL eltfcn(SUB,trnsrs,fcst,nobsf,PFCST,fcterr) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./prtfct.f:737:12: warning: Reference to the procedure 'eltfcn' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes & CALL eltfcn(ff,untfct,Stptd(Pos2+1),Nfcst,PFCST,untfct) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./prtfct.f:260:9: previous reference to 'eltfcn' CALL eltfcn(SUB,trnsrs,fcst,nobsf,PFCST,fcterr) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ flang-new-18 -c -o prtft.o prtft.f flang-new-18 -c -o prtitr.o prtitr.f flang-new-18 -c -o prtlog.o prtlog.f flang-new-18 -c -o prtmdl.o prtmdl.f ./prtmdl.f:757:10: warning: Reference to the procedure 'getstr' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes CALL getstr(drvttl,drvptr,Ndrvtl,icol,drvstr,nchr) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./prtmdl.f:328:9: previous reference to 'getstr' CALL getstr(Grpttl,Grpptr,Ngrp,igrp,grpstr,ngrpcr) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./prtmdl.f:780:12: warning: Reference to the procedure 'getstr' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes CALL getstr(COGDIC,cogptr,PCOG,msg(imsg),grpstr,ngrpcr) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./prtmdl.f:328:9: previous reference to 'getstr' CALL getstr(Grpttl,Grpptr,Ngrp,igrp,grpstr,ngrpcr) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./prtmdl.f:1046:10: warning: Reference to the procedure 'getstr' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes CALL getstr(Oprttl,Oprptr,Noprtl,iopr,tmpttl,ntmpcr) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./prtmdl.f:328:9: previous reference to 'getstr' CALL getstr(Grpttl,Grpptr,Ngrp,igrp,grpstr,ngrpcr) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ flang-new-18 -c -o prtmsp.o prtmsp.f flang-new-18 -c -o prtmsr.o prtmsr.f flang-new-18 -c -o prtmtx.o prtmtx.f flang-new-18 -c -o prtnfn.o prtnfn.f flang-new-18 -c -o prtopt.o prtopt.f flang-new-18 -c -o prtref.o prtref.f ./prtref.f:151:7: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes CALL dcopy(Nrxy,Xy(Ncxy),Ncxy,txy(nttl),nttl) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./prtref.f:123:8: previous reference to 'dcopy' CALL dcopy(Nrxy,dvec,0,txy(i),nttl) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./prtref.f:242:11: warning: Reference to the procedure 'daxpy' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes & CALL daxpy(Nrxy,B(icol),Xy(icol),Ncxy,Ftd,1) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./prtref.f:133:11: previous reference to 'daxpy' CALL daxpy(Nrxy,B(icol),Xy(icol),Ncxy,txy(i),nttl) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./prtref.f:250:11: warning: Reference to the procedure 'daxpy' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes & CALL daxpy(Nrxy,B(icol),Xy(icol),Ncxy,Fhol,1) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./prtref.f:133:11: previous reference to 'daxpy' CALL daxpy(Nrxy,B(icol),Xy(icol),Ncxy,txy(i),nttl) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./prtref.f:255:11: warning: Reference to the procedure 'daxpy' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes & CALL daxpy(Nrxy,B(icol),Xy(icol),Ncxy,Fusr,1) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./prtref.f:133:11: previous reference to 'daxpy' CALL daxpy(Nrxy,B(icol),Xy(icol),Ncxy,txy(i),nttl) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./prtref.f:264:11: warning: Reference to the procedure 'daxpy' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes & CALL daxpy(Nrxy,B(icol),Xy(icol),Ncxy,Fsea,1) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./prtref.f:133:11: previous reference to 'daxpy' CALL daxpy(Nrxy,B(icol),Xy(icol),Ncxy,txy(i),nttl) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./prtref.f:270:11: warning: Reference to the procedure 'daxpy' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes & CALL daxpy(Nrxy,B(icol),Xy(icol),Ncxy,Fao,1) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./prtref.f:133:11: previous reference to 'daxpy' CALL daxpy(Nrxy,B(icol),Xy(icol),Ncxy,txy(i),nttl) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./prtref.f:277:11: warning: Reference to the procedure 'daxpy' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes & CALL daxpy(Nrxy,B(icol),Xy(icol),Ncxy,Fls,1) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./prtref.f:133:11: previous reference to 'daxpy' CALL daxpy(Nrxy,B(icol),Xy(icol),Ncxy,txy(i),nttl) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./prtref.f:283:11: warning: Reference to the procedure 'daxpy' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes & CALL daxpy(Nrxy,B(icol),Xy(icol),Ncxy,Ftc,1) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./prtref.f:133:11: previous reference to 'daxpy' CALL daxpy(Nrxy,B(icol),Xy(icol),Ncxy,txy(i),nttl) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./prtref.f:287:27: warning: Reference to the procedure 'daxpy' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes IF(rtype.eq.PRGTMV)CALL daxpy(Nrxy,B(icol),Xy(icol),Ncxy,Fmv,1) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./prtref.f:133:11: previous reference to 'daxpy' CALL daxpy(Nrxy,B(icol),Xy(icol),Ncxy,txy(i),nttl) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./prtref.f:293:11: warning: Reference to the procedure 'daxpy' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes & CALL daxpy(Nrxy,B(icol),Xy(icol),Ncxy,Fso,1) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./prtref.f:133:11: previous reference to 'daxpy' CALL daxpy(Nrxy,B(icol),Xy(icol),Ncxy,txy(i),nttl) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./prtref.f:300:11: warning: Reference to the procedure 'daxpy' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes CALL daxpy(Nrxy,B(icol),Xy(icol),Ncxy,Fcyc,1) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./prtref.f:133:11: previous reference to 'daxpy' CALL daxpy(Nrxy,B(icol),Xy(icol),Ncxy,txy(i),nttl) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ flang-new-18 -c -o prtrev.o prtrev.f ./prtrev.f:162:7: warning: Reference to the procedure 'setdp' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL setdp(0D0,PC1*PREVY,aaryr) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./prtrev.f:161:7: previous reference to 'setdp' CALL setdp(0D0,PC1*12,aarpd) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./prtrev.f:163:7: warning: Reference to the procedure 'setdp' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL setdp(0D0,PC1,aartot) ^^^^^^^^^^^^^^^^^^^^^^^^^^ ./prtrev.f:161:7: previous reference to 'setdp' CALL setdp(0D0,PC1*12,aarpd) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./prtrev.f:165:7: warning: Reference to the procedure 'setdp' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL setdp(0D0,PC1*PREVY,naryr) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./prtrev.f:161:7: previous reference to 'setdp' CALL setdp(0D0,PC1*12,aarpd) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./prtrev.f:166:7: warning: Reference to the procedure 'setdp' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL setdp(0D0,PC1,nartot) ^^^^^^^^^^^^^^^^^^^^^^^^^^ ./prtrev.f:161:7: previous reference to 'setdp' CALL setdp(0D0,PC1*12,aarpd) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ flang-new-18 -c -o prtrts.o prtrts.f flang-new-18 -c -o prtrv2.o prtrv2.f ./prtrv2.f:117:7: warning: Reference to the procedure 'setdp' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL setdp(0D0,2*PREVY,aaryr) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./prtrv2.f:116:7: previous reference to 'setdp' CALL setdp(0D0,24,aarpd) ^^^^^^^^^^^^^^^^^^^^^^^^ ./prtrv2.f:118:7: warning: Reference to the procedure 'setdp' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL setdp(0D0,2,aartot) ^^^^^^^^^^^^^^^^^^^^^^^^ ./prtrv2.f:116:7: previous reference to 'setdp' CALL setdp(0D0,24,aarpd) ^^^^^^^^^^^^^^^^^^^^^^^^ ./prtrv2.f:120:7: warning: Reference to the procedure 'setdp' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL setdp(0D0,2*PREVY,naryr) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./prtrv2.f:116:7: previous reference to 'setdp' CALL setdp(0D0,24,aarpd) ^^^^^^^^^^^^^^^^^^^^^^^^ ./prtrv2.f:121:7: warning: Reference to the procedure 'setdp' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL setdp(0D0,2,nartot) ^^^^^^^^^^^^^^^^^^^^^^^^ ./prtrv2.f:116:7: previous reference to 'setdp' CALL setdp(0D0,24,aarpd) ^^^^^^^^^^^^^^^^^^^^^^^^ flang-new-18 -c -o prtshd.o prtshd.f flang-new-18 -c -o prttbl.o prttbl.f flang-new-18 -c -o prttbl1.o prttbl1.f flang-new-18 -c -o prttd.o prttd.f flang-new-18 -c -o prttrn.o prttrn.f flang-new-18 -c -o prtxrg.o prtxrg.f ./prtxrg.f:602:10: warning: Reference to the procedure 'getstr' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes CALL getstr(drvttl,drvptr,Ndrvtl,icol,drvstr,nchr) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./prtxrg.f:240:9: previous reference to 'getstr' CALL getstr(Grpttl,Grpptr,Ngrp,igrp,grpstr,ngrpcr) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./prtxrg.f:623:12: warning: Reference to the procedure 'getstr' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes CALL getstr(COGDIC,cogptr,PCOG,msg(imsg),grpstr,ngrpcr) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./prtxrg.f:240:9: previous reference to 'getstr' CALL getstr(Grpttl,Grpptr,Ngrp,igrp,grpstr,ngrpcr) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ flang-new-18 -c -o punch.o punch.f flang-new-18 -c -o putbak.o putbak.f flang-new-18 -c -o putrev.o putrev.f flang-new-18 -c -o putstr.o putstr.f flang-new-18 -c -o qcmmnt.o qcmmnt.f flang-new-18 -c -o qcontr.o qcontr.f flang-new-18 -c -o qdoble.o qdoble.f flang-new-18 -c -o qintgr.o qintgr.f flang-new-18 -c -o qmap.o qmap.f flang-new-18 -c -o qmap2.o qmap2.f ./qmap2.f:138:8: warning: Reference to the procedure 'matmlt' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes CALL MATMLT(Tmx1,Jmatpi,R1,np,np,naly,kk,kk,kk) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./qmap2.f:136:8: previous reference to 'matmlt' CALL MATMLT(Cmat,Omec,Ttmat,np,np,np,kk,kk,kk) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./qmap2.f:139:8: warning: Reference to the procedure 'matmlt' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL MATMLT(Jmat,Tmx1,Ttmat2,naly,np,np,kkt,kk,kkt) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./qmap2.f:136:8: previous reference to 'matmlt' CALL MATMLT(Cmat,Omec,Ttmat,np,np,np,kk,kk,kk) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./qmap2.f:140:8: warning: Reference to the procedure 'matmlt' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL MATMLT(Ttmat2,Jmatpi,Invr,naly,np,naly,kkt,kk,kkt) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./qmap2.f:136:8: previous reference to 'matmlt' CALL MATMLT(Cmat,Omec,Ttmat,np,np,np,kk,kk,kk) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./qmap2.f:145:8: warning: Reference to the procedure 'matmlt' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL MATMLT(R1,Invr,r2,np,naly,naly,kk,kkt,kk) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./qmap2.f:136:8: previous reference to 'matmlt' CALL MATMLT(Cmat,Omec,Ttmat,np,np,np,kk,kk,kk) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./qmap2.f:147:8: warning: Reference to the procedure 'matmlt' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL MATMLT(Jmat,xx,mx1,naly,np,1,kkt,kk,kkt) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./qmap2.f:136:8: previous reference to 'matmlt' CALL MATMLT(Cmat,Omec,Ttmat,np,np,np,kk,kk,kk) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./qmap2.f:148:8: warning: Reference to the procedure 'matmlt' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL MATMLT(Jmat,xa,mx2,naly,np,1,kkt,kk,kkt) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./qmap2.f:136:8: previous reference to 'matmlt' CALL MATMLT(Cmat,Omec,Ttmat,np,np,np,kk,kk,kk) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./qmap2.f:151:8: warning: Reference to the procedure 'matmlt' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL MATMLT(r2,mx3,xd,np,naly,1,kk,kkt,kk) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./qmap2.f:136:8: previous reference to 'matmlt' CALL MATMLT(Cmat,Omec,Ttmat,np,np,np,kk,kk,kk) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./qmap2.f:152:8: warning: Reference to the procedure 'add_sub' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL ADD_SUB(xa,xd,xx,np,1,kk,1) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./qmap2.f:149:8: previous reference to 'add_sub' CALL ADD_SUB(mx1,mx2,mx3,naly,1,kkt,0) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./qmap2.f:277:8: warning: Reference to the procedure 'matmlt' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL MATMLT(Jmat,xx,mx1,naly,np,1,kkt,kk,kkt) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./qmap2.f:136:8: previous reference to 'matmlt' CALL MATMLT(Cmat,Omec,Ttmat,np,np,np,kk,kk,kk) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./qmap2.f:278:8: warning: Reference to the procedure 'matmlt' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL MATMLT(Jmat,xa,mx2,naly,np,1,kkt,kk,kkt) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./qmap2.f:136:8: previous reference to 'matmlt' CALL MATMLT(Cmat,Omec,Ttmat,np,np,np,kk,kk,kk) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./qmap2.f:281:8: warning: Reference to the procedure 'matmlt' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL MATMLT(r2,mx3,xd,np,naly,1,kk,kkt,kk) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./qmap2.f:136:8: previous reference to 'matmlt' CALL MATMLT(Cmat,Omec,Ttmat,np,np,np,kk,kk,kk) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./qmap2.f:282:8: warning: Reference to the procedure 'add_sub' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL ADD_SUB(xa,xd,xx,np,1,kk,1) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./qmap2.f:149:8: previous reference to 'add_sub' CALL ADD_SUB(mx1,mx2,mx3,naly,1,kkt,0) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ flang-new-18 -c -o qname.o qname.f flang-new-18 -c -o qquote.o qquote.f flang-new-18 -c -o qrfac.o qrfac.f flang-new-18 -c -o qrsolv.o qrsolv.f flang-new-18 -c -o qsdiff.o qsdiff.f flang-new-18 -c -o qtoken.o qtoken.f flang-new-18 -c -o quad.o quad.f flang-new-18 -c -o quadit.o quadit.f flang-new-18 -c -o quadsd.o quadsd.f flang-new-18 -c -o ratneg.o ratneg.f flang-new-18 -c -o ratpos.o ratpos.f flang-new-18 -c -o rdotlr.o rdotlr.f flang-new-18 -c -o rdotls.o rdotls.f flang-new-18 -c -o rdregm.o rdregm.f flang-new-18 -c -o realit.o realit.f flang-new-18 -c -o regfix.o regfix.f flang-new-18 -c -o reglbl.o reglbl.f flang-new-18 -c -o regvar.o regvar.f ./regvar.f:173:8: warning: Reference to the procedure 'copycl' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL copycl(tsrs,Nrxy,1,1,Ncxy,begcol,Xy) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./regvar.f:117:7: previous reference to 'copycl' CALL copycl(Y,Nobpf,1,1,Ncxy,Ncxy,Xy(Frstry)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./regvar.f:320:11: warning: Reference to the procedure 'copycl' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL copycl(Userx(ixymu*ncusrx+1),Nrxy,ncusrx,i,Ncxy, ^ ./regvar.f:117:7: previous reference to 'copycl' CALL copycl(Y,Nobpf,1,1,Ncxy,Ncxy,Xy(Frstry)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./regvar.f:326:10: warning: Reference to the procedure 'copycl' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL copycl(Userx(ixymu*ncusrx+1),Nrxy,ncusrx,i,Ncxy, ^ ./regvar.f:117:7: previous reference to 'copycl' CALL copycl(Y,Nobpf,1,1,Ncxy,Ncxy,Xy(Frstry)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./regvar.f:398:8: warning: Reference to the procedure 'td7var' has an implicit interface that is distinct from another reference: incompatible dummy argument #9: incompatible dummy data object shapes CALL td7var(Begxy,Sp,Nrxy,1,1,lom,F,T,tsrs,begrgm) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./regvar.f:198:8: previous reference to 'td7var' 50 CALL td7var(Begxy,Sp,Nrxy,Ncxy,begcol,T,F,F,Xy,begrgm) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ flang-new-18 -c -o regx11.o regx11.f ./regx11.f:89:7: warning: Reference to the procedure 'yprmy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL yprmy(A,nrtxy,apa) ^^^^^^^^^^^^^^^^^^^^^^^ ./regx11.f:72:8: previous reference to 'yprmy' CALL yprmy(txy,nrtxy,apa) ^^^^^^^^^^^^^^^^^^^^^^^^^ flang-new-18 -c -o replac.o replac.f flang-new-18 -c -o replyf.o replyf.f flang-new-18 -c -o resid.o resid.f flang-new-18 -c -o resid2.o resid2.f flang-new-18 -c -o restor.o restor.f ./restor.f:63:8: warning: Reference to the procedure 'cpyint' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL cpyint(Rgv2,PB,1,Rgvrtp) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./restor.f:60:8: previous reference to 'cpyint' CALL cpyint(Clptr(0),PB+1,1,Colptr(0)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./restor.f:65:8: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL copy(Bb,PB,1,B) ^^^^^^^^^^^^^^^^^^^^ ./restor.f:64:8: previous reference to 'copy' CALL copy(Ap2,PARIMA,1,Arimap) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./restor.f:69:8: warning: Reference to the procedure 'copylg' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL copylg(Regfx2,PB,1,Regfx) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./restor.f:66:8: previous reference to 'copylg' CALL copylg(Fxa,PB,1,Arimaf) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./restor.f:94:8: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL copy(Chx2,PXPX,1,Chlxpx) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./restor.f:64:8: previous reference to 'copy' CALL copy(Ap2,PARIMA,1,Arimap) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./restor.f:95:8: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL copy(Chg2,PGPG,1,Chlgpg) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./restor.f:64:8: previous reference to 'copy' CALL copy(Ap2,PARIMA,1,Arimap) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./restor.f:96:8: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL copy(Acm2,PACM,1,Armacm) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./restor.f:64:8: previous reference to 'copy' CALL copy(Ap2,PARIMA,1,Arimap) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ flang-new-18 -c -o revchk.o revchk.f ./revchk.f:1106:8: warning: Reference to the procedure 'intsrt' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes CALL intsrt(Ntarsa,Targsa) ^^^^^^^^^^^^^^^^^^^^^^^^^^ ./revchk.f:467:19: previous reference to 'intsrt' IF(Lrvfct)CALL intsrt(Nfctlg,Rfctlg) ^^^^^^^^^^^^^^^^^^^^^^^^^^ ./revchk.f:1141:8: warning: Reference to the procedure 'intsrt' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes CALL intsrt(Ntartr,Targtr) ^^^^^^^^^^^^^^^^^^^^^^^^^^ ./revchk.f:467:19: previous reference to 'intsrt' IF(Lrvfct)CALL intsrt(Nfctlg,Rfctlg) ^^^^^^^^^^^^^^^^^^^^^^^^^^ flang-new-18 -c -o revdrv.o revdrv.f ./revdrv.f:253:9: warning: Reference to the procedure 'setlg' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL setlg(T,PB,Regfx) ^^^^^^^^^^^^^^^^^^^^^^ ./revdrv.f:252:9: previous reference to 'setlg' CALL setlg(T,PARIMA,Arimaf) ^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./revdrv.f:302:9: warning: Reference to the procedure 'setlg' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL setlg(T,PB,Regfxx) ^^^^^^^^^^^^^^^^^^^^^^^ ./revdrv.f:252:9: previous reference to 'setlg' CALL setlg(T,PARIMA,Arimaf) ^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./revdrv.f:385:7: warning: Reference to the procedure 'intlst' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes CALL intlst(PUREG,usfptr,nusftl) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./revdrv.f:291:8: previous reference to 'intlst' CALL intlst(PB,Otrptr,Notrtl) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./revdrv.f:779:9: warning: Reference to the procedure 'getstr' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes CALL getstr(usfxtl,usfptr,nusfx,igrp,outstr,ipos) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./revdrv.f:201:11: previous reference to 'getstr' CALL getstr(Grpttl,Grpptr,Ngrp,igrp,igrptl,nchr) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ flang-new-18 -c -o revhdr.o revhdr.f flang-new-18 -c -o revrse.o revrse.f flang-new-18 -c -o rgarma.o rgarma.f ./rgarma.f:356:8: warning: Reference to the procedure 'yprmy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL yprmy(A,nrtxy,apa) ^^^^^^^^^^^^^^^^^^^^^^^ ./rgarma.f:321:9: previous reference to 'yprmy' CALL yprmy(txy,nrtxy,apa) ^^^^^^^^^^^^^^^^^^^^^^^^^ ./rgarma.f:377:12: warning: Reference to the procedure 'prtitr' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes & CALL prtitr(dvec,1,B,Nb,'IGLS',iter,Nfev) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./rgarma.f:374:24: previous reference to 'prtitr' IF(Nliter.eq.0)CALL prtitr(dvec,1,estprm,Nestpm,'ARMA',Nliter, ^ ./rgarma.f:391:9: warning: Reference to the procedure 'resid' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL resid(Xy,Nspobs,Ncxy,Ncxy,1,Nb,MONE,B,Tsrs) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./rgarma.f:354:8: previous reference to 'resid' CALL resid(txy,nrtxy,Ncxy,Ncxy,1,Nb,MONE,B,A) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./rgarma.f:455:9: warning: Reference to the procedure 'resid' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL resid(Xy,Nspobs,Ncxy,Ncxy,1,Nb,MONE,B,Tsrs) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./rgarma.f:354:8: previous reference to 'resid' CALL resid(txy,nrtxy,Ncxy,Ncxy,1,Nb,MONE,B,A) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ flang-new-18 -c -o rgtdhl.o rgtdhl.f flang-new-18 -c -o rho2.o rho2.f flang-new-18 -c -o rmatot.o rmatot.f ./rmatot.f:123:9: warning: Reference to the procedure 'cpyint' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL cpyint(Rgvrtp,PB,1,Rgv2) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./rmatot.f:119:9: previous reference to 'cpyint' CALL cpyint(Colptr(0),PB+1,1,Clptr(0)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ flang-new-18 -c -o rmfix.o rmfix.f flang-new-18 -c -o rmlnvr.o rmlnvr.f flang-new-18 -c -o rmlpyr.o rmlpyr.f ./rmlpyr.f:47:7: warning: Reference to the procedure 'eltfcn' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes CALL eltfcn(MULT,Trnsrs,lomeff(Adj1st),Nobspf,PLEN,Trnsrs) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./rmlpyr.f:46:7: previous reference to 'eltfcn' CALL eltfcn(DIV,Y(Frstsy),Adj(Adj1st),Nobspf,PLEN,Trnsrs) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./rmlpyr.f:54:7: warning: Reference to the procedure 'eltfcn' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object shapes CALL eltfcn(DIV,Adj(Adj1st),lomeff(Adj1st),Nobspf,PLEN, ^ ./rmlpyr.f:46:7: previous reference to 'eltfcn' CALL eltfcn(DIV,Y(Frstsy),Adj(Adj1st),Nobspf,PLEN,Trnsrs) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ flang-new-18 -c -o rmotrv.o rmotrv.f flang-new-18 -c -o rmotss.o rmotss.f flang-new-18 -c -o rmpadj.o rmpadj.f flang-new-18 -c -o rmtadj.o rmtadj.f flang-new-18 -c -o rndsa.o rndsa.f flang-new-18 -c -o rngbuf.o rngbuf.f flang-new-18 -c -o roots.o roots.f flang-new-18 -c -o round.o round.f flang-new-18 -c -o rplus.o rplus.f flang-new-18 -c -o rpoly.o rpoly.f flang-new-18 -c -o rv2ss.o rv2ss.f ./rv2ss.f:64:8: warning: Reference to the procedure 'cpyint' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL cpyint(Rgvx2r,PB,1,Rgxvtp) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./rv2ss.f:61:8: previous reference to 'cpyint' CALL cpyint(Cxptrv(0),PB+1,1,Clxptr(0)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./rv2ss.f:69:8: warning: Reference to the procedure 'cpyint' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL cpyint(Xbxyrv,2,1,Xbegxy) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./rv2ss.f:61:8: previous reference to 'cpyint' CALL cpyint(Cxptrv(0),PB+1,1,Clxptr(0)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./rv2ss.f:94:8: warning: Reference to the procedure 'cpyint' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL cpyint(Rgv2rv,PB,1,Rgv2) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./rv2ss.f:61:8: previous reference to 'cpyint' CALL cpyint(Cxptrv(0),PB+1,1,Clxptr(0)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./rv2ss.f:95:8: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL copy(Ap2rv,PARIMA,1,Ap2) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./rv2ss.f:70:8: previous reference to 'copy' CALL copy(Bbxrv,PB,1,Bx) ^^^^^^^^^^^^^^^^^^^^^^^^ ./rv2ss.f:97:8: warning: Reference to the procedure 'copylg' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL copylg(Fxarv,PARIMA,1,Fxa) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./rv2ss.f:68:8: previous reference to 'copylg' CALL copylg(Rxfx2r,PB,1,Regfxx) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./rv2ss.f:130:8: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL copy(Chx2r,PXPX,1,Chx2) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./rv2ss.f:70:8: previous reference to 'copy' CALL copy(Bbxrv,PB,1,Bx) ^^^^^^^^^^^^^^^^^^^^^^^^ ./rv2ss.f:131:8: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL copy(Chg2r,PGPG,1,Chg2) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./rv2ss.f:70:8: previous reference to 'copy' CALL copy(Bbxrv,PB,1,Bx) ^^^^^^^^^^^^^^^^^^^^^^^^ ./rv2ss.f:132:8: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL copy(Acm2r,PACM,1,Acm2) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./rv2ss.f:70:8: previous reference to 'copy' CALL copy(Bbxrv,PB,1,Bx) ^^^^^^^^^^^^^^^^^^^^^^^^ ./rv2ss.f:145:7: warning: Reference to the procedure 'cpyint' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL cpyint(Bspnrv,2,1,Begspn) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./rv2ss.f:61:8: previous reference to 'cpyint' CALL cpyint(Cxptrv(0),PB+1,1,Clxptr(0)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./rv2ss.f:146:7: warning: Reference to the procedure 'cpyint' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL cpyint(Espnrv,2,1,Endspn) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./rv2ss.f:61:8: previous reference to 'cpyint' CALL cpyint(Cxptrv(0),PB+1,1,Clxptr(0)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./rv2ss.f:150:7: warning: Reference to the procedure 'cpyint' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL cpyint(Bmdlrv,2,1,Begmdl) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./rv2ss.f:61:8: previous reference to 'cpyint' CALL cpyint(Cxptrv(0),PB+1,1,Clxptr(0)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./rv2ss.f:151:7: warning: Reference to the procedure 'cpyint' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL cpyint(Emdlrv,2,1,Endmdl) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./rv2ss.f:61:8: previous reference to 'cpyint' CALL cpyint(Cxptrv(0),PB+1,1,Clxptr(0)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./rv2ss.f:153:7: warning: Reference to the procedure 'cpyint' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL cpyint(Bxrgrv,2,1,Begxrg) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./rv2ss.f:61:8: previous reference to 'cpyint' CALL cpyint(Cxptrv(0),PB+1,1,Clxptr(0)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./rv2ss.f:154:7: warning: Reference to the procedure 'cpyint' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL cpyint(Exrgrv,2,1,Endxrg) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./rv2ss.f:61:8: previous reference to 'cpyint' CALL cpyint(Cxptrv(0),PB+1,1,Clxptr(0)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./rv2ss.f:158:7: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL copy(Orig,PLEN,1,Series) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./rv2ss.f:70:8: previous reference to 'copy' CALL copy(Bbxrv,PB,1,Bx) ^^^^^^^^^^^^^^^^^^^^^^^^ ./rv2ss.f:159:7: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL copy(Orig,PLEN,1,Stcsi) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./rv2ss.f:70:8: previous reference to 'copy' CALL copy(Bbxrv,PB,1,Bx) ^^^^^^^^^^^^^^^^^^^^^^^^ ./rv2ss.f:160:7: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL copy(Orig,PLEN,1,Sto) ^^^^^^^^^^^^^^^^^^^^^^^^^^ ./rv2ss.f:70:8: previous reference to 'copy' CALL copy(Bbxrv,PB,1,Bx) ^^^^^^^^^^^^^^^^^^^^^^^^ ./rv2ss.f:161:7: warning: Reference to the procedure 'copylg' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL copylg(Prtbrv,NTBL,1,Prttab) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./rv2ss.f:68:8: previous reference to 'copylg' CALL copylg(Rxfx2r,PB,1,Regfxx) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./rv2ss.f:163:7: warning: Reference to the procedure 'cpyint' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL cpyint(Bgxyrv,2,1,Begxy) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./rv2ss.f:61:8: previous reference to 'cpyint' CALL cpyint(Cxptrv(0),PB+1,1,Clxptr(0)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ flang-new-18 -c -o rvfixd.o rvfixd.f flang-new-18 -c -o rvrghd.o rvrghd.f flang-new-18 -c -o sautco.o sautco.f flang-new-18 -c -o savacf.o savacf.f flang-new-18 -c -o savchi.o savchi.f flang-new-18 -c -o savd8b.o savd8b.f flang-new-18 -c -o savitr.o savitr.f flang-new-18 -c -o savmdc.o savmdc.f flang-new-18 -c -o savmdl.o savmdl.f ./savmdl.f:442:11: warning: Reference to the procedure 'getstr' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes CALL getstr(URGDIC,urgptr,PURG,Usrtyp(urgidx),outstr,nchr) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./savmdl.f:67:9: previous reference to 'getstr' CALL getstr(Grpttl,Grpptr,Ngrp,igrp,igrptl,nchr) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ flang-new-18 -c -o savmtx.o savmtx.f flang-new-18 -c -o savotl.o savotl.f flang-new-18 -c -o savpk.o savpk.f flang-new-18 -c -o savspp.o savspp.f flang-new-18 -c -o savstp.o savstp.f flang-new-18 -c -o savtbl.o savtbl.f flang-new-18 -c -o savwkf.o savwkf.f flang-new-18 -c -o sceast.o sceast.f flang-new-18 -c -o scrmlt.o scrmlt.f flang-new-18 -c -o sdev.o sdev.f flang-new-18 -c -o sdxtrm.o sdxtrm.f flang-new-18 -c -o seatad.o seatad.f flang-new-18 -c -o seatdg.o seatdg.f flang-new-18 -c -o seatfc.o seatfc.f flang-new-18 -c -o seatpr.o seatpr.f ./seatpr.f:190:25: warning: Reference to the procedure 'prttbl' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes IF(.not.Lfatal)CALL prttbl(idate,Ny,sfsum(sf1ob),ndiff,'Data', ^ ./seatpr.f:138:25: previous reference to 'prttbl' IF(.not.Lfatal)CALL prttbl(idate,Ny,Odiff,Nodiff,'Data',outdec, ^ ./seatpr.f:206:12: warning: Reference to the procedure 'savtbl' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object shapes & CALL savtbl(i,begfct,1,Nsfsf,Ny,Setfsf,Serno,Nser,F) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./seatpr.f:142:12: previous reference to 'savtbl' & CALL savtbl(LSEDOR,idate,1,Nodiff,Ny,Odiff,Serno,Nser,F) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./seatpr.f:208:12: warning: Reference to the procedure 'savtbl' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object shapes & CALL savtbl(i,begfct,1,Nsfsf,Ny,Setfsf,Serno,Nser,Lgraf) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./seatpr.f:142:12: previous reference to 'savtbl' & CALL savtbl(LSEDOR,idate,1,Nodiff,Ny,Odiff,Serno,Nser,F) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./seatpr.f:219:9: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL copy(Seatsa,nlast,-1,setsac) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./seatpr.f:179:9: previous reference to 'copy' CALL copy(Seatsf(Pos1ob),nlast-Pos1ob+1,1,stadsf(Pos1ob)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./seatpr.f:226:9: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL copy(Seatsa,nlast,-1,saoadj) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./seatpr.f:179:9: previous reference to 'copy' CALL copy(Seatsf(Pos1ob),nlast-Pos1ob+1,1,stadsf(Pos1ob)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./seatpr.f:295:25: warning: Reference to the procedure 'prttbl' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes IF(.not.Lfatal)CALL prttbl(idate,Ny,sadiff(sa1ob),ndiff,'Data', ^ ./seatpr.f:138:25: previous reference to 'prttbl' IF(.not.Lfatal)CALL prttbl(idate,Ny,Odiff,Nodiff,'Data',outdec, ^ ./seatpr.f:361:11: warning: Reference to the procedure 'savtbl' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object shapes & CALL savtbl(i,begfct,1,Nsfsa,Ny,Setfsa,Serno,Nser,F) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./seatpr.f:142:12: previous reference to 'savtbl' & CALL savtbl(LSEDOR,idate,1,Nodiff,Ny,Odiff,Serno,Nser,F) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./seatpr.f:363:11: warning: Reference to the procedure 'savtbl' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object shapes & CALL savtbl(i,begfct,1,Nsfsa,Ny,Setfsa,Serno,Nser,Lgraf) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./seatpr.f:142:12: previous reference to 'savtbl' & CALL savtbl(LSEDOR,idate,1,Nodiff,Ny,Odiff,Serno,Nser,F) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./seatpr.f:375:9: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL copy(Seattr,nlast,-1,settrc) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./seatpr.f:179:9: previous reference to 'copy' CALL copy(Seatsf(Pos1ob),nlast-Pos1ob+1,1,stadsf(Pos1ob)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./seatpr.f:444:25: warning: Reference to the procedure 'prttbl' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes IF(.not.Lfatal)CALL prttbl(idate,Ny,trdiff(tr1ob),ndiff,'Data', ^ ./seatpr.f:138:25: previous reference to 'prttbl' IF(.not.Lfatal)CALL prttbl(idate,Ny,Odiff,Nodiff,'Data',outdec, ^ ./seatpr.f:458:12: warning: Reference to the procedure 'savtbl' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object shapes & CALL savtbl(LSEFCD,begfct,1,Nsftr,Ny,Setftr,Serno,Nser,F) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./seatpr.f:142:12: previous reference to 'savtbl' & CALL savtbl(LSEDOR,idate,1,Nodiff,Ny,Odiff,Serno,Nser,F) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./seatpr.f:460:12: warning: Reference to the procedure 'savtbl' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object shapes & CALL savtbl(LSEFCD,begfct,1,Nsftr,Ny,Setftr,Serno,Nser,Lgraf) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./seatpr.f:142:12: previous reference to 'savtbl' & CALL savtbl(LSEDOR,idate,1,Nodiff,Ny,Odiff,Serno,Nser,F) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./seatpr.f:468:9: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL copy(Seatir,nlast,-1,iroadj) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./seatpr.f:179:9: previous reference to 'copy' CALL copy(Seatsf(Pos1ob),nlast-Pos1ob+1,1,stadsf(Pos1ob)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./seatpr.f:516:12: warning: Reference to the procedure 'savtbl' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object shapes & CALL savtbl(i,begfct,1,Nsfcy,Ny,Setfcy,Serno,Nser,F) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./seatpr.f:142:12: previous reference to 'savtbl' & CALL savtbl(LSEDOR,idate,1,Nodiff,Ny,Odiff,Serno,Nser,F) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./seatpr.f:518:12: warning: Reference to the procedure 'savtbl' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object shapes & CALL savtbl(i,begfct,1,Nsfcy,Ny,Setfcy,Serno,Nser,Lgraf) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./seatpr.f:142:12: previous reference to 'savtbl' & CALL savtbl(LSEDOR,idate,1,Nodiff,Ny,Odiff,Serno,Nser,F) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./seatpr.f:601:11: warning: Reference to the procedure 'savtbl' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object shapes & CALL savtbl(i,idate,1,Nfcfor,Ny,Stcfor,Serno,Nser,F) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./seatpr.f:142:12: previous reference to 'savtbl' & CALL savtbl(LSEDOR,idate,1,Nodiff,Ny,Odiff,Serno,Nser,F) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./seatpr.f:603:11: warning: Reference to the procedure 'savtbl' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object shapes & CALL savtbl(i,idate,1,Nfcfor,Ny,Stcfor,Serno,Nser,Lgraf) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./seatpr.f:142:12: previous reference to 'savtbl' & CALL savtbl(LSEDOR,idate,1,Nodiff,Ny,Odiff,Serno,Nser,F) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ flang-new-18 -c -o serates.o serates.f ./serates.f:128:7: warning: Reference to the procedure 'bfac' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes call BFAC(TH,Hc1,lTH,lHc1,0,cov,rho,Ve,Vr,g,0) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./serates.f:89:7: previous reference to 'bfac' call BFAC(TH,H,lTH,lH,0,cov,rho,Ve,Vr,g,0) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./serates.f:186:7: warning: Reference to the procedure 'mpbbj' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes call MPBBJ(H,DeltaMQ,lH,mq,HpMQ) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./serates.f:125:7: previous reference to 'mpbbj' call MPBBJ(H,delta1,lH,1,Hc1) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./serates.f:189:7: warning: Reference to the procedure 'bfac' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes call BFAC(TH,HpMQ,lTH,lHpMQ,0,cov,rho,Ve,Vr,g,0) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./serates.f:89:7: previous reference to 'bfac' call BFAC(TH,H,lTH,lH,0,cov,rho,Ve,Vr,g,0) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./serates.f:194:7: warning: Reference to the procedure 'getpsie' has an implicit interface that is distinct from another reference: incompatible dummy argument #7: incompatible dummy data object shapes call getPSIE(HpMQr,lHpMQ,THr,lTH,sqrt(Vr),50,PSIEmq) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./serates.f:138:7: previous reference to 'getpsie' call getPSIE(Hc1r,lHc1,THr,lTH,sqrt(Vr),50,PSIE1) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ flang-new-18 -c -o setadj.o setadj.f flang-new-18 -c -o setamx.o setamx.f flang-new-18 -c -o setapt.o setapt.f flang-new-18 -c -o setchr.o setchr.f flang-new-18 -c -o setcv.o setcv.f flang-new-18 -c -o setcvl.o setcvl.f flang-new-18 -c -o setdp.o setdp.f flang-new-18 -c -o setint.o setint.f flang-new-18 -c -o setlg.o setlg.f flang-new-18 -c -o setmdl.o setmdl.f ./setmdl.f:145:9: warning: Reference to the procedure 'setdp' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL setdp(0D0,PORDER,zeror) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./setmdl.f:143:9: previous reference to 'setdp' CALL setdp(0D0,degree,coef(2)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./setmdl.f:146:9: warning: Reference to the procedure 'setdp' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL setdp(0D0,PORDER,zeroi) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./setmdl.f:143:9: previous reference to 'setdp' CALL setdp(0D0,degree,coef(2)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./setmdl.f:147:9: warning: Reference to the procedure 'setdp' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL setdp(0D0,PORDER,zerom) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./setmdl.f:143:9: previous reference to 'setdp' CALL setdp(0D0,degree,coef(2)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./setmdl.f:300:9: warning: Reference to the procedure 'setdp' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL setdp(0D0,PORDER,zeror) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./setmdl.f:143:9: previous reference to 'setdp' CALL setdp(0D0,degree,coef(2)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./setmdl.f:301:9: warning: Reference to the procedure 'setdp' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL setdp(0D0,PORDER,zeroi) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./setmdl.f:143:9: previous reference to 'setdp' CALL setdp(0D0,degree,coef(2)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./setmdl.f:302:9: warning: Reference to the procedure 'setdp' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL setdp(0D0,PORDER,zerom) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./setmdl.f:143:9: previous reference to 'setdp' CALL setdp(0D0,degree,coef(2)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ flang-new-18 -c -o setmv.o setmv.f flang-new-18 -c -o setopr.o setopr.f flang-new-18 -c -o setpt.o setpt.f flang-new-18 -c -o setrvp.o setrvp.f flang-new-18 -c -o setspn.o setspn.f flang-new-18 -c -o setssp.o setssp.f flang-new-18 -c -o setup.o setup.f flang-new-18 -c -o setwrt.o setwrt.f flang-new-18 -c -o setxpt.o setxpt.f flang-new-18 -c -o sfmax.o sfmax.f flang-new-18 -c -o sfmsr.o sfmsr.f flang-new-18 -c -o sftest.o sftest.f flang-new-18 -c -o shlsrt.o shlsrt.f flang-new-18 -c -o shrink.o shrink.f flang-new-18 -c -o si.o si.f ./si.f:91:9: warning: Reference to the procedure 'table' has an implicit interface that is distinct from another reference: incompatible dummy argument #7: incompatible dummy data object shapes CALL table(Temp,l1,l2,k,1,4,Stdev,LX11B4) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./si.f:45:26: previous reference to 'table' IF(Prttab(LX11B8))CALL table(Stsi,Lfd1,Lld1,k,1,1,dvec,LX11B8) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./si.f:97:9: warning: Reference to the procedure 'table' has an implicit interface that is distinct from another reference: incompatible dummy argument #7: incompatible dummy data object shapes CALL table(Temp,Lfd1,Lld1,k,1,4,Stdev,LX11B9) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./si.f:45:26: previous reference to 'table' IF(Prttab(LX11B8))CALL table(Stsi,Lfd1,Lld1,k,1,1,dvec,LX11B8) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ flang-new-18 -c -o sicp2.o sicp2.f flang-new-18 -c -o sigex.o sigex.f ./sigex.f:397:7: warning: Reference to the procedure 'setdp' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL setdp(0D0,kp,sigptac) ^^^^^^^^^^^^^^^^^^^^^^^^^^ ./sigex.f:392:7: previous reference to 'setdp' CALL setdp(0D0,mpkp,hpcyc) ^^^^^^^^^^^^^^^^^^^^^^^^^^ ./sigex.f:398:7: warning: Reference to the procedure 'setdp' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL setdp(0D0,kp,sigptaf) ^^^^^^^^^^^^^^^^^^^^^^^^^^ ./sigex.f:392:7: previous reference to 'setdp' CALL setdp(0D0,mpkp,hpcyc) ^^^^^^^^^^^^^^^^^^^^^^^^^^ ./sigex.f:399:7: warning: Reference to the procedure 'setdp' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL setdp(0D0,kp,sigatac) ^^^^^^^^^^^^^^^^^^^^^^^^^^ ./sigex.f:392:7: previous reference to 'setdp' CALL setdp(0D0,mpkp,hpcyc) ^^^^^^^^^^^^^^^^^^^^^^^^^^ ./sigex.f:400:7: warning: Reference to the procedure 'setdp' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL setdp(0D0,kp,sigataf) ^^^^^^^^^^^^^^^^^^^^^^^^^^ ./sigex.f:392:7: previous reference to 'setdp' CALL setdp(0D0,mpkp,hpcyc) ^^^^^^^^^^^^^^^^^^^^^^^^^^ ./sigex.f:2100:10: warning: Reference to the procedure 'afilter' has an implicit interface that is distinct from another reference: incompatible dummy argument #13: incompatible dummy data object shapes call Afilter(alphas,transfs,phases,phaseDs,w,Cseas,hSEAS, ^ ./sigex.f:2034:11: previous reference to 'afilter' call Afilter(alphap,transfp,phasep,phaseDp,w,Cp,hp, ^ ./sigex.f:2108:10: warning: Reference to the procedure 'afilter' has an implicit interface that is distinct from another reference: incompatible dummy argument #11: incompatible dummy data object shapes call Afilter(alphas,transfs,phases,phaseDs,w,Cseas,hSEAS, ^ ./sigex.f:2034:11: previous reference to 'afilter' call Afilter(alphap,transfp,phasep,phaseDp,w,Cp,hp, ^ ./sigex.f:2443:11: warning: Reference to the procedure 'getbcyclecomp' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object shapes call getBcycleComp(d+bd,mq,0,chcyc,nchcyc,chcycs,nchcycs, ^ ./sigex.f:2421:11: previous reference to 'getbcyclecomp' call getBcycleComp(d+bd,mq,0,chi,nchi,chis,nchis, ^ ./sigex.f:2475:10: warning: Reference to the procedure 'getbcyclecomp' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object shapes call getBcycleComp(d+bd,mq,bd,PHI,nPHI,PHItots,nPHItots, ^ ./sigex.f:2421:11: previous reference to 'getbcyclecomp' call getBcycleComp(d+bd,mq,0,chi,nchi,chis,nchis, ^ flang-new-18 -c -o sigsub.o sigsub.f flang-new-18 -c -o simul.o simul.f flang-new-18 -c -o skparg.o skparg.f flang-new-18 -c -o skparm.o skparm.f flang-new-18 -c -o skpfcn.o skpfcn.f flang-new-18 -c -o skplst.o skplst.f flang-new-18 -c -o smeadl.o smeadl.f flang-new-18 -c -o smpeak.o smpeak.f flang-new-18 -c -o snrasp.o snrasp.f flang-new-18 -c -o spcdrv.o spcdrv.f ./spcdrv.f:216:9: warning: Reference to the procedure 'spgrh' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes CALL spgrh(tmpsrs,orisxx,frq,Thtapr,l1,Posfob,61,Ny,Mxarsp, ^ ./spcdrv.f:214:9: previous reference to 'spgrh' CALL spgrh(tmpsrs,orsxx2,frqpk,Thtapr,l1,Posfob,nfreq,Ny,Mxarsp, ^ ./spcdrv.f:223:9: warning: Reference to the procedure 'spgrh2' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes CALL spgrh2(tmpsrs,orisxx,frq,l1,Posfob,61,Ldecbl) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spcdrv.f:222:9: previous reference to 'spgrh2' CALL spgrh2(tmpsrs,orsxx2,frqpk,l1,Posfob,nfreq,Ldecbl) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spcdrv.f:239:13: warning: Reference to the procedure 'savspp' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes & CALL savspp(itbl,orisxx,frq,61,spcstr(1:nspstr),F) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spcdrv.f:234:13: previous reference to 'savspp' & CALL savspp(itbl,orsxx2,frqpk,nfreq,spcstr(1:nspstr),F) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spcdrv.f:241:13: warning: Reference to the procedure 'savspp' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes & CALL savspp(itbl,orisxx,frq,61,spcstr(1:nspstr),Lgraf) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spcdrv.f:234:13: previous reference to 'savspp' & CALL savspp(itbl,orsxx2,frqpk,nfreq,spcstr(1:nspstr),F) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spcdrv.f:349:10: warning: Reference to the procedure 'spgrh' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes CALL spgrh(tmpsrs,sasxx,frq,Thtapr,l1,Posfob,61,Ny,Mxarsp, ^ ./spcdrv.f:214:9: previous reference to 'spgrh' CALL spgrh(tmpsrs,orsxx2,frqpk,Thtapr,l1,Posfob,nfreq,Ny,Mxarsp, ^ ./spcdrv.f:357:10: warning: Reference to the procedure 'spgrh2' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes CALL spgrh2(tmpsrs,sasxx,frq,l1,Posfob,61,Ldecbl) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spcdrv.f:222:9: previous reference to 'spgrh2' CALL spgrh2(tmpsrs,orsxx2,frqpk,l1,Posfob,nfreq,Ldecbl) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spcdrv.f:378:14: warning: Reference to the procedure 'savspp' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes & CALL savspp(itbl,sasxx,frq,61,spcstr(1:nspstr),F) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spcdrv.f:234:13: previous reference to 'savspp' & CALL savspp(itbl,orsxx2,frqpk,nfreq,spcstr(1:nspstr),F) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spcdrv.f:380:14: warning: Reference to the procedure 'savspp' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes & CALL savspp(itbl,sasxx,frq,61,spcstr(1:nspstr),Lgraf) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spcdrv.f:234:13: previous reference to 'savspp' & CALL savspp(itbl,orsxx2,frqpk,nfreq,spcstr(1:nspstr),F) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spcdrv.f:468:10: warning: Reference to the procedure 'spgrh' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes CALL spgrh(tmpsrs,irrsxx,frq,Thtapr,ipos,Posfob,61,Ny,Mxarsp, ^ ./spcdrv.f:214:9: previous reference to 'spgrh' CALL spgrh(tmpsrs,orsxx2,frqpk,Thtapr,l1,Posfob,nfreq,Ny,Mxarsp, ^ ./spcdrv.f:475:10: warning: Reference to the procedure 'spgrh2' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes CALL spgrh2(tmpsrs,irrsxx,frq,ipos,Posfob,61,Ldecbl) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spcdrv.f:222:9: previous reference to 'spgrh2' CALL spgrh2(tmpsrs,orsxx2,frqpk,l1,Posfob,nfreq,Ldecbl) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spcdrv.f:496:14: warning: Reference to the procedure 'savspp' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes & CALL savspp(itbl,irrsxx,frq,61,spcstr(1:nspstr),F) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spcdrv.f:234:13: previous reference to 'savspp' & CALL savspp(itbl,orsxx2,frqpk,nfreq,spcstr(1:nspstr),F) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spcdrv.f:498:14: warning: Reference to the procedure 'savspp' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes & CALL savspp(itbl,irrsxx,frq,61,spcstr(1:nspstr),Lgraf) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spcdrv.f:234:13: previous reference to 'savspp' & CALL savspp(itbl,orsxx2,frqpk,nfreq,spcstr(1:nspstr),F) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ flang-new-18 -c -o spcrsd.o spcrsd.f ./spcrsd.f:80:8: warning: Reference to the procedure 'spgrh' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes CALL spgrh(Temp,rsdsxx,frq,Thtapr,ipos,Na,61,Sp,Mxarsp, ^ ./spcrsd.f:78:8: previous reference to 'spgrh' CALL spgrh(Temp,rssxx2,frqpk,Thtapr,ipos,Na,nfreq,Sp,Mxarsp, ^ ./spcrsd.f:87:8: warning: Reference to the procedure 'spgrh2' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes CALL spgrh2(Temp,rsdsxx,frq,ipos,Na,61,Ldecbl) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spcrsd.f:86:8: previous reference to 'spgrh2' CALL spgrh2(Temp,rssxx2,frqpk,ipos,Na,nfreq,Ldecbl) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spcrsd.f:103:12: warning: Reference to the procedure 'savspp' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes & CALL savspp(Tblptr,rsdsxx,frq,61,slbl(1:ns),F) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spcrsd.f:98:12: previous reference to 'savspp' & CALL savspp(Tblptr,rssxx2,frqpk,nfreq,slbl(1:ns),F) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spcrsd.f:105:12: warning: Reference to the procedure 'savspp' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes & CALL savspp(Tblptr,rsdsxx,frq,61,slbl(1:ns),Lgraf) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spcrsd.f:98:12: previous reference to 'savspp' & CALL savspp(Tblptr,rssxx2,frqpk,nfreq,slbl(1:ns),F) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ flang-new-18 -c -o special.o special.f flang-new-18 -c -o specpeak.o specpeak.f flang-new-18 -c -o spectrum.o spectrum.f ./spectrum.f:657:8: warning: Reference to the procedure 'mkhrtable' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes CALL mkHrTable(Nio,Ft,Nt,2) ^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spectrum.f:656:8: previous reference to 'mkhrtable' CALL mkHrTable(Nio,Ff,Nf,1) ^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spectrum.f:659:8: warning: Reference to the procedure 'mkhrtable' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes CALL mkHrTable(Nio,Fs,Ns,4) ^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spectrum.f:656:8: previous reference to 'mkhrtable' CALL mkHrTable(Nio,Ff,Nf,1) ^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spectrum.f:660:8: warning: Reference to the procedure 'mkhrtable' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes CALL mkHrTable(Nio,fn,nn,5) ^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spectrum.f:656:8: previous reference to 'mkhrtable' CALL mkHrTable(Nio,Ff,Nf,1) ^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spectrum.f:804:9: warning: Reference to the procedure 'mkhrtable' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes CALL mkHrTable(Nio,u,nu,7) ^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spectrum.f:656:8: previous reference to 'mkhrtable' CALL mkHrTable(Nio,Ff,Nf,1) ^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spectrum.f:805:9: warning: Reference to the procedure 'mkhrtable' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes CALL mkHrTable(Nio,V,Nv,8) ^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spectrum.f:656:8: previous reference to 'mkhrtable' CALL mkHrTable(Nio,Ff,Nf,1) ^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spectrum.f:812:40: warning: Reference to the procedure 'mkhrtable' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes if ((out .eq.0).and.(har.eq.1)) CALL mkHrTable(Nio,Dum,nus,9) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spectrum.f:656:8: previous reference to 'mkhrtable' CALL mkHrTable(Nio,Ff,Nf,1) ^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spectrum.f:832:9: warning: Reference to the procedure 'mkhrtable' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes CALL mkHrTable(Nio,Ut,Nut,10) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spectrum.f:656:8: previous reference to 'mkhrtable' CALL mkHrTable(Nio,Ff,Nf,1) ^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spectrum.f:841:9: warning: Reference to the procedure 'mkhrtable' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes CALL mkHrTable(Nio,Dum,nus,12) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spectrum.f:656:8: previous reference to 'mkhrtable' CALL mkHrTable(Nio,Ff,Nf,1) ^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spectrum.f:851:9: warning: Reference to the procedure 'mkhrtable' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes CALL mkHrTable(Nio,Ut,Nut,10) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spectrum.f:656:8: previous reference to 'mkhrtable' CALL mkHrTable(Nio,Ff,Nf,1) ^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spectrum.f:860:9: warning: Reference to the procedure 'mkhrtable' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes CALL mkHrTable(Nio,Dum,nus,12) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spectrum.f:656:8: previous reference to 'mkhrtable' CALL mkHrTable(Nio,Ff,Nf,1) ^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spectrum.f:869:9: warning: Reference to the procedure 'mkhrtable' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes CALL mkHrTable(Nio,V,Nv,8) ^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spectrum.f:656:8: previous reference to 'mkhrtable' CALL mkHrTable(Nio,Ff,Nf,1) ^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spectrum.f:878:9: warning: Reference to the procedure 'mkhrtable' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes CALL mkHrTable(Nio,Dum,nus,13) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spectrum.f:656:8: previous reference to 'mkhrtable' CALL mkHrTable(Nio,Ff,Nf,1) ^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spectrum.f:887:9: warning: Reference to the procedure 'mkhrtable' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes CALL mkHrTable(Nio,Ut,Nut,10) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spectrum.f:656:8: previous reference to 'mkhrtable' CALL mkHrTable(Nio,Ff,Nf,1) ^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spectrum.f:888:9: warning: Reference to the procedure 'mkhrtable' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes CALL mkHrTable(Nio,V,Nv,8) ^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spectrum.f:656:8: previous reference to 'mkhrtable' CALL mkHrTable(Nio,Ff,Nf,1) ^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spectrum.f:896:9: warning: Reference to the procedure 'mkhrtable' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes CALL mkHrTable(Nio,Dum,nus,14) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spectrum.f:656:8: previous reference to 'mkhrtable' CALL mkHrTable(Nio,Ff,Nf,1) ^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spectrum.f:917:8: warning: Reference to the procedure 'mkhrtable' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes CALL mkHrTable(Nio,Ut,Nut,10) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spectrum.f:656:8: previous reference to 'mkhrtable' CALL mkHrTable(Nio,Ff,Nf,1) ^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spectrum.f:918:8: warning: Reference to the procedure 'mkhrtable' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes CALL mkHrTable(Nio,V,Nv,8) ^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spectrum.f:656:8: previous reference to 'mkhrtable' CALL mkHrTable(Nio,Ff,Nf,1) ^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spectrum.f:935:8: warning: Reference to the procedure 'mkhrtable' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes CALL mkHrTable(Nio,Dum,Nf,15) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spectrum.f:656:8: previous reference to 'mkhrtable' CALL mkHrTable(Nio,Ff,Nf,1) ^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spectrum.f:1421:9: warning: Reference to the procedure 'multfn' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes call MULTFN(vn,nvn,Fs,Ns,us,nus) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spectrum.f:1420:9: previous reference to 'multfn' call MULTFN(utf,Nut,Fc,Nc,vn,nvn) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spectrum.f:1490:9: warning: Reference to the procedure 'spc' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes call SPC(Vf,Ns,Fs,Ns,ONE,spectS) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spectrum.f:1418:9: previous reference to 'spc' call SPC(Utf,Nut,Ft,Nt,ONE,spectt) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spectrum.f:1492:9: warning: Reference to the procedure 'multfn' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes call MULTFN(vf,Ns,Fc,Nc,vn,nvn) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spectrum.f:1420:9: previous reference to 'multfn' call MULTFN(utf,Nut,Fc,Nc,vn,nvn) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spectrum.f:1493:9: warning: Reference to the procedure 'multfn' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes call MULTFN(vn,nvn,Ft,Nt,us,nus) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spectrum.f:1420:9: previous reference to 'multfn' call MULTFN(utf,Nut,Fc,Nc,vn,nvn) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spectrum.f:1543:9: warning: Reference to the procedure 'spc' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes call SPC(Ucf,Nuc,Fc,nc,ONE,specty) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spectrum.f:1418:9: previous reference to 'spc' call SPC(Utf,Nut,Ft,Nt,ONE,spectt) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spectrum.f:1545:9: warning: Reference to the procedure 'multfn' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes call MULTFN(ucf,Nuc,Fs,Ns,vn,nvn) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spectrum.f:1420:9: previous reference to 'multfn' call MULTFN(utf,Nut,Fc,Nc,vn,nvn) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spectrum.f:1546:9: warning: Reference to the procedure 'multfn' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes call MULTFN(vn,nvn,Ft,Nt,us,nus) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spectrum.f:1420:9: previous reference to 'multfn' call MULTFN(utf,Nut,Fc,Nc,vn,nvn) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spectrum.f:1718:12: warning: Reference to the procedure 'multfn' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes call MULTFN(us,nus,Fs,Ns,Dum1,Ndum1) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spectrum.f:1420:9: previous reference to 'multfn' call MULTFN(utf,Nut,Fc,Nc,vn,nvn) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spectrum.f:1719:12: warning: Reference to the procedure 'multfn' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes call MULTFN(dum1,nDum1,Fc,Nc,Dum,Ndum) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spectrum.f:1420:9: previous reference to 'multfn' call MULTFN(utf,Nut,Fc,Nc,vn,nvn) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spectrum.f:1721:12: warning: Reference to the procedure 'multfn' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes call MULTFN(us,nus,Fs,Ns,Dum,Ndum) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spectrum.f:1420:9: previous reference to 'multfn' call MULTFN(utf,Nut,Fc,Nc,vn,nvn) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spectrum.f:1779:11: warning: Reference to the procedure 'conv' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes call CONV(thets,nthets,cyc,ncyc,vn,nvn) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spectrum.f:1225:9: previous reference to 'conv' call conv(Phi,nPhi,Bphi,nBphi,Pstar,nPstar) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spectrum.f:1780:11: warning: Reference to the procedure 'conj' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes call CONJ(vn,nvn,vn,nvn,Dum,Ndum) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spectrum.f:1772:10: previous reference to 'conj' call CONJ(pscyc,npscyc,pscyc,npscyc,us,nus) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spectrum.f:1786:11: warning: Reference to the procedure 'conv' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes call CONV(thetc,nthetc,psi,npsi,vn,nvn) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spectrum.f:1225:9: previous reference to 'conv' call conv(Phi,nPhi,Bphi,nBphi,Pstar,nPstar) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spectrum.f:1787:11: warning: Reference to the procedure 'conj' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes call CONJ(vn,nvn,vn,nvn,Dum,Ndum) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spectrum.f:1772:10: previous reference to 'conj' call CONJ(pscyc,npscyc,pscyc,npscyc,us,nus) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spectrum.f:1807:10: warning: Reference to the procedure 'conj' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes call CONJ(thtra,nthtra,thtra,nthtra,vn,nvn) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spectrum.f:1772:10: previous reference to 'conj' call CONJ(pscyc,npscyc,pscyc,npscyc,us,nus) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spectrum.f:1861:11: warning: Reference to the procedure 'conv' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes call CONV(thetp,nthetp,psi,npsi,vn,nvn) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spectrum.f:1225:9: previous reference to 'conv' call conv(Phi,nPhi,Bphi,nBphi,Pstar,nPstar) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spectrum.f:1862:11: warning: Reference to the procedure 'conj' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes call CONJ(vn,nvn,vn,nvn,Dum,Ndum) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spectrum.f:1772:10: previous reference to 'conj' call CONJ(pscyc,npscyc,pscyc,npscyc,us,nus) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spectrum.f:1869:11: warning: Reference to the procedure 'conv' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes call CONV(thets,nthets,chi,nchi,vn,nvn) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spectrum.f:1225:9: previous reference to 'conv' call conv(Phi,nPhi,Bphi,nBphi,Pstar,nPstar) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spectrum.f:1870:11: warning: Reference to the procedure 'conj' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes call CONJ(vn,nvn,vn,nvn,Dum,Ndum) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spectrum.f:1772:10: previous reference to 'conj' call CONJ(pscyc,npscyc,pscyc,npscyc,us,nus) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spectrum.f:1891:10: warning: Reference to the procedure 'conj' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes call CONJ(thcya,nthcya,thcya,nthcya,vn,nvn) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spectrum.f:1772:10: previous reference to 'conj' call CONJ(pscyc,npscyc,pscyc,npscyc,us,nus) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spectrum.f:2400:10: warning: Reference to the procedure 'usrentry' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL USRENTRY(THETP,1,NTHETP,1,8,2001) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spectrum.f:1818:10: previous reference to 'usrentry' call USRENTRY(dvec,1,1,1,1,1903) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spectrum.f:2401:10: warning: Reference to the procedure 'usrentry' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL USRENTRY(CHI,1,NCHI,1,8,2002) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spectrum.f:1818:10: previous reference to 'usrentry' call USRENTRY(dvec,1,1,1,1,1903) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spectrum.f:2404:10: warning: Reference to the procedure 'wrtabhtmpol' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes call WrTabHtmPol(dvec,1,nio,41) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spectrum.f:2387:10: previous reference to 'wrtabhtmpol' call WrTabHtmPol(thetp,nthetp,nio,31) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spectrum.f:2441:10: warning: Reference to the procedure 'wrtabhtmpol' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes call WrTabHtmPol(thets,nthets,nio,33) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spectrum.f:2387:10: previous reference to 'wrtabhtmpol' call WrTabHtmPol(thetp,nthetp,nio,31) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spectrum.f:2446:10: warning: Reference to the procedure 'wrtabhtmpol' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes call WrTabHtmPol(psi,npsi,nio,34) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spectrum.f:2387:10: previous reference to 'wrtabhtmpol' call WrTabHtmPol(thetp,nthetp,nio,31) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spectrum.f:2451:9: warning: Reference to the procedure 'usrentry' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL USRENTRY(THETS,1,NTHETS,1,27,2004) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spectrum.f:1818:10: previous reference to 'usrentry' call USRENTRY(dvec,1,1,1,1,1903) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spectrum.f:2452:9: warning: Reference to the procedure 'usrentry' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL USRENTRY(PSI,1,NPSI,1,27,2005) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spectrum.f:1818:10: previous reference to 'usrentry' call USRENTRY(dvec,1,1,1,1,1903) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spectrum.f:2455:10: warning: Reference to the procedure 'wrtabhtmpol' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes call WrTabHtmPol(dvec,1,nio,42) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spectrum.f:2387:10: previous reference to 'wrtabhtmpol' call WrTabHtmPol(thetp,nthetp,nio,31) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spectrum.f:2485:9: warning: Reference to the procedure 'wrtabhtmpol' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes call WrTabHtmPol(thetc,nthetc,nio,35) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spectrum.f:2387:10: previous reference to 'wrtabhtmpol' call WrTabHtmPol(thetp,nthetp,nio,31) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spectrum.f:2491:9: warning: Reference to the procedure 'wrtabhtmpol' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes call WrTabHtmPol(cyc,ncyc,nio,36) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spectrum.f:2387:10: previous reference to 'wrtabhtmpol' call WrTabHtmPol(thetp,nthetp,nio,31) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spectrum.f:2496:9: warning: Reference to the procedure 'usrentry' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL USRENTRY(THETC,1,NTHETC,1,32,2007) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spectrum.f:1818:10: previous reference to 'usrentry' call USRENTRY(dvec,1,1,1,1,1903) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spectrum.f:2497:9: warning: Reference to the procedure 'usrentry' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL USRENTRY(CYC,1,NCYC,1,17,2008) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spectrum.f:1818:10: previous reference to 'usrentry' call USRENTRY(dvec,1,1,1,1,1903) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spectrum.f:2500:9: warning: Reference to the procedure 'wrtabhtmpol' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes call WrTabHtmPol(dvec,1,nio,43) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spectrum.f:2387:10: previous reference to 'wrtabhtmpol' call WrTabHtmPol(thetp,nthetp,nio,31) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spectrum.f:2531:8: warning: Reference to the procedure 'wrtabhtmpol' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes call WrTabHtmPol(dvec,1,nio,45) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spectrum.f:2387:10: previous reference to 'wrtabhtmpol' call WrTabHtmPol(thetp,nthetp,nio,31) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spectrum.f:2538:8: warning: Reference to the procedure 'wrtabhtmpol' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes call WrTabHtmPol(thadj,nthadj,nio,37) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spectrum.f:2387:10: previous reference to 'wrtabhtmpol' call WrTabHtmPol(thetp,nthetp,nio,31) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spectrum.f:2542:8: warning: Reference to the procedure 'wrtabhtmpol' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes call WrTabHtmPol(chcyc,nchcyc,nio,38) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spectrum.f:2387:10: previous reference to 'wrtabhtmpol' call WrTabHtmPol(thetp,nthetp,nio,31) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spectrum.f:2549:8: warning: Reference to the procedure 'usrentry' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL USRENTRY(THADJ,1,NTHADJ,1,32,2011) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spectrum.f:1818:10: previous reference to 'usrentry' call USRENTRY(dvec,1,1,1,1,1903) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spectrum.f:2550:8: warning: Reference to the procedure 'usrentry' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL USRENTRY(CHCYC,1,NCHCYC,1,20,2012) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spectrum.f:1818:10: previous reference to 'usrentry' call USRENTRY(dvec,1,1,1,1,1903) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spectrum.f:2553:8: warning: Reference to the procedure 'wrtabhtmpol' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes call WrTabHtmPol(dvec,1,nio,44) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spectrum.f:2387:10: previous reference to 'wrtabhtmpol' call WrTabHtmPol(thetp,nthetp,nio,31) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spectrum.f:2620:9: warning: Reference to the procedure 'mak1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes call MAK1(utf,Nut,thetp,nthetp,varwnp,nounit,Noprint, ^ ./spectrum.f:1802:10: previous reference to 'mak1' call MAK1(us,nus,thtra,nthtra,varwnt,nounit,iout,caption0,0, ^ ./spectrum.f:2643:9: warning: Reference to the procedure 'mak1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes call MAK1(vf,Ns,thets,nthets,varwns,nounit,noprint, ^ ./spectrum.f:1802:10: previous reference to 'mak1' call MAK1(us,nus,thtra,nthtra,varwnt,nounit,iout,caption0,0, ^ ./spectrum.f:2665:11: warning: Reference to the procedure 'mak1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes call MAK1(ucf,Nuc,thetc,nthetc,varwnc,nounit,noprint, ^ ./spectrum.f:1802:10: previous reference to 'mak1' call MAK1(us,nus,thtra,nthtra,varwnt,nounit,iout,caption0,0, ^ ./spectrum.f:2669:11: warning: Reference to the procedure 'mak1' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes call MAK1(ucf,Nuc,thetc,nthetc,varwnc,nounit,noprint, ^ ./spectrum.f:1802:10: previous reference to 'mak1' call MAK1(us,nus,thtra,nthtra,varwnt,nounit,iout,caption0,0, ^ ./spectrum.f:2705:12: warning: Reference to the procedure 'conj' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes call CONJ(chi,nchi,chi,nchi,us,nus) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spectrum.f:1772:10: previous reference to 'conj' call CONJ(pscyc,npscyc,pscyc,npscyc,us,nus) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spectrum.f:2707:12: warning: Reference to the procedure 'conj' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes call CONJ(chcyc,nchcyc,chcyc,nchcyc,us,nus) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spectrum.f:1772:10: previous reference to 'conj' call CONJ(pscyc,npscyc,pscyc,npscyc,us,nus) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spectrum.f:2718:13: warning: Reference to the procedure 'conj' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes call CONJ(thetp,nthetp,thetp,nthetp,Dum,Ndum) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spectrum.f:1772:10: previous reference to 'conj' call CONJ(pscyc,npscyc,pscyc,npscyc,us,nus) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spectrum.f:2720:13: warning: Reference to the procedure 'conv' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes call CONV(thetp,nthetp,cyc,ncyc,vn,nvn) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spectrum.f:1225:9: previous reference to 'conv' call conv(Phi,nPhi,Bphi,nBphi,Pstar,nPstar) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spectrum.f:2721:13: warning: Reference to the procedure 'conj' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes call CONJ(vn,nvn,vn,nvn,Dum,Ndum) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spectrum.f:1772:10: previous reference to 'conj' call CONJ(pscyc,npscyc,pscyc,npscyc,us,nus) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spectrum.f:2730:12: warning: Reference to the procedure 'conv' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes call CONV(thetc,nthetc,chi,nchi,vn,nvn) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spectrum.f:1225:9: previous reference to 'conv' call conv(Phi,nPhi,Bphi,nBphi,Pstar,nPstar) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spectrum.f:2731:12: warning: Reference to the procedure 'conj' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes call CONJ(vn,nvn,vn,nvn,Dum,Ndum) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spectrum.f:1772:10: previous reference to 'conj' call CONJ(pscyc,npscyc,pscyc,npscyc,us,nus) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spectrum.f:2833:7: warning: Reference to the procedure 'conv' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes call CONV(polAR,grpolAR,polDifs,grPolDifs,phist,grPhist) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spectrum.f:1225:9: previous reference to 'conv' call conv(Phi,nPhi,Bphi,nBphi,Pstar,nPstar) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spectrum.f:2855:7: warning: Reference to the procedure 'conj' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes call CONJ(thstar,grthstar,thstar,grthstar,fMA,fMAdim) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spectrum.f:1772:10: previous reference to 'conj' call CONJ(pscyc,npscyc,pscyc,npscyc,us,nus) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spectrum.f:2856:7: warning: Reference to the procedure 'conj' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes call CONJ(phist,grPhist,phist,grPhist,fAR,fARdim) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spectrum.f:1772:10: previous reference to 'conj' call CONJ(pscyc,npscyc,pscyc,npscyc,us,nus) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spectrum.f:2857:7: warning: Reference to the procedure 'spc' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes call SPC(fMA,fMAdim,fAR,fARdim,1.d0,Output) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./spectrum.f:1418:9: previous reference to 'spc' call SPC(Utf,Nut,Ft,Nt,ONE,spectt) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ flang-new-18 -c -o spgrh.o spgrh.f flang-new-18 -c -o spgrh2.o spgrh2.f flang-new-18 -c -o spmpar.o spmpar.f flang-new-18 -c -o ss2rv.o ss2rv.f ./ss2rv.f:75:8: warning: Reference to the procedure 'cpyint' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL cpyint(Rgxvtp,PB,1,Rgvx2r) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ss2rv.f:72:8: previous reference to 'cpyint' CALL cpyint(Clxptr(0),PB+1,1,Cxptrv(0)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ss2rv.f:80:8: warning: Reference to the procedure 'cpyint' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL cpyint(Xbegxy,2,1,Xbxyrv) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ss2rv.f:72:8: previous reference to 'cpyint' CALL cpyint(Clxptr(0),PB+1,1,Cxptrv(0)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ss2rv.f:105:8: warning: Reference to the procedure 'cpyint' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL cpyint(Rgvrtp,PB,1,Rgv2rv) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ss2rv.f:72:8: previous reference to 'cpyint' CALL cpyint(Clxptr(0),PB+1,1,Cxptrv(0)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ss2rv.f:106:8: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL copy(Arimap,PARIMA,1,Ap2rv) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ss2rv.f:81:8: previous reference to 'copy' CALL copy(Bx,PB,1,Bbxrv) ^^^^^^^^^^^^^^^^^^^^^^^^ ./ss2rv.f:108:8: warning: Reference to the procedure 'copylg' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL copylg(Arimaf,PARIMA,1,Fxarv) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ss2rv.f:79:8: previous reference to 'copylg' CALL copylg(Regfxx,PB,1,Rxfx2r) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ss2rv.f:141:8: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL copy(Chlxpx,PXPX,1,Chx2r) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ss2rv.f:81:8: previous reference to 'copy' CALL copy(Bx,PB,1,Bbxrv) ^^^^^^^^^^^^^^^^^^^^^^^^ ./ss2rv.f:142:8: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL copy(Chlgpg,PGPG,1,Chg2r) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ss2rv.f:81:8: previous reference to 'copy' CALL copy(Bx,PB,1,Bbxrv) ^^^^^^^^^^^^^^^^^^^^^^^^ ./ss2rv.f:143:8: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL copy(Armacm,PACM,1,Acm2r) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ss2rv.f:81:8: previous reference to 'copy' CALL copy(Bx,PB,1,Bbxrv) ^^^^^^^^^^^^^^^^^^^^^^^^ ./ss2rv.f:153:7: warning: Reference to the procedure 'cpyint' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL cpyint(Begspn,2,1,Bspnrv) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ss2rv.f:72:8: previous reference to 'cpyint' CALL cpyint(Clxptr(0),PB+1,1,Cxptrv(0)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ss2rv.f:154:7: warning: Reference to the procedure 'cpyint' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL cpyint(Endspn,2,1,Espnrv) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ss2rv.f:72:8: previous reference to 'cpyint' CALL cpyint(Clxptr(0),PB+1,1,Cxptrv(0)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ss2rv.f:156:7: warning: Reference to the procedure 'cpyint' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL cpyint(Begmdl,2,1,Bmdlrv) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ss2rv.f:72:8: previous reference to 'cpyint' CALL cpyint(Clxptr(0),PB+1,1,Cxptrv(0)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ss2rv.f:157:7: warning: Reference to the procedure 'cpyint' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL cpyint(Endmdl,2,1,Emdlrv) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ss2rv.f:72:8: previous reference to 'cpyint' CALL cpyint(Clxptr(0),PB+1,1,Cxptrv(0)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ss2rv.f:159:7: warning: Reference to the procedure 'cpyint' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL cpyint(Begxrg,2,1,Bxrgrv) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ss2rv.f:72:8: previous reference to 'cpyint' CALL cpyint(Clxptr(0),PB+1,1,Cxptrv(0)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ss2rv.f:160:7: warning: Reference to the procedure 'cpyint' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL cpyint(Endxrg,2,1,Exrgrv) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ss2rv.f:72:8: previous reference to 'cpyint' CALL cpyint(Clxptr(0),PB+1,1,Cxptrv(0)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ss2rv.f:164:7: warning: Reference to the procedure 'copylg' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL copylg(Prttab,NTBL,1,Prtbrv) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ss2rv.f:79:8: previous reference to 'copylg' CALL copylg(Regfxx,PB,1,Rxfx2r) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ss2rv.f:166:7: warning: Reference to the procedure 'cpyint' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL cpyint(Begxy,2,1,Bgxyrv) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ss2rv.f:72:8: previous reference to 'cpyint' CALL cpyint(Clxptr(0),PB+1,1,Cxptrv(0)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ flang-new-18 -c -o ssap.o ssap.f flang-new-18 -c -o ssfnot.o ssfnot.f flang-new-18 -c -o ssftst.o ssftst.f flang-new-18 -c -o sshist.o sshist.f flang-new-18 -c -o ssmdl.o ssmdl.f ./ssmdl.f:370:23: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes IF(.not.regchg)CALL copy(B,PB,1,Bb) ^^^^^^^^^^^^^^^^^^^^ ./ssmdl.f:368:8: previous reference to 'copy' CALL copy(Arimap,PARIMA,1,Ap2) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ssmdl.f:371:8: warning: Reference to the procedure 'setlg' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL setlg(T,PB,Regfx2) ^^^^^^^^^^^^^^^^^^^^^^^ ./ssmdl.f:369:8: previous reference to 'setlg' CALL setlg(T,PARIMA,Fxa) ^^^^^^^^^^^^^^^^^^^^^^^^ ./ssmdl.f:373:8: warning: Reference to the procedure 'setlg' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL setlg(T,Nb,Regfx) ^^^^^^^^^^^^^^^^^^^^^^ ./ssmdl.f:369:8: previous reference to 'setlg' CALL setlg(T,PARIMA,Fxa) ^^^^^^^^^^^^^^^^^^^^^^^^ ./ssmdl.f:394:8: warning: Reference to the procedure 'cpyint' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL cpyint(Rgvrtp,PB,1,Rgv2) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ssmdl.f:391:8: previous reference to 'cpyint' CALL cpyint(Colptr(0),PB+1,1,Clptr(0)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ssmdl.f:395:8: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL copy(B,PB,1,Bb) ^^^^^^^^^^^^^^^^^^^^ ./ssmdl.f:368:8: previous reference to 'copy' CALL copy(Arimap,PARIMA,1,Ap2) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ flang-new-18 -c -o ssort.o ssort.f flang-new-18 -c -o sspdrv.o sspdrv.f ./sspdrv.f:263:9: warning: Reference to the procedure 'getstr' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes CALL getstr(usfxtl,usfptr,nusfx,igrp,outstr,ipos) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./sspdrv.f:215:10: previous reference to 'getstr' CALL getstr(Otrttl,Otrptr,Notrtl,i,otlstr,notstr) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ flang-new-18 -c -o ssphdr.o ssphdr.f flang-new-18 -c -o ssprep.o ssprep.f ./ssprep.f:75:8: warning: Reference to the procedure 'cpyint' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL cpyint(Rgvrtp,PB,1,Rgv2) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ssprep.f:72:8: previous reference to 'cpyint' CALL cpyint(Colptr(0),PB+1,1,Clptr(0)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ssprep.f:77:8: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL copy(B,PB,1,Bb) ^^^^^^^^^^^^^^^^^^^^ ./ssprep.f:76:8: previous reference to 'copy' CALL copy(Arimap,PARIMA,1,Ap2) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ssprep.f:82:8: warning: Reference to the procedure 'copylg' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL copylg(Regfx,PB,1,Regfx2) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ssprep.f:78:8: previous reference to 'copylg' CALL copylg(Arimaf,PARIMA,1,Fxa) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ssprep.f:107:8: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL copy(Chlxpx,PXPX,1,Chx2) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ssprep.f:76:8: previous reference to 'copy' CALL copy(Arimap,PARIMA,1,Ap2) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ssprep.f:108:8: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL copy(Chlgpg,PGPG,1,Chg2) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ssprep.f:76:8: previous reference to 'copy' CALL copy(Arimap,PARIMA,1,Ap2) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ssprep.f:109:8: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL copy(Armacm,PACM,1,Acm2) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./ssprep.f:76:8: previous reference to 'copy' CALL copy(Arimap,PARIMA,1,Ap2) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ flang-new-18 -c -o ssrit.o ssrit.f flang-new-18 -c -o ssrng.o ssrng.f flang-new-18 -c -o ssx11a.o ssx11a.f flang-new-18 -c -o ssxmdl.o ssxmdl.f flang-new-18 -c -o stpitr.o stpitr.f flang-new-18 -c -o strinx.o strinx.f flang-new-18 -c -o strtvl.o strtvl.f flang-new-18 -c -o stvaln.o stvaln.f flang-new-18 -c -o subset.o subset.f flang-new-18 -c -o sumf.o sumf.f flang-new-18 -c -o sumry.o sumry.f flang-new-18 -c -o sumsqr.o sumsqr.f flang-new-18 -c -o svaict.o svaict.f flang-new-18 -c -o svamcm.o svamcm.f flang-new-18 -c -o svchsd.o svchsd.f flang-new-18 -c -o svdttm.o svdttm.f flang-new-18 -c -o svf2f3.o svf2f3.f flang-new-18 -c -o svflt.o svflt.f flang-new-18 -c -o svfltd.o svfltd.f flang-new-18 -c -o svfnrg.o svfnrg.f flang-new-18 -c -o svfreq.o svfreq.f flang-new-18 -c -o svolit.o svolit.f flang-new-18 -c -o svoudg.o svoudg.f flang-new-18 -c -o svpeak.o svpeak.f flang-new-18 -c -o svrgcm.o svrgcm.f flang-new-18 -c -o svrvhd.o svrvhd.f flang-new-18 -c -o svspan.o svspan.f flang-new-18 -c -o table.o table.f ./table.f:547:9: warning: Reference to the procedure 'makttl' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes CALL makttl(DF2DIC,df2ptr,PDF2,Tblptr-PDSF,0,tblttl,ntbttl,T,T) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./table.f:544:9: previous reference to 'makttl' CALL makttl(DSFDIC,dsfptr,PDSF,Tblptr,0,tblttl,ntbttl,T,T) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ flang-new-18 -c -o taper.o taper.f flang-new-18 -c -o tblhdr.o tblhdr.f flang-new-18 -c -o td6var.o td6var.f flang-new-18 -c -o td7var.o td7var.f flang-new-18 -c -o tdaic.o tdaic.f ./tdaic.f:181:12: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL copy(Usrtad(Frstat),Nadj,1,Adj(1)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./tdaic.f:64:7: previous reference to 'copy' CALL copy(Adj,PLEN,1,a2) ^^^^^^^^^^^^^^^^^^^^^^^^ ./tdaic.f:183:12: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL copy(Y(Frstsy),Nobspf,-1,Trnsrs) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./tdaic.f:64:7: previous reference to 'copy' CALL copy(Adj,PLEN,1,a2) ^^^^^^^^^^^^^^^^^^^^^^^^ ./tdaic.f:188:13: warning: Reference to the procedure 'eltfcn' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object shapes CALL eltfcn(MULT,Adj(1),Usrpad(Frstap),Nadj,PLEN,Adj(1)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./tdaic.f:180:12: previous reference to 'eltfcn' CALL eltfcn(DIV,Y(Frstsy),Usrtad(Frstat),Nobspf,PLEN,Trnsrs) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./tdaic.f:190:13: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL copy(Usrpad(Frstap),Nadj,1,Adj(1)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./tdaic.f:64:7: previous reference to 'copy' CALL copy(Adj,PLEN,1,a2) ^^^^^^^^^^^^^^^^^^^^^^^^ ./tdaic.f:263:12: warning: Reference to the procedure 'eltfcn' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes CALL eltfcn(DIV,Trnsrs,Adj(Adj1st),Nobspf,PLEN,Trnsrs) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./tdaic.f:180:12: previous reference to 'eltfcn' CALL eltfcn(DIV,Y(Frstsy),Usrtad(Frstat),Nobspf,PLEN,Trnsrs) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./tdaic.f:270:12: warning: Reference to the procedure 'eltfcn' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object shapes CALL eltfcn(MULT,lomeff(Adj1st),Adj(Adj1st),Nobspf,PLEN, ^ ./tdaic.f:180:12: previous reference to 'eltfcn' CALL eltfcn(DIV,Y(Frstsy),Usrtad(Frstat),Nobspf,PLEN,Trnsrs) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./tdaic.f:514:11: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL copy(Usrtad(Frstat),Nadj,1,Adj(1)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./tdaic.f:64:7: previous reference to 'copy' CALL copy(Adj,PLEN,1,a2) ^^^^^^^^^^^^^^^^^^^^^^^^ ./tdaic.f:516:11: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL copy(Y(Frstsy),Nobspf,-1,Trnsrs) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./tdaic.f:64:7: previous reference to 'copy' CALL copy(Adj,PLEN,1,a2) ^^^^^^^^^^^^^^^^^^^^^^^^ ./tdaic.f:521:12: warning: Reference to the procedure 'eltfcn' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object shapes CALL eltfcn(MULT,Adj(1),Usrpad(Frstap),Nadj,PLEN,Adj(1)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./tdaic.f:180:12: previous reference to 'eltfcn' CALL eltfcn(DIV,Y(Frstsy),Usrtad(Frstat),Nobspf,PLEN,Trnsrs) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./tdaic.f:523:12: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL copy(Usrpad(Frstap),Nadj,1,Adj(1)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./tdaic.f:64:7: previous reference to 'copy' CALL copy(Adj,PLEN,1,a2) ^^^^^^^^^^^^^^^^^^^^^^^^ ./tdaic.f:629:9: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object shapes CALL copy(Adj,Nadj,-1,Sprior(Setpri)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./tdaic.f:64:7: previous reference to 'copy' CALL copy(Adj,PLEN,1,a2) ^^^^^^^^^^^^^^^^^^^^^^^^ ./tdaic.f:635:9: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object shapes CALL copy(Adj,Nadj,-1,Sprior(Setpri)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./tdaic.f:64:7: previous reference to 'copy' CALL copy(Adj,PLEN,1,a2) ^^^^^^^^^^^^^^^^^^^^^^^^ flang-new-18 -c -o tdftest.o tdftest.f flang-new-18 -c -o tdlom.o tdlom.f flang-new-18 -c -o tdset.o tdset.f ./tdset.f:51:7: warning: Reference to the procedure 'setdp' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL setdp(DNOTST,2,Lpmdl) ^^^^^^^^^^^^^^^^^^^^^^^^^^ ./tdset.f:47:7: previous reference to 'setdp' CALL setdp(DNOTST,PTD,Tdx11) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./tdset.f:52:7: warning: Reference to the procedure 'setdp' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL setdp(DNOTST,2,Lpmdl1) ^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./tdset.f:47:7: previous reference to 'setdp' CALL setdp(DNOTST,PTD,Tdx11) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./tdset.f:53:7: warning: Reference to the procedure 'setdp' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL setdp(0D0,PLEN,Xnstar) ^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./tdset.f:47:7: previous reference to 'setdp' CALL setdp(DNOTST,PTD,Tdx11) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./tdset.f:54:7: warning: Reference to the procedure 'setdp' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL setdp(0D0,PLEN,Xlpyr) ^^^^^^^^^^^^^^^^^^^^^^^^^^ ./tdset.f:47:7: previous reference to 'setdp' CALL setdp(DNOTST,PTD,Tdx11) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ flang-new-18 -c -o tdxtrm.o tdxtrm.f flang-new-18 -c -o templs.o templs.f flang-new-18 -c -o tfmts.o tfmts.f flang-new-18 -c -o tfmts3.o tfmts3.f flang-new-18 -c -o totals.o totals.f flang-new-18 -c -o transc.o transc.f flang-new-18 -c -o trbias.o trbias.f flang-new-18 -c -o trnaic.o trnaic.f ./trnaic.f:113:7: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL copy(Orig(Pos1ob+nbeg),Nobspf,-1,trnsrs) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./trnaic.f:67:7: previous reference to 'copy' CALL copy(Adj,PLEN,1,a2) ^^^^^^^^^^^^^^^^^^^^^^^^ ./trnaic.f:318:8: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object shapes CALL copy(Adj,Nadj,-1,Sprior(Setpri)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./trnaic.f:67:7: previous reference to 'copy' CALL copy(Adj,PLEN,1,a2) ^^^^^^^^^^^^^^^^^^^^^^^^ ./trnaic.f:425:8: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL copy(Orig(Pos1ob+nbeg),Nobspf,-1,trnsrs) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./trnaic.f:67:7: previous reference to 'copy' CALL copy(Adj,PLEN,1,a2) ^^^^^^^^^^^^^^^^^^^^^^^^ flang-new-18 -c -o trnfcn.o trnfcn.f flang-new-18 -c -o tstdrv.o tstdrv.f flang-new-18 -c -o tstmd1.o tstmd1.f ./tstmd1.f:218:9: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL copy(Adj,Nadj,-1,Sprior(Setpri)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./tstmd1.f:216:9: previous reference to 'copy' CALL copy(adj0,PLEN,1,Adj) ^^^^^^^^^^^^^^^^^^^^^^^^^^ flang-new-18 -c -o tstmd2.o tstmd2.f flang-new-18 -c -o ttest.o ttest.f flang-new-18 -c -o uconv.o uconv.f flang-new-18 -c -o upespm.o upespm.f flang-new-18 -c -o usraic.o usraic.f ./usraic.f:117:7: warning: Reference to the procedure 'cpyint' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL cpyint(Usrptr(0),PUREG+1,1,ubkptr(0)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./usraic.f:116:7: previous reference to 'cpyint' CALL cpyint(Usrtyp,PUREG,1,ubktyp) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./usraic.f:238:8: warning: Reference to the procedure 'cpyint' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL cpyint(ubkptr(0),PUREG+1,1,Usrptr(0)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./usraic.f:116:7: previous reference to 'cpyint' CALL cpyint(Usrtyp,PUREG,1,ubktyp) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ flang-new-18 -c -o value.o value.f flang-new-18 -c -o varian.o varian.f flang-new-18 -c -o varlog.o varlog.f flang-new-18 -c -o vars.o vars.f flang-new-18 -c -o vsfa.o vsfa.f flang-new-18 -c -o vsfb.o vsfb.f ./vsfb.f:140:9: warning: Reference to the procedure 'endsf' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object shapes CALL endsf(simon,savg,k,w15,8) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./vsfb.f:131:9: previous reference to 'endsf' CALL endsf(simon,savg,k,w9,5) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ flang-new-18 -c -o vsfc.o vsfc.f flang-new-18 -c -o vtc.o vtc.f flang-new-18 -c -o vtest.o vtest.f flang-new-18 -c -o weight.o weight.f flang-new-18 -c -o whitsp.o whitsp.f flang-new-18 -c -o writln.o writln.f flang-new-18 -c -o wrtdat.o wrtdat.f flang-new-18 -c -o wrtmss.o wrtmss.f flang-new-18 -c -o wrtotl.o wrtotl.f flang-new-18 -c -o wrttb2.o wrttb2.f flang-new-18 -c -o wrttbl.o wrttbl.f flang-new-18 -c -o wtxtrm.o wtxtrm.f flang-new-18 -c -o x11aic.o x11aic.f ./x11aic.f:537:9: warning: Reference to the procedure 'getstr' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes CALL getstr(Usrttl,Usrptr,Ncusrx,i,effttl,nchr) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./x11aic.f:293:11: previous reference to 'getstr' CALL getstr(Colttl,Colptr,Ncoltl,icol,effttl,nchr) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ flang-new-18 -c -o x11ari.o x11ari.f flang-new-18 -c -o x11int.o x11int.f ./x11int.f:49:7: warning: Reference to the procedure 'setdp' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL setdp(0D0,PY1,Stdev) ^^^^^^^^^^^^^^^^^^^^^^^^^ ./x11int.f:27:7: previous reference to 'setdp' CALL setdp(rinit,PLEN,Sts) ^^^^^^^^^^^^^^^^^^^^^^^^^^ flang-new-18 -c -o x11mdl.o x11mdl.f ./x11mdl.f:90:7: warning: Reference to the procedure 'setdp' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL setdp(ZERO,PXPX,Chlxpx) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./x11mdl.f:87:7: previous reference to 'setdp' CALL setdp(ZERO,PA,a) ^^^^^^^^^^^^^^^^^^^^^ ./x11mdl.f:176:10: warning: Reference to the procedure 'setdp' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL setdp(DNOTST,PB,B) ^^^^^^^^^^^^^^^^^^^^^^^ ./x11mdl.f:87:7: previous reference to 'setdp' CALL setdp(ZERO,PA,a) ^^^^^^^^^^^^^^^^^^^^^ ./x11mdl.f:199:7: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL copy(Sti(irridx),Nobspf,-1,trnsrs) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./x11mdl.f:174:10: previous reference to 'copy' CALL copy(Bx,PB,1,B) ^^^^^^^^^^^^^^^^^^^^ ./x11mdl.f:351:11: warning: Reference to the procedure 'setdp' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL setdp(ZERO,ntmp,ftmp) ^^^^^^^^^^^^^^^^^^^^^^^^^^ ./x11mdl.f:87:7: previous reference to 'setdp' CALL setdp(ZERO,PA,a) ^^^^^^^^^^^^^^^^^^^^^ ./x11mdl.f:353:11: warning: Reference to the procedure 'setdp' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL setdp(ONE,ntmp,ftmp) ^^^^^^^^^^^^^^^^^^^^^^^^^ ./x11mdl.f:87:7: previous reference to 'setdp' CALL setdp(ZERO,PA,a) ^^^^^^^^^^^^^^^^^^^^^ ./x11mdl.f:499:8: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL copy(Sti(Pos1ob),Nspobs,-1,trnsrs) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./x11mdl.f:174:10: previous reference to 'copy' CALL copy(Bx,PB,1,B) ^^^^^^^^^^^^^^^^^^^^ ./x11mdl.f:565:9: warning: Reference to the procedure 'setdp' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL setdp(DNOTST,7,Dx11) ^^^^^^^^^^^^^^^^^^^^^^^^^ ./x11mdl.f:87:7: previous reference to 'setdp' CALL setdp(ZERO,PA,a) ^^^^^^^^^^^^^^^^^^^^^ ./x11mdl.f:765:7: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL copy(fcal(1),nfac,-1,Faccal(Pos1bk)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./x11mdl.f:174:10: previous reference to 'copy' CALL copy(Bx,PB,1,B) ^^^^^^^^^^^^^^^^^^^^ ./x11mdl.f:766:17: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes IF(Havxtd)CALL copy(ftd(1),nfac,-1,Factd(Pos1bk)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./x11mdl.f:174:10: previous reference to 'copy' CALL copy(Bx,PB,1,B) ^^^^^^^^^^^^^^^^^^^^ ./x11mdl.f:767:17: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes IF(Havxhl)CALL copy(fhol(1),nfac,-1,Facxhl(Pos1bk)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./x11mdl.f:174:10: previous reference to 'copy' CALL copy(Bx,PB,1,B) ^^^^^^^^^^^^^^^^^^^^ ./x11mdl.f:792:24: warning: Reference to the procedure 'table' has an implicit interface that is distinct from another reference: incompatible dummy argument #7: incompatible dummy data object shapes IF(Prttab(fext))CALL table(Facxhl,Pos1ob,lastpr,21,1,1,dvec,fext) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./x11mdl.f:774:24: previous reference to 'table' IF(Prttab(fext))CALL table(Factd,Pos1ob,lastpr,16,1,1,Dx11,fext) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./x11mdl.f:810:24: warning: Reference to the procedure 'table' has an implicit interface that is distinct from another reference: incompatible dummy argument #7: incompatible dummy data object shapes IF(Prttab(fext))CALL table(Faccal,Pos1ob,lastpr,22,1,1,dvec,fext) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./x11mdl.f:774:24: previous reference to 'table' IF(Prttab(fext))CALL table(Factd,Pos1ob,lastpr,16,1,1,Dx11,fext) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./x11mdl.f:877:9: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL copy(fcal(1),nfac,-1,Faccal(Pos1bk)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./x11mdl.f:174:10: previous reference to 'copy' CALL copy(Bx,PB,1,B) ^^^^^^^^^^^^^^^^^^^^ ./x11mdl.f:878:9: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL copy(ftd(1),nfac,-1,Factd(Pos1bk)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./x11mdl.f:174:10: previous reference to 'copy' CALL copy(Bx,PB,1,B) ^^^^^^^^^^^^^^^^^^^^ flang-new-18 -c -o x11plt.o x11plt.f flang-new-18 -c -o x11pt1.o x11pt1.f ./x11pt1.f:76:7: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL copy(Series,Posfob,-1,Stoap) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./x11pt1.f:75:7: previous reference to 'copy' CALL copy(Series(Pos1ob),Nspobs,-1,Stcsi(Pos1ob)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./x11pt1.f:77:7: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL copy(Series,Posfob,-1,Stopp) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./x11pt1.f:75:7: previous reference to 'copy' CALL copy(Series(Pos1ob),Nspobs,-1,Stcsi(Pos1ob)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./x11pt1.f:78:7: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL copy(Series,Posfob,-1,Stocal) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./x11pt1.f:75:7: previous reference to 'copy' CALL copy(Series(Pos1ob),Nspobs,-1,Stcsi(Pos1ob)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./x11pt1.f:254:12: warning: Reference to the procedure 'table' has an implicit interface that is distinct from another reference: incompatible dummy argument #7: incompatible dummy data object shapes & CALL table(Stptd,Pos1ob,Posfob,4,1,1,Dwt,LXRGA4) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./x11pt1.f:116:9: previous reference to 'table' CALL table(Series,Pos1ob,Posfob,1,1,2,dvec,fext) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ flang-new-18 -c -o x11pt2.o x11pt2.f ./x11pt2.f:661:9: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL copy(Sto,Posffc,1,Stci) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./x11pt2.f:406:7: previous reference to 'copy' CALL copy(Stcsi(Pos1bk),Posffc-Pos1bk+1,1,Sto(Pos1bk)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./x11pt2.f:698:24: warning: Reference to the procedure 'table' has an implicit interface that is distinct from another reference: incompatible dummy argument #7: incompatible dummy data object shapes IF(Prttab(fext))CALL table(Sti,Pos1ob,Posfob,13,1,3,Stdev,fext) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./x11pt2.f:159:11: previous reference to 'table' & CALL table(Factd,Pos1ob,khclda,6,1,1,dvec,LREGTD) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./x11pt2.f:748:10: warning: Reference to the procedure 'table' has an implicit interface that is distinct from another reference: incompatible dummy argument #7: incompatible dummy data object shapes CALL table(Stwt,Pos1ob,Posfob,17,1,4,Stdev,fext) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./x11pt2.f:159:11: previous reference to 'table' & CALL table(Factd,Pos1ob,khclda,6,1,1,dvec,LREGTD) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./x11pt2.f:769:10: warning: Reference to the procedure 'table' has an implicit interface that is distinct from another reference: incompatible dummy argument #7: incompatible dummy data object shapes CALL table(Stwt,Posfob+1,Posffc,17,2,4,Stdev,LXEIWF) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./x11pt2.f:159:11: previous reference to 'table' & CALL table(Factd,Pos1ob,khclda,6,1,1,dvec,LREGTD) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./x11pt2.f:783:25: warning: Reference to the procedure 'table' has an implicit interface that is distinct from another reference: incompatible dummy argument #7: incompatible dummy data object shapes IF(Prttab(fext))CALL table(Factd,Pos1ob,Posfob,18,1,1,Dx11,fext) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./x11pt2.f:159:11: previous reference to 'table' & CALL table(Factd,Pos1ob,khclda,6,1,1,dvec,LREGTD) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ flang-new-18 -c -o x11pt3.o x11pt3.f ./x11pt3.f:383:7: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL copy(Stci(Pos1bk),Nbfpob,1,Ckhs(Pos1bk)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./x11pt3.f:71:7: previous reference to 'copy' CALL copy(Sprior,PLEN,1,sp2) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./x11pt3.f:470:9: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL copy(Sts(Pos1bk),k2,1,ststd(Pos1bk)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./x11pt3.f:71:7: previous reference to 'copy' CALL copy(Sprior,PLEN,1,sp2) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./x11pt3.f:477:8: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL copy(Stcsi(Pos1bk),Nbfpob,1,Stci(Pos1bk)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./x11pt3.f:71:7: previous reference to 'copy' CALL copy(Sprior,PLEN,1,sp2) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./x11pt3.f:520:8: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL copy(Series(Pos1bk),Nbfpob,1,Ckhs(Pos1bk)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./x11pt3.f:71:7: previous reference to 'copy' CALL copy(Sprior,PLEN,1,sp2) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./x11pt3.f:521:8: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL copy(Series(Pos1bk),Nbfpob,1,Stci(Pos1bk)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./x11pt3.f:71:7: previous reference to 'copy' CALL copy(Sprior,PLEN,1,sp2) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./x11pt3.f:526:8: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL copy(Sts(Pos1bk),k2,1,ststd(Pos1bk)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./x11pt3.f:71:7: previous reference to 'copy' CALL copy(Sprior,PLEN,1,sp2) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ flang-new-18 -c -o x11pt4.o x11pt4.f ./x11pt4.f:361:7: warning: Reference to the procedure 'sumry' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL sumry(Sti,Ibar,Ibar2,Isq,Isd,0,Pos1ob,Posfob) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./x11pt4.f:339:8: previous reference to 'sumry' CALL sumry(Sprior,Pbar,dvec,Psq,dvec,2,Pos1ob,Posfob) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./x11pt4.f:382:7: warning: Reference to the procedure 'sumry' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL sumry(Stome,Ombar,ombar2,ombrsq,ombrsd,0,Pos1ob,Posfob) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./x11pt4.f:339:8: previous reference to 'sumry' CALL sumry(Sprior,Pbar,dvec,Psq,dvec,2,Pos1ob,Posfob) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./x11pt4.f:397:7: warning: Reference to the procedure 'sumry' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL sumry(Stime,Imbar,imbar2,Isq,imbrsd,0,Pos1ob,Posfob) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./x11pt4.f:339:8: previous reference to 'sumry' CALL sumry(Sprior,Pbar,dvec,Psq,dvec,2,Pos1ob,Posfob) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./x11pt4.f:432:8: warning: Reference to the procedure 'sumry' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL sumry(Sts,Sbar,Sbar2,Ssq,Ssd,0,Pos1ob,Posfob) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./x11pt4.f:339:8: previous reference to 'sumry' CALL sumry(Sprior,Pbar,dvec,Psq,dvec,2,Pos1ob,Posfob) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./x11pt4.f:435:7: warning: Reference to the procedure 'sumry' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL sumry(Stc,Cbar,Cbar2,Csq,Csd,0,Pos1ob,Posfob) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./x11pt4.f:339:8: previous reference to 'sumry' CALL sumry(Sprior,Pbar,dvec,Psq,dvec,2,Pos1ob,Posfob) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./x11pt4.f:536:7: warning: Reference to the procedure 'sumry' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL sumry(Series,Obar,Obar2,Osq,Osd,0,Pos1ob,Posfob) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./x11pt4.f:339:8: previous reference to 'sumry' CALL sumry(Sprior,Pbar,dvec,Psq,dvec,2,Pos1ob,Posfob) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./x11pt4.f:629:7: warning: Reference to the procedure 'sumry' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL sumry(Stci,Cibar,Cibar2,dvec,Cisd,1,Pos1ob,Posfob) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./x11pt4.f:339:8: previous reference to 'sumry' CALL sumry(Sprior,Pbar,dvec,Psq,dvec,2,Pos1ob,Posfob) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./x11pt4.f:666:7: warning: Reference to the procedure 'sumry' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object shapes CALL sumry(Stcime,Cimbar,dvec,dvec,dvec,3,Pos1ob,Posfob) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./x11pt4.f:339:8: previous reference to 'sumry' CALL sumry(Sprior,Pbar,dvec,Psq,dvec,2,Pos1ob,Posfob) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./x11pt4.f:710:7: warning: Reference to the procedure 'sumry' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL sumry(Stmcd,Smbar,Smbar2,dvec,Smsd,1,mfda,mlda) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./x11pt4.f:339:8: previous reference to 'sumry' CALL sumry(Sprior,Pbar,dvec,Psq,dvec,2,Pos1ob,Posfob) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ flang-new-18 -c -o x11ref.o x11ref.f flang-new-18 -c -o x12hdr.o x12hdr.f flang-new-18 -c -o x12run.o x12run.f flang-new-18 -c -o xchng.o xchng.f flang-new-18 -c -o xpand.o xpand.f flang-new-18 -c -o xprmx.o xprmx.f flang-new-18 -c -o xrgdiv.o xrgdiv.f flang-new-18 -c -o xrgdrv.o xrgdrv.f ./xrgdrv.f:72:8: warning: Reference to the procedure 'cpyint' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL cpyint(Usrptr(0),PUREG+1,1,ubkptr(0)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./xrgdrv.f:71:8: previous reference to 'cpyint' CALL cpyint(Usrtyp,PUREG,1,ubktyp) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./xrgdrv.f:97:8: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL copy(Sprior,Posfob,-1,spr) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./xrgdrv.f:70:8: previous reference to 'copy' CALL copy(Userx,PUSERX,1,ubkx) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./xrgdrv.f:156:9: warning: Reference to the procedure 'cpyint' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL cpyint(Endxrg,2,1,Endspn) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./xrgdrv.f:71:8: previous reference to 'cpyint' CALL cpyint(Usrtyp,PUREG,1,ubktyp) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./xrgdrv.f:213:8: warning: Reference to the procedure 'copy' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL copy(spr,Posfob,-1,Sprior) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./xrgdrv.f:70:8: previous reference to 'copy' CALL copy(Userx,PUSERX,1,ubkx) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./xrgdrv.f:227:8: warning: Reference to the procedure 'cpyint' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes CALL cpyint(ubkptr(0),PUREG+1,1,Usrptr(0)) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./xrgdrv.f:71:8: previous reference to 'cpyint' CALL cpyint(Usrtyp,PUREG,1,ubktyp) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ flang-new-18 -c -o xrghol.o xrghol.f flang-new-18 -c -o xrgtrn.o xrgtrn.f flang-new-18 -c -o xrlkhd.o xrlkhd.f flang-new-18 -c -o xtrm.o xtrm.f ./xtrm.f:45:7: warning: Reference to the procedure 'setdp' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes CALL setdp(ZERO,Ny,Stdper) ^^^^^^^^^^^^^^^^^^^^^^^^^^ ./xtrm.f:44:7: previous reference to 'setdp' CALL setdp(ONE,PLEN,Stwt) ^^^^^^^^^^^^^^^^^^^^^^^^^ ./xtrm.f:111:23: warning: Reference to the procedure 'setdp' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes IF(istep.eq.2)CALL setdp(DNOTST,PY1,Stdev) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ./xtrm.f:44:7: previous reference to 'setdp' CALL setdp(ONE,PLEN,Stwt) ^^^^^^^^^^^^^^^^^^^^^^^^^ flang-new-18 -c -o yprmy.o yprmy.f flang-new-18 -c -o yrly.o yrly.f flang-new-18 -c -o rvarma.o rvarma.f flang-new-18 -c -o rvtdrg.o rvtdrg.f flang-new-18 -c -o prtukp.o prtukp.f flang-new-18 -c -o svtukp.o svtukp.f flang-new-18 -c -o savtpk.o savtpk.f flang-new-18 -c -o m2q.o m2q.f flang-new-18 -c -o chqsea.o chqsea.f flang-new-18 -c -o npsa.o npsa.f flang-new-18 -c -o gennpsa.o gennpsa.f flang-new-18 -c -o prarma.o prarma.f flang-new-18 -c -o testodf.o testodf.f flang-new-18 -o x13ashtml aaamain.o abend.o acf.o acfar.o acfdgn.o acfhdr.o addadj.o addate.o addeas.o addfix.o addlom.o addmat.o addmul.o addotl.o addsef.o addsub.o addtd.o addusr.o adestr.o adjreg.o adjsrs.o adlabr.o adotss.o adpdrg.o adrgef.o adrgim.o adsncs.o adthnk.o aggmea.o agr.o agr1.o agr2.o agr3.o agr3s.o agrxpt.o altundovrtst.o amdest.o amdfct.o amdid.o amdid2.o amdprt.o amidot.o analts.o ansub1.o ansub10.o ansub11.o ansub2.o ansub3.o ansub4.o ansub5.o ansub7.o ansub8.o ansub9.o antilg.o apply.o ar30rg.o arfit.o arflt.o arima.o armacr.o armafl.o armats.o arspc.o autoer.o automd.o automx.o avedur.o aver.o averag.o bakusr.o bench.o bestmd.o bkdfmd.o bldcov.o blddif.o bstget.o bstmdl.o btrit.o calcqs.o calcqs2.o calcsc.o ceilng.o change.o chisq.o chitst.o chkadj.o chkchi.o chkcvr.o chkeas.o chkmu.o chkorv.o chkrt1.o chkrt2.o chkrts.o chksmd.o chktrn.o chkuhg.o chkurt.o chkzro.o chrt.o chsppf.o chusrg.o clrotl.o clsgrp.o cmpchi.o cmpstr.o cncrnt.o cnvfil.o cnvfmt.o cnvmdl.o coladd.o combft.o compb.o compcrodiag.o compdiag.o complagdiag.o compmse.o compmsealt.o component.o comprevs.o constant.o copy.o copycl.o copylg.o cormtx.o cornom.o corplt.o covar.o cpyint.o cpymat.o crosco.o ctod.o ctodat.o ctoi.o cumnor.o cvcmma.o cvdttm.o cvrerr.o daxpy.o dcopy.o ddot.o decibl.o delstr.o deltst.o desreg.o devlpl.o dfdate.o dgefa.o dgesl.o difflt.o dinvnr.o divgud.o divsub.o dlrgef.o dlrgrw.o dlusrg.o dot.o dpeq.o dpmpar.o dppdi.o dppfa.o dppsl.o dsarma.o dscal.o dsolve.o dtoc.o easaic.o easter.o editor.o eltfcn.o eltlen.o emcomp.o ends.o endsf.o enorm.o entsch.o errhdr.o estrmu.o euclid.o exctma.o extend.o extsgnl.o f3cal.o f3gen.o fclose.o fcnar.o fcstxy.o fdjac2.o fgen.o fis.o fopen.o forcst.o fouger.o fstop.o ftest.o fvalue.o fxshfr.o gauss.o gendff.o genfoot.o genfor.o genindex.o genqs.o genrtt.o genskip.o genssm.o getadj.o getchk.o getchr.o getcmp.o getdat.o getdbl.o getdes.o getdiag.o getfcn.o getfrc.o getgr.o getid.o getidm.o getint.o getivc.o getmdl.o getmtd.o getopr.o getprt.o getreg.o getrev.o getrevdec.o getsav.o getsma.o getsmat.o getsrs.o getssp.o getstr.o getsvec.o getsvl.o gettpltz.o gettr.o gettrc.o getttl.o getx11.o getxop.o getxtd.o glbshk.o gnfcrv.o grzlst.o grzmth.o grzmyr.o gtarg.o gtarma.o gtauto.o gtautx.o gtdcnm.o gtdcvc.o gtdpvc.o gtdtvc.o gtedit.o gtestm.o gtfcst.o gtfldt.o gtfrcm.o gtfree.o gtinpt.o gtinvl.o gtmdfl.o gtmtdt.o gtmtfl.o gtnmvc.o gtotlr.o gtpdrg.o gtrgdt.o gtrgpt.o gtrgvl.o gtrvst.o gtseat.o gtspec.o gttrmo.o gtwacf.o gtx11d.o gtx12s.o gtxreg.o hender.o hinge.o hist.o histx.o hndend.o hndtrn.o holday.o holidy.o hrest.o htmlfortable.o htmlout.o htmlutil.o idamax.o iddiff.o idmdl.o idotlr.o idpeak.o inbtwn.o indx.o initdg.o initst.o inpter.o insdbl.o insint.o inslg.o insopr.o insort.o insptr.o insstr.o intfmt.o intgpg.o intinp.o intlst.o intrpp.o intsrt.o invfcn.o invmat.o ipmpar.o iscrfn.o isdate.o isfals.o isfixd.o ispeak.o ispos.o issame.o istrue.o itoc.o itrerr.o kfcn.o kwtest.o lassol.o lendp.o lex.o lgnrmc.o lkshnk.o lmdif.o lmpar.o loadxr.o locshk.o logar.o logdet.o lomaic.o lstpth.o makadj.o makotl.o makttl.o map.o matrix.o maxidx.o maxlag.o maxvec.o mdlchk.o mdlfix.o mdlinp.o mdlint.o mdlmch.o mdlset.o mdssln.o meancra.o medabs.o mflag.o minim2.o mkback.o mkealb.o mkfreq.o mklnlb.o mkmdsn.o mkmdsx.o mkmetahtmlfile.o mkoprt.o mkotky.o mkpeak.o mkshdr.o mkspky.o mksplb.o mkssky.o mkstlb.o mkspst.o mktdlb.o mlist.o mltpos.o month.o mstest.o mulmat.o mulqmat.o mulref.o mulsca.o mult.o mult0.o mult1.o mult2.o mxpeak.o nblank.o newest.o nextk.o nmlmdl.o nofcst.o nrmtst.o numaff.o numfmt.o olsreg.o opnfil.o otsort.o outchr.o pacf.o pass0.o pass2.o pctrit.o phasegain.o polyml.o polynom.o ppnd.o pracf2.o prafce.o pragr2.o prfcrv.o pritd.o prlkhd.o procflts.o prothd.o prprad.o prrvob.o prshd2.o prtacf.o prtadj.o prtagr.o prtamd.o prtchi.o prtcol.o prtd8b.o prtd9a.o prtdtb.o prtdwr.o prterr.o prterx.o prtf2.o prtf2w.o prtfct.o prtft.o prtitr.o prtlog.o prtmdl.o prtmsp.o prtmsr.o prtmtx.o prtnfn.o prtopt.o prtref.o prtrev.o prtrts.o prtrv2.o prtshd.o prttbl.o prttbl1.o prttd.o prttrn.o prtxrg.o punch.o putbak.o putrev.o putstr.o qcmmnt.o qcontr.o qdoble.o qintgr.o qmap.o qmap2.o qname.o qquote.o qrfac.o qrsolv.o qsdiff.o qtoken.o quad.o quadit.o quadsd.o ratneg.o ratpos.o rdotlr.o rdotls.o rdregm.o realit.o regfix.o reglbl.o regvar.o regx11.o replac.o replyf.o resid.o resid2.o restor.o revchk.o revdrv.o revhdr.o revrse.o rgarma.o rgtdhl.o rho2.o rmatot.o rmfix.o rmlnvr.o rmlpyr.o rmotrv.o rmotss.o rmpadj.o rmtadj.o rndsa.o rngbuf.o roots.o round.o rplus.o rpoly.o rv2ss.o rvfixd.o rvrghd.o sautco.o savacf.o savchi.o savd8b.o savitr.o savmdc.o savmdl.o savmtx.o savotl.o savpk.o savspp.o savstp.o savtbl.o savwkf.o sceast.o scrmlt.o sdev.o sdxtrm.o seatad.o seatdg.o seatfc.o seatpr.o serates.o setadj.o setamx.o setapt.o setchr.o setcv.o setcvl.o setdp.o setint.o setlg.o setmdl.o setmv.o setopr.o setpt.o setrvp.o setspn.o setssp.o setup.o setwrt.o setxpt.o sfmax.o sfmsr.o sftest.o shlsrt.o shrink.o si.o sicp2.o sigex.o sigsub.o simul.o skparg.o skparm.o skpfcn.o skplst.o smeadl.o smpeak.o snrasp.o spcdrv.o spcrsd.o special.o specpeak.o spectrum.o spgrh.o spgrh2.o spmpar.o ss2rv.o ssap.o ssfnot.o ssftst.o sshist.o ssmdl.o ssort.o sspdrv.o ssphdr.o ssprep.o ssrit.o ssrng.o ssx11a.o ssxmdl.o stpitr.o strinx.o strtvl.o stvaln.o subset.o sumf.o sumry.o sumsqr.o svaict.o svamcm.o svchsd.o svdttm.o svf2f3.o svflt.o svfltd.o svfnrg.o svfreq.o svolit.o svoudg.o svpeak.o svrgcm.o svrvhd.o svspan.o table.o taper.o tblhdr.o td6var.o td7var.o tdaic.o tdftest.o tdlom.o tdset.o tdxtrm.o templs.o tfmts.o tfmts3.o totals.o transc.o trbias.o trnaic.o trnfcn.o tstdrv.o tstmd1.o tstmd2.o ttest.o uconv.o upespm.o usraic.o value.o varian.o varlog.o vars.o vsfa.o vsfb.o vsfc.o vtc.o vtest.o weight.o whitsp.o writln.o wrtdat.o wrtmss.o wrtotl.o wrttb2.o wrttbl.o wtxtrm.o x11aic.o x11ari.o x11int.o x11mdl.o x11plt.o x11pt1.o x11pt2.o x11pt3.o x11pt4.o x11ref.o x12hdr.o x12run.o xchng.o xpand.o xprmx.o xrgdiv.o xrgdrv.o xrghol.o xrgtrn.o xrlkhd.o xtrm.o yprmy.o yrly.o rvarma.o rvtdrg.o prtukp.o svtukp.o savtpk.o m2q.o chqsea.o npsa.o gennpsa.o prarma.o testodf.o make[1]: Leaving directory '/srv/hornik/tmp/CRAN/x13binary.Rcheck/00_pkg_src/x13binary/tools/x13as_html' mkdir -p ../inst/bin cp -f ../tools/x13as_html/x13ashtml ../inst/bin/ installing via 'install.libs.R' to /srv/hornik/tmp/CRAN/x13binary.Rcheck/00LOCK-x13binary/00new/x13binary ** 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 * DONE (x13binary)