check_surf.F File Reference

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

Go to the source code of this file.

Functions/Subroutines
subroutine	check_surf (igrsurf)

Function/Subroutine Documentation

check_surf()

subroutine check_surf

(

type (surf_), dimension(nsurf)

igrsurf

)

Definition at line 30 of file check_surf.F.

C-----------------------------------------------
C   M o d u l e s
C-----------------------------------------------
      USE message_mod
      USE groupdef_mod
C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
C-----------------------------------------------
C   C o m m o n   B l o c k s
C-----------------------------------------------
#include      "com04_c.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      TYPE (SURF_)   , DIMENSION(NSURF)   :: IGRSURF
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER I, J, K, NSEG
C-----------------------------------------------
C   S o u r c e   L i n e s
C-----------------------------------------------
        ! IGRSURF(I)%ISH4N3N = 1 FOR SURFACE COMPOSED OF SHELL ELEMS
        DO i=1,nsurf
          nseg = igrsurf(i)%NSEG
          igrsurf(i)%ISH4N3N = 1
            DO j = 1,nseg
              k = igrsurf(i)%ELTYP(j)
              IF(k /= 3 .AND. k /= 7) THEN
                 igrsurf(i)%ISH4N3N = 0
                 cycle
              ENDIF
            ENDDO
        ENDDO
C-----------------------------------------------
      RETURN