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.