w_group_str.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	w_group_str

Function/Subroutine Documentation

w_group_str()

subroutine w_group_str

Definition at line 33 of file w_group_str.F.

C-----------------------------------------------
C   M o d u l e s
C----------------------------------------------- 
      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-----------------------------------------------
!  --- WRITE IGRNOD ---
      CALL w_gr_entity(igrnod,ngrnod,lenigrnod)
!  --- WRITE IGRBRIC ---
      CALL w_gr_entity(igrbric,ngrbric,lenigrbric)
!  --- WRITE IGRQUAD ---
      CALL w_gr_entity(igrquad,ngrquad,lenigrquad)
!  --- WRITE IGRSH4N ---
      CALL w_gr_entity(igrsh4n,ngrshel,lenigrsh4n)
!  --- WRITE IGRTRUSS ---
      CALL w_gr_entity(igrtruss,ngrtrus,lenigrtrus)
!  --- WRITE IGRBEAM ---
      CALL w_gr_entity(igrbeam,ngrbeam,lenigrbeam)
!  --- WRITE IGRSPRING ---
      CALL w_gr_entity(igrspring,ngrspri,lenigrspri)
!  --- WRITE IGRSH3N ---
      CALL w_gr_entity(igrsh3n,ngrsh3n,lenigrsh3n)
!  --- WRITE IGRPART ---
      CALL w_gr_entity(igrpart,ngrpart,lenigrpart)
!---------
      RETURN