* 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)