group_ini.F File Reference

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

Go to the source code of this file.

Functions/Subroutines
subroutine	group_ini

Function/Subroutine Documentation

group_ini()

subroutine group_ini

Definition at line 34 of file group_ini.F.

C-----------------------------------------------
C   M o d u l e s
C----------------------------------------------- 
      USE message_mod
      USE groupdef_mod
      USE group_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"
#include      "tabsiz_c.inc"
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
!
!!     IGRNOD,IGRBRICK,IGRQUAD,...
!
!  --- READ IGRNOD ---
      IF (ngrnod > 0)THEN 
        ALLOCATE(igrnod(ngrnod))
        CALL alloc_group_str(igrnod,ngrnod,lenigrnod)
      ELSE           
        ALLOCATE(igrnod(0))
      ENDIF
!  --- READ IGRBRIC ---
      IF (ngrbric > 0)THEN 
        ALLOCATE(igrbric(ngrbric))
        CALL alloc_group_str(igrbric,ngrbric,lenigrbric)
      ELSE           
        ALLOCATE(igrbric(0))
      ENDIF
!  --- READ IGRQUAD ---
      IF (ngrquad > 0)THEN 
        ALLOCATE(igrquad(ngrquad))
        CALL alloc_group_str(igrquad,ngrquad,lenigrquad)
      ELSE           
        ALLOCATE(igrquad(0))
      ENDIF
!  --- READ IGRSH4N ---
      IF (ngrshel > 0)THEN 
        ALLOCATE(igrsh4n(ngrshel))
        CALL alloc_group_str(igrsh4n,ngrshel,lenigrsh4n)
      ELSE           
        ALLOCATE(igrsh4n(0))
      ENDIF
!  --- READ IGRTRUSS ---
      IF (ngrtrus > 0)THEN 
        ALLOCATE(igrtruss(ngrtrus))
        CALL alloc_group_str(igrtruss,ngrtrus,lenigrtrus)
      ELSE           
        ALLOCATE(igrtruss(0))
      ENDIF
!  --- READ IGRBEAM ---
      IF (ngrbeam > 0)THEN 
        ALLOCATE(igrbeam(ngrbeam))
        CALL alloc_group_str(igrbeam,ngrbeam,lenigrbeam)
      ELSE           
        ALLOCATE(igrbeam(0))
      ENDIF
!  --- READ IGRSPRING ---
      IF (ngrspri > 0)THEN 
        ALLOCATE(igrspring(ngrspri))
        CALL alloc_group_str(igrspring,ngrspri,lenigrspri)
      ELSE           
        ALLOCATE(igrspring(0))
      ENDIF
!  --- READ IGRSH3N ---
      IF (ngrsh3n > 0)THEN 
        ALLOCATE(igrsh3n(ngrsh3n))
        CALL alloc_group_str(igrsh3n,ngrsh3n,lenigrsh3n)
      ELSE           
        ALLOCATE(igrsh3n(0))
      ENDIF
!  --- READ IGRPART ---
      IF (ngrpart > 0)THEN 
        ALLOCATE(igrpart(ngrpart))
        CALL alloc_group_str(igrpart,ngrpart,lenigrpart)
      ELSE           
        ALLOCATE(igrpart(0))
      ENDIF
!---------
      RETURN