* installing *source* package ‘glinvci’ ...
** using staged installation
checking whether the C compiler works... yes
checking for C compiler default output file name... a.out
checking for suffix of executables... 
checking whether we are cross compiling... no
checking for suffix of object files... o
checking whether we are using the GNU C compiler... yes
checking whether clang-17 accepts -g... yes
checking for clang-17 option to accept ISO C89... none needed
checking for clang-17 option to support OpenMP... -fopenmp
checking whether we are on Oracle C compiler... no
checking operating system... Linux
checking whether we are linking to OpenBLAS... no
checking whether we are using the GNU Fortran compiler... no
checking whether flang-new-17 accepts -g... yes
checking for Fortran flag to compile .f90 files... none
checking whether BLAS works correctly with OpenMP... yes
configure: creating ./config.status
config.status: creating src/my_pragma.h
config.status: creating src/Makevars
config.status: creating src/my_confinfo.h
** libs
using C compiler: ‘Debian clang version 17.0.6 (5)’
using Fortran compiler: ‘Debian flang-new version 17.0.6 (5)’
flang-new-17  -fpic  -g -O2 -Wall -c  dglinv.f90 -o dglinv.o
flang-new: warning: argument unused during compilation: '-Wall'
./dglinv.f90:286:5: warning: Reference to the procedure 'dgemm' has an implicit interface that is distinct from another reference: incompatible dummy argument #12: incompatible dummy data object attributes
      call dgemm('N','N',ku,ku,ku,1.0_c_double,o,ku,H,ku,0.0_c_double,tmpkuku,ku)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:271:5: previous reference to 'dgemm'
      call dgemm('N','N',ku,ku,ku,-1.0_c_double,V,ku,o,ku,0.0_c_double,H,ku)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:287:5: warning: Reference to the procedure 'dgemm' has an implicit interface that is distinct from another reference: incompatible dummy argument #9: incompatible dummy data object attributes
      call dgemm('T','N',kv,ku,ku,1.0_c_double,Phi,ku,tmpkuku,ku,0.0_c_double,tmpkvku,kv)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:271:5: previous reference to 'dgemm'
      call dgemm('N','N',ku,ku,ku,-1.0_c_double,V,ku,o,ku,0.0_c_double,H,ku)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:288:5: warning: Reference to the procedure 'dgemm' has an implicit interface that is distinct from another reference: incompatible dummy argument #7: incompatible dummy data object attributes
      call dgemm('N','N',kv,kv,ku,1.0_c_double,tmpkvku,kv,Phi,ku,1.0_c_double,oout,kv)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:271:5: previous reference to 'dgemm'
      call dgemm('N','N',ku,ku,ku,-1.0_c_double,V,ku,o,ku,0.0_c_double,H,ku)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:338:5: warning: Reference to the procedure 'dgemm' has an implicit interface that is distinct from another reference: incompatible dummy argument #7: incompatible dummy data object attributes
      call dgemm('N','N',ku,kv,ku,1.0_c_double,H,ku,Phi,ku,0.0_c_double,HPhi,ku)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:271:5: previous reference to 'dgemm'
      call dgemm('N','N',ku,ku,ku,-1.0_c_double,V,ku,o,ku,0.0_c_double,H,ku)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:340:5: warning: Reference to the procedure 'dgemv' has an implicit interface that is distinct from another reference: incompatible dummy argument #7: incompatible dummy data object attributes
      call dgemv('N',ku,ku,1.0_c_double,Lamb,ku,b,1_c_int,1.0_c_double,a,1_c_int)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:202:5: previous reference to 'dgemv'
      call dgemv('N',ku,kv,1.0_c_double,Phi,ku,daddy,1_c_int,1.0_c_double,wsp,1_c_int)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:420:13: warning: Reference to the procedure 'ddot' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object attributes
      c = c + ddot(ku,b,1_c_int,Lb,1_c_int)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:279:19: previous reference to 'ddot'
      cout = cout + ddot(ku, w, 1_c_int, tmpkuku(:,1), 1_c_int)
                    ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:426:5: warning: Reference to the procedure 'dgemm' has an implicit interface that is distinct from another reference: incompatible dummy argument #12: incompatible dummy data object attributes
      call dgemm('N','N',ku,kv,ku,1.0_c_double,solV,ku,Phi,ku,0.0_c_double,tmp,ku)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:271:5: previous reference to 'dgemm'
      call dgemm('N','N',ku,ku,ku,-1.0_c_double,V,ku,o,ku,0.0_c_double,H,ku)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:427:5: warning: Reference to the procedure 'dgemm' has an implicit interface that is distinct from another reference: incompatible dummy argument #9: incompatible dummy data object attributes
      call dgemm('T','N',kv,kv,ku,1.0_c_double,Phi,ku,tmp,ku,1.0_c_double,o,kv)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:271:5: previous reference to 'dgemm'
      call dgemm('N','N',ku,ku,ku,-1.0_c_double,V,ku,o,ku,0.0_c_double,H,ku)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:502:5: warning: Reference to the procedure 'dgemm' has an implicit interface that is distinct from another reference: incompatible dummy argument #12: incompatible dummy data object attributes
      call dgemm('N','N',ku,kv,ku,1.0_c_double,solV,ku,Phi,ku,0.0_c_double,tmpkukv,ku)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:271:5: previous reference to 'dgemm'
      call dgemm('N','N',ku,ku,ku,-1.0_c_double,V,ku,o,ku,0.0_c_double,H,ku)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:519:5: warning: Reference to the procedure 'dgemv' has an implicit interface that is distinct from another reference: incompatible dummy argument #10: incompatible dummy data object attributes
      call dgemv('N',k0,k0,-0.5_c_double,o,k0,x0,1_c_int,1.0_c_double,tmpk0,1_c_int)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:202:5: previous reference to 'dgemv'
      call dgemv('N',ku,kv,1.0_c_double,Phi,ku,daddy,1_c_int,1.0_c_double,wsp,1_c_int)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:521:11: warning: Reference to the procedure 'ddot' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object attributes
          & ddot(k0, x0, 1_c_int, tmpk0, 1_c_int)  
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:279:19: previous reference to 'ddot'
      cout = cout + ddot(ku, w, 1_c_int, tmpkuku(:,1), 1_c_int)
                    ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:555:11: warning: Reference to the procedure 'dgemm' has an implicit interface that is distinct from another reference: incompatible dummy argument #12: incompatible dummy data object attributes
            call dgemm('N','N',ku,ku,ku,1.0_c_double,tmp(:,:,i,j),ku,Lamb,ku,0.0_c_double,tmpkuku,ku)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:271:5: previous reference to 'dgemm'
      call dgemm('N','N',ku,ku,ku,-1.0_c_double,V,ku,o,ku,0.0_c_double,H,ku)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:556:11: warning: Reference to the procedure 'dgemm' has an implicit interface that is distinct from another reference: incompatible dummy argument #9: incompatible dummy data object attributes
            call dgemm('N','N',ku,ku,ku,1.0_c_double,Lamb,ku,tmpkuku,ku,0.0_c_double,out(:,:,i,j),ku)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:271:5: previous reference to 'dgemm'
      call dgemm('N','N',ku,ku,ku,-1.0_c_double,V,ku,o,ku,0.0_c_double,H,ku)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:571:5: warning: Reference to the procedure 'dgemm' has an implicit interface that is distinct from another reference: incompatible dummy argument #12: incompatible dummy data object attributes
      call dgemm('N','N',ku,kv,ku,1.0_c_double,ScOmega,ku,Phi_u,ku,0.0_c_double,A,ku)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:271:5: previous reference to 'dgemm'
      call dgemm('N','N',ku,ku,ku,-1.0_c_double,V,ku,o,ku,0.0_c_double,H,ku)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:575:11: warning: Reference to the procedure 'dgemm' has an implicit interface that is distinct from another reference: incompatible dummy argument #9: incompatible dummy data object attributes
            call dgemm('N','N',ku,kv,ku,1.0_c_double,dLdVev(:,:,i,j),ku,A,ku,0.0_c_double,tmpkukv,ku)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:271:5: previous reference to 'dgemm'
      call dgemm('N','N',ku,ku,ku,-1.0_c_double,V,ku,o,ku,0.0_c_double,H,ku)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:576:11: warning: Reference to the procedure 'dgemm' has an implicit interface that is distinct from another reference: incompatible dummy argument #7: incompatible dummy data object attributes
            call dgemm('T','N',kv,kv,ku,-1.0_c_double,A,ku,tmpkukv,ku,0.0_c_double,out(:,:,i,j),kv)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:271:5: previous reference to 'dgemm'
      call dgemm('N','N',ku,ku,ku,-1.0_c_double,V,ku,o,ku,0.0_c_double,H,ku)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:591:5: warning: Reference to the procedure 'dgemm' has an implicit interface that is distinct from another reference: incompatible dummy argument #12: incompatible dummy data object attributes
      call dgemm('N','N',ku,ku,ku,1.0_c_double,ScOmega,ku,H_u,ku,0.0_c_double,B,ku)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:271:5: previous reference to 'dgemm'
      call dgemm('N','N',ku,ku,ku,-1.0_c_double,V,ku,o,ku,0.0_c_double,H,ku)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:592:5: warning: Reference to the procedure 'dgemm' has an implicit interface that is distinct from another reference: incompatible dummy argument #9: incompatible dummy data object attributes
      call dgemm('T','N',kv,ku,ku,1.0_c_double,Phi_u,ku,B,ku,0.0_c_double,LM,kv)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:271:5: previous reference to 'dgemm'
      call dgemm('N','N',ku,ku,ku,-1.0_c_double,V,ku,o,ku,0.0_c_double,H,ku)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:593:5: warning: Reference to the procedure 'dgemm' has an implicit interface that is distinct from another reference: incompatible dummy argument #9: incompatible dummy data object attributes
      call dgemm('T','T',kv,ku,ku,1.0_c_double,Phi_u,ku,B,ku,0.0_c_double,RM,kv)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:271:5: previous reference to 'dgemm'
      call dgemm('N','N',ku,ku,ku,-1.0_c_double,V,ku,o,ku,0.0_c_double,H,ku)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:621:5: warning: Reference to the procedure 'dgemv' has an implicit interface that is distinct from another reference: incompatible dummy argument #10: incompatible dummy data object attributes
      call dgemv('T',ku,ku,1.0_c_double,H_u,ku,b_u,1_c_int,0.0_c_double,d,1_c_int)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:202:5: previous reference to 'dgemv'
      call dgemv('N',ku,kv,1.0_c_double,Phi,ku,daddy,1_c_int,1.0_c_double,wsp,1_c_int)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:675:11: warning: Reference to the procedure 'dgemv' has an implicit interface that is distinct from another reference: incompatible dummy argument #10: incompatible dummy data object attributes
            call dgemv('N',ku,ku,1.0_c_double,dLdVev(:,:,i,j),ku,b_u,1_c_int,0.0_c_double,tmpku,1_c_int)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:202:5: previous reference to 'dgemv'
      call dgemv('N',ku,kv,1.0_c_double,Phi,ku,daddy,1_c_int,1.0_c_double,wsp,1_c_int)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:676:38: warning: Reference to the procedure 'ddot' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object attributes
            out(i,j) = -1.0_c_double * ddot(ku, b_u, 1_c_int, tmpku, 1_c_int)
                                       ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:279:19: previous reference to 'ddot'
      cout = cout + ddot(ku, w, 1_c_int, tmpkuku(:,1), 1_c_int)
                    ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:713:33: warning: Reference to the procedure 'ddot' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes
            out(i,j) = out(i,j) - ddot(ku*ku,tmp1,1_c_int,dldvev(:,:,i,j),1_c_int)
                                  ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:279:19: previous reference to 'ddot'
      cout = cout + ddot(ku, w, 1_c_int, tmpkuku(:,1), 1_c_int)
                    ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:738:11: warning: Reference to the procedure 'dgemv' has an implicit interface that is distinct from another reference: incompatible dummy argument #10: incompatible dummy data object attributes
            call dgemv('N',kr,kr,-0.5_c_double,dodvev(:,:,i,j),kr,x0,1_c_int,1.0_c_double,tmpkr1,1_c_int)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:202:5: previous reference to 'dgemv'
      call dgemv('N',ku,kv,1.0_c_double,Phi,ku,daddy,1_c_int,1.0_c_double,wsp,1_c_int)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:739:25: warning: Reference to the procedure 'ddot' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object attributes
            dlikdv(i,j) = ddot(kr,x0,1_c_int, tmpkr1,1_c_int) - (dcdvev(i,j) + dddvev(i,j)) / 2.0_c_double
                          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:279:19: previous reference to 'ddot'
      cout = cout + ddot(ku, w, 1_c_int, tmpkuku(:,1), 1_c_int)
                    ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:748:11: warning: Reference to the procedure 'dgemv' has an implicit interface that is distinct from another reference: incompatible dummy argument #10: incompatible dummy data object attributes
            call dgemv('N',kr,kr,-0.5_c_double,dodphiev(:,:,i,j),kr,x0,1_c_int,1.0_c_double,tmpkr1,1_c_int)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:202:5: previous reference to 'dgemv'
      call dgemv('N',ku,kv,1.0_c_double,Phi,ku,daddy,1_c_int,1.0_c_double,wsp,1_c_int)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:749:26: warning: Reference to the procedure 'ddot' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object attributes
            dlikdphi(i,j)= ddot(kr,x0,1_c_int,tmpkr1,1_c_int)
                           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:279:19: previous reference to 'ddot'
      cout = cout + ddot(ku, w, 1_c_int, tmpkuku(:,1), 1_c_int)
                    ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:799:5: warning: Reference to the procedure 'dgemm' has an implicit interface that is distinct from another reference: incompatible dummy argument #12: incompatible dummy data object attributes
      call dgemm('N','T',ksc,ksb,ksc,1.0_c_double,Kb,ksc,HPhib,ksb,0.0_c_double,tmpkscksb,ksc)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:271:5: previous reference to 'dgemm'
      call dgemm('N','N',ku,ku,ku,-1.0_c_double,V,ku,o,ku,0.0_c_double,H,ku)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:801:5: warning: Reference to the procedure 'dgemm' has an implicit interface that is distinct from another reference: incompatible dummy argument #9: incompatible dummy data object attributes
      call dgemm('N','N',ksb,ksb,ksc,1.0_c_double,HPhib,ksb,tmpkscksb,ksc,1.0_c_double,Ka,ksb)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:271:5: previous reference to 'dgemm'
      call dgemm('N','N',ku,ku,ku,-1.0_c_double,V,ku,o,ku,0.0_c_double,H,ku)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:805:5: warning: Reference to the procedure 'dgemv' has an implicit interface that is distinct from another reference: incompatible dummy argument #10: incompatible dummy data object attributes
      call dgemv('N',ksb,ksr,1.0_c_double,Fa,ksb,x0,1_c_int,0.0_c_double,Fax0,1_c_int)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:202:5: previous reference to 'dgemv'
      call dgemv('N',ku,kv,1.0_c_double,Phi,ku,daddy,1_c_int,1.0_c_double,wsp,1_c_int)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:810:11: warning: Reference to the procedure 'dgemv' has an implicit interface that is distinct from another reference: incompatible dummy argument #7: incompatible dummy data object attributes
            call dgemv('N',ksb,ksb,-1.0_c_double,dodvev(:,:,i,j),ksb,zaFax02,1_c_int,1.0_c_double,tmpksb1,1_c_int)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:202:5: previous reference to 'dgemv'
      call dgemv('N',ku,kv,1.0_c_double,Phi,ku,daddy,1_c_int,1.0_c_double,wsp,1_c_int)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:811:25: warning: Reference to the procedure 'ddot' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
            dlikdv(i,j) = ddot(ksb, Fax0, 1_c_int, tmpksb1, 1_c_int)
                          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:279:19: previous reference to 'ddot'
      cout = cout + ddot(ku, w, 1_c_int, tmpkuku(:,1), 1_c_int)
                    ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:813:11: warning: Reference to the procedure 'dgemv' has an implicit interface that is distinct from another reference: incompatible dummy argument #10: incompatible dummy data object attributes
            call dgemv('N',ksb,ksb,1.0_c_double,dodvev(:,:,i,j),ksb,za,1_c_int,-2.0_c_double,tmpksb1,1_c_int)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:202:5: previous reference to 'dgemv'
      call dgemv('N',ku,kv,1.0_c_double,Phi,ku,daddy,1_c_int,1.0_c_double,wsp,1_c_int)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:814:40: warning: Reference to the procedure 'ddot' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object attributes
            dlikdv(i,j) = dlikdv(i,j) + (ddot(ksb, za, 1_c_int, tmpksb1, 1_c_int) + dcdvev(i,j) + dddvev(i,j) + &
                                         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:279:19: previous reference to 'ddot'
      cout = cout + ddot(ku, w, 1_c_int, tmpkuku(:,1), 1_c_int)
                    ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:815:19: warning: Reference to the procedure 'ddot' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes
                  & ddot(ksb*ksb, dodvev(1,1,i,j), 1_c_int, Ka(1,1), 1_c_int))/(-2.0_c_double)
                    ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:279:19: previous reference to 'ddot'
      cout = cout + ddot(ku, w, 1_c_int, tmpkuku(:,1), 1_c_int)
                    ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:826:11: warning: Reference to the procedure 'dgemv' has an implicit interface that is distinct from another reference: incompatible dummy argument #7: incompatible dummy data object attributes
            call dgemv('N',ksb,ksb,-1.0_c_double,dodphiev(:,:,i,j),ksb,zaFax02,1_c_int,1.0_c_double,tmpksb1,1_c_int)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:202:5: previous reference to 'dgemv'
      call dgemv('N',ku,kv,1.0_c_double,Phi,ku,daddy,1_c_int,1.0_c_double,wsp,1_c_int)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:827:27: warning: Reference to the procedure 'ddot' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
            dlikdphi(i,j) = ddot(ksb, Fax0, 1_c_int, tmpksb1, 1_c_int)
                            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:279:19: previous reference to 'ddot'
      cout = cout + ddot(ku, w, 1_c_int, tmpkuku(:,1), 1_c_int)
                    ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:829:11: warning: Reference to the procedure 'dgemv' has an implicit interface that is distinct from another reference: incompatible dummy argument #10: incompatible dummy data object attributes
            call dgemv('N',ksb,ksb,1.0_c_double,dodphiev(:,:,i,j),ksb,za,1_c_int,-2.0_c_double,tmpksb1,1_c_int)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:202:5: previous reference to 'dgemv'
      call dgemv('N',ku,kv,1.0_c_double,Phi,ku,daddy,1_c_int,1.0_c_double,wsp,1_c_int)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:830:44: warning: Reference to the procedure 'ddot' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object attributes
            dlikdphi(i,j) = dlikdphi(i,j) + (ddot(ksb, za, 1_c_int, tmpksb1, 1_c_int) + &
                                             ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:279:19: previous reference to 'ddot'
      cout = cout + ddot(ku, w, 1_c_int, tmpkuku(:,1), 1_c_int)
                    ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:831:19: warning: Reference to the procedure 'ddot' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes
                  & ddot(ksb*ksb, dodphiev(1,1,i,j), 1_c_int, Ka(1,1), 1_c_int))/(-2.0_c_double)
                    ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:279:19: previous reference to 'ddot'
      cout = cout + ddot(ku, w, 1_c_int, tmpkuku(:,1), 1_c_int)
                    ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:840:5: warning: Reference to the procedure 'dgemv' has an implicit interface that is distinct from another reference: incompatible dummy argument #7: incompatible dummy data object attributes
      call dgemv('T',ksb,ksa,1.0_c_double,dgamdwev,ksb,zaFax02,1_c_int,-0.5_c_double,dlikdw,1_c_int)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:202:5: previous reference to 'dgemv'
      call dgemv('N',ku,kv,1.0_c_double,Phi,ku,daddy,1_c_int,1.0_c_double,wsp,1_c_int)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:1034:5: warning: Reference to the procedure 'dgemv' has an implicit interface that is distinct from another reference: incompatible dummy argument #10: incompatible dummy data object attributes
      call dgemv('N',kr,kr,-0.5_c_double,ho,kr,x0,1_c_int,1.0_c_double,tmp,1_c_int)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:202:5: previous reference to 'dgemv'
      call dgemv('N',ku,kv,1.0_c_double,Phi,ku,daddy,1_c_int,1.0_c_double,wsp,1_c_int)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:1035:11: warning: Reference to the procedure 'ddot' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object attributes
      out = ddot(kr, x0, 1_c_int, tmp, 1_c_int) - (hc + hd) / 2.0_c_double
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:279:19: previous reference to 'ddot'
      cout = cout + ddot(ku, w, 1_c_int, tmpkuku(:,1), 1_c_int)
                    ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:1048:5: warning: Reference to the procedure 'dgemv' has an implicit interface that is distinct from another reference: incompatible dummy argument #7: incompatible dummy data object attributes
      call dgemv('N',ku,ku,1.0_c_double,solV,ku,tmp,1_c_int,0.0_c_double,solVxw,1_c_int)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:202:5: previous reference to 'dgemv'
      call dgemv('N',ku,kv,1.0_c_double,Phi,ku,daddy,1_c_int,1.0_c_double,wsp,1_c_int)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:1068:5: warning: Reference to the procedure 'dgemm' has an implicit interface that is distinct from another reference: incompatible dummy argument #12: incompatible dummy data object attributes
      call dgemm('N','N',ku,ku,ku,1.0_c_double,solV,ku,Lamb,ku,0.0_c_double,solVL,ku)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:271:5: previous reference to 'dgemm'
      call dgemm('N','N',ku,ku,ku,-1.0_c_double,V,ku,o,ku,0.0_c_double,H,ku)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:1070:5: warning: Reference to the procedure 'dgemm' has an implicit interface that is distinct from another reference: incompatible dummy argument #7: incompatible dummy data object attributes
      call dgemm('N','N',ku,ku,ku,-1.0_c_double,solVL,ku,solV,ku,1.0_c_double,VmVLV,ku)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:271:5: previous reference to 'dgemm'
      call dgemm('N','N',ku,ku,ku,-1.0_c_double,V,ku,o,ku,0.0_c_double,H,ku)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:1072:5: warning: Reference to the procedure 'dgemv' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object attributes
      call dgemv('N',ku,ku,1.0_c_double,solVL,ku,b,1_c_int,0.0_c_double,solVLb,1_c_int)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:202:5: previous reference to 'dgemv'
      call dgemv('N',ku,kv,1.0_c_double,Phi,ku,daddy,1_c_int,1.0_c_double,wsp,1_c_int)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:1073:5: warning: Reference to the procedure 'dgemm' has an implicit interface that is distinct from another reference: incompatible dummy argument #7: incompatible dummy data object attributes
      call dgemm('N','N',ku,ku,ku,1.0_c_double,solVL,ku,sO,ku,0.0_c_double,solVLsO,ku)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:271:5: previous reference to 'dgemm'
      call dgemm('N','N',ku,ku,ku,-1.0_c_double,V,ku,o,ku,0.0_c_double,H,ku)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:1075:5: warning: Reference to the procedure 'dgemm' has an implicit interface that is distinct from another reference: incompatible dummy argument #12: incompatible dummy data object shapes
      call dgemm('N','N',ku,kv,ku,1.0_c_double,solVLsO,ku,Phi,ku,0.0_c_double,solVLsOPhi,ku)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:271:5: previous reference to 'dgemm'
      call dgemm('N','N',ku,ku,ku,-1.0_c_double,V,ku,o,ku,0.0_c_double,H,ku)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:1217:8: warning: Reference to the procedure 'dgemm' has an implicit interface that is distinct from another reference: incompatible dummy argument #7: incompatible dummy data object attributes
         call dgemm('N','T',kbu,kmv,kbu,1.0_c_double,lamb,kbu,fmg_p%dat,kmv,0.0_c_double,falfm_p%dat,kbu)
         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:271:5: previous reference to 'dgemm'
      call dgemm('N','N',ku,ku,ku,-1.0_c_double,V,ku,o,ku,0.0_c_double,H,ku)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:1245:5: warning: Reference to the procedure 'dgemm' has an implicit interface that is distinct from another reference: incompatible dummy argument #7: incompatible dummy data object attributes
      call dgemm('N','T',kv,ku,kv,1.0_c_double,dcur,kv,HPhi,ku,0.0_c_double,tmpkvku,kv)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:271:5: previous reference to 'dgemm'
      call dgemm('N','N',ku,ku,ku,-1.0_c_double,V,ku,o,ku,0.0_c_double,H,ku)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:1246:5: warning: Reference to the procedure 'dgemm' has an implicit interface that is distinct from another reference: incompatible dummy argument #9: incompatible dummy data object attributes
      call dgemm('N','N',ku,ku,kv,1.0_c_double,HPhi,ku,tmpkvku,kv,0.0_c_double,dnew,ku)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:271:5: previous reference to 'dgemm'
      call dgemm('N','N',ku,ku,ku,-1.0_c_double,V,ku,o,ku,0.0_c_double,H,ku)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:1265:5: warning: Reference to the procedure 'dgemm' has an implicit interface that is distinct from another reference: incompatible dummy argument #9: incompatible dummy data object attributes
      call dgemm('N','N',ku,tmp_p%siz,kv,1.0_c_double,HPhi,ku,tmpkvkthis,kv,0.0_c_double,dnew,ku)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:271:5: previous reference to 'dgemm'
      call dgemm('N','N',ku,ku,ku,-1.0_c_double,V,ku,o,ku,0.0_c_double,H,ku)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:1283:5: warning: Reference to the procedure 'dgemv' has an implicit interface that is distinct from another reference: incompatible dummy argument #10: incompatible dummy data object attributes
      call dgemv('N',ku,kv,1.0_c_double,HPhi,ku,tmpkvku(:,1),1_c_int,1.0_c_double,qnew,1_c_int)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:202:5: previous reference to 'dgemv'
      call dgemv('N',ku,kv,1.0_c_double,Phi,ku,daddy,1_c_int,1.0_c_double,wsp,1_c_int)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:1317:5: warning: Reference to the procedure 'dgemm' has an implicit interface that is distinct from another reference: incompatible dummy argument #9: incompatible dummy data object attributes
      call dgemm('N','N',kv,kr,kv,1.0_c_double,dodtn,kv,fm,kv,0.0_c_double,tmpkvkr,kv)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:271:5: previous reference to 'dgemm'
      call dgemm('N','N',ku,ku,ku,-1.0_c_double,V,ku,o,ku,0.0_c_double,H,ku)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:1318:5: warning: Reference to the procedure 'dgemm' has an implicit interface that is distinct from another reference: incompatible dummy argument #9: incompatible dummy data object attributes
      call dgemm('T','N',kr,kr,kv,1.0_c_double,dFm1,kv,tmpkvkr,kv,0.0_c_double,ho1,kr)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:271:5: previous reference to 'dgemm'
      call dgemm('N','N',ku,ku,ku,-1.0_c_double,V,ku,o,ku,0.0_c_double,H,ku)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:1319:5: warning: Reference to the procedure 'dgemm' has an implicit interface that is distinct from another reference: incompatible dummy argument #9: incompatible dummy data object attributes
      call dgemm('N','N',kv,kr,kv,1.0_c_double,ho,kv,fm,kv,0.0_c_double,tmpkvkr,kv)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:271:5: previous reference to 'dgemm'
      call dgemm('N','N',ku,ku,ku,-1.0_c_double,V,ku,o,ku,0.0_c_double,H,ku)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:1320:5: warning: Reference to the procedure 'dgemm' has an implicit interface that is distinct from another reference: incompatible dummy argument #7: incompatible dummy data object attributes
      call dgemm('T','N',kr,kr,kv,1.0_c_double,fm,kv,tmpkvkr,kv,1.0_c_double,ho1,kr)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:271:5: previous reference to 'dgemm'
      call dgemm('N','N',ku,ku,ku,-1.0_c_double,V,ku,o,ku,0.0_c_double,H,ku)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:1321:5: warning: Reference to the procedure 'dgemm' has an implicit interface that is distinct from another reference: incompatible dummy argument #12: incompatible dummy data object attributes
      call dgemm('N','N',kv,kr,kv,1.0_c_double,dodtn,kv,dFm1,kv,0.0_c_double,tmpkvkr,kv)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:271:5: previous reference to 'dgemm'
      call dgemm('N','N',ku,ku,ku,-1.0_c_double,V,ku,o,ku,0.0_c_double,H,ku)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:1322:5: warning: Reference to the procedure 'dgemm' has an implicit interface that is distinct from another reference: incompatible dummy argument #7: incompatible dummy data object attributes
      call dgemm('T','N',kr,kr,kv,1.0_c_double,fm,kv,tmpkvkr,kv,1.0_c_double,ho1,kr)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:271:5: previous reference to 'dgemm'
      call dgemm('N','N',ku,ku,ku,-1.0_c_double,V,ku,o,ku,0.0_c_double,H,ku)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:1326:5: warning: Reference to the procedure 'dgemv' has an implicit interface that is distinct from another reference: incompatible dummy argument #7: incompatible dummy data object attributes
      call dgemv('N',kv,kv,-1.0_c_double,dodtn,kv,q1m,1_c_int,1.0_c_double,tmpkvkr(:,1),1_c_int)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:202:5: previous reference to 'dgemv'
      call dgemv('N',ku,kv,1.0_c_double,Phi,ku,daddy,1_c_int,1.0_c_double,wsp,1_c_int)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:1331:30: warning: Reference to the procedure 'ddot' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
      hc1 = hc -2.0_c_double * ddot(kv, q1m, 1_c_int, tmpkvkr(:,1), 1_c_int)
                               ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:279:19: previous reference to 'ddot'
      cout = cout + ddot(ku, w, 1_c_int, tmpkuku(:,1), 1_c_int)
                    ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:1332:5: warning: Reference to the procedure 'dgemv' has an implicit interface that is distinct from another reference: incompatible dummy argument #7: incompatible dummy data object attributes
      call dgemv('N',kv,kv,-1.0_c_double,ho,kv,q1m,1_c_int,1.0_c_double,tmpkvkr(:,1),1_c_int)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:202:5: previous reference to 'dgemv'
      call dgemv('N',ku,kv,1.0_c_double,Phi,ku,daddy,1_c_int,1.0_c_double,wsp,1_c_int)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:1333:5: warning: Reference to the procedure 'dgemv' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object attributes
      call dgemv('T',kv,kr, 1.0_c_double,fm,kv,tmpkvkr(:,1),1_c_int,1.0_c_double,hgam1,1_c_int)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:202:5: previous reference to 'dgemv'
      call dgemv('N',ku,kv,1.0_c_double,Phi,ku,daddy,1_c_int,1.0_c_double,wsp,1_c_int)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:1337:5: warning: Reference to the procedure 'dgemv' has an implicit interface that is distinct from another reference: incompatible dummy argument #7: incompatible dummy data object attributes
      call dgemv('N',kv,kv,1.0_c_double,ho,kv,q1m,1_c_int,0.0_c_double,tmpkvkr(:,1),1_c_int)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:202:5: previous reference to 'dgemv'
      call dgemv('N',ku,kv,1.0_c_double,Phi,ku,daddy,1_c_int,1.0_c_double,wsp,1_c_int)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:1338:17: warning: Reference to the procedure 'ddot' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
      hc1 = hc1 + ddot(kv, q1m, 1_c_int, tmpkvkr(:,1), 1_c_int)
                  ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:279:19: previous reference to 'ddot'
      cout = cout + ddot(ku, w, 1_c_int, tmpkuku(:,1), 1_c_int)
                    ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:1657:11: warning: Reference to the procedure 'dsymv' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object attributes
            call dsymv('L',kv,1.0_c_double,fmlfm,kv,tmpkvkv(:,1),1_c_int,1.0_c_double,dfqk1%dqdv(:,m,n),1_c_int)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:1656:11: previous reference to 'dsymv'
            call dsymv('L',kv,-1.0_c_double,dodvev(:,:,m,n),kv,qm,1_c_int,1.0_c_double,tmpkvkv(:,1),1_c_int)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:1665:11: warning: Reference to the procedure 'dsymv' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object attributes
            call dsymv('L',kv,1.0_c_double,fmlfm,kv,tmpkvkv(:,1),1_c_int,1.0_c_double,dfqk1%dqdphi(:,m,n),1_c_int)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:1656:11: previous reference to 'dsymv'
            call dsymv('L',kv,-1.0_c_double,dodvev(:,:,m,n),kv,qm,1_c_int,1.0_c_double,tmpkvkv(:,1),1_c_int)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:1689:11: warning: Reference to the procedure 'dsymm' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object attributes
            call dsymm('L','L',kv,kv,1.0_c_double,dodvev(:,:,m,n),kv,fmlfm,kv,0.0_c_double,tmpkvkv,kv)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:1669:5: previous reference to 'dsymm'
      call dsymm('L','L',kv,ku,1.0_c_double,fmlfm,kv,dgamdwev,kv,1.0_c_double,dfqk1%dqdw,kv)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:1690:11: warning: Reference to the procedure 'dsymm' has an implicit interface that is distinct from another reference: incompatible dummy argument #8: incompatible dummy data object attributes
            call dsymm('L','L',kv,kv,-1.0_c_double,fmlfm,kv,tmpkvkv,kv,0.0_c_double,dfqk1%dkdv(:,:,m,n),kv)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:1669:5: previous reference to 'dsymm'
      call dsymm('L','L',kv,ku,1.0_c_double,fmlfm,kv,dgamdwev,kv,1.0_c_double,dfqk1%dqdw,kv)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:1696:11: warning: Reference to the procedure 'dsymm' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object attributes
            call dsymm('L','L',kv,kv,1.0_c_double,dodphiev(:,:,m,n),kv,fmlfm,kv,0.0_c_double,tmpkvkv,kv)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:1669:5: previous reference to 'dsymm'
      call dsymm('L','L',kv,ku,1.0_c_double,fmlfm,kv,dgamdwev,kv,1.0_c_double,dfqk1%dqdw,kv)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:1697:11: warning: Reference to the procedure 'dsymm' has an implicit interface that is distinct from another reference: incompatible dummy argument #8: incompatible dummy data object attributes
            call dsymm('L','L',kv,kv,-1.0_c_double,fmlfm,kv,tmpkvkv,kv,0.0_c_double,dfqk1%dkdphi(:,:,m,n),kv)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:1669:5: previous reference to 'dsymm'
      call dsymm('L','L',kv,ku,1.0_c_double,fmlfm,kv,dgamdwev,kv,1.0_c_double,dfqk1%dqdw,kv)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:1713:14: warning: Reference to the procedure 'dsymm' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object attributes
               call dsymm('R','L',kv,kv,1.0_c_double,dodvev(:,:,m,n),kv,tailsum_fmlfm,kv,0.0_c_double,tmpkvkv,kv)
               ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:1669:5: previous reference to 'dsymm'
      call dsymm('L','L',kv,ku,1.0_c_double,fmlfm,kv,dgamdwev,kv,1.0_c_double,dfqk1%dqdw,kv)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:1714:14: warning: Reference to the procedure 'dgemv' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object attributes
               call dgemv('N',kv,a_p%siz,1.0_c_double,fm,kv,a,1_c_int,0.0_c_double,tmpkts,1_c_int)
               ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:202:5: previous reference to 'dgemv'
      call dgemv('N',ku,kv,1.0_c_double,Phi,ku,daddy,1_c_int,1.0_c_double,wsp,1_c_int)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:1715:14: warning: Reference to the procedure 'dgemv' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object attributes
               call dgemv('N',kv,kv,-1.0_c_double,tmpkvkv,kv,tmpkts,1_c_int,1.0_c_double,dfqk1%dqdv(:,m,n),1_c_int)
               ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:202:5: previous reference to 'dgemv'
      call dgemv('N',ku,kv,1.0_c_double,Phi,ku,daddy,1_c_int,1.0_c_double,wsp,1_c_int)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:1719:14: warning: Reference to the procedure 'dsymm' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object attributes
               call dsymm('L','L',kv,kv,1.0_c_double,dodvev(:,:,m,n),kv,fmlfm,kv,0.0_c_double,tmpkvkv,kv)
               ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:1669:5: previous reference to 'dsymm'
      call dsymm('L','L',kv,ku,1.0_c_double,fmlfm,kv,dgamdwev,kv,1.0_c_double,dfqk1%dqdw,kv)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:1720:14: warning: Reference to the procedure 'dsymm' has an implicit interface that is distinct from another reference: incompatible dummy argument #8: incompatible dummy data object attributes
               call dsymm('L','L',kv,kv,-1.0_c_double,fmlfm,kv,tmpkvkv,kv,1.0_c_double,dfqk1%dkdv(:,:,m,n),kv)
               ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:1669:5: previous reference to 'dsymm'
      call dsymm('L','L',kv,ku,1.0_c_double,fmlfm,kv,dgamdwev,kv,1.0_c_double,dfqk1%dqdw,kv)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:1730:14: warning: Reference to the procedure 'dsymm' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object attributes
               call dsymm('R','L',kv,kv,1.0_c_double,dodphiev(:,:,m,n),kv,tailsum_fmlfm,kv,0.0_c_double,tmpkvkv,kv)
               ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:1669:5: previous reference to 'dsymm'
      call dsymm('L','L',kv,ku,1.0_c_double,fmlfm,kv,dgamdwev,kv,1.0_c_double,dfqk1%dqdw,kv)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:1731:14: warning: Reference to the procedure 'dgemv' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object attributes
               call dgemv('N',kv,a_p%siz,1.0_c_double,fm,kv,a,1_c_int,0.0_c_double,tmpkts,1_c_int)
               ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:202:5: previous reference to 'dgemv'
      call dgemv('N',ku,kv,1.0_c_double,Phi,ku,daddy,1_c_int,1.0_c_double,wsp,1_c_int)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:1732:14: warning: Reference to the procedure 'dgemv' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object attributes
               call dgemv('N',kv,kv,-1.0_c_double,tmpkvkv,kv,tmpkts,1_c_int,1.0_c_double,dfqk1%dqdphi(:,m,n),1_c_int)
               ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:202:5: previous reference to 'dgemv'
      call dgemv('N',ku,kv,1.0_c_double,Phi,ku,daddy,1_c_int,1.0_c_double,wsp,1_c_int)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:1736:14: warning: Reference to the procedure 'dsymm' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object attributes
               call dsymm('L','L',kv,kv,1.0_c_double,dodphiev(:,:,m,n),kv,fmlfm,kv,0.0_c_double,tmpkvkv,kv)
               ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:1669:5: previous reference to 'dsymm'
      call dsymm('L','L',kv,ku,1.0_c_double,fmlfm,kv,dgamdwev,kv,1.0_c_double,dfqk1%dqdw,kv)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:1737:14: warning: Reference to the procedure 'dsymm' has an implicit interface that is distinct from another reference: incompatible dummy argument #8: incompatible dummy data object attributes
               call dsymm('L','L',kv,kv,-1.0_c_double,fmlfm,kv,tmpkvkv,kv,1.0_c_double,dfqk1%dkdphi(:,:,m,n),kv)
               ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:1669:5: previous reference to 'dsymm'
      call dsymm('L','L',kv,ku,1.0_c_double,fmlfm,kv,dgamdwev,kv,1.0_c_double,dfqk1%dqdw,kv)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:1754:11: warning: Reference to the procedure 'dsymm' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object attributes
            call dsymm('R','L',kv,kv,1.0_c_double,dodvev(:,:,m,n),kv,tailsum_fmlfm,kv,0.0_c_double,tmpkvkv,kv)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:1669:5: previous reference to 'dsymm'
      call dsymm('L','L',kv,ku,1.0_c_double,fmlfm,kv,dgamdwev,kv,1.0_c_double,dfqk1%dqdw,kv)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:1755:11: warning: Reference to the procedure 'dgemm' has an implicit interface that is distinct from another reference: incompatible dummy argument #7: incompatible dummy data object attributes
            call dgemm('N','N',kv,kr,kv,-1.0_c_double,tmpkvkv,kv,fm,kv,0.0_c_double,dfqk1%dfdv(:,:,m,n),kv)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:271:5: previous reference to 'dgemm'
      call dgemm('N','N',ku,ku,ku,-1.0_c_double,V,ku,o,ku,0.0_c_double,H,ku)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:1761:11: warning: Reference to the procedure 'dsymm' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object attributes
            call dsymm('R','L',kv,kv,1.0_c_double,dodphiev(:,:,m,n),kv,tailsum_fmlfm,kv,0.0_c_double,tmpkvkv,kv)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:1669:5: previous reference to 'dsymm'
      call dsymm('L','L',kv,ku,1.0_c_double,fmlfm,kv,dgamdwev,kv,1.0_c_double,dfqk1%dqdw,kv)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:1762:11: warning: Reference to the procedure 'dgemm' has an implicit interface that is distinct from another reference: incompatible dummy argument #7: incompatible dummy data object attributes
            call dgemm('N','N',kv,kr,kv,-1.0_c_double,tmpkvkv,kv,fm,kv,0.0_c_double,dfqk1%dfdphi(:,:,m,n),kv)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:271:5: previous reference to 'dgemm'
      call dgemm('N','N',ku,ku,ku,-1.0_c_double,V,ku,o,ku,0.0_c_double,H,ku)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:1787:11: warning: Reference to the procedure 'dsymm' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object attributes
            call dsymm('R','L',knu,knv,1.0_c_double,dfqk1%dkdv(:,:,m,n),knv,HPhi,knu,0.0_c_double,tmpknuknv,knu)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:1669:5: previous reference to 'dsymm'
      call dsymm('L','L',kv,ku,1.0_c_double,fmlfm,kv,dgamdwev,kv,1.0_c_double,dfqk1%dqdw,kv)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:1789:11: warning: Reference to the procedure 'dgemm' has an implicit interface that is distinct from another reference: incompatible dummy argument #7: incompatible dummy data object attributes
            call dgemm('N','T',knu,knu,knv,1.0_c_double,tmpknuknv,knu,HPhi,knu,0.0_c_double,dfqk1new%dkdv(:,:,m,n),knu)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:271:5: previous reference to 'dgemm'
      call dgemm('N','N',ku,ku,ku,-1.0_c_double,V,ku,o,ku,0.0_c_double,H,ku)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:1801:11: warning: Reference to the procedure 'dsymm' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object attributes
            call dsymm('R','L',knu,knv,1.0_c_double,dfqk1%dkdphi(:,:,m,n),knv,HPhi,knu,0.0_c_double,tmpknuknv,knu)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:1669:5: previous reference to 'dsymm'
      call dsymm('L','L',kv,ku,1.0_c_double,fmlfm,kv,dgamdwev,kv,1.0_c_double,dfqk1%dqdw,kv)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:1803:11: warning: Reference to the procedure 'dgemm' has an implicit interface that is distinct from another reference: incompatible dummy argument #7: incompatible dummy data object attributes
            call dgemm('N','T',knu,knu,knv,1.0_c_double,tmpknuknv,knu,HPhi,knu,0.0_c_double,dfqk1new%dkdphi(:,:,m,n),knu)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:271:5: previous reference to 'dgemm'
      call dgemm('N','N',ku,ku,ku,-1.0_c_double,V,ku,o,ku,0.0_c_double,H,ku)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:1811:5: warning: Reference to the procedure 'dgemm' has an implicit interface that is distinct from another reference: incompatible dummy argument #9: incompatible dummy data object attributes
      call dgemm('N','N',knu,kmu,knv,1.0_c_double,HPhi,knu,dfqk1%dqdw,knv,0.0_c_double,dfqk1new%dqdw,knu)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:271:5: previous reference to 'dgemm'
      call dgemm('N','N',ku,ku,ku,-1.0_c_double,V,ku,o,ku,0.0_c_double,H,ku)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:1812:5: warning: Reference to the procedure 'dgemm' has an implicit interface that is distinct from another reference: incompatible dummy argument #9: incompatible dummy data object attributes
      call dgemm('N','N',knu,dfqk1_ch%kr,knv,1.0_c_double,HPhi,knu,dfqk1%f1n,knv,&
      ^
./dglinv.f90:271:5: previous reference to 'dgemm'
      call dgemm('N','N',ku,ku,ku,-1.0_c_double,V,ku,o,ku,0.0_c_double,H,ku)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:1815:5: warning: Reference to the procedure 'dgemv' has an implicit interface that is distinct from another reference: incompatible dummy argument #7: incompatible dummy data object attributes
      call dgemv('N',knu,knv,1.0_c_double,HPhi,knu,dfqk1%q1n,1_c_int,1.0_c_double,dfqk1new%q1n,1_c_int)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:202:5: previous reference to 'dgemv'
      call dgemv('N',ku,kv,1.0_c_double,Phi,ku,daddy,1_c_int,1.0_c_double,wsp,1_c_int)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:1841:5: warning: Reference to the procedure 'dgemm' has an implicit interface that is distinct from another reference: incompatible dummy argument #12: incompatible dummy data object attributes
      call dgemm('N','N',ku,ku,ku,1.0_c_double,Lamb,ku,solV,ku,0.0_c_double,LsolV,ku)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:271:5: previous reference to 'dgemm'
      call dgemm('N','N',ku,ku,ku,-1.0_c_double,V,ku,o,ku,0.0_c_double,H,ku)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:1843:5: warning: Reference to the procedure 'dgemv' has an implicit interface that is distinct from another reference: incompatible dummy argument #7: incompatible dummy data object attributes
      call dgemv('N',ku,ku,1.0_c_double,solV,ku,tmpku1,1_c_int,0.0_c_double,solVaw,1_c_int)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:202:5: previous reference to 'dgemv'
      call dgemv('N',ku,kv,1.0_c_double,Phi,ku,daddy,1_c_int,1.0_c_double,wsp,1_c_int)
      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
clang-17  -I"/home/hornik/tmp/R-d-clang-17/include" -DNDEBUG   -I/usr/local/include -DUSE_TYPE_CHECKING_STRICT -D_FORTIFY_SOURCE=3   -fpic  -g -O3 -Wall -pedantic -c phytr.c -o phytr.o
flang-new-17  -fpic  -g -O2 -Wall -c  oumods.f90 -o oumods.o
flang-new: warning: argument unused during compilation: '-Wall'
./oumods.f90:93:7: warning: Reference to the procedure 'rwarn' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=29_8) vs CHARACTER(KIND=1,LEN=31_8)
        call rwarn("dlnunchol: workspace too small.")
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./oumods.f90:72:7: previous reference to 'rwarn'
        call rwarn("dunchol: workspace too small.")
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./oumods.f90:210:7: warning: Reference to the procedure 'rwarn' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=29_8) vs CHARACTER(KIND=1,LEN=33_8)
        call rwarn("d0geouvwphi: workspace too small.")
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./oumods.f90:72:7: previous reference to 'rwarn'
        call rwarn("dunchol: workspace too small.")
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./oumods.f90:213:7: warning: Reference to the procedure 'rwarn' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=29_8) vs CHARACTER(KIND=1,LEN=35_8)
        call rwarn("d0geouvwphi: z-workspace too small.")
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./oumods.f90:72:7: previous reference to 'rwarn'
        call rwarn("dunchol: workspace too small.")
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./oumods.f90:254:7: warning: Reference to the procedure 'rwarn' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=29_8) vs CHARACTER(KIND=1,LEN=25_8)
        call rwarn("ouv: workspace too small.")
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./oumods.f90:72:7: previous reference to 'rwarn'
        call rwarn("dunchol: workspace too small.")
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./oumods.f90:257:7: warning: Reference to the procedure 'rwarn' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=29_8) vs CHARACTER(KIND=1,LEN=27_8)
        call rwarn("ouv: z-workspace too small.")
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./oumods.f90:72:7: previous reference to 'rwarn'
        call rwarn("dunchol: workspace too small.")
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./oumods.f90:317:7: warning: Reference to the procedure 'rwarn' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=29_8) vs CHARACTER(KIND=1,LEN=40_8)
        call rwarn("realhesschgbasis: z-workspace too small.")
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./oumods.f90:72:7: previous reference to 'rwarn'
        call rwarn("dunchol: workspace too small.")
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./oumods.f90:388:7: warning: Reference to the procedure 'rwarn' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=29_8) vs CHARACTER(KIND=1,LEN=45_8)
        call rwarn("dprealsymhesschgbasis: z-workspace too small.")
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./oumods.f90:72:7: previous reference to 'rwarn'
        call rwarn("dunchol: workspace too small.")
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./oumods.f90:608:7: warning: Reference to the procedure 'rwarn' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=29_8) vs CHARACTER(KIND=1,LEN=31_8)
        call rwarn("dvdsigx: z-workspace too small.")
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./oumods.f90:72:7: previous reference to 'rwarn'
        call rwarn("dunchol: workspace too small.")
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./oumods.f90:1175:7: warning: Reference to the procedure 'rwarn' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=29_8) vs CHARACTER(KIND=1,LEN=28_8)
        call rwarn("hvhl: z-workspace too small.")
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./oumods.f90:72:7: previous reference to 'rwarn'
        call rwarn("dunchol: workspace too small.")
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./oumods.f90:1178:7: warning: Reference to the procedure 'rwarn' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object types: CHARACTER(KIND=1,LEN=29_8) vs CHARACTER(KIND=1,LEN=26_8)
        call rwarn("hvhl: workspace too small.")
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./oumods.f90:72:7: previous reference to 'rwarn'
        call rwarn("dunchol: workspace too small.")
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
flang-new-17  -fpic  -g -O2 -Wall -c  chn.f90 -o chn.o
flang-new: warning: argument unused during compilation: '-Wall'
flang-new-17  -fpic  -g -O2 -Wall -c  test_ieee_fort.f90 -o test_ieee_fort.o
flang-new: warning: argument unused during compilation: '-Wall'
clang-17  -I"/home/hornik/tmp/R-d-clang-17/include" -DNDEBUG   -I/usr/local/include -DUSE_TYPE_CHECKING_STRICT -D_FORTIFY_SOURCE=3   -fpic  -g -O3 -Wall -pedantic -c test_ieee_c.c -o test_ieee_c.o
clang-17 -shared -L/home/hornik/tmp/R-d-clang-17/lib -Wl,-O1 -o glinvci.so dglinv.o phytr.o oumods.o chn.o test_ieee_fort.o test_ieee_c.o -llapack -L/home/hornik/tmp/R-d-clang-17/lib -lRblas -L/usr/lib/llvm-17/lib -lFortran_main -lFortranRuntime -lFortranDecimal -lm -L/usr/lib/llvm-17/lib -lFortran_main -lFortranRuntime -lFortranDecimal -lm -L/home/hornik/tmp/R-d-clang-17/lib -lR
installing to /srv/hornik/tmp/CRAN/glinvci.Rcheck/00LOCK-glinvci/00new/glinvci/libs
** R
** inst
** byte-compile and prepare package for lazy loading
** help
*** installing help indices
** building package indices
** installing vignettes
** testing if installed package can be loaded from temporary location
** checking absolute paths in shared objects and dynamic libraries
** testing if installed package can be loaded from final location
** testing if installed package keeps a record of temporary installation path
* DONE (glinvci)