presegmt.F File Reference

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

Go to the source code of this file.

Functions/Subroutines
subroutine	presegmt (irect, nodes, nrt, nno, nst)

Function/Subroutine Documentation

presegmt()

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

Definition at line 31 of file presegmt.F.

C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
      USE my_alloc_mod
#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) :: NST 
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
      INTEGER, DIMENSION(:), ALLOCATABLE :: NSEG
C=======================================================================
      CALL my_alloc(nseg,nno+1)
      CALL my_alloc(ntag,numnod)
 
      nst  = 0
      nseg(1) = 1
      nseg(2:nno+1) = 0
C
      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
C
      DO i=1,nno
        nst = nst + nseg(i+1)
      ENDDO
C
      DEALLOCATE(ntag)
      DEALLOCATE(nseg)
      RETURN