hm_option_read.F File Reference

#include "implicit_f.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	hm_option_read (id, uid, sub_index, titr, lsubmodel)

Function/Subroutine Documentation

hm_option_read()

subroutine hm_option_read	(	integer, intent(out)	id,
		integer, intent(out)	uid,
		integer, intent(out)	sub_index,
		character*(*), intent(out)	titr,
		type(submodel_data), dimension(nsubmod), intent(in)	lsubmodel )

Definition at line 30 of file hm_option_read.F.

C-----------------------------------------------
C   ROUTINE DESCRIPTION :
C   ===================
C   REQUEST DATA INTO MODEL NEUTRAL OBJECT DATABASE USING HM_READER
C   IN CARD :  
C   /OPTION/ID/UID
C   TITR
C-----------------------------------------------
C   DUMMY ARGUMENTS DESCRIPTION:
C   ===================
C
C     NAME         DESCRIPTION              
C
C     ID           ID OF THE OPTION         
C     UID          UNIT ID OF THE OPTION    
C     SUB_INDEX    SUBMODEL INDEX OF THE OPTION
C     TITR         TITLE OF THE OPTION      
C     LSUBMODEL    SUBMODEL STRUCTURE       
C============================================================================
C   M o d u l e s
C-----------------------------------------------
      USE message_mod       
      USE submodel_mod , ONLY : nsubmod, submodel_data
      USE names_and_titles_mod , ONLY : ncharline
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
      TYPE(SUBMODEL_DATA),INTENT(IN) :: LSUBMODEL(NSUBMOD)
C OUTPUT ARGUMENTS
      INTEGER,INTENT(OUT) :: ID
      INTEGER,INTENT(OUT) :: UID
      INTEGER,INTENT(OUT) :: SUB_INDEX
      CHARACTER*(*),INTENT(OUT) :: TITR
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER OFFSET_CATEGORY,S_KEYWORD,S_TITR_TMP,POS
      CHARACTER(LEN=NCHARLINE) :: KEYWORD,TITR_TMP
C-----------------------------------------------
C   E x t e r n a l   F u n c t i o n s
C-----------------------------------------------
C=======================================================================
      id = 0
      sub_index = 0
      pos=0
C--------------------------------------------------
      CALL cpp_option_read(id,uid,sub_index,keyword,s_keyword,titr_tmp,s_titr_tmp,offset_category,pos)
C--------------------------------------------------
      titr(1:s_titr_tmp) = titr_tmp(1:s_titr_tmp)
 
      IF(sub_index /= 0 )THEN
        IF(lsubmodel(sub_index)%UID /= 0)THEN
          uid = lsubmodel(sub_index)%UID
        ENDIF
      ENDIF
C--------------------------------------------------
      RETURN
C