hm_entity_reference_number.F File Reference

#include "implicit_f.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	hm_entity_reference_number (name, sname, id, ref_number)

Function/Subroutine Documentation

hm_entity_reference_number()

subroutine hm_entity_reference_number	(	character*(sname), intent(in)	name,
		integer, intent(in)	sname,
		integer, intent(in)	id,
		integer, intent(out)	ref_number )

Definition at line 32 of file hm_entity_reference_number.F.

C-----------------------------------------------
C   ROUTINE DESCRIPTION :
C   ===================
C   REQUEST INFO INTO MODEL NEUTRAL OBJECT DATABASE USING HM_READER
C   HOW MANY TIMES OPTION IS REFERENCED IN THE MODEL
C-----------------------------------------------
C   DUMMY ARGUMENTS DESCRIPTION:
C   ===================
C
C     NAME         DESCRIPTION              
C
C     NAME         OPTION   
C     SNAME        OPTION LENGTH        
C     ID           ID OF OPTION
C     REF_NUMBER   NUMBER OF ENTITIES REFERENCING 'NAME' with ID
C     LSUBMODEL    SUBMODEL STRUCTURE           
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 OUTPUT ARGUMENTS
      INTEGER,INTENT(IN)::ID,SNAME
      CHARACTER*(SNAME),INTENT(IN)::NAME
      INTEGER,INTENT(OUT)::REF_NUMBER
C-----------------------------------------------
      CALL cpp_entity_reference_number(name(1:len_trim(name)),len_trim(name),id,ref_number) 
      RETURN
C