Author Topic: May missing pre declaration in subroutine umacr11_fc in file umacr11.f  (Read 18386 times)

huxiang_shi

  • New Member
  • *
  • Posts: 8
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.
« Last Edit: June 21, 2024, 07:32:51 AM by huxiang_shi »

FEAP_Admin

  • Administrator
  • FEAP Guru
  • *****
  • Posts: 993
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.
« Last Edit: June 21, 2024, 02:21:10 PM by FEAP_Admin »

huxiang_shi

  • New Member
  • *
  • Posts: 8
I got it, thanks very much.