ini_outmax_auto.F File Reference

#include "implicit_f.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	ini_outmax_auto (elbuf_str, ity, ng)

Function/Subroutine Documentation

ini_outmax_auto()

subroutine ini_outmax_auto	(	type(elbuf_struct_), target	elbuf_str,
		integer, intent(in)	ity,
		integer, intent(in)	ng )

Definition at line 29 of file ini_outmax_auto.F.

C-----------------------------------------------
C   M o d u l e s
C-----------------------------------------------
      USE elbufdef_mod            
      USE outmax_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-----------------------------------------------
      INTEGER ,INTENT(IN):: ITY,NG
      TYPE(ELBUF_STRUCT_),TARGET  :: ELBUF_STR
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER I
      TYPE(G_BUFEL_)     , POINTER :: GBUF
C=======================================================================
 
      gbuf => elbuf_str%GBUF
C----
        SELECT CASE (ity)
          CASE(1)
           gbuf%G_TM_YIELD=  ikeymax(1)*ipart_ok(ng,1)
           gbuf%G_TM_SEQ  =  ikeymax(2)*ipart_ok(ng,2)
           gbuf%G_TM_EINT =  ikeymax(3)*ipart_ok(ng,3)
           gbuf%G_TM_DMG  =  ikeymax(4)*ipart_ok(ng,4)
           gbuf%G_TM_SIG  =6*ikeymax(5)*ipart_ok(ng,5)
           gbuf%G_TM_STRA =6*ikeymax(6)*ipart_ok(ng,6)
          CASE(3,7)
           gbuf%G_TM_YIELD=  ikeymax(1)*ipart_ok(ng,1)
           gbuf%G_TM_SEQ  =  ikeymax(2)*ipart_ok(ng,2)
           gbuf%G_TM_EINT =  ikeymax(3)*ipart_ok(ng,3)
           gbuf%G_TM_DMG  =  ikeymax(4)*ipart_ok(ng,4)
           gbuf%G_TM_SIG  =3*ikeymax(5)*ipart_ok(ng,5)
           gbuf%G_TM_STRA =3*ikeymax(6)*ipart_ok(ng,6)
        END SELECT
C-----------------------------------------------
      RETURN