nsegmt.F File Reference

#include "implicit_f.inc"
#include "com04_c.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	nsegmt (ipar, irect, nodes, nseg, nst, nrt, nno)

Function/Subroutine Documentation

nsegmt()

subroutine nsegmt	(	integer, intent(out)	ipar,
		integer, dimension(4,*), intent(in)	irect,
		integer, dimension(*), intent(in)	nodes,
		integer, dimension(*), intent(out)	nseg,
		integer, intent(out)	nst,
		integer, intent(in)	nrt,
		integer, intent(in)	nno )

Definition at line 29 of file nsegmt.F.

C
C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      INTEGER, INTENT(IN)  :: NRT, NNO, IRECT(4,*), NODES(*)
      INTEGER, INTENT(OUT) :: IPAR, NST, NSEG(*)
C-----------------------------------------------
C   C o m m o n   B l o c k s
C-----------------------------------------------
#include      "com04_c.inc"
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER I, J, K
      INTEGER, DIMENSION(:), ALLOCATABLE :: NTAG
C-----------------------------------------------
C   S o u r c e  L i n e s
C-----------------------------------------------
      nst     = 0
      nseg(1) = 1
      nseg(2:nno+1) = 0
C
      ALLOCATE(ntag(numnod))
      DO i=1,nno
        ntag(nodes(i))=i
      ENDDO
C
      DO i=1,nrt
        DO j=1,4
          IF (irect(j,i) /= 0) THEN
            k = ntag(irect(j,i))+1
            nseg(k)=nseg(k)+1
          ENDIF
        ENDDO
      ENDDO
      DEALLOCATE(ntag)
C
      DO i=1,nno
        nst = nst+nseg(i+1)
        nseg(i+1)=nseg(i)+nseg(i+1)
      ENDDO
      ipar=nst
C
      RETURN