* installing *source* package ‘glinvci’ ...
** package ‘glinvci’ successfully unpacked and MD5 sums checked
** 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 /usr/local/clang18/bin/clang accepts -g... yes
checking for /usr/local/clang18/bin/clang option to accept ISO C89... none needed
checking for /usr/local/clang18/bin/clang 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 /usr/local/clang18/bin/flang-new 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: ‘clang version 18.1.4’
using Fortran compiler: ‘flang-new version 18.1.4’
make[1]: Entering directory '/data/gannet/ripley/R/packages/tests-clang/glinvci/src'
/usr/local/clang18/bin/flang-new -fpic -O2 -pedantic -c dglinv.f90 -o dglinv.o
/usr/local/clang18/bin/clang -I"/data/gannet/ripley/R/R-clang/include" -DNDEBUG -isystem /usr/local/clang18/include -I/usr/local/clang/include -fopenmp -fpic -O3 -Wall -pedantic -Wp,-D_FORTIFY_SOURCE=3 -c phytr.c -o phytr.o
./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 #7: incompatible dummy data object shapes
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 #2: incompatible dummy data object shapes
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 #7: incompatible dummy data object shapes
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 #2: incompatible dummy data object shapes
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:754: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
dlikdw(i)= ddot(kr,x0, 1_c_int,dgamdwev(:,i),1_c_int) - dcdwev(i) / 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:796: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 shapes
call dgemm('N','N',ksb,ksr,ksc,1.0_c_double,HPhib,ksb,Fb,ksc,0.0_c_double,Fa,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:798: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 shapes
call dgemv('N',ksb,ksc,1.0_c_double,HPhib,ksb,zb,1_c_int,1.0_c_double,za,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:799: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 shapes
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 #7: incompatible dummy data object shapes
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 #5: incompatible dummy data object shapes
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 #7: incompatible dummy data object shapes
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 #2: incompatible dummy data object shapes
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 #7: incompatible dummy data object shapes
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 #2: incompatible dummy data object shapes
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 #5: incompatible dummy data object shapes
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:1046: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 shapes
call dgemm('N','N',ku,kv,ku,1.0_c_double,solV,ku,Phi,ku,0.0_c_double,solVPhi,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:1048: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 shapes
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:1385:20: warning: Any pointer associated with TARGET dummy argument 'dfqk_cptr=' during this call must not be used afterwards, as 'dfqk1_ch' is not a target
call read_dfqk(dfqk1_ch, dfqk1)
^^^^^^^^
./dglinv.f90:1386:113: warning: Any pointer associated with TARGET dummy argument 'k=' during this call must not be used afterwards, as 'k' is not a target
call dqmmkda(fmlfm_c, qm_c, fm_c, a_c, kr, kv, ku, dodvev, dodphiev, dgamdvev, dgamdwev, dgamdphiev, dfqk1, K)
^
./dglinv.f90:1518:20: warning: Any pointer associated with TARGET dummy argument 'dfqk_cptr=' during this call must not be used afterwards, as 'dfqk1_ch' is not a target
call read_dfqk(dfqk1_ch, dfqk1)
^^^^^^^^
./dglinv.f90:1519:113: warning: Any pointer associated with TARGET dummy argument 'k=' during this call must not be used afterwards, as 'k' is not a target
call dqmmkda(fmlfm_c, qm_c, fm_c, a_c, kr, kv, ku, dodvev, dodphiev, dgamdvev, dgamdwev, dgamdphiev, dfqk1, K)
^
./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:1779:20: warning: Any pointer associated with TARGET dummy argument 'dfqk_cptr=' during this call must not be used afterwards, as 'dfqk1_ch' is not a target
call read_dfqk(dfqk1_ch, dfqk1)
^^^^^^^^
./dglinv.f90:1780:20: warning: Any pointer associated with TARGET dummy argument 'dfqk_cptr=' during this call must not be used afterwards, as 'dfqk1new_ch' is not a target
call read_dfqk(dfqk1new_ch, dfqk1new)
^^^^^^^^^^^
./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:1832:20: warning: Any pointer associated with TARGET dummy argument 'dfqk_cptr=' during this call must not be used afterwards, as 'dfqk1_ch' is not a target
call read_dfqk(dfqk1_ch, dfqk1)
^^^^^^^^
./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)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./dglinv.f90:1891:20: warning: Any pointer associated with TARGET dummy argument 'dfqk_cptr=' during this call must not be used afterwards, as 'dfqk1new_ch' is not a target
call read_dfqk(dfqk1new_ch, dfqk1new)
^^^^^^^^^^^
./dglinv.f90:1892:20: warning: Any pointer associated with TARGET dummy argument 'dfqk_cptr=' during this call must not be used afterwards, as 'dfqk1_ch' is not a target
call read_dfqk(dfqk1_ch, dfqk1)
^^^^^^^^
./dglinv.f90:1997:20: warning: Any pointer associated with TARGET dummy argument 'dfqk_cptr=' during this call must not be used afterwards, as 'dfqk1_ch' is not a target
call read_dfqk(dfqk1_ch, dfqk1)
^^^^^^^^
./dglinv.f90:2273:20: warning: Any pointer associated with TARGET dummy argument 'dfqk_cptr=' during this call must not be used afterwards, as 'dfqk1_ch' is not a target
call read_dfqk(dfqk1_ch, dfqk1)
^^^^^^^^
./dglinv.f90:2426:20: warning: Any pointer associated with TARGET dummy argument 'dfqk_cptr=' during this call must not be used afterwards, as 'dfqk1_ch' is not a target
call read_dfqk(dfqk1_ch, dfqk1)
^^^^^^^^
./dglinv.f90:2571:20: warning: Any pointer associated with TARGET dummy argument 'dfqk_cptr=' during this call must not be used afterwards, as 'dfqk1_ch' is not a target
call read_dfqk(dfqk1_ch, dfqk1)
^^^^^^^^
/usr/local/clang18/bin/flang-new -fpic -O2 -pedantic -c oumods.f90 -o oumods.o
./oumods.f90:624:53: warning: Any pointer associated with TARGET dummy argument 'zwsp=' during this call must not be used afterwards, as 'zwsp' is not a target
call ouv(t,k,UijLt,P,invP,Lambda,out(1,m),zwsp,lzwsp,wsp(2*k**2+1),lwsp-2*k**2)
^^^^
./oumods.f90:651:44: warning: Any pointer associated with TARGET dummy argument 'zwsp=' during this call must not be used afterwards, as 'zwsp(1_8:int((k**2_4),kind=8):1_8)' is not a target
call d0phi(t, k, P, invP, Lambda, tmp, zwsp(1:(k**2)))
^^^^^^^^^^^^^^
./oumods.f90:1033:48: warning: Any pointer associated with TARGET dummy argument 'wsp=' during this call must not be used afterwards, as 'wsp' is not a target
call hvhadir (t,Psi,H,k,P,invP,Lambda,zout,wsp,lwsp,zwsp(((k**6)+1):lzwsp),lzwsp-(k**6),eigavail,info)
^^^
./oumods.f90:1076:18: warning: Any pointer associated with TARGET dummy argument 'zwsp=' during this call must not be used afterwards, as 'zwsp' is not a target
& zwsp, lzwsp, 1_c_int, info)
^^^^
./oumods.f90:1209:24: warning: Any pointer associated with TARGET dummy argument 'zwsp=' during this call must not be used afterwards, as 'zwsp' is not a target
& zwsp,lzwsp,wsp((3*(k**2)+1):lwsp),lwsp-3*(k**2))
^^^^
/usr/local/clang18/bin/flang-new -fpic -O2 -pedantic -c chn.f90 -o chn.o
/usr/local/clang18/bin/flang-new -fpic -O2 -pedantic -c test_ieee_fort.f90 -o test_ieee_fort.o
/usr/local/clang18/bin/clang -I"/data/gannet/ripley/R/R-clang/include" -DNDEBUG -isystem /usr/local/clang18/include -I/usr/local/clang/include -fopenmp -fpic -O3 -Wall -pedantic -Wp,-D_FORTIFY_SOURCE=3 -c test_ieee_c.c -o test_ieee_c.o
/usr/local/clang18/bin/clang -shared -L/usr/local/clang/lib64 -L/usr/local/clang18/lib -L/usr/local/clang18/lib/x86_64-unknown-linux-gnu -L/usr/local/gcc13/lib64 -L/usr/local/lib64 -o glinvci.so dglinv.o phytr.o oumods.o chn.o test_ieee_fort.o test_ieee_c.o -fopenmp -L/data/gannet/ripley/R/R-clang/lib -lRlapack -L/data/gannet/ripley/R/R-clang/lib -lRblas -lFortran_main -lFortranRuntime -lFortranDecimal -lm -lFortran_main -lFortranRuntime -lFortranDecimal -lm
make[1]: Leaving directory '/data/gannet/ripley/R/packages/tests-clang/glinvci/src'
make[1]: Entering directory '/data/gannet/ripley/R/packages/tests-clang/glinvci/src'
make[1]: Leaving directory '/data/gannet/ripley/R/packages/tests-clang/glinvci/src'
installing to /data/gannet/ripley/R/packages/tests-clang/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)