FEAP User Forum

FEAP => Installation => Topic started by: huxiang_shi on June 21, 2024, 02:24:04 AM

Title: May missing pre declaration in subroutine umacr11_fc in file umacr11.f
Post by: huxiang_shi on June 21, 2024, 02:24:04 AM

Dear professors,
I have a build issue that in file umacr11.f file under packages/meshmod, subroutine umacr11_fc

subroutine umacr11_fc(ip,iq,ix, nen1,nen,numel,numnp,kp)

implicit   none

integer          :: nen1,nen,numel,numnp, n,i,j,nodi,nodj
integer          :: kp
integer          :: ix(nen1,numel), ip(0:numnp)

iq( : ) = 0
do n = 1,numel
  do i = 1,4

    nodi = ix(i,n)
    do j = 1,4
      nodj = ix(j,n)
      if(nodj.gt.nodi) then
        do k = ip(nodi-1)+1,ip(nodi)
          if(iq(k).eq.nodj) then
            exit
          elseif(iq(k).eq.0) then
            iq(k) = nodj
            exit
          endif
        end do ! k
        ip(nodi) = ip(nodi) + 1
      endif
    end do ! j
  end do ! i
end do ! n

call iprint(iq,1,kp,1,'IQ')

end subroutine umacr11_fc

For iq and k, a pre declaration may be needed, I know the k, just Integer :: k, but for the arrary iq, I do not know the dimension size for iq?
Can you spare some time to look at this problem, thanks very much.

Title: Re: May missing pre declaration in subroutine umacr11_fc in file umacr11.f
Post by: FEAP_Admin on June 21, 2024, 02:12:32 PM

The should both be integer.

Code: [Select]

integer :: k, iq(1:kp)
Looking at the dates, it looks like these routines have not been used in a long time.  If you find other errors, please let us know.

Title: Re: May missing pre declaration in subroutine umacr11_fc in file umacr11.f
Post by: huxiang_shi on June 22, 2024, 12:22:13 AM

I got it, thanks very much.