hm_elem_count.F File Reference

#include "implicit_f.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	hm_elem_count (elem_type, hm_elem_number, is_dyna)

Function/Subroutine Documentation

hm_elem_count()

subroutine hm_elem_count	(	character*(*), intent(in)	elem_type,
		integer, intent(out)	hm_elem_number,
		integer, intent(in)	is_dyna )

Definition at line 32 of file hm_elem_count.F.

C-----------------------------------------------
C   ROUTINE DESCRIPTION :
C   ===================
C   COUNT NUMBER OF /ELEM_TYPE KEYWORDS USING HM_READER
C-----------------------------------------------
C   DUMMY ARGUMENTS DESCRIPTION:
C   ===================
C
C     NAME               DESCRIPTION                         
C
C     ELEM_TYPE        KEYWORD YOU WANT TO FIND NUMBER OF OCCURRENCES 
C          'SPRING'
C          'XELEM'
C          'BEAM'
C          'TRUSS'
C          'SH3N'
C          'SHELL'
C          'TETRA4'
C          'PENTA6'
C          'BRICK'
C          'TETRA10'
C          'BRICK20'
C          ...........
C     HM_ELEM_NUMBER   NUMBER OF OCCURRENCES
C============================================================================
C   M o d u l e s
C-----------------------------------------------
      USE message_mod       
      USE submodel_mod
C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
C INPUT ARGUMENTS
      CHARACTER*(*),INTENT(IN)::ELEM_TYPE
      INTEGER,INTENT(IN)::IS_DYNA
C OUTPUT ARGUMENTS
      INTEGER,INTENT(OUT)::HM_ELEM_NUMBER
C-----------------------------------------------
      CALL cpp_elem_count(elem_type(1:len_trim(elem_type)),len_trim(elem_type),hm_elem_number,is_dyna) 
      RETURN
C