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 (igrnod, igrbric, igrquad, igrsh4n, igrsh3n, igrtruss, igrbeam, igrspring, igrpart)

Function/Subroutine Documentation

group_ini()

subroutine group_ini	(	type (group_), dimension(ngrnod)	igrnod,
		type (group_), dimension(ngrbric)	igrbric,
		type (group_), dimension(ngrquad)	igrquad,
		type (group_), dimension(ngrshel)	igrsh4n,
		type (group_), dimension(ngrsh3n)	igrsh3n,
		type (group_), dimension(ngrtrus)	igrtruss,
		type (group_), dimension(ngrbeam)	igrbeam,
		type (group_), dimension(ngrspri)	igrspring,
		type (group_), dimension(ngrpart)	igrpart )

Definition at line 31 of file group_ini.F.

C-----------------------------------------------
C   M o d u l e s
C----------------------------------------------- 
      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"
#include      "tabsiz_c.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      TYPE (GROUP_)  , DIMENSION(NGRNOD)  :: IGRNOD
      TYPE (GROUP_)  , DIMENSION(NGRBRIC) :: IGRBRIC
      TYPE (GROUP_)  , DIMENSION(NGRQUAD) :: IGRQUAD
      TYPE (GROUP_)  , DIMENSION(NGRSHEL) :: IGRSH4N
      TYPE (GROUP_)  , DIMENSION(NGRSH3N) :: IGRSH3N
      TYPE (GROUP_)  , DIMENSION(NGRTRUS) :: IGRTRUSS
      TYPE (GROUP_)  , DIMENSION(NGRBEAM) :: IGRBEAM
      TYPE (GROUP_)  , DIMENSION(NGRSPRI) :: IGRSPRING
      TYPE (GROUP_)  , DIMENSION(NGRPART) :: IGRPART
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER LENGROUP
C-----------------------------------------------
!  --- IGRNOD ---
      lengroup = 0
      IF (ngrnod > 0)  CALL gr_entity_ini(igrnod,ngrnod,lengroup)
      lenigrnod = lengroup
!  --- IGRBRIC ---
      lengroup = 0
      IF (ngrbric > 0) CALL gr_entity_ini(igrbric,ngrbric,lengroup)
      lenigrbric = lengroup
!  --- IGRQUAD ---
      lengroup = 0
      IF (ngrquad > 0) CALL gr_entity_ini(igrquad,ngrquad,lengroup)
      lenigrquad = lengroup
!  --- IGRSH4N ---
      lengroup = 0
      IF (ngrshel > 0) CALL gr_entity_ini(igrsh4n,ngrshel,lengroup)
      lenigrsh4n = lengroup
!  --- IGRTRUSS ---
      lengroup = 0
      IF (ngrtrus > 0) CALL gr_entity_ini(igrtruss,ngrtrus,lengroup)
      lenigrtrus = lengroup
!  --- IGRBEAM ---
      lengroup = 0
      IF (ngrbeam > 0) CALL gr_entity_ini(igrbeam,ngrbeam,lengroup)
      lenigrbeam = lengroup
!  --- IGRSPRING ---
      lengroup = 0
      IF (ngrspri > 0) CALL gr_entity_ini(igrspring,ngrspri,lengroup)
      lenigrspri = lengroup
!  --- IGRSH3N ---
      lengroup = 0
      IF (ngrsh3n > 0) CALL gr_entity_ini(igrsh3n,ngrsh3n,lengroup)
      lenigrsh3n = lengroup
!  --- IGRPART ---
      lengroup = 0
      IF (ngrpart > 0) CALL gr_entity_ini(igrpart,ngrpart,lengroup)
      lenigrpart = lengroup
!---------
      RETURN