* installing to library ‘/home/hornik/tmp/R.check/r-devel-clang/Work/build/Packages’
* installing *source* package ‘x13binary’ ...
** package ‘x13binary’ successfully unpacked and MD5 sums checked
** using staged installation
** libs
make[1]: Entering directory '/home/hornik/tmp/scratch/RtmpA0Fylo/R.INSTALL26934d708001f1/x13binary/src'
FC="flang-new-19" LINKER="flang-new-19" make --directory=../tools/x13as_html -f makefile.gf x13ashtml
make[2]: Entering directory '/home/hornik/tmp/scratch/RtmpA0Fylo/R.INSTALL26934d708001f1/x13binary/tools/x13as_html'
flang-new-19 -c -o aaamain.o aaamain.f
flang-new-19 -c -o abend.o abend.f
flang-new-19 -c -o acf.o acf.f
flang-new-19 -c -o acfar.o acfar.f
flang-new-19 -c -o acfdgn.o acfdgn.f
flang-new-19 -c -o acfhdr.o acfhdr.f
flang-new-19 -c -o addadj.o addadj.f
flang-new-19 -c -o addate.o addate.f
flang-new-19 -c -o addeas.o addeas.f
flang-new-19 -c -o addfix.o addfix.f
flang-new-19 -c -o addlom.o addlom.f
flang-new-19 -c -o addmat.o addmat.f
flang-new-19 -c -o addmul.o addmul.f
flang-new-19 -c -o addotl.o addotl.f
flang-new-19 -c -o addsef.o addsef.f
flang-new-19 -c -o addsub.o addsub.f
flang-new-19 -c -o addtd.o addtd.f
flang-new-19 -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-19 -c -o adestr.o adestr.f
flang-new-19 -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-19 -c -o adjsrs.o adjsrs.f
flang-new-19 -c -o adlabr.o adlabr.f
flang-new-19 -c -o adotss.o adotss.f
flang-new-19 -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-19 -c -o adrgef.o adrgef.f
flang-new-19 -c -o adrgim.o adrgim.f
flang-new-19 -c -o adsncs.o adsncs.f
flang-new-19 -c -o adthnk.o adthnk.f
flang-new-19 -c -o aggmea.o aggmea.f
flang-new-19 -c -o agr.o agr.f
flang-new-19 -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-19 -c -o agr2.o agr2.f
flang-new-19 -c -o agr3.o agr3.f
flang-new-19 -c -o agr3s.o agr3s.f
flang-new-19 -c -o agrxpt.o agrxpt.f
flang-new-19 -c -o altundovrtst.o altundovrtst.f
flang-new-19 -c -o amdest.o amdest.f
flang-new-19 -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-19 -c -o amdid.o amdid.f
flang-new-19 -c -o amdid2.o amdid2.f
flang-new-19 -c -o amdprt.o amdprt.f
flang-new-19 -c -o amidot.o amidot.f
flang-new-19 -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-19 -c -o ansub1.o ansub1.f
flang-new-19 -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-19 -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-19 -c -o ansub2.o ansub2.f
flang-new-19 -c -o ansub3.o ansub3.f
flang-new-19 -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-19 -c -o ansub5.o ansub5.f
flang-new-19 -c -o ansub7.o ansub7.f
flang-new-19 -c -o ansub8.o ansub8.f
flang-new-19 -c -o ansub9.o ansub9.f
flang-new-19 -c -o antilg.o antilg.f
flang-new-19 -c -o apply.o apply.f
flang-new-19 -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-19 -c -o arfit.o arfit.f
flang-new-19 -c -o arflt.o arflt.f
flang-new-19 -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-19 -c -o armacr.o armacr.f
flang-new-19 -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-19 -c -o armats.o armats.f
flang-new-19 -c -o arspc.o arspc.f
flang-new-19 -c -o autoer.o autoer.f
flang-new-19 -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-19 -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-19 -c -o avedur.o avedur.f
flang-new-19 -c -o aver.o aver.f
flang-new-19 -c -o averag.o averag.f
flang-new-19 -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-19 -c -o bench.o bench.f
flang-new-19 -c -o bestmd.o bestmd.f
flang-new-19 -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-19 -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-19 -c -o blddif.o blddif.f
flang-new-19 -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-19 -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-19 -c -o btrit.o btrit.f
flang-new-19 -c -o calcqs.o calcqs.f
flang-new-19 -c -o calcqs2.o calcqs2.f
flang-new-19 -c -o calcsc.o calcsc.f
flang-new-19 -c -o ceilng.o ceilng.f
flang-new-19 -c -o change.o change.f
flang-new-19 -c -o chisq.o chisq.f
flang-new-19 -c -o chitst.o chitst.f
flang-new-19 -c -o chkadj.o chkadj.f
flang-new-19 -c -o chkchi.o chkchi.f
flang-new-19 -c -o chkcvr.o chkcvr.f
flang-new-19 -c -o chkeas.o chkeas.f
flang-new-19 -c -o chkmu.o chkmu.f
flang-new-19 -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-19 -c -o chkrt1.o chkrt1.f
flang-new-19 -c -o chkrt2.o chkrt2.f
flang-new-19 -c -o chkrts.o chkrts.f
flang-new-19 -c -o chksmd.o chksmd.f
flang-new-19 -c -o chktrn.o chktrn.f
flang-new-19 -c -o chkuhg.o chkuhg.f
flang-new-19 -c -o chkurt.o chkurt.f
flang-new-19 -c -o chkzro.o chkzro.f
flang-new-19 -c -o chrt.o chrt.f
flang-new-19 -c -o chsppf.o chsppf.f
flang-new-19 -c -o chusrg.o chusrg.f
flang-new-19 -c -o clrotl.o clrotl.f
flang-new-19 -c -o clsgrp.o clsgrp.f
flang-new-19 -c -o cmpchi.o cmpchi.f
flang-new-19 -c -o cmpstr.o cmpstr.f
flang-new-19 -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-19 -c -o cnvfil.o cnvfil.f
flang-new-19 -c -o cnvfmt.o cnvfmt.f
flang-new-19 -c -o cnvmdl.o cnvmdl.f
flang-new-19 -c -o coladd.o coladd.f
flang-new-19 -c -o combft.o combft.f
flang-new-19 -c -o compb.o compb.f
flang-new-19 -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-19 -c -o compdiag.o compdiag.f
flang-new-19 -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-19 -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-19 -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-19 -c -o component.o component.f
flang-new-19 -c -o comprevs.o comprevs.f
flang-new-19 -c -o constant.o constant.f
flang-new-19 -c -o copy.o copy.f
flang-new-19 -c -o copycl.o copycl.f
flang-new-19 -c -o copylg.o copylg.f
flang-new-19 -c -o cormtx.o cormtx.f
flang-new-19 -c -o cornom.o cornom.f
flang-new-19 -c -o corplt.o corplt.f
flang-new-19 -c -o covar.o covar.f
flang-new-19 -c -o cpyint.o cpyint.f
flang-new-19 -c -o cpymat.o cpymat.f
flang-new-19 -c -o crosco.o crosco.f
flang-new-19 -c -o ctod.o ctod.f
flang-new-19 -c -o ctodat.o ctodat.f
flang-new-19 -c -o ctoi.o ctoi.f
flang-new-19 -c -o cumnor.o cumnor.f
flang-new-19 -c -o cvcmma.o cvcmma.f
flang-new-19 -c -o cvdttm.o cvdttm.f
flang-new-19 -c -o cvrerr.o cvrerr.f
flang-new-19 -c -o daxpy.o daxpy.f
flang-new-19 -c -o dcopy.o dcopy.f
flang-new-19 -c -o ddot.o ddot.f
flang-new-19 -c -o decibl.o decibl.f
flang-new-19 -c -o delstr.o delstr.f
flang-new-19 -c -o deltst.o deltst.f
flang-new-19 -c -o desreg.o desreg.f
flang-new-19 -c -o devlpl.o devlpl.f
flang-new-19 -c -o dfdate.o dfdate.f
flang-new-19 -c -o dgefa.o dgefa.f
flang-new-19 -c -o dgesl.o dgesl.f
flang-new-19 -c -o difflt.o difflt.f
flang-new-19 -c -o dinvnr.o dinvnr.f
flang-new-19 -c -o divgud.o divgud.f
flang-new-19 -c -o divsub.o divsub.f
flang-new-19 -c -o dlrgef.o dlrgef.f
flang-new-19 -c -o dlrgrw.o dlrgrw.f
flang-new-19 -c -o dlusrg.o dlusrg.f
flang-new-19 -c -o dot.o dot.f
flang-new-19 -c -o dpeq.o dpeq.f
flang-new-19 -c -o dpmpar.o dpmpar.f
flang-new-19 -c -o dppdi.o dppdi.f
flang-new-19 -c -o dppfa.o dppfa.f
flang-new-19 -c -o dppsl.o dppsl.f
flang-new-19 -c -o dsarma.o dsarma.f
flang-new-19 -c -o dscal.o dscal.f
flang-new-19 -c -o dsolve.o dsolve.f
flang-new-19 -c -o dtoc.o dtoc.f
flang-new-19 -c -o easaic.o easaic.f
flang-new-19 -c -o easter.o easter.f
flang-new-19 -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-19 -c -o eltfcn.o eltfcn.f
flang-new-19 -c -o eltlen.o eltlen.f
flang-new-19 -c -o emcomp.o emcomp.f
flang-new-19 -c -o ends.o ends.f
flang-new-19 -c -o endsf.o endsf.f
flang-new-19 -c -o enorm.o enorm.f
flang-new-19 -c -o entsch.o entsch.f
flang-new-19 -c -o errhdr.o errhdr.f
flang-new-19 -c -o estrmu.o estrmu.f
flang-new-19 -c -o euclid.o euclid.f
flang-new-19 -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-19 -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-19 -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-19 -c -o f3cal.o f3cal.f
flang-new-19 -c -o f3gen.o f3gen.f
flang-new-19 -c -o fclose.o fclose.f
flang-new-19 -c -o fcnar.o fcnar.f
flang-new-19 -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-19 -c -o fdjac2.o fdjac2.f
flang-new-19 -c -o fgen.o fgen.f
flang-new-19 -c -o fis.o fis.f
flang-new-19 -c -o fopen.o fopen.f
flang-new-19 -c -o forcst.o forcst.f
flang-new-19 -c -o fouger.o fouger.f
flang-new-19 -c -o fstop.o fstop.f
flang-new-19 -c -o ftest.o ftest.f
flang-new-19 -c -o fvalue.o fvalue.f
flang-new-19 -c -o fxshfr.o fxshfr.f
flang-new-19 -c -o gauss.o gauss.f
flang-new-19 -c -o gendff.o gendff.f
flang-new-19 -c -o genfoot.o genfoot.f
flang-new-19 -c -o genfor.o genfor.f
flang-new-19 -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-19 -c -o genqs.o genqs.f
flang-new-19 -c -o genrtt.o genrtt.f
flang-new-19 -c -o genskip.o genskip.f
flang-new-19 -c -o genssm.o genssm.f
flang-new-19 -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-19 -c -o getchk.o getchk.f
flang-new-19 -c -o getchr.o getchr.f
flang-new-19 -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-19 -c -o getdat.o getdat.f
flang-new-19 -c -o getdbl.o getdbl.f
flang-new-19 -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-19 -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-19 -c -o getfcn.o getfcn.f
flang-new-19 -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-19 -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-19 -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-19 -c -o getidm.o getidm.f
flang-new-19 -c -o getint.o getint.f
flang-new-19 -c -o getivc.o getivc.f
flang-new-19 -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-19 -c -o getmtd.o getmtd.f
flang-new-19 -c -o getopr.o getopr.f
flang-new-19 -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-19 -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-19 -c -o getrev.o getrev.f
flang-new-19 -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-19 -c -o getsav.o getsav.f
flang-new-19 -c -o getsma.o getsma.f
flang-new-19 -c -o getsmat.o getsmat.f
flang-new-19 -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-19 -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-19 -c -o getstr.o getstr.f
flang-new-19 -c -o getsvec.o getsvec.f
flang-new-19 -c -o getsvl.o getsvl.f
flang-new-19 -c -o gettpltz.o gettpltz.f
flang-new-19 -c -o gettr.o gettr.f
flang-new-19 -c -o gettrc.o gettrc.f
flang-new-19 -c -o getttl.o getttl.f
flang-new-19 -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-19 -c -o getxop.o getxop.f
flang-new-19 -c -o getxtd.o getxtd.f
flang-new-19 -c -o glbshk.o glbshk.f
flang-new-19 -c -o gnfcrv.o gnfcrv.f
flang-new-19 -c -o grzlst.o grzlst.f
flang-new-19 -c -o grzmth.o grzmth.f
flang-new-19 -c -o grzmyr.o grzmyr.f
flang-new-19 -c -o gtarg.o gtarg.f
flang-new-19 -c -o gtarma.o gtarma.f
flang-new-19 -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-19 -c -o gtautx.o gtautx.f
flang-new-19 -c -o gtdcnm.o gtdcnm.f
flang-new-19 -c -o gtdcvc.o gtdcvc.f
flang-new-19 -c -o gtdpvc.o gtdpvc.f
flang-new-19 -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-19 -c -o gtedit.o gtedit.f
flang-new-19 -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-19 -c -o gtfcst.o gtfcst.f
flang-new-19 -c -o gtfldt.o gtfldt.f
flang-new-19 -c -o gtfrcm.o gtfrcm.f
flang-new-19 -c -o gtfree.o gtfree.f
flang-new-19 -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-19 -c -o gtinvl.o gtinvl.f
flang-new-19 -c -o gtmdfl.o gtmdfl.f
flang-new-19 -c -o gtmtdt.o gtmtdt.f
flang-new-19 -c -o gtmtfl.o gtmtfl.f
flang-new-19 -c -o gtnmvc.o gtnmvc.f
flang-new-19 -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-19 -c -o gtpdrg.o gtpdrg.f
flang-new-19 -c -o gtrgdt.o gtrgdt.f
flang-new-19 -c -o gtrgpt.o gtrgpt.f
flang-new-19 -c -o gtrgvl.o gtrgvl.f
flang-new-19 -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-19 -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-19 -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-19 -c -o gttrmo.o gttrmo.f
flang-new-19 -c -o gtwacf.o gtwacf.f
flang-new-19 -c -o gtx11d.o gtx11d.f
flang-new-19 -c -o gtx12s.o gtx12s.f
flang-new-19 -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-19 -c -o hender.o hender.f
flang-new-19 -c -o hinge.o hinge.f
flang-new-19 -c -o hist.o hist.f
flang-new-19 -c -o histx.o histx.f
flang-new-19 -c -o hndend.o hndend.f
flang-new-19 -c -o hndtrn.o hndtrn.f
flang-new-19 -c -o holday.o holday.f
flang-new-19 -c -o holidy.o holidy.f
flang-new-19 -c -o hrest.o hrest.f
flang-new-19 -c -o htmlfortable.o htmlfortable.f
flang-new-19 -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-19 -c -o htmlutil.o htmlutil.f
flang-new-19 -c -o idamax.o idamax.f
flang-new-19 -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-19 -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-19 -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-19 -c -o idpeak.o idpeak.f
flang-new-19 -c -o inbtwn.o inbtwn.f
flang-new-19 -c -o indx.o indx.f
flang-new-19 -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-19 -c -o initst.o initst.f
flang-new-19 -c -o inpter.o inpter.f
flang-new-19 -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-19 -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-19 -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-19 -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-19 -c -o insort.o insort.f
flang-new-19 -c -o insptr.o insptr.f
flang-new-19 -c -o insstr.o insstr.f
flang-new-19 -c -o intfmt.o intfmt.f
flang-new-19 -c -o intgpg.o intgpg.f
flang-new-19 -c -o intinp.o intinp.f
flang-new-19 -c -o intlst.o intlst.f
flang-new-19 -c -o intrpp.o intrpp.f
flang-new-19 -c -o intsrt.o intsrt.f
flang-new-19 -c -o invfcn.o invfcn.f
flang-new-19 -c -o invmat.o invmat.f
flang-new-19 -c -o ipmpar.o ipmpar.f
flang-new-19 -c -o iscrfn.o iscrfn.f
flang-new-19 -c -o isdate.o isdate.f
flang-new-19 -c -o isfals.o isfals.f
flang-new-19 -c -o isfixd.o isfixd.f
flang-new-19 -c -o ispeak.o ispeak.f
flang-new-19 -c -o ispos.o ispos.f
flang-new-19 -c -o issame.o issame.f
flang-new-19 -c -o istrue.o istrue.f
flang-new-19 -c -o itoc.o itoc.f
flang-new-19 -c -o itrerr.o itrerr.f
flang-new-19 -c -o kfcn.o kfcn.f
flang-new-19 -c -o kwtest.o kwtest.f
flang-new-19 -c -o lassol.o lassol.f
flang-new-19 -c -o lendp.o lendp.f
flang-new-19 -c -o lex.o lex.f
flang-new-19 -c -o lgnrmc.o lgnrmc.f
flang-new-19 -c -o lkshnk.o lkshnk.f
flang-new-19 -c -o lmdif.o lmdif.f
flang-new-19 -c -o lmpar.o lmpar.f
flang-new-19 -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-19 -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-19 -c -o logar.o logar.f
flang-new-19 -c -o logdet.o logdet.f
flang-new-19 -c -o lomaic.o lomaic.f
flang-new-19 -c -o lstpth.o lstpth.f
flang-new-19 -c -o makadj.o makadj.f
flang-new-19 -c -o makotl.o makotl.f
flang-new-19 -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-19 -c -o map.o map.f
flang-new-19 -c -o matrix.o matrix.f
flang-new-19 -c -o maxidx.o maxidx.f
flang-new-19 -c -o maxlag.o maxlag.f
flang-new-19 -c -o maxvec.o maxvec.f
flang-new-19 -c -o mdlchk.o mdlchk.f
flang-new-19 -c -o mdlfix.o mdlfix.f
flang-new-19 -c -o mdlinp.o mdlinp.f
flang-new-19 -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-19 -c -o mdlmch.o mdlmch.f
flang-new-19 -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-19 -c -o mdssln.o mdssln.f
flang-new-19 -c -o meancra.o meancra.f
flang-new-19 -c -o medabs.o medabs.f
flang-new-19 -c -o mflag.o mflag.f
flang-new-19 -c -o minim2.o minim2.f
flang-new-19 -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-19 -c -o mkealb.o mkealb.f
flang-new-19 -c -o mkfreq.o mkfreq.f
flang-new-19 -c -o mklnlb.o mklnlb.f
flang-new-19 -c -o mkmdsn.o mkmdsn.f
flang-new-19 -c -o mkmdsx.o mkmdsx.f
flang-new-19 -c -o mkmetahtmlfile.o mkmetahtmlfile.f
flang-new-19 -c -o mkoprt.o mkoprt.f
flang-new-19 -c -o mkotky.o mkotky.f
flang-new-19 -c -o mkpeak.o mkpeak.f
flang-new-19 -c -o mkshdr.o mkshdr.f
flang-new-19 -c -o mkspky.o mkspky.f
flang-new-19 -c -o mksplb.o mksplb.f
flang-new-19 -c -o mkssky.o mkssky.f
flang-new-19 -c -o mkstlb.o mkstlb.f
flang-new-19 -c -o mkspst.o mkspst.f
flang-new-19 -c -o mktdlb.o mktdlb.f
flang-new-19 -c -o mlist.o mlist.f
flang-new-19 -c -o mltpos.o mltpos.f
flang-new-19 -c -o month.o month.f
flang-new-19 -c -o mstest.o mstest.f
flang-new-19 -c -o mulmat.o mulmat.f
flang-new-19 -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-19 -c -o mulref.o mulref.f
flang-new-19 -c -o mulsca.o mulsca.f
flang-new-19 -c -o mult.o mult.f
flang-new-19 -c -o mult0.o mult0.f
flang-new-19 -c -o mult1.o mult1.f
flang-new-19 -c -o mult2.o mult2.f
flang-new-19 -c -o mxpeak.o mxpeak.f
flang-new-19 -c -o nblank.o nblank.f
flang-new-19 -c -o newest.o newest.f
flang-new-19 -c -o nextk.o nextk.f
flang-new-19 -c -o nmlmdl.o nmlmdl.f
flang-new-19 -c -o nofcst.o nofcst.f
flang-new-19 -c -o nrmtst.o nrmtst.f
flang-new-19 -c -o numaff.o numaff.f
flang-new-19 -c -o numfmt.o numfmt.f
flang-new-19 -c -o olsreg.o olsreg.f
flang-new-19 -c -o opnfil.o opnfil.f
flang-new-19 -c -o otsort.o otsort.f
flang-new-19 -c -o outchr.o outchr.f
flang-new-19 -c -o pacf.o pacf.f
flang-new-19 -c -o pass0.o pass0.f
flang-new-19 -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-19 -c -o pctrit.o pctrit.f
flang-new-19 -c -o phasegain.o phasegain.f
flang-new-19 -c -o polyml.o polyml.f
flang-new-19 -c -o polynom.o polynom.f
flang-new-19 -c -o ppnd.o ppnd.f
flang-new-19 -c -o pracf2.o pracf2.f
flang-new-19 -c -o prafce.o prafce.f
flang-new-19 -c -o pragr2.o pragr2.f
flang-new-19 -c -o prfcrv.o prfcrv.f
flang-new-19 -c -o pritd.o pritd.f
flang-new-19 -c -o prlkhd.o prlkhd.f
flang-new-19 -c -o procflts.o procflts.f
flang-new-19 -c -o prothd.o prothd.f
flang-new-19 -c -o prprad.o prprad.f
flang-new-19 -c -o prrvob.o prrvob.f
flang-new-19 -c -o prshd2.o prshd2.f
flang-new-19 -c -o prtacf.o prtacf.f
flang-new-19 -c -o prtadj.o prtadj.f
flang-new-19 -c -o prtagr.o prtagr.f
flang-new-19 -c -o prtamd.o prtamd.f
flang-new-19 -c -o prtchi.o prtchi.f
flang-new-19 -c -o prtcol.o prtcol.f
flang-new-19 -c -o prtd8b.o prtd8b.f
flang-new-19 -c -o prtd9a.o prtd9a.f
flang-new-19 -c -o prtdtb.o prtdtb.f
flang-new-19 -c -o prtdwr.o prtdwr.f
flang-new-19 -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-19 -c -o prterx.o prterx.f
flang-new-19 -c -o prtf2.o prtf2.f
flang-new-19 -c -o prtf2w.o prtf2w.f
flang-new-19 -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-19 -c -o prtft.o prtft.f
flang-new-19 -c -o prtitr.o prtitr.f
flang-new-19 -c -o prtlog.o prtlog.f
flang-new-19 -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-19 -c -o prtmsp.o prtmsp.f
flang-new-19 -c -o prtmsr.o prtmsr.f
flang-new-19 -c -o prtmtx.o prtmtx.f
flang-new-19 -c -o prtnfn.o prtnfn.f
flang-new-19 -c -o prtopt.o prtopt.f
flang-new-19 -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-19 -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-19 -c -o prtrts.o prtrts.f
flang-new-19 -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-19 -c -o prtshd.o prtshd.f
flang-new-19 -c -o prttbl.o prttbl.f
flang-new-19 -c -o prttbl1.o prttbl1.f
flang-new-19 -c -o prttd.o prttd.f
flang-new-19 -c -o prttrn.o prttrn.f
flang-new-19 -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-19 -c -o punch.o punch.f
flang-new-19 -c -o putbak.o putbak.f
flang-new-19 -c -o putrev.o putrev.f
flang-new-19 -c -o putstr.o putstr.f
flang-new-19 -c -o qcmmnt.o qcmmnt.f
flang-new-19 -c -o qcontr.o qcontr.f
flang-new-19 -c -o qdoble.o qdoble.f
flang-new-19 -c -o qintgr.o qintgr.f
flang-new-19 -c -o qmap.o qmap.f
flang-new-19 -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-19 -c -o qname.o qname.f
flang-new-19 -c -o qquote.o qquote.f
flang-new-19 -c -o qrfac.o qrfac.f
flang-new-19 -c -o qrsolv.o qrsolv.f
flang-new-19 -c -o qsdiff.o qsdiff.f
flang-new-19 -c -o qtoken.o qtoken.f
flang-new-19 -c -o quad.o quad.f
flang-new-19 -c -o quadit.o quadit.f
flang-new-19 -c -o quadsd.o quadsd.f
flang-new-19 -c -o ratneg.o ratneg.f
flang-new-19 -c -o ratpos.o ratpos.f
flang-new-19 -c -o rdotlr.o rdotlr.f
flang-new-19 -c -o rdotls.o rdotls.f
flang-new-19 -c -o rdregm.o rdregm.f
flang-new-19 -c -o realit.o realit.f
flang-new-19 -c -o regfix.o regfix.f
flang-new-19 -c -o reglbl.o reglbl.f
flang-new-19 -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-19 -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-19 -c -o replac.o replac.f
flang-new-19 -c -o replyf.o replyf.f
flang-new-19 -c -o resid.o resid.f
flang-new-19 -c -o resid2.o resid2.f
flang-new-19 -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-19 -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-19 -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-19 -c -o revhdr.o revhdr.f
flang-new-19 -c -o revrse.o revrse.f
flang-new-19 -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-19 -c -o rgtdhl.o rgtdhl.f
flang-new-19 -c -o rho2.o rho2.f
flang-new-19 -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-19 -c -o rmfix.o rmfix.f
flang-new-19 -c -o rmlnvr.o rmlnvr.f
flang-new-19 -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-19 -c -o rmotrv.o rmotrv.f
flang-new-19 -c -o rmotss.o rmotss.f
flang-new-19 -c -o rmpadj.o rmpadj.f
flang-new-19 -c -o rmtadj.o rmtadj.f
flang-new-19 -c -o rndsa.o rndsa.f
flang-new-19 -c -o rngbuf.o rngbuf.f
flang-new-19 -c -o roots.o roots.f
flang-new-19 -c -o round.o round.f
flang-new-19 -c -o rplus.o rplus.f
flang-new-19 -c -o rpoly.o rpoly.f
flang-new-19 -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-19 -c -o rvfixd.o rvfixd.f
flang-new-19 -c -o rvrghd.o rvrghd.f
flang-new-19 -c -o sautco.o sautco.f
flang-new-19 -c -o savacf.o savacf.f
flang-new-19 -c -o savchi.o savchi.f
flang-new-19 -c -o savd8b.o savd8b.f
flang-new-19 -c -o savitr.o savitr.f
flang-new-19 -c -o savmdc.o savmdc.f
flang-new-19 -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-19 -c -o savmtx.o savmtx.f
flang-new-19 -c -o savotl.o savotl.f
flang-new-19 -c -o savpk.o savpk.f
flang-new-19 -c -o savspp.o savspp.f
flang-new-19 -c -o savstp.o savstp.f
flang-new-19 -c -o savtbl.o savtbl.f
flang-new-19 -c -o savwkf.o savwkf.f
flang-new-19 -c -o sceast.o sceast.f
flang-new-19 -c -o scrmlt.o scrmlt.f
flang-new-19 -c -o sdev.o sdev.f
flang-new-19 -c -o sdxtrm.o sdxtrm.f
flang-new-19 -c -o seatad.o seatad.f
flang-new-19 -c -o seatdg.o seatdg.f
flang-new-19 -c -o seatfc.o seatfc.f
flang-new-19 -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-19 -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-19 -c -o setadj.o setadj.f
flang-new-19 -c -o setamx.o setamx.f
flang-new-19 -c -o setapt.o setapt.f
flang-new-19 -c -o setchr.o setchr.f
flang-new-19 -c -o setcv.o setcv.f
flang-new-19 -c -o setcvl.o setcvl.f
flang-new-19 -c -o setdp.o setdp.f
flang-new-19 -c -o setint.o setint.f
flang-new-19 -c -o setlg.o setlg.f
flang-new-19 -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-19 -c -o setmv.o setmv.f
flang-new-19 -c -o setopr.o setopr.f
flang-new-19 -c -o setpt.o setpt.f
flang-new-19 -c -o setrvp.o setrvp.f
flang-new-19 -c -o setspn.o setspn.f
flang-new-19 -c -o setssp.o setssp.f
flang-new-19 -c -o setup.o setup.f
flang-new-19 -c -o setwrt.o setwrt.f
flang-new-19 -c -o setxpt.o setxpt.f
flang-new-19 -c -o sfmax.o sfmax.f
flang-new-19 -c -o sfmsr.o sfmsr.f
flang-new-19 -c -o sftest.o sftest.f
flang-new-19 -c -o shlsrt.o shlsrt.f
flang-new-19 -c -o shrink.o shrink.f
flang-new-19 -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-19 -c -o sicp2.o sicp2.f
flang-new-19 -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-19 -c -o sigsub.o sigsub.f
flang-new-19 -c -o simul.o simul.f
flang-new-19 -c -o skparg.o skparg.f
flang-new-19 -c -o skparm.o skparm.f
flang-new-19 -c -o skpfcn.o skpfcn.f
flang-new-19 -c -o skplst.o skplst.f
flang-new-19 -c -o smeadl.o smeadl.f
flang-new-19 -c -o smpeak.o smpeak.f
flang-new-19 -c -o snrasp.o snrasp.f
flang-new-19 -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-19 -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-19 -c -o special.o special.f
flang-new-19 -c -o specpeak.o specpeak.f
flang-new-19 -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-19 -c -o spgrh.o spgrh.f
flang-new-19 -c -o spgrh2.o spgrh2.f
flang-new-19 -c -o spmpar.o spmpar.f
flang-new-19 -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-19 -c -o ssap.o ssap.f
flang-new-19 -c -o ssfnot.o ssfnot.f
flang-new-19 -c -o ssftst.o ssftst.f
flang-new-19 -c -o sshist.o sshist.f
flang-new-19 -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-19 -c -o ssort.o ssort.f
flang-new-19 -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-19 -c -o ssphdr.o ssphdr.f
flang-new-19 -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-19 -c -o ssrit.o ssrit.f
flang-new-19 -c -o ssrng.o ssrng.f
flang-new-19 -c -o ssx11a.o ssx11a.f
flang-new-19 -c -o ssxmdl.o ssxmdl.f
flang-new-19 -c -o stpitr.o stpitr.f
flang-new-19 -c -o strinx.o strinx.f
flang-new-19 -c -o strtvl.o strtvl.f
flang-new-19 -c -o stvaln.o stvaln.f
flang-new-19 -c -o subset.o subset.f
flang-new-19 -c -o sumf.o sumf.f
flang-new-19 -c -o sumry.o sumry.f
flang-new-19 -c -o sumsqr.o sumsqr.f
flang-new-19 -c -o svaict.o svaict.f
flang-new-19 -c -o svamcm.o svamcm.f
flang-new-19 -c -o svchsd.o svchsd.f
flang-new-19 -c -o svdttm.o svdttm.f
flang-new-19 -c -o svf2f3.o svf2f3.f
flang-new-19 -c -o svflt.o svflt.f
flang-new-19 -c -o svfltd.o svfltd.f
flang-new-19 -c -o svfnrg.o svfnrg.f
flang-new-19 -c -o svfreq.o svfreq.f
flang-new-19 -c -o svolit.o svolit.f
flang-new-19 -c -o svoudg.o svoudg.f
flang-new-19 -c -o svpeak.o svpeak.f
flang-new-19 -c -o svrgcm.o svrgcm.f
flang-new-19 -c -o svrvhd.o svrvhd.f
flang-new-19 -c -o svspan.o svspan.f
flang-new-19 -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-19 -c -o taper.o taper.f
flang-new-19 -c -o tblhdr.o tblhdr.f
flang-new-19 -c -o td6var.o td6var.f
flang-new-19 -c -o td7var.o td7var.f
flang-new-19 -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-19 -c -o tdftest.o tdftest.f
flang-new-19 -c -o tdlom.o tdlom.f
flang-new-19 -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-19 -c -o tdxtrm.o tdxtrm.f
flang-new-19 -c -o templs.o templs.f
flang-new-19 -c -o tfmts.o tfmts.f
flang-new-19 -c -o tfmts3.o tfmts3.f
flang-new-19 -c -o totals.o totals.f
flang-new-19 -c -o transc.o transc.f
flang-new-19 -c -o trbias.o trbias.f
flang-new-19 -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-19 -c -o trnfcn.o trnfcn.f
flang-new-19 -c -o tstdrv.o tstdrv.f
flang-new-19 -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-19 -c -o tstmd2.o tstmd2.f
flang-new-19 -c -o ttest.o ttest.f
flang-new-19 -c -o uconv.o uconv.f
flang-new-19 -c -o upespm.o upespm.f
flang-new-19 -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-19 -c -o value.o value.f
flang-new-19 -c -o varian.o varian.f
flang-new-19 -c -o varlog.o varlog.f
flang-new-19 -c -o vars.o vars.f
flang-new-19 -c -o vsfa.o vsfa.f
flang-new-19 -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-19 -c -o vsfc.o vsfc.f
flang-new-19 -c -o vtc.o vtc.f
flang-new-19 -c -o vtest.o vtest.f
flang-new-19 -c -o weight.o weight.f
flang-new-19 -c -o whitsp.o whitsp.f
flang-new-19 -c -o writln.o writln.f
flang-new-19 -c -o wrtdat.o wrtdat.f
flang-new-19 -c -o wrtmss.o wrtmss.f
flang-new-19 -c -o wrtotl.o wrtotl.f
flang-new-19 -c -o wrttb2.o wrttb2.f
flang-new-19 -c -o wrttbl.o wrttbl.f
flang-new-19 -c -o wtxtrm.o wtxtrm.f
flang-new-19 -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-19 -c -o x11ari.o x11ari.f
flang-new-19 -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-19 -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-19 -c -o x11plt.o x11plt.f
flang-new-19 -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-19 -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-19 -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-19 -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-19 -c -o x11ref.o x11ref.f
flang-new-19 -c -o x12hdr.o x12hdr.f
flang-new-19 -c -o x12run.o x12run.f
flang-new-19 -c -o xchng.o xchng.f
flang-new-19 -c -o xpand.o xpand.f
flang-new-19 -c -o xprmx.o xprmx.f
flang-new-19 -c -o xrgdiv.o xrgdiv.f
flang-new-19 -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-19 -c -o xrghol.o xrghol.f
flang-new-19 -c -o xrgtrn.o xrgtrn.f
flang-new-19 -c -o xrlkhd.o xrlkhd.f
flang-new-19 -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-19 -c -o yprmy.o yprmy.f
flang-new-19 -c -o yrly.o yrly.f
flang-new-19 -c -o rvarma.o rvarma.f
flang-new-19 -c -o rvtdrg.o rvtdrg.f
flang-new-19 -c -o prtukp.o prtukp.f
flang-new-19 -c -o svtukp.o svtukp.f
flang-new-19 -c -o savtpk.o savtpk.f
flang-new-19 -c -o m2q.o m2q.f
flang-new-19 -c -o chqsea.o chqsea.f
flang-new-19 -c -o npsa.o npsa.f
flang-new-19 -c -o gennpsa.o gennpsa.f
flang-new-19 -c -o prarma.o prarma.f
flang-new-19 -c -o testodf.o testodf.f
flang-new-19 -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[2]: Leaving directory '/home/hornik/tmp/scratch/RtmpA0Fylo/R.INSTALL26934d708001f1/x13binary/tools/x13as_html'
mkdir -p ../inst/bin
cp -f ../tools/x13as_html/x13ashtml ../inst/bin/
make[1]: Leaving directory '/home/hornik/tmp/scratch/RtmpA0Fylo/R.INSTALL26934d708001f1/x13binary/src'
installing via 'install.libs.R' to /home/hornik/tmp/R.check/r-devel-clang/Work/build/Packages/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)