* installing *source* package ‘BTSR’ ...
** this is package ‘BTSR’ version ‘1.0.0’
** package ‘BTSR’ successfully unpacked and MD5 sums checked
** using staged installation
** libs
using C compiler: ‘clang version 20.1.7’
using Fortran compiler: ‘flang version 20.1.7’
make[1]: Entering directory '/data/gannet/ripley/R/packages/tests-clang/BTSR/src'
flang-20 -fpic -O2 -pedantic -c DLtest.f90 -o DLtest.o
flang-20 -fpic -O2 -pedantic -c 00_lbfgsb.f90 -o 00_lbfgsb.o
./00_lbfgsb.f90:1543:8: warning: Reference to the procedure 'dscal' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
call dscal(col,theta,p(col+1),1)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./00_lbfgsb.f90:923:8: previous reference to 'dscal'
call dscal(n,stp,d,1)
^^^^^^^^^^^^^^^^^^^^^
./00_lbfgsb.f90:1706:5: warning: Reference to the procedure 'daxpy' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
call daxpy(n,tsum,d,1,xcp,1)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./00_lbfgsb.f90:1658:8: previous reference to 'daxpy'
call daxpy(col2,dt,p,1,c,1)
^^^^^^^^^^^^^^^^^^^^^^^^^^^
./00_lbfgsb.f90:1984:14: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes
call dcopy(m-jy,wn1(jy+1,jy+1),1,wn1(jy,jy),1)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./00_lbfgsb.f90:651:14: previous reference to 'dcopy'
call dcopy(n,t,1,x,1)
^^^^^^^^^^^^^^^^^^^^^
./00_lbfgsb.f90:1985:14: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes
call dcopy(m-jy,wn1(js+1,js+1),1,wn1(js,js),1)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./00_lbfgsb.f90:651:14: previous reference to 'dcopy'
call dcopy(n,t,1,x,1)
^^^^^^^^^^^^^^^^^^^^^
./00_lbfgsb.f90:1986:14: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes
call dcopy(m-1,wn1(m+2,jy+1),1,wn1(m+1,jy),1)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./00_lbfgsb.f90:651:14: previous reference to 'dcopy'
call dcopy(n,t,1,x,1)
^^^^^^^^^^^^^^^^^^^^^
./00_lbfgsb.f90:2587:5: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object shapes
call dcopy(n,d,1,ws(1,itail),1)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./00_lbfgsb.f90:651:14: previous reference to 'dcopy'
call dcopy(n,t,1,x,1)
^^^^^^^^^^^^^^^^^^^^^
./00_lbfgsb.f90:2588:5: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object shapes
call dcopy(n,r,1,wy(1,itail),1)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./00_lbfgsb.f90:651:14: previous reference to 'dcopy'
call dcopy(n,t,1,x,1)
^^^^^^^^^^^^^^^^^^^^^
./00_lbfgsb.f90:2601:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes
call dcopy(j,ss(2,j+1),1,ss(1,j),1)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./00_lbfgsb.f90:651:14: previous reference to 'dcopy'
call dcopy(n,t,1,x,1)
^^^^^^^^^^^^^^^^^^^^^
./00_lbfgsb.f90:2602:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes
call dcopy(col-j,sy(j+1,j+1),1,sy(j,j),1)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./00_lbfgsb.f90:651:14: previous reference to 'dcopy'
call dcopy(n,t,1,x,1)
^^^^^^^^^^^^^^^^^^^^^
./00_lbfgsb.f90:2658:11: warning: Reference to the procedure 'dblepr' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
call dblepr("L = ", -1, l, n)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./00_lbfgsb.f90:674:8: previous reference to 'dblepr'
call dblepr("at iterate: / f = / |proj g|=", -1, [dble(iter),f,sbgnrm], 3)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./00_lbfgsb.f90:2659:11: warning: Reference to the procedure 'dblepr' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
call dblepr("x0 = ", -1, x, n)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./00_lbfgsb.f90:674:8: previous reference to 'dblepr'
call dblepr("at iterate: / f = / |proj g|=", -1, [dble(iter),f,sbgnrm], 3)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./00_lbfgsb.f90:2660:11: warning: Reference to the procedure 'dblepr' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
call dblepr("u = ", -1, u, n)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./00_lbfgsb.f90:674:8: previous reference to 'dblepr'
call dblepr("at iterate: / f = / |proj g|=", -1, [dble(iter),f,sbgnrm], 3)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./00_lbfgsb.f90:2721:8: warning: Reference to the procedure 'dblepr' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
call dblepr("line search times; norm of step", -1, &
^
./00_lbfgsb.f90:674:8: previous reference to 'dblepr'
call dblepr("at iterate: / f = / |proj g|=", -1, [dble(iter),f,sbgnrm], 3)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./00_lbfgsb.f90:2725:8: warning: Reference to the procedure 'dblepr' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
call dblepr("x = ", -1, x, n)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./00_lbfgsb.f90:674:8: previous reference to 'dblepr'
call dblepr("at iterate: / f = / |proj g|=", -1, [dble(iter),f,sbgnrm], 3)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./00_lbfgsb.f90:2726:8: warning: Reference to the procedure 'dblepr' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
call dblepr("g = ", -1, g, n)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./00_lbfgsb.f90:674:8: previous reference to 'dblepr'
call dblepr("at iterate: / f = / |proj g|=", -1, [dble(iter),f,sbgnrm], 3)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./00_lbfgsb.f90:2779:11: warning: Reference to the procedure 'dblepr' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
call dblepr('x =', -1, x, n)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./00_lbfgsb.f90:674:8: previous reference to 'dblepr'
call dblepr("at iterate: / f = / |proj g|=", -1, [dble(iter),f,sbgnrm], 3)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./00_lbfgsb.f90:3968:8: warning: Reference to the procedure 'daxpy' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
call daxpy(n-j+1,temp,t(j,j-1),1,b(j),1)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./00_lbfgsb.f90:1658:8: previous reference to 'daxpy'
call daxpy(col2,dt,p,1,c,1)
^^^^^^^^^^^^^^^^^^^^^^^^^^^
./00_lbfgsb.f90:3982:8: warning: Reference to the procedure 'daxpy' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
call daxpy(j,temp,t(1,j+1),1,b(1),1)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./00_lbfgsb.f90:1658:8: previous reference to 'daxpy'
call daxpy(col2,dt,p,1,c,1)
^^^^^^^^^^^^^^^^^^^^^^^^^^^
flang-20 -fpic -O2 -pedantic -c 00_lib_utils.f90 -o 00_lib_utils.o
./00_lib_utils.f90:35:38: warning: overflow on multiplication
real(dp), parameter :: infinity = 2*huge(1.0d0) ! Infinity
^^^^^^^^^^^^^
flang-20 -fpic -O2 -pedantic -c 01_distrib.f90 -o 01_distrib.o
./01_distrib.f90:246:5: warning: Pointer target is not a definable variable
mu => par(1)
^^^^^^^^^^^^
./01_distrib.f90:243:26: Declaration of 'mu'
real(dp), pointer :: mu, nu
^^
./01_distrib.f90:246:5: because: 'par' is an INTENT(IN) dummy argument
mu => par(1)
^^^^^^^^^^^^
./01_distrib.f90:242:37: Declaration of 'par'
real(dp), target, intent(in) :: par(npar)
^^^
./01_distrib.f90:247:5: warning: Pointer target is not a definable variable
nu => par(2)
^^^^^^^^^^^^
./01_distrib.f90:243:30: Declaration of 'nu'
real(dp), pointer :: mu, nu
^^
./01_distrib.f90:247:5: because: 'par' is an INTENT(IN) dummy argument
nu => par(2)
^^^^^^^^^^^^
./01_distrib.f90:242:37: Declaration of 'par'
real(dp), target, intent(in) :: par(npar)
^^^
./01_distrib.f90:272:5: warning: Pointer target is not a definable variable
mu => par(1)
^^^^^^^^^^^^
./01_distrib.f90:269:29: Declaration of 'mu'
real(dp), pointer :: mu, nu
^^
./01_distrib.f90:272:5: because: 'par' is an INTENT(IN) dummy argument
mu => par(1)
^^^^^^^^^^^^
./01_distrib.f90:268:37: Declaration of 'par'
real(dp), target, intent(in) :: par(npar)
^^^
./01_distrib.f90:273:5: warning: Pointer target is not a definable variable
nu => par(2)
^^^^^^^^^^^^
./01_distrib.f90:269:33: Declaration of 'nu'
real(dp), pointer :: mu, nu
^^
./01_distrib.f90:273:5: because: 'par' is an INTENT(IN) dummy argument
nu => par(2)
^^^^^^^^^^^^
./01_distrib.f90:268:37: Declaration of 'par'
real(dp), target, intent(in) :: par(npar)
^^^
./01_distrib.f90:291:35: warning: Any pointer associated with TARGET dummy argument 'par=' during this call will not be associated with the value of '[REAL(8)::mu(int(t,kind=8)),nu(int(t,kind=8))]' afterwards
sll = sll + dbeta(y(t), 2, [mu(t), nu(t)], 1)
^^^^^^^^^^^^^^
./01_distrib.f90:425:5: warning: Pointer target is not a definable variable
mu => par(1)
^^^^^^^^^^^^^
./01_distrib.f90:422:29: Declaration of 'mu'
real(dp), pointer :: mu, nu, a, b, rho
^^
./01_distrib.f90:425:5: because: 'par' is an INTENT(IN) dummy argument
mu => par(1)
^^^^^^^^^^^^^
./01_distrib.f90:421:37: Declaration of 'par'
real(dp), target, intent(in) :: par(npar)
^^^
./01_distrib.f90:426:5: warning: Pointer target is not a definable variable
nu => par(2)
^^^^^^^^^^^^^
./01_distrib.f90:422:33: Declaration of 'nu'
real(dp), pointer :: mu, nu, a, b, rho
^^
./01_distrib.f90:426:5: because: 'par' is an INTENT(IN) dummy argument
nu => par(2)
^^^^^^^^^^^^^
./01_distrib.f90:421:37: Declaration of 'par'
real(dp), target, intent(in) :: par(npar)
^^^
./01_distrib.f90:427:5: warning: Pointer target is not a definable variable
rho => par(3)
^^^^^^^^^^^^^
./01_distrib.f90:422:43: Declaration of 'rho'
real(dp), pointer :: mu, nu, a, b, rho
^^^
./01_distrib.f90:427:5: because: 'par' is an INTENT(IN) dummy argument
rho => par(3)
^^^^^^^^^^^^^
./01_distrib.f90:421:37: Declaration of 'par'
real(dp), target, intent(in) :: par(npar)
^^^
./01_distrib.f90:428:5: warning: Pointer target is not a definable variable
a => par(4)
^^^^^^^^^^^^^
./01_distrib.f90:422:37: Declaration of 'a'
real(dp), pointer :: mu, nu, a, b, rho
^
./01_distrib.f90:428:5: because: 'par' is an INTENT(IN) dummy argument
a => par(4)
^^^^^^^^^^^^^
./01_distrib.f90:421:37: Declaration of 'par'
real(dp), target, intent(in) :: par(npar)
^^^
./01_distrib.f90:429:5: warning: Pointer target is not a definable variable
b => par(5)
^^^^^^^^^^^^^
./01_distrib.f90:422:40: Declaration of 'b'
real(dp), pointer :: mu, nu, a, b, rho
^
./01_distrib.f90:429:5: because: 'par' is an INTENT(IN) dummy argument
b => par(5)
^^^^^^^^^^^^^
./01_distrib.f90:421:37: Declaration of 'par'
real(dp), target, intent(in) :: par(npar)
^^^
./01_distrib.f90:461:5: warning: Pointer target is not a definable variable
mu => par(1)
^^^^^^^^^^^^^
./01_distrib.f90:457:29: Declaration of 'mu'
real(dp), pointer :: mu, nu, a, b, rho
^^
./01_distrib.f90:461:5: because: 'par' is an INTENT(IN) dummy argument
mu => par(1)
^^^^^^^^^^^^^
./01_distrib.f90:456:37: Declaration of 'par'
real(dp), target, intent(in) :: par(npar)
^^^
./01_distrib.f90:462:5: warning: Pointer target is not a definable variable
nu => par(2)
^^^^^^^^^^^^^
./01_distrib.f90:457:33: Declaration of 'nu'
real(dp), pointer :: mu, nu, a, b, rho
^^
./01_distrib.f90:462:5: because: 'par' is an INTENT(IN) dummy argument
nu => par(2)
^^^^^^^^^^^^^
./01_distrib.f90:456:37: Declaration of 'par'
real(dp), target, intent(in) :: par(npar)
^^^
./01_distrib.f90:463:5: warning: Pointer target is not a definable variable
rho => par(3)
^^^^^^^^^^^^^
./01_distrib.f90:457:43: Declaration of 'rho'
real(dp), pointer :: mu, nu, a, b, rho
^^^
./01_distrib.f90:463:5: because: 'par' is an INTENT(IN) dummy argument
rho => par(3)
^^^^^^^^^^^^^
./01_distrib.f90:456:37: Declaration of 'par'
real(dp), target, intent(in) :: par(npar)
^^^
./01_distrib.f90:464:5: warning: Pointer target is not a definable variable
a => par(4)
^^^^^^^^^^^^^
./01_distrib.f90:457:37: Declaration of 'a'
real(dp), pointer :: mu, nu, a, b, rho
^
./01_distrib.f90:464:5: because: 'par' is an INTENT(IN) dummy argument
a => par(4)
^^^^^^^^^^^^^
./01_distrib.f90:456:37: Declaration of 'par'
real(dp), target, intent(in) :: par(npar)
^^^
./01_distrib.f90:465:5: warning: Pointer target is not a definable variable
b => par(5)
^^^^^^^^^^^^^
./01_distrib.f90:457:40: Declaration of 'b'
real(dp), pointer :: mu, nu, a, b, rho
^
./01_distrib.f90:465:5: because: 'par' is an INTENT(IN) dummy argument
b => par(5)
^^^^^^^^^^^^^
./01_distrib.f90:456:37: Declaration of 'par'
real(dp), target, intent(in) :: par(npar)
^^^
./01_distrib.f90:511:35: warning: Any pointer associated with TARGET dummy argument 'par=' during this call will not be associated with the value of '[REAL(8)::mu(int(t,kind=8)),nu(int(t,kind=8)),argsd%par,argsd%lower,argsd%upper]' afterwards
sll = sll + dkuma(y(t), 5, [mu(t), nu(t), argsD%par, argsD%lower, argsD%upper], 1)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./01_distrib.f90:652:5: warning: Pointer target is not a definable variable
mu => par(1)
^^^^^^^^^^^^
./01_distrib.f90:649:26: Declaration of 'mu'
real(dp), pointer :: mu, nu
^^
./01_distrib.f90:652:5: because: 'par' is an INTENT(IN) dummy argument
mu => par(1)
^^^^^^^^^^^^
./01_distrib.f90:648:37: Declaration of 'par'
real(dp), target, intent(in) :: par(npar)
^^^
./01_distrib.f90:653:5: warning: Pointer target is not a definable variable
nu => par(2)
^^^^^^^^^^^^
./01_distrib.f90:649:30: Declaration of 'nu'
real(dp), pointer :: mu, nu
^^
./01_distrib.f90:653:5: because: 'par' is an INTENT(IN) dummy argument
nu => par(2)
^^^^^^^^^^^^
./01_distrib.f90:648:37: Declaration of 'par'
real(dp), target, intent(in) :: par(npar)
^^^
./01_distrib.f90:681:5: warning: Pointer target is not a definable variable
mu => par(1)
^^^^^^^^^^^^
./01_distrib.f90:678:29: Declaration of 'mu'
real(dp), pointer :: mu, nu
^^
./01_distrib.f90:681:5: because: 'par' is an INTENT(IN) dummy argument
mu => par(1)
^^^^^^^^^^^^
./01_distrib.f90:677:37: Declaration of 'par'
real(dp), target, intent(in) :: par(npar)
^^^
./01_distrib.f90:682:5: warning: Pointer target is not a definable variable
nu => par(2)
^^^^^^^^^^^^
./01_distrib.f90:678:33: Declaration of 'nu'
real(dp), pointer :: mu, nu
^^
./01_distrib.f90:682:5: because: 'par' is an INTENT(IN) dummy argument
nu => par(2)
^^^^^^^^^^^^
./01_distrib.f90:677:37: Declaration of 'par'
real(dp), target, intent(in) :: par(npar)
^^^
./01_distrib.f90:700:37: warning: Any pointer associated with TARGET dummy argument 'par=' during this call will not be associated with the value of '[REAL(8)::mu(int(t,kind=8)),nu(int(t,kind=8))]' afterwards
sll = sll + d_gamma(y(t), 2, [mu(t), nu(t)], 1)
^^^^^^^^^^^^^^
./01_distrib.f90:797:5: warning: Pointer target is not a definable variable
mu => par(1)
^^^^^^^^^^^^^
./01_distrib.f90:794:29: Declaration of 'mu'
real(dp), pointer :: mu, nu, rho
^^
./01_distrib.f90:797:5: because: 'par' is an INTENT(IN) dummy argument
mu => par(1)
^^^^^^^^^^^^^
./01_distrib.f90:793:37: Declaration of 'par'
real(dp), target, intent(in) :: par(npar)
^^^
./01_distrib.f90:798:5: warning: Pointer target is not a definable variable
nu => par(2)
^^^^^^^^^^^^^
./01_distrib.f90:794:33: Declaration of 'nu'
real(dp), pointer :: mu, nu, rho
^^
./01_distrib.f90:798:5: because: 'par' is an INTENT(IN) dummy argument
nu => par(2)
^^^^^^^^^^^^^
./01_distrib.f90:793:37: Declaration of 'par'
real(dp), target, intent(in) :: par(npar)
^^^
./01_distrib.f90:799:5: warning: Pointer target is not a definable variable
rho => par(3)
^^^^^^^^^^^^^
./01_distrib.f90:794:37: Declaration of 'rho'
real(dp), pointer :: mu, nu, rho
^^^
./01_distrib.f90:799:5: because: 'par' is an INTENT(IN) dummy argument
rho => par(3)
^^^^^^^^^^^^^
./01_distrib.f90:793:37: Declaration of 'par'
real(dp), target, intent(in) :: par(npar)
^^^
./01_distrib.f90:830:5: warning: Pointer target is not a definable variable
mu => par(1)
^^^^^^^^^^^^^
./01_distrib.f90:827:29: Declaration of 'mu'
real(dp), pointer :: mu, nu, rho
^^
./01_distrib.f90:830:5: because: 'par' is an INTENT(IN) dummy argument
mu => par(1)
^^^^^^^^^^^^^
./01_distrib.f90:826:37: Declaration of 'par'
real(dp), target, intent(in) :: par(npar)
^^^
./01_distrib.f90:831:5: warning: Pointer target is not a definable variable
nu => par(2)
^^^^^^^^^^^^^
./01_distrib.f90:827:33: Declaration of 'nu'
real(dp), pointer :: mu, nu, rho
^^
./01_distrib.f90:831:5: because: 'par' is an INTENT(IN) dummy argument
nu => par(2)
^^^^^^^^^^^^^
./01_distrib.f90:826:37: Declaration of 'par'
real(dp), target, intent(in) :: par(npar)
^^^
./01_distrib.f90:832:5: warning: Pointer target is not a definable variable
rho => par(3)
^^^^^^^^^^^^^
./01_distrib.f90:827:37: Declaration of 'rho'
real(dp), pointer :: mu, nu, rho
^^^
./01_distrib.f90:832:5: because: 'par' is an INTENT(IN) dummy argument
rho => par(3)
^^^^^^^^^^^^^
./01_distrib.f90:826:37: Declaration of 'par'
real(dp), target, intent(in) :: par(npar)
^^^
./01_distrib.f90:855:33: warning: Any pointer associated with TARGET dummy argument 'par=' during this call will not be associated with the value of '[REAL(8)::mu(int(t,kind=8)),nu(int(t,kind=8)),argsd%par]' afterwards
sll = sll + duw(y(t), 3, [mu(t), nu(t), argsD%par], 1)
^^^^^^^^^^^^^^^^^^^^^^^^^
./01_distrib.f90:1013:36: warning: Any pointer associated with TARGET dummy argument 'par=' during this call will not be associated with the value of '[REAL(8)::mu(int(t,kind=8))]' afterwards
sll = sll + dmatsu(y(t), 1, [mu(t)], 1)
^^^^^^^
./01_distrib.f90:1153:33: warning: Any pointer associated with TARGET dummy argument 'par=' during this call will not be associated with the value of '[REAL(8)::mu(int(t,kind=8))]' afterwards
sll = sll + dul(y(t), 1, [mu(t)], 1)
^^^^^^^
flang-20 -fpic -O2 -pedantic -c 02_main.f90 -o 02_main.o
flang-20 -fpic -O2 -pedantic -c 03_alloc.f90 -o 03_alloc.o
./03_alloc.f90:192:5: warning: Pointer target is not a definable variable
nreg => order(1)
^^^^^^^^^^^^^^^^
./03_alloc.f90:179:29: Declaration of 'nreg'
integer, pointer :: nreg, p, q, inf
^^^^
./03_alloc.f90:192:5: because: 'order' is an INTENT(IN) dummy argument
nreg => order(1)
^^^^^^^^^^^^^^^^
./03_alloc.f90:178:37: Declaration of 'order'
integer, target, intent(in) :: order(4), nfix(5)
^^^^^
./03_alloc.f90:193:5: warning: Pointer target is not a definable variable
p => order(2)
^^^^^^^^^^^^^^^^
./03_alloc.f90:179:35: Declaration of 'p'
integer, pointer :: nreg, p, q, inf
^
./03_alloc.f90:193:5: because: 'order' is an INTENT(IN) dummy argument
p => order(2)
^^^^^^^^^^^^^^^^
./03_alloc.f90:178:37: Declaration of 'order'
integer, target, intent(in) :: order(4), nfix(5)
^^^^^
./03_alloc.f90:194:5: warning: Pointer target is not a definable variable
q => order(3)
^^^^^^^^^^^^^^^^
./03_alloc.f90:179:38: Declaration of 'q'
integer, pointer :: nreg, p, q, inf
^
./03_alloc.f90:194:5: because: 'order' is an INTENT(IN) dummy argument
q => order(3)
^^^^^^^^^^^^^^^^
./03_alloc.f90:178:37: Declaration of 'order'
integer, target, intent(in) :: order(4), nfix(5)
^^^^^
./03_alloc.f90:195:5: warning: Pointer target is not a definable variable
inf => order(4)
^^^^^^^^^^^^^^^^
./03_alloc.f90:179:41: Declaration of 'inf'
integer, pointer :: nreg, p, q, inf
^^^
./03_alloc.f90:195:5: because: 'order' is an INTENT(IN) dummy argument
inf => order(4)
^^^^^^^^^^^^^^^^
./03_alloc.f90:178:37: Declaration of 'order'
integer, target, intent(in) :: order(4), nfix(5)
^^^^^
./03_alloc.f90:196:5: warning: Pointer target is not a definable variable
fixa => nfix(1)
^^^^^^^^^^^^^^^^
./03_alloc.f90:180:29: Declaration of 'fixa'
integer, pointer :: fixa, fixb, fixar, fixma, fixd
^^^^
./03_alloc.f90:196:5: because: 'nfix' is an INTENT(IN) dummy argument
fixa => nfix(1)
^^^^^^^^^^^^^^^^
./03_alloc.f90:178:47: Declaration of 'nfix'
integer, target, intent(in) :: order(4), nfix(5)
^^^^
./03_alloc.f90:197:5: warning: Pointer target is not a definable variable
fixb => nfix(2)
^^^^^^^^^^^^^^^^
./03_alloc.f90:180:35: Declaration of 'fixb'
integer, pointer :: fixa, fixb, fixar, fixma, fixd
^^^^
./03_alloc.f90:197:5: because: 'nfix' is an INTENT(IN) dummy argument
fixb => nfix(2)
^^^^^^^^^^^^^^^^
./03_alloc.f90:178:47: Declaration of 'nfix'
integer, target, intent(in) :: order(4), nfix(5)
^^^^
./03_alloc.f90:198:5: warning: Pointer target is not a definable variable
fixar => nfix(3)
^^^^^^^^^^^^^^^^
./03_alloc.f90:180:41: Declaration of 'fixar'
integer, pointer :: fixa, fixb, fixar, fixma, fixd
^^^^^
./03_alloc.f90:198:5: because: 'nfix' is an INTENT(IN) dummy argument
fixar => nfix(3)
^^^^^^^^^^^^^^^^
./03_alloc.f90:178:47: Declaration of 'nfix'
integer, target, intent(in) :: order(4), nfix(5)
^^^^
./03_alloc.f90:199:5: warning: Pointer target is not a definable variable
fixma => nfix(4)
^^^^^^^^^^^^^^^^
./03_alloc.f90:180:48: Declaration of 'fixma'
integer, pointer :: fixa, fixb, fixar, fixma, fixd
^^^^^
./03_alloc.f90:199:5: because: 'nfix' is an INTENT(IN) dummy argument
fixma => nfix(4)
^^^^^^^^^^^^^^^^
./03_alloc.f90:178:47: Declaration of 'nfix'
integer, target, intent(in) :: order(4), nfix(5)
^^^^
./03_alloc.f90:200:5: warning: Pointer target is not a definable variable
fixd => nfix(5)
^^^^^^^^^^^^^^^^
./03_alloc.f90:180:55: Declaration of 'fixd'
integer, pointer :: fixa, fixb, fixar, fixma, fixd
^^^^
./03_alloc.f90:200:5: because: 'nfix' is an INTENT(IN) dummy argument
fixd => nfix(5)
^^^^^^^^^^^^^^^^
./03_alloc.f90:178:47: Declaration of 'nfix'
integer, target, intent(in) :: order(4), nfix(5)
^^^^
./03_alloc.f90:316:40: warning: Any pointer associated with TARGET dummy argument 'order=' during this call must not be used afterwards, as 'order(int(part,kind=8),::1_8)' is not a target
call allocate_model_part(model, order(part,:), xreg, xstart(part,1:max(1, order(part,1))), &
^^^^^^^^^^^^^
./03_alloc.f90:317:27: warning: Any pointer associated with TARGET dummy argument 'nfix=' during this call must not be used afterwards, as 'nfix(int(part,kind=8),::1_8)' is not a target
xregar(part), nfix(part,:), alpha(part), flagsb(part, 1:ib), fvbeta(part, 1:ib), &
^^^^^^^^^^^^
flang-20 -fpic -O2 -pedantic -c 03_Nelder.f90 -o 03_Nelder.o
./03_Nelder.f90:432:8: warning: Reference to the procedure 'dblepr' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
call dblepr(" Minimum in the last simplex", -1, p, nop)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./03_Nelder.f90:211:11: previous reference to 'dblepr'
call dblepr(" build", -1, [dble(i), h(i), hmin], 3)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./03_Nelder.f90:442:8: warning: Reference to the procedure 'dblepr' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
call dblepr(" Minimum at", -1, p, nop)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./03_Nelder.f90:211:11: previous reference to 'dblepr'
call dblepr(" build", -1, [dble(i), h(i), hmin], 3)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
flang-20 -fpic -O2 -pedantic -c 04_base.f90 -o 04_base.o
./04_base.f90:265:5: warning: Pointer target is not a definable variable
a => args%lower ! lower bound for x
^^^^^^^^^^^^^^^
./04_base.f90:263:26: Declaration of 'a'
real(dp), pointer :: a, b, ctt, power
^
./04_base.f90:265:5: because: 'args' is an INTENT(IN) dummy argument
a => args%lower ! lower bound for x
^^^^^^^^^^^^^^^
./04_base.f90:260:43: Declaration of 'args'
type(argslink), target, intent(in) :: args
^^^^
./04_base.f90:266:5: warning: Pointer target is not a definable variable
b => args%upper ! upper bound for x
^^^^^^^^^^^^^^^
./04_base.f90:263:29: Declaration of 'b'
real(dp), pointer :: a, b, ctt, power
^
./04_base.f90:266:5: because: 'args' is an INTENT(IN) dummy argument
b => args%upper ! upper bound for x
^^^^^^^^^^^^^^^
./04_base.f90:260:43: Declaration of 'args'
type(argslink), target, intent(in) :: args
^^^^
./04_base.f90:267:5: warning: Pointer target is not a definable variable
ctt => args%par(1)
^^^^^^^^^^^^^^^^^^
./04_base.f90:263:32: Declaration of 'ctt'
real(dp), pointer :: a, b, ctt, power
^^^
./04_base.f90:267:5: because: 'args' is an INTENT(IN) dummy argument
ctt => args%par(1)
^^^^^^^^^^^^^^^^^^
./04_base.f90:260:43: Declaration of 'args'
type(argslink), target, intent(in) :: args
^^^^
./04_base.f90:268:5: warning: Pointer target is not a definable variable
power => args%par(2)
^^^^^^^^^^^^^^^^^^^^
./04_base.f90:263:37: Declaration of 'power'
real(dp), pointer :: a, b, ctt, power
^^^^^
./04_base.f90:268:5: because: 'args' is an INTENT(IN) dummy argument
power => args%par(2)
^^^^^^^^^^^^^^^^^^^^
./04_base.f90:260:43: Declaration of 'args'
type(argslink), target, intent(in) :: args
^^^^
./04_base.f90:324:5: warning: Pointer target is not a definable variable
a => args%lower ! lower bound for x
^^^^^^^^^^^^^^^
./04_base.f90:322:26: Declaration of 'a'
real(dp), pointer :: a, b, ctt, power
^
./04_base.f90:324:5: because: 'args' is an INTENT(IN) dummy argument
a => args%lower ! lower bound for x
^^^^^^^^^^^^^^^
./04_base.f90:319:43: Declaration of 'args'
type(argslink), target, intent(in) :: args
^^^^
./04_base.f90:325:5: warning: Pointer target is not a definable variable
b => args%upper ! upper bound for x
^^^^^^^^^^^^^^^
./04_base.f90:322:29: Declaration of 'b'
real(dp), pointer :: a, b, ctt, power
^
./04_base.f90:325:5: because: 'args' is an INTENT(IN) dummy argument
b => args%upper ! upper bound for x
^^^^^^^^^^^^^^^
./04_base.f90:319:43: Declaration of 'args'
type(argslink), target, intent(in) :: args
^^^^
./04_base.f90:326:5: warning: Pointer target is not a definable variable
ctt => args%par(1)
^^^^^^^^^^^^^^^^^^
./04_base.f90:322:32: Declaration of 'ctt'
real(dp), pointer :: a, b, ctt, power
^^^
./04_base.f90:326:5: because: 'args' is an INTENT(IN) dummy argument
ctt => args%par(1)
^^^^^^^^^^^^^^^^^^
./04_base.f90:319:43: Declaration of 'args'
type(argslink), target, intent(in) :: args
^^^^
./04_base.f90:327:5: warning: Pointer target is not a definable variable
power => args%par(2)
^^^^^^^^^^^^^^^^^^^^
./04_base.f90:322:37: Declaration of 'power'
real(dp), pointer :: a, b, ctt, power
^^^^^
./04_base.f90:327:5: because: 'args' is an INTENT(IN) dummy argument
power => args%par(2)
^^^^^^^^^^^^^^^^^^^^
./04_base.f90:319:43: Declaration of 'args'
type(argslink), target, intent(in) :: args
^^^^
./04_base.f90:563:32: warning: Any pointer associated with TARGET dummy argument 'args=' during this call must not be used afterwards, as 'argslg(1_8)' is not a target
mu(t) = linkinv(eta(t), argsLg(1))
^^^^^^^^^
./04_base.f90:660:33: warning: Any pointer associated with TARGET dummy argument 'args=' during this call must not be used afterwards, as 'argslg(2_8)' is not a target
gwt(t) = linkinv(eta(t), argsLg(2)) ! g(wt) = g21^{-1}(eta)
^^^^^^^^^
./04_base.f90:661:32: warning: Any pointer associated with TARGET dummy argument 'args=' during this call must not be used afterwards, as 'argslg(1_8)' is not a target
wt(t) = linkinv(gwt(t), argsLg(1)) ! wt = g^{-1}(g(wt))
^^^^^^^^^
./04_base.f90:750:38: warning: Any pointer associated with TARGET dummy argument 'args=' during this call must not be used afterwards, as 'model%pt(1_8)%linkg(2_8)' is not a target
muhat(t) = linkinv(etahat(t), model%pt(1)%linkg(2))
^^^^^^^^^^^^^^^^^^^^
./04_base.f90:845:38: warning: Any pointer associated with TARGET dummy argument 'args=' during this call must not be used afterwards, as 'model%pt(2_8)%linkg(2_8)' is not a target
gwhat(t) = linkinv(etahat(t), model%pt(2)%linkg(2))
^^^^^^^^^^^^^^^^^^^^
./04_base.f90:847:36: warning: Any pointer associated with TARGET dummy argument 'args=' during this call must not be used afterwards, as 'model%pt(2_8)%linkg(1_8)' is not a target
what(t) = linkinv(gwhat(t), model%pt(2)%linkg(1))
^^^^^^^^^^^^^^^^^^^^
./04_base.f90:881:42: warning: Any pointer associated with TARGET dummy argument 'forecast=' during this call must not be used afterwards, as 'forecast(::1_8,1_8:2_8:1_8)' is not a target
call mu_forecast(model, nnew, xnew1, forecast(:, 1:2))
^^^^^^^^^^^^^^^^
./04_base.f90:882:42: warning: Any pointer associated with TARGET dummy argument 'forecast=' during this call must not be used afterwards, as 'forecast(::1_8,3_8:5_8:1_8)' is not a target
call nu_forecast(model, nnew, xnew2, forecast(:, 3:5))
^^^^^^^^^^^^^^^^
./04_base.f90:992:5: warning: Pointer target is not a definable variable
n => model%n
^^^^^^^^^^^^^^
./04_base.f90:982:32: Declaration of 'n'
integer, pointer :: es, m, n, inf
^
./04_base.f90:992:5: because: 'model' is an INTENT(IN) dummy argument
n => model%n
^^^^^^^^^^^^^^
./04_base.f90:976:44: Declaration of 'model'
type(argsModel), target, intent(in) :: model
^^^^^
./04_base.f90:993:5: warning: Pointer target is not a definable variable
m => model%m
^^^^^^^^^^^^^^
./04_base.f90:982:29: Declaration of 'm'
integer, pointer :: es, m, n, inf
^
./04_base.f90:993:5: because: 'model' is an INTENT(IN) dummy argument
m => model%m
^^^^^^^^^^^^^^
./04_base.f90:976:44: Declaration of 'model'
type(argsModel), target, intent(in) :: model
^^^^^
./04_base.f90:994:5: warning: Pointer target is not a definable variable
inf => model%pt(1)%inf
^^^^^^^^^^^^^^^^^^^^^^
./04_base.f90:982:35: Declaration of 'inf'
integer, pointer :: es, m, n, inf
^^^
./04_base.f90:994:5: because: 'model' is an INTENT(IN) dummy argument
inf => model%pt(1)%inf
^^^^^^^^^^^^^^^^^^^^^^
./04_base.f90:976:44: Declaration of 'model'
type(argsModel), target, intent(in) :: model
^^^^^
./04_base.f90:995:5: warning: Pointer target is not a definable variable
fita => model%pt(1)%alpha%fit
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./04_base.f90:983:25: Declaration of 'fita'
integer, pointer :: fita, fitb, fitar, fitma, fitd
^^^^
./04_base.f90:995:5: because: 'model' is an INTENT(IN) dummy argument
fita => model%pt(1)%alpha%fit
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./04_base.f90:976:44: Declaration of 'model'
type(argsModel), target, intent(in) :: model
^^^^^
./04_base.f90:996:5: warning: Pointer target is not a definable variable
fitb => model%pt(1)%beta%fit
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./04_base.f90:983:31: Declaration of 'fitb'
integer, pointer :: fita, fitb, fitar, fitma, fitd
^^^^
./04_base.f90:996:5: because: 'model' is an INTENT(IN) dummy argument
fitb => model%pt(1)%beta%fit
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./04_base.f90:976:44: Declaration of 'model'
type(argsModel), target, intent(in) :: model
^^^^^
./04_base.f90:997:5: warning: Pointer target is not a definable variable
fitar => model%pt(1)%ar%fit
^^^^^^^^^^^^^^^^^^^^^^^^^^^
./04_base.f90:983:37: Declaration of 'fitar'
integer, pointer :: fita, fitb, fitar, fitma, fitd
^^^^^
./04_base.f90:997:5: because: 'model' is an INTENT(IN) dummy argument
fitar => model%pt(1)%ar%fit
^^^^^^^^^^^^^^^^^^^^^^^^^^^
./04_base.f90:976:44: Declaration of 'model'
type(argsModel), target, intent(in) :: model
^^^^^
./04_base.f90:998:5: warning: Pointer target is not a definable variable
fitma => model%pt(1)%ma%fit
^^^^^^^^^^^^^^^^^^^^^^^^^^^
./04_base.f90:983:44: Declaration of 'fitma'
integer, pointer :: fita, fitb, fitar, fitma, fitd
^^^^^
./04_base.f90:998:5: because: 'model' is an INTENT(IN) dummy argument
fitma => model%pt(1)%ma%fit
^^^^^^^^^^^^^^^^^^^^^^^^^^^
./04_base.f90:976:44: Declaration of 'model'
type(argsModel), target, intent(in) :: model
^^^^^
./04_base.f90:999:5: warning: Pointer target is not a definable variable
fitd => model%pt(1)%d%fit
^^^^^^^^^^^^^^^^^^^^^^^^^^
./04_base.f90:983:51: Declaration of 'fitd'
integer, pointer :: fita, fitb, fitar, fitma, fitd
^^^^
./04_base.f90:999:5: because: 'model' is an INTENT(IN) dummy argument
fitd => model%pt(1)%d%fit
^^^^^^^^^^^^^^^^^^^^^^^^^^
./04_base.f90:976:44: Declaration of 'model'
type(argsModel), target, intent(in) :: model
^^^^^
./04_base.f90:1002:5: warning: Pointer target is not a definable variable
es => model%pt(1)%linkg(4)%link
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./04_base.f90:982:25: Declaration of 'es'
integer, pointer :: es, m, n, inf
^^
./04_base.f90:1002:5: because: 'model' is an INTENT(IN) dummy argument
es => model%pt(1)%linkg(4)%link
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./04_base.f90:976:44: Declaration of 'model'
type(argsModel), target, intent(in) :: model
^^^^^
./04_base.f90:1027:8: warning: Pointer target is not a definable variable
dalpha1 => model%SI%deta(1, 1)%dalpha(:, 1)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./04_base.f90:984:26: Declaration of 'dalpha1'
real(dp), pointer :: dalpha1(:), dd1(:)
^^^^^^^
./04_base.f90:1027:8: because: 'model' is an INTENT(IN) dummy argument
dalpha1 => model%SI%deta(1, 1)%dalpha(:, 1)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./04_base.f90:976:44: Declaration of 'model'
type(argsModel), target, intent(in) :: model
^^^^^
./04_base.f90:1045:8: warning: Pointer target is not a definable variable
dbeta1 => model%SI%deta(1, 1)%dbeta
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./04_base.f90:985:26: Declaration of 'dbeta1'
real(dp), pointer :: dbeta1(:,:), dphi1(:,:), dtheta1(:,:)
^^^^^^
./04_base.f90:1045:8: because: 'model' is an INTENT(IN) dummy argument
dbeta1 => model%SI%deta(1, 1)%dbeta
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./04_base.f90:976:44: Declaration of 'model'
type(argsModel), target, intent(in) :: model
^^^^^
./04_base.f90:1072:8: warning: Pointer target is not a definable variable
dphi1 => model%SI%deta(1, 1)%dphi
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./04_base.f90:985:39: Declaration of 'dphi1'
real(dp), pointer :: dbeta1(:,:), dphi1(:,:), dtheta1(:,:)
^^^^^
./04_base.f90:1072:8: because: 'model' is an INTENT(IN) dummy argument
dphi1 => model%SI%deta(1, 1)%dphi
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./04_base.f90:976:44: Declaration of 'model'
type(argsModel), target, intent(in) :: model
^^^^^
./04_base.f90:1098:8: warning: Pointer target is not a definable variable
dtheta1 => model%SI%deta(1, 1)%dtheta
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./04_base.f90:985:51: Declaration of 'dtheta1'
real(dp), pointer :: dbeta1(:,:), dphi1(:,:), dtheta1(:,:)
^^^^^^^
./04_base.f90:1098:8: because: 'model' is an INTENT(IN) dummy argument
dtheta1 => model%SI%deta(1, 1)%dtheta
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./04_base.f90:976:44: Declaration of 'model'
type(argsModel), target, intent(in) :: model
^^^^^
./04_base.f90:1124:8: warning: Pointer target is not a definable variable
dd1 => model%SI%deta(1, 1)%dd(:, 1)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./04_base.f90:984:38: Declaration of 'dd1'
real(dp), pointer :: dalpha1(:), dd1(:)
^^^
./04_base.f90:1124:8: because: 'model' is an INTENT(IN) dummy argument
dd1 => model%SI%deta(1, 1)%dd(:, 1)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./04_base.f90:976:44: Declaration of 'model'
type(argsModel), target, intent(in) :: model
^^^^^
./04_base.f90:1175:5: warning: Pointer target is not a definable variable
n => model%n
^^^^^^^^^^^^^^
./04_base.f90:1162:32: Declaration of 'n'
integer, pointer :: es, m, n, inf
^
./04_base.f90:1175:5: because: 'model' is an INTENT(IN) dummy argument
n => model%n
^^^^^^^^^^^^^^
./04_base.f90:1157:44: Declaration of 'model'
type(argsModel), target, intent(in) :: model
^^^^^
./04_base.f90:1176:5: warning: Pointer target is not a definable variable
m => model%m
^^^^^^^^^^^^^^
./04_base.f90:1162:29: Declaration of 'm'
integer, pointer :: es, m, n, inf
^
./04_base.f90:1176:5: because: 'model' is an INTENT(IN) dummy argument
m => model%m
^^^^^^^^^^^^^^
./04_base.f90:1157:44: Declaration of 'model'
type(argsModel), target, intent(in) :: model
^^^^^
./04_base.f90:1177:5: warning: Pointer target is not a definable variable
inf => model%pt(2)%inf
^^^^^^^^^^^^^^^^^^^^^^
./04_base.f90:1162:35: Declaration of 'inf'
integer, pointer :: es, m, n, inf
^^^
./04_base.f90:1177:5: because: 'model' is an INTENT(IN) dummy argument
inf => model%pt(2)%inf
^^^^^^^^^^^^^^^^^^^^^^
./04_base.f90:1157:44: Declaration of 'model'
type(argsModel), target, intent(in) :: model
^^^^^
./04_base.f90:1178:5: warning: Pointer target is not a definable variable
fita => model%pt(1)%alpha%fit
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./04_base.f90:1163:25: Declaration of 'fita'
integer, pointer :: fita, fitb, fitar, fitma, fitd
^^^^
./04_base.f90:1178:5: because: 'model' is an INTENT(IN) dummy argument
fita => model%pt(1)%alpha%fit
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./04_base.f90:1157:44: Declaration of 'model'
type(argsModel), target, intent(in) :: model
^^^^^
./04_base.f90:1179:5: warning: Pointer target is not a definable variable
fitb => model%pt(1)%beta%fit
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./04_base.f90:1163:31: Declaration of 'fitb'
integer, pointer :: fita, fitb, fitar, fitma, fitd
^^^^
./04_base.f90:1179:5: because: 'model' is an INTENT(IN) dummy argument
fitb => model%pt(1)%beta%fit
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./04_base.f90:1157:44: Declaration of 'model'
type(argsModel), target, intent(in) :: model
^^^^^
./04_base.f90:1180:5: warning: Pointer target is not a definable variable
fitar => model%pt(1)%ar%fit
^^^^^^^^^^^^^^^^^^^^^^^^^^^
./04_base.f90:1163:37: Declaration of 'fitar'
integer, pointer :: fita, fitb, fitar, fitma, fitd
^^^^^
./04_base.f90:1180:5: because: 'model' is an INTENT(IN) dummy argument
fitar => model%pt(1)%ar%fit
^^^^^^^^^^^^^^^^^^^^^^^^^^^
./04_base.f90:1157:44: Declaration of 'model'
type(argsModel), target, intent(in) :: model
^^^^^
./04_base.f90:1181:5: warning: Pointer target is not a definable variable
fitma => model%pt(1)%ma%fit
^^^^^^^^^^^^^^^^^^^^^^^^^^^
./04_base.f90:1163:44: Declaration of 'fitma'
integer, pointer :: fita, fitb, fitar, fitma, fitd
^^^^^
./04_base.f90:1181:5: because: 'model' is an INTENT(IN) dummy argument
fitma => model%pt(1)%ma%fit
^^^^^^^^^^^^^^^^^^^^^^^^^^^
./04_base.f90:1157:44: Declaration of 'model'
type(argsModel), target, intent(in) :: model
^^^^^
./04_base.f90:1182:5: warning: Pointer target is not a definable variable
fitd => model%pt(1)%d%fit
^^^^^^^^^^^^^^^^^^^^^^^^^^
./04_base.f90:1163:51: Declaration of 'fitd'
integer, pointer :: fita, fitb, fitar, fitma, fitd
^^^^
./04_base.f90:1182:5: because: 'model' is an INTENT(IN) dummy argument
fitd => model%pt(1)%d%fit
^^^^^^^^^^^^^^^^^^^^^^^^^^
./04_base.f90:1157:44: Declaration of 'model'
type(argsModel), target, intent(in) :: model
^^^^^
./04_base.f90:1185:5: warning: Pointer target is not a definable variable
es => model%pt(1)%linkg(4)%link
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./04_base.f90:1162:25: Declaration of 'es'
integer, pointer :: es, m, n, inf
^^
./04_base.f90:1185:5: because: 'model' is an INTENT(IN) dummy argument
es => model%pt(1)%linkg(4)%link
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./04_base.f90:1157:44: Declaration of 'model'
type(argsModel), target, intent(in) :: model
^^^^^
./04_base.f90:1209:8: warning: Pointer target is not a definable variable
dalpha1 => model%SI%deta(2, 1)%dalpha(:, 1)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./04_base.f90:1164:26: Declaration of 'dalpha1'
real(dp), pointer :: dalpha1(:), dd1(:)
^^^^^^^
./04_base.f90:1209:8: because: 'model' is an INTENT(IN) dummy argument
dalpha1 => model%SI%deta(2, 1)%dalpha(:, 1)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./04_base.f90:1157:44: Declaration of 'model'
type(argsModel), target, intent(in) :: model
^^^^^
./04_base.f90:1226:8: warning: Pointer target is not a definable variable
dbeta1 => model%SI%deta(2, 1)%dbeta
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./04_base.f90:1165:26: Declaration of 'dbeta1'
real(dp), pointer :: dbeta1(:,:), dphi1(:,:), dtheta1(:,:)
^^^^^^
./04_base.f90:1226:8: because: 'model' is an INTENT(IN) dummy argument
dbeta1 => model%SI%deta(2, 1)%dbeta
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./04_base.f90:1157:44: Declaration of 'model'
type(argsModel), target, intent(in) :: model
^^^^^
./04_base.f90:1245:8: warning: Pointer target is not a definable variable
dphi1 => model%SI%deta(2, 1)%dphi
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./04_base.f90:1165:39: Declaration of 'dphi1'
real(dp), pointer :: dbeta1(:,:), dphi1(:,:), dtheta1(:,:)
^^^^^
./04_base.f90:1245:8: because: 'model' is an INTENT(IN) dummy argument
dphi1 => model%SI%deta(2, 1)%dphi
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./04_base.f90:1157:44: Declaration of 'model'
type(argsModel), target, intent(in) :: model
^^^^^
./04_base.f90:1264:8: warning: Pointer target is not a definable variable
dtheta1 => model%SI%deta(2, 1)%dtheta
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./04_base.f90:1165:51: Declaration of 'dtheta1'
real(dp), pointer :: dbeta1(:,:), dphi1(:,:), dtheta1(:,:)
^^^^^^^
./04_base.f90:1264:8: because: 'model' is an INTENT(IN) dummy argument
dtheta1 => model%SI%deta(2, 1)%dtheta
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./04_base.f90:1157:44: Declaration of 'model'
type(argsModel), target, intent(in) :: model
^^^^^
./04_base.f90:1283:8: warning: Pointer target is not a definable variable
dd1 => model%SI%deta(2, 1)%dd(:, 1)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./04_base.f90:1164:38: Declaration of 'dd1'
real(dp), pointer :: dalpha1(:), dd1(:)
^^^
./04_base.f90:1283:8: because: 'model' is an INTENT(IN) dummy argument
dd1 => model%SI%deta(2, 1)%dd(:, 1)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./04_base.f90:1157:44: Declaration of 'model'
type(argsModel), target, intent(in) :: model
^^^^^
./04_base.f90:1325:5: warning: Pointer target is not a definable variable
n => model%n
^^^^^^^^^^^^^^
./04_base.f90:1315:28: Declaration of 'n'
integer, pointer :: m, n, inf
^
./04_base.f90:1325:5: because: 'model' is an INTENT(IN) dummy argument
n => model%n
^^^^^^^^^^^^^^
./04_base.f90:1310:44: Declaration of 'model'
type(argsModel), target, intent(in) :: model
^^^^^
./04_base.f90:1326:5: warning: Pointer target is not a definable variable
m => model%m
^^^^^^^^^^^^^^
./04_base.f90:1315:25: Declaration of 'm'
integer, pointer :: m, n, inf
^
./04_base.f90:1326:5: because: 'model' is an INTENT(IN) dummy argument
m => model%m
^^^^^^^^^^^^^^
./04_base.f90:1310:44: Declaration of 'model'
type(argsModel), target, intent(in) :: model
^^^^^
./04_base.f90:1327:5: warning: Pointer target is not a definable variable
inf => model%pt(2)%inf
^^^^^^^^^^^^^^^^^^^^^^
./04_base.f90:1315:31: Declaration of 'inf'
integer, pointer :: m, n, inf
^^^
./04_base.f90:1327:5: because: 'model' is an INTENT(IN) dummy argument
inf => model%pt(2)%inf
^^^^^^^^^^^^^^^^^^^^^^
./04_base.f90:1310:44: Declaration of 'model'
type(argsModel), target, intent(in) :: model
^^^^^
./04_base.f90:1328:5: warning: Pointer target is not a definable variable
fita => model%pt(2)%alpha%fit
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./04_base.f90:1316:25: Declaration of 'fita'
integer, pointer :: fita, fitb, fitar, fitma, fitd
^^^^
./04_base.f90:1328:5: because: 'model' is an INTENT(IN) dummy argument
fita => model%pt(2)%alpha%fit
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./04_base.f90:1310:44: Declaration of 'model'
type(argsModel), target, intent(in) :: model
^^^^^
./04_base.f90:1329:5: warning: Pointer target is not a definable variable
fitb => model%pt(2)%beta%fit
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./04_base.f90:1316:31: Declaration of 'fitb'
integer, pointer :: fita, fitb, fitar, fitma, fitd
^^^^
./04_base.f90:1329:5: because: 'model' is an INTENT(IN) dummy argument
fitb => model%pt(2)%beta%fit
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./04_base.f90:1310:44: Declaration of 'model'
type(argsModel), target, intent(in) :: model
^^^^^
./04_base.f90:1330:5: warning: Pointer target is not a definable variable
fitar => model%pt(2)%ar%fit
^^^^^^^^^^^^^^^^^^^^^^^^^^^
./04_base.f90:1316:37: Declaration of 'fitar'
integer, pointer :: fita, fitb, fitar, fitma, fitd
^^^^^
./04_base.f90:1330:5: because: 'model' is an INTENT(IN) dummy argument
fitar => model%pt(2)%ar%fit
^^^^^^^^^^^^^^^^^^^^^^^^^^^
./04_base.f90:1310:44: Declaration of 'model'
type(argsModel), target, intent(in) :: model
^^^^^
./04_base.f90:1331:5: warning: Pointer target is not a definable variable
fitma => model%pt(2)%ma%fit
^^^^^^^^^^^^^^^^^^^^^^^^^^^
./04_base.f90:1316:44: Declaration of 'fitma'
integer, pointer :: fita, fitb, fitar, fitma, fitd
^^^^^
./04_base.f90:1331:5: because: 'model' is an INTENT(IN) dummy argument
fitma => model%pt(2)%ma%fit
^^^^^^^^^^^^^^^^^^^^^^^^^^^
./04_base.f90:1310:44: Declaration of 'model'
type(argsModel), target, intent(in) :: model
^^^^^
./04_base.f90:1332:5: warning: Pointer target is not a definable variable
fitd => model%pt(2)%d%fit
^^^^^^^^^^^^^^^^^^^^^^^^^^
./04_base.f90:1316:51: Declaration of 'fitd'
integer, pointer :: fita, fitb, fitar, fitma, fitd
^^^^
./04_base.f90:1332:5: because: 'model' is an INTENT(IN) dummy argument
fitd => model%pt(2)%d%fit
^^^^^^^^^^^^^^^^^^^^^^^^^^
./04_base.f90:1310:44: Declaration of 'model'
type(argsModel), target, intent(in) :: model
^^^^^
./04_base.f90:1356:8: warning: Pointer target is not a definable variable
dalpha2 => model%SI%deta(2, 2)%dalpha(:, 1)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./04_base.f90:1317:26: Declaration of 'dalpha2'
real(dp), pointer :: dalpha2(:), dd2(:)
^^^^^^^
./04_base.f90:1356:8: because: 'model' is an INTENT(IN) dummy argument
dalpha2 => model%SI%deta(2, 2)%dalpha(:, 1)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./04_base.f90:1310:44: Declaration of 'model'
type(argsModel), target, intent(in) :: model
^^^^^
./04_base.f90:1373:8: warning: Pointer target is not a definable variable
dbeta2 => model%SI%deta(2, 2)%dbeta
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./04_base.f90:1318:26: Declaration of 'dbeta2'
real(dp), pointer :: dbeta2(:,:), dphi2(:,:), dtheta2(:,:)
^^^^^^
./04_base.f90:1373:8: because: 'model' is an INTENT(IN) dummy argument
dbeta2 => model%SI%deta(2, 2)%dbeta
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./04_base.f90:1310:44: Declaration of 'model'
type(argsModel), target, intent(in) :: model
^^^^^
./04_base.f90:1396:8: warning: Pointer target is not a definable variable
dphi2 => model%SI%deta(2, 2)%dphi
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./04_base.f90:1318:39: Declaration of 'dphi2'
real(dp), pointer :: dbeta2(:,:), dphi2(:,:), dtheta2(:,:)
^^^^^
./04_base.f90:1396:8: because: 'model' is an INTENT(IN) dummy argument
dphi2 => model%SI%deta(2, 2)%dphi
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./04_base.f90:1310:44: Declaration of 'model'
type(argsModel), target, intent(in) :: model
^^^^^
./04_base.f90:1421:8: warning: Pointer target is not a definable variable
dtheta2 => model%SI%deta(2, 2)%dtheta
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./04_base.f90:1318:51: Declaration of 'dtheta2'
real(dp), pointer :: dbeta2(:,:), dphi2(:,:), dtheta2(:,:)
^^^^^^^
./04_base.f90:1421:8: because: 'model' is an INTENT(IN) dummy argument
dtheta2 => model%SI%deta(2, 2)%dtheta
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./04_base.f90:1310:44: Declaration of 'model'
type(argsModel), target, intent(in) :: model
^^^^^
./04_base.f90:1448:8: warning: Pointer target is not a definable variable
dd2 => model%SI%deta(2, 2)%dd(:, 1)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./04_base.f90:1317:38: Declaration of 'dd2'
real(dp), pointer :: dalpha2(:), dd2(:)
^^^
./04_base.f90:1448:8: because: 'model' is an INTENT(IN) dummy argument
dd2 => model%SI%deta(2, 2)%dd(:, 1)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./04_base.f90:1310:44: Declaration of 'model'
type(argsModel), target, intent(in) :: model
^^^^^
./04_base.f90:1591:56: warning: Any pointer associated with TARGET dummy argument 'args=' during this call must not be used afterwards, as 'argsl(2_8)' is not a target
if (skip(1) == 0) T1(i) = 1.d0 / diflink(mu(i), argsL(2)) ! g_11'(mu)
^^^^^^^^
./04_base.f90:1593:30: warning: Any pointer associated with TARGET dummy argument 'args=' during this call must not be used afterwards, as 'argsl(4_8)' is not a target
a = diflink(nu(i), argsL(4)) ! g'(nu)
^^^^^^^^
./04_base.f90:1594:32: warning: Any pointer associated with TARGET dummy argument 'args=' during this call must not be used afterwards, as 'argsl(5_8)' is not a target
b = diflink(gnut(i), argsL(5)) ! g_21'(gnut)
^^^^^^^^
./04_base.f90:1893:21: warning: Any pointer associated with TARGET dummy argument 'model=' during this call must not be used afterwards, as 'model' is not a target
call deta1_drho(model, vc1)
^^^^^
./04_base.f90:1895:21: warning: Any pointer associated with TARGET dummy argument 'model=' during this call must not be used afterwards, as 'model' is not a target
call deta2_drho(model, vc2)
^^^^^
./04_base.f90:1897:24: warning: Any pointer associated with TARGET dummy argument 'model=' during this call must not be used afterwards, as 'model' is not a target
call deta2_dlambda(model)
^^^^^
./04_base.f90:2264:5: warning: Pointer target is not a definable variable
iprint => cf1(1)
^^^^^^^^^^^^^^^^
./04_base.f90:2251:32: Declaration of 'iprint'
integer, pointer :: iprint, maxit
^^^^^^
./04_base.f90:2264:5: because: 'cf1' is an INTENT(IN) dummy argument
iprint => cf1(1)
^^^^^^^^^^^^^^^^
./04_base.f90:2250:39: Declaration of 'cf1'
integer, target, intent(in) :: cf1(3)
^^^
./04_base.f90:2265:5: warning: Pointer target is not a definable variable
maxit => cf1(2)
^^^^^^^^^^^^^^^^
./04_base.f90:2251:40: Declaration of 'maxit'
integer, pointer :: iprint, maxit
^^^^^
./04_base.f90:2265:5: because: 'cf1' is an INTENT(IN) dummy argument
maxit => cf1(2)
^^^^^^^^^^^^^^^^
./04_base.f90:2250:39: Declaration of 'cf1'
integer, target, intent(in) :: cf1(3)
^^^
./04_base.f90:2266:5: warning: Pointer target is not a definable variable
stopcr => cf2(1)
^^^^^^^^^^^^^^^^
./04_base.f90:2257:32: Declaration of 'stopcr'
real(dp), pointer :: stopcr
^^^^^^
./04_base.f90:2266:5: because: 'cf2' is an INTENT(IN) dummy argument
stopcr => cf2(1)
^^^^^^^^^^^^^^^^
./04_base.f90:2256:37: Declaration of 'cf2'
real(dp), target, intent(in) :: cf2(nc2)
^^^
./04_base.f90:2366:5: warning: Pointer target is not a definable variable
iprint => cf1(1)
^^^^^^^^^^^^^^^^
./04_base.f90:2346:32: Declaration of 'iprint'
integer, pointer :: iprint, maxit
^^^^^^
./04_base.f90:2366:5: because: 'cf1' is an INTENT(IN) dummy argument
iprint => cf1(1)
^^^^^^^^^^^^^^^^
./04_base.f90:2345:39: Declaration of 'cf1'
integer, target, intent(in) :: cf1(3)
^^^
./04_base.f90:2367:5: warning: Pointer target is not a definable variable
maxit => cf1(2)
^^^^^^^^^^^^^^^^
./04_base.f90:2346:40: Declaration of 'maxit'
integer, pointer :: iprint, maxit
^^^^^
./04_base.f90:2367:5: because: 'cf1' is an INTENT(IN) dummy argument
maxit => cf1(2)
^^^^^^^^^^^^^^^^
./04_base.f90:2345:39: Declaration of 'cf1'
integer, target, intent(in) :: cf1(3)
^^^
./04_base.f90:2368:5: warning: Pointer target is not a definable variable
factr => cf2(1)
^^^^^^^^^^^^^^^^
./04_base.f90:2350:32: Declaration of 'factr'
real(dp), pointer :: factr, pgtol
^^^^^
./04_base.f90:2368:5: because: 'cf2' is an INTENT(IN) dummy argument
factr => cf2(1)
^^^^^^^^^^^^^^^^
./04_base.f90:2349:37: Declaration of 'cf2'
real(dp), target, intent(in) :: cf2(nc2)
^^^
./04_base.f90:2369:5: warning: Pointer target is not a definable variable
pgtol => cf2(2)
^^^^^^^^^^^^^^^^
./04_base.f90:2350:39: Declaration of 'pgtol'
real(dp), pointer :: factr, pgtol
^^^^^
./04_base.f90:2369:5: because: 'cf2' is an INTENT(IN) dummy argument
pgtol => cf2(2)
^^^^^^^^^^^^^^^^
./04_base.f90:2349:37: Declaration of 'cf2'
real(dp), target, intent(in) :: cf2(nc2)
^^^
./04_base.f90:3139:5: warning: Pointer target is not a definable variable
sco => extras(1)
^^^^^^^^^^^^^^^^^^
./04_base.f90:3124:30: Declaration of 'sco'
integer, pointer :: sco, info, extra
^^^
./04_base.f90:3139:5: because: 'extras' is an INTENT(IN) dummy argument
sco => extras(1)
^^^^^^^^^^^^^^^^^^
./04_base.f90:3123:37: Declaration of 'extras'
integer, target, intent(in) :: extras(3)
^^^^^^
./04_base.f90:3140:5: warning: Pointer target is not a definable variable
info => extras(2)
^^^^^^^^^^^^^^^^^^
./04_base.f90:3124:35: Declaration of 'info'
integer, pointer :: sco, info, extra
^^^^
./04_base.f90:3140:5: because: 'extras' is an INTENT(IN) dummy argument
info => extras(2)
^^^^^^^^^^^^^^^^^^
./04_base.f90:3123:37: Declaration of 'extras'
integer, target, intent(in) :: extras(3)
^^^^^^
./04_base.f90:3141:5: warning: Pointer target is not a definable variable
extra => extras(3)
^^^^^^^^^^^^^^^^^^
./04_base.f90:3124:41: Declaration of 'extra'
integer, pointer :: sco, info, extra
^^^^^
./04_base.f90:3141:5: because: 'extras' is an INTENT(IN) dummy argument
extra => extras(3)
^^^^^^^^^^^^^^^^^^
./04_base.f90:3123:37: Declaration of 'extras'
integer, target, intent(in) :: extras(3)
^^^^^^
./04_base.f90:3292:5: warning: Pointer target is not a definable variable
ystart => tstart(1)
^^^^^^^^^^^^^^^^^^^^
./04_base.f90:3256:26: Declaration of 'ystart'
real(dp), pointer :: ystart, e2start, vtstart
^^^^^^
./04_base.f90:3292:5: because: 'tstart' is an INTENT(IN) dummy argument
ystart => tstart(1)
^^^^^^^^^^^^^^^^^^^^
./04_base.f90:3252:40: Declaration of 'tstart'
real(dp), target, intent(in) :: tstart(3)
^^^^^^
./04_base.f90:3293:5: warning: Pointer target is not a definable variable
vtstart => tstart(2)
^^^^^^^^^^^^^^^^^^^^
./04_base.f90:3256:43: Declaration of 'vtstart'
real(dp), pointer :: ystart, e2start, vtstart
^^^^^^^
./04_base.f90:3293:5: because: 'tstart' is an INTENT(IN) dummy argument
vtstart => tstart(2)
^^^^^^^^^^^^^^^^^^^^
./04_base.f90:3252:40: Declaration of 'tstart'
real(dp), target, intent(in) :: tstart(3)
^^^^^^
./04_base.f90:3294:5: warning: Pointer target is not a definable variable
e2start => tstart(3)
^^^^^^^^^^^^^^^^^^^^
./04_base.f90:3256:34: Declaration of 'e2start'
real(dp), pointer :: ystart, e2start, vtstart
^^^^^^^
./04_base.f90:3294:5: because: 'tstart' is an INTENT(IN) dummy argument
e2start => tstart(3)
^^^^^^^^^^^^^^^^^^^^
./04_base.f90:3252:40: Declaration of 'tstart'
real(dp), target, intent(in) :: tstart(3)
^^^^^^
./04_base.f90:3423:33: warning: Any pointer associated with TARGET dummy argument 'args=' during this call must not be used afterwards, as 'argslg(int(i_mu,kind=8))' is not a target
mu(t) = linkinv(eta1(t), argsLg(i_mu))
^^^^^^^^^^^^
./04_base.f90:3457:37: warning: Any pointer associated with TARGET dummy argument 'args=' during this call must not be used afterwards, as 'argslg(int(i_gnu,kind=8))' is not a target
gnu(t) = linkinv(eta2(t), argsLg(i_gnu))
^^^^^^^^^^^^^
./04_base.f90:3458:35: warning: Any pointer associated with TARGET dummy argument 'args=' during this call must not be used afterwards, as 'argslg(int(i_nu,kind=8))' is not a target
nu(t) = linkinv(gnu(t), argsLg(i_nu))
^^^^^^^^^^^^
./04_base.f90:3476:36: warning: Any pointer associated with TARGET dummy argument 'par=' during this call will not be associated with the value of '[REAL(8)::mu(int(t,kind=8)),nu(int(t,kind=8)),pdist]' afterwards
yt(t) = rdist%rdist(np + 2, [mu(t), nu(t), pdist])
^^^^^^^^^^^^^^^^^^^^^
flang-20 -fpic -O2 -pedantic -c 05_barc.f90 -o 05_barc.o
./05_barc.f90:153:54: warning: Any pointer associated with TARGET dummy argument 'args=' during this call must not be used afterwards, as 'model%pt(1_8)%linkg(2_8)' is not a target
model%cts(1)%w(1) = linkinv(model%cts(1)%eta(1), model%pt(1)%linkg(2))
^^^^^^^^^^^^^^^^^^^^
./05_barc.f90:169:57: warning: Any pointer associated with TARGET dummy argument 'args=' during this call must not be used afterwards, as 'model%pt(1_8)%linkg(2_8)' is not a target
model%cts(1)%w(t) = linkinv(model%cts(1)%eta(t), model%pt(1)%linkg(2))
^^^^^^^^^^^^^^^^^^^^
./05_barc.f90:235:38: warning: Any pointer associated with TARGET dummy argument 'args=' during this call must not be used afterwards, as 'model%pt(1_8)%linkg(2_8)' is not a target
muhat(t) = linkinv(etahat(t), model%pt(1)%linkg(2))
^^^^^^^^^^^^^^^^^^^^
./05_barc.f90:238:47: warning: Any pointer associated with TARGET dummy argument 'args=' during this call must not be used afterwards, as 'model%pt(1_8)%linkg(3_8)' is not a target
gy(model%n + t) = linkinv(muhat(t), model%pt(1)%linkg(3))
^^^^^^^^^^^^^^^^^^^^
./05_barc.f90:559:27: warning: Any pointer associated with TARGET dummy argument 'args=' during this call must not be used afterwards, as 'argsl(1_8)' is not a target
mu(1) = linkinv(eta(1), argsL(1))
^^^^^^^^
./05_barc.f90:565:26: warning: Any pointer associated with TARGET dummy argument 'par=' during this call will not be associated with the value of '[REAL(8)::mu(1_8),nu]' afterwards
yt(1) = rdist%rdist(2, [mu(1), nu])
^^^^^^^^^^^
./05_barc.f90:603:30: warning: Any pointer associated with TARGET dummy argument 'args=' during this call must not be used afterwards, as 'argsl(1_8)' is not a target
mu(t) = linkinv(eta(t), argsL(1))
^^^^^^^^
./05_barc.f90:611:29: warning: Any pointer associated with TARGET dummy argument 'par=' during this call will not be associated with the value of '[REAL(8)::mu(int(t,kind=8)),nu]' afterwards
yt(t) = rdist%rdist(2, [mu(t), nu])
^^^^^^^^^^^
./05_barc.f90:691:52: warning: Any pointer associated with TARGET dummy argument 'forecast=' during this call must not be used afterwards, as 'forecast' is not a target
call mu_forecast_barc(model, length(2), xnew, forecast)
^^^^^^^^
./05_barc.f90:756:20: warning: Any pointer associated with TARGET dummy argument 'loglik=' during this call must not be used afterwards, as 'loglik' is not a target
call optim%optim(loglik, model, sum(npar), par, nbd, bounds, sll, U, cf, nc2, cf2, neval, conv)
^^^^^^
./05_barc.f90:756:72: warning: Any pointer associated with TARGET dummy argument 'cf1=' during this call must not be used afterwards, as 'cf' is not a target
call optim%optim(loglik, model, sum(npar), par, nbd, bounds, sll, U, cf, nc2, cf2, neval, conv)
^^
./05_barc.f90:756:81: warning: Any pointer associated with TARGET dummy argument 'cf2=' during this call must not be used afterwards, as 'cf2' is not a target
call optim%optim(loglik, model, sum(npar), par, nbd, bounds, sll, U, cf, nc2, cf2, neval, conv)
^^^
./05_barc.f90:773:52: warning: Any pointer associated with TARGET dummy argument 'forecast=' during this call must not be used afterwards, as 'forecast' is not a target
call mu_forecast_barc(model, length(2), xnew, forecast)
^^^^^^^^
./05_barc.f90:820:49: warning: Any pointer associated with TARGET dummy argument 'forecast=' during this call must not be used afterwards, as 'forecast' is not a target
call mu_forecast_barc(model, length(2), xnew, forecast)
^^^^^^^^
flang-20 -fpic -O2 -pedantic -c 05_generic.f90 -o 05_generic.o
./05_generic.f90:48:31: warning: Any pointer associated with TARGET dummy argument 'args=' during this call must not be used afterwards, as 'args' is not a target
x(i) = linkinv(gx(i), args)
^^^^
./05_generic.f90:53:34: warning: Any pointer associated with TARGET dummy argument 'args=' during this call must not be used afterwards, as 'args' is not a target
dlink(i) = diflink(x(i), args)
^^^^
./05_generic.f90:122:59: warning: Any pointer associated with TARGET dummy argument 'order=' during this call must not be used afterwards, as 'order' is not a target
call sim_model(rdist, n, burn, np, pdist, onlymu(code), order, xregar, alpha, beta, &
^^^^^
./05_generic.f90:123:60: warning: Any pointer associated with TARGET dummy argument 'tstart=' during this call must not be used afterwards, as 'tstart' is not a target
phi, theta, d, link, lconfig, xreg1, xreg2, xstart, tstart, ts, rev)
^^^^^^
./05_generic.f90:123:68: warning: Any pointer associated with TARGET dummy argument 'ts=' during this call must not be used afterwards, as 'ts' is not a target
phi, theta, d, link, lconfig, xreg1, xreg2, xstart, tstart, ts, rev)
^^
./05_generic.f90:245:51: warning: Any pointer associated with TARGET dummy argument 'ts=' during this call must not be used afterwards, as 'ts(::1_8,4_8:10_8:1_8)' is not a target
call final_model(model, sum(npar), par, length, ts(:,4:10), order(:,1), xnew1, xnew2, &
^^^^^^^^^^
./05_generic.f90:246:35: warning: Any pointer associated with TARGET dummy argument 'extras=' during this call must not be used afterwards, as 'extras(3_8:5_8:1_8)' is not a target
forecast, order(:,4), sll, extras(3:5), U, K, nd, Dg, T, E, h)
^^^^^^^^^^^
./05_generic.f90:336:20: warning: Any pointer associated with TARGET dummy argument 'loglik=' during this call must not be used afterwards, as 'loglik' is not a target
call optim%optim(loglik, model, sum(npar), par, nbd, bounds, sll, U, cf, nc2, cf2, neval, conv)
^^^^^^
./05_generic.f90:336:72: warning: Any pointer associated with TARGET dummy argument 'cf1=' during this call must not be used afterwards, as 'cf' is not a target
call optim%optim(loglik, model, sum(npar), par, nbd, bounds, sll, U, cf, nc2, cf2, neval, conv)
^^
./05_generic.f90:336:81: warning: Any pointer associated with TARGET dummy argument 'cf2=' during this call must not be used afterwards, as 'cf2' is not a target
call optim%optim(loglik, model, sum(npar), par, nbd, bounds, sll, U, cf, nc2, cf2, neval, conv)
^^^
./05_generic.f90:340:51: warning: Any pointer associated with TARGET dummy argument 'ts=' during this call must not be used afterwards, as 'ts(::1_8,4_8:10_8:1_8)' is not a target
call final_model(model, sum(npar), par, length, ts(:,4:10), order(:,1), xnew1, xnew2, &
^^^^^^^^^^
./05_generic.f90:341:35: warning: Any pointer associated with TARGET dummy argument 'extras=' during this call must not be used afterwards, as 'extras(3_8:5_8:1_8)' is not a target
forecast, order(:,4), sll, extras(3:5), U, K, nd, Dg, T, E, h)
^^^^^^^^^^^
clang-20 -std=gnu23 -I"/data/gannet/ripley/R/R-clang/include" -DNDEBUG -isystem /usr/local/clang20/include -I/usr/local/clang/include -fpic -O3 -Wall -pedantic -Wp,-D_FORTIFY_SOURCE=3 -c BTSR_init.c -o BTSR_init.o
clang-20 -std=gnu23 -shared -L/usr/local/clang/lib64 -L/usr/local/clang20/lib -L/usr/local/clang20/lib/x86_64-unknown-linux-gnu -L/usr/local/lib64 -L/usr/local/clang20/lib/clang/20/lib/x86_64-unknown-linux-gnu -o BTSR.so DLtest.o 00_lbfgsb.o 00_lib_utils.o 01_distrib.o 02_main.o 03_alloc.o 03_Nelder.o 04_base.o 05_barc.o 05_generic.o BTSR_init.o -L/data/gannet/ripley/R/R-clang/lib -lRlapack -L/data/gannet/ripley/R/R-clang/lib -lRblas -lFortranRuntime -lFortranDecimal -lm -lFortranRuntime -lFortranDecimal -lm
make[1]: Leaving directory '/data/gannet/ripley/R/packages/tests-clang/BTSR/src'
make[1]: Entering directory '/data/gannet/ripley/R/packages/tests-clang/BTSR/src'
make[1]: Leaving directory '/data/gannet/ripley/R/packages/tests-clang/BTSR/src'
installing to /data/gannet/ripley/R/packages/tests-clang/BTSR.Rcheck/00LOCK-BTSR/00new/BTSR/libs
** R
** inst
** byte-compile and prepare package for lazy loading
** help
*** installing help indices
** building package indices
** testing if installed package can be loaded from temporary location
** 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 (BTSR)