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