hm_read_defshell.F File Reference

#include "implicit_f.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	hm_read_defshell (lsubmodel, defaults_shell)

Function/Subroutine Documentation

hm_read_defshell()

subroutine hm_read_defshell	(	type(submodel_data), dimension(*), intent(in)	lsubmodel,
		type(shell_defaults_), intent(inout)	defaults_shell )

Definition at line 38 of file hm_read_defshell.F.

C-----------------------------------------------
C   ROUTINE DESCRIPTION :
C   ===================
C   READ /DEF_SHELL USING HM_READER
C-----------------------------------------------
C   DUMMY ARGUMENTS DESCRIPTION:
C   ===================
C
C     NAME            DESCRIPTION                         
C
C     LSUBMODEL       SUBMODEL STRUCTURE     
C-----------------------------------------------
C   M o d u l e s
C-----------------------------------------------
      USE hm_option_read_mod
      USE message_mod
      USE submodel_mod
      USE defaults_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-----------------------------------------------
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
C INPUT ARGUMENTS
      TYPE(SUBMODEL_DATA),   INTENT(IN)    :: LSUBMODEL(*)
      TYPE(SHELL_DEFAULTS_), INTENT(INOUT) :: DEFAULTS_SHELL
C OUTPUT ARGUMENTS
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER I,NB_DEFSHELL,SUB_ID,NPTS_DD,IOFFSET_D
      LOGICAL IS_AVAILABLE
C============================================================================
      is_available = .false.
C----------------------------------------------
      CALL hm_option_count('/DEF_SHELL',nb_defshell)
      CALL hm_option_start('/DEF_SHELL')
      DO i=1,nb_defshell
        CALL hm_option_read_key(lsubmodel, submodel_id = sub_id)
        IF(sub_id == 0) THEN
          CALL hm_get_intv('ISHELL',defaults_shell%ishell,is_available,lsubmodel)
          CALL hm_get_intv('Ismstr',defaults_shell%ismstr,is_available,lsubmodel)
          CALL hm_get_intv('Ithick',defaults_shell%ithick,is_available,lsubmodel)
          CALL hm_get_intv('Iplas',defaults_shell%iplas,is_available,lsubmodel)
!          CALL HM_GET_INTV('Istrain',ISTR_D,IS_AVAILABLE,LSUBMODEL)
          CALL hm_get_intv('ISH3N',defaults_shell%ish3n,is_available,lsubmodel)
          CALL hm_get_intv('Idrill',defaults_shell%idrill,is_available,lsubmodel)
          CALL hm_get_intv('Ioffset',defaults_shell%ioffset,is_available,lsubmodel)
          EXIT
        ENDIF            
      ENDDO
C          
      IF (defaults_shell%IOFFSET>1) defaults_shell%IOFFSET = 0
C--------------------------------------------------------------
      RETURN