contrbe3.F File Reference

#include "implicit_f.inc"
#include "com04_c.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	contrbe3 (icr, lsubmodel)

Function/Subroutine Documentation

contrbe3()

subroutine contrbe3	(	integer, intent(out)	icr,
		type(submodel_data), dimension(*), intent(in)	lsubmodel )

Definition at line 35 of file contrbe3.F.

C-----------------------------------------------
C   M o d u l e s
C-----------------------------------------------  
      USE hm_option_read_mod
      USE submodel_mod
      USE names_and_titles_mod , ONLY : nchartitle, ncharkey
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"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      INTEGER ,INTENT(OUT)          :: ICR
      TYPE(SUBMODEL_DATA),INTENT(IN)::LSUBMODEL(*)
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER I,NUSER,NM,NN,J6(6)
      CHARACTER(LEN=NCHARTITLE)::TITR
      LOGICAL IS_AVAILABLE
C-----------------------------------------------
C   E x t e r n a l   F u n c t i o n s
C-----------------------------------------------
C
C=====================================================================|
      icr =0
      CALL hm_option_start('/RBE3')
      DO i=1,nrbe3
        CALL hm_option_read_key(lsubmodel,option_id = nuser,option_titr = titr)
        CALL hm_get_intv('dependentnode',nm,is_available,lsubmodel)
        CALL hm_get_intv('LTX',j6(1),is_available,lsubmodel)
        CALL hm_get_intv('LTY',j6(2),is_available,lsubmodel)
        CALL hm_get_intv('LTZ',j6(3),is_available,lsubmodel)
        CALL hm_get_intv('LRX',j6(4),is_available,lsubmodel)
        CALL hm_get_intv('LRY',j6(5),is_available,lsubmodel)
        CALL hm_get_intv('LRZ',j6(6),is_available,lsubmodel)
        CALL hm_get_intv('nset',nn,is_available,lsubmodel)
        IF ((nm+nn)==0) cycle
C
        IF ((j6(1)+j6(2)+j6(3)+j6(4)+j6(5)+j6(6))==0) THEN
         j6(4)=1
         j6(5)=1
         j6(6)=1
        ENDIF
       icr = j6(4) + j6(5) + j6(6)
       IF (icr >0) RETURN
      ENDDO
 
      RETURN