Compiler error #8284

Hi everyone,

I am having a problem when compiling a code, and I hope I could get some help here.

The error I am getting is:

advance_crack.f(629): error #8284: If the actual argument is scalar, the dummy argument shall be scalar unless the actual argument
is of type character or is an element of an array that is not assumed shape, pointer, or polymorphic.   [RCONP]
       call cut_tetra_11(elmtnr,xl,N0,fp,Ae,Ve,VepVe,Lcn,xl2d,

And here is the parts of the code which should be relevant to this issue. For the advance_crack.f file:

       subroutine  advance_11(tetln,ns,sflag,ndm,nen,numel,nen1,
     *x,xlen,ix,ixlen, hist,hlen,n1,n3,idtet,N0,fp,
     *pN0,pAe,pVe,pLcn,pVepVe,pXbar,pcini,pnodeflag,pcn,
     *pconp,pconm,pXl2d,pNold,pNelem)

       implicit none

...

       real*8   VepVe, Lcn(4,4), rconp, rconm, xl2d(2,4)

...

       call cut_tetra_11(elmtnr,xl,N0,fp,Ae,Ve,VepVe,Lcn,xl2d,
     *xn3d,idtemp, cn,rconp,rconm)
...
       Hist(1+(elmtnr-1)*nn+tn1+pconp) = rconp

The cut_tetra_11 subroutine looks like this:

       subroutine cut_tetra_11(elmtnr,xl,N0,xbs,Ae,Ve,fact,Lcn,
     *node_f,xn_f,id,k_f,rconp,rconm)

       implicit none

...

       real*8 jp(8), jm(8),rconp(7),rconm(7)

       call array_to_real_11(conp,rconp)

Finally, the array_to_real_11 subroutine looks like this:

       subroutine array_to_real_11(con,rcon)

       implicit none

       integer con(7), icon,  i
       real*8  rcon
       icon = 0
       do i= 1,7
       icon = icon + con(8-i)*10**(i-1)
       enddo
       rcon = Dfloat(icon)
       end

  Hope my description of the issue is clear enough. I should also add that I had a look at previous entries in this forum for error #8284. Following previous threads, I tried to changed the

       call cut_tetra_11(elmtnr,xl,N0,fp,Ae,Ve,VepVe,Lcn,xl2d,
     *xn3d,idtemp, cn,rconp,rconm)

to

       call cut_tetra_11(elmtnr,xl,N0,fp,Ae,Ve,VepVe,Lcn,xl2d,
     *xn3d,idtemp, cn,rconp(1),rconm(1))

That got rid of error #8284, but then I obtained the following error, instead:

advance_crack.f(654): error #6423: This name has already been used as an external function name.   [RCONP]
       Hist(1+(elmtnr-1)*nn+tn1+pconp) = rconp

Every help is very welcome. Thanks in advance,

Lorenzo