read_engine_driver.F File Reference

#include "implicit_f.inc"
#include "com04_c.inc"
#include "com_engcards_c.inc"
#include "scr15_c.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	read_engine_driver (igrpart, is_dyna, nb_dyna_include)

Function/Subroutine Documentation

read_engine_driver()

subroutine read_engine_driver	(	type(group_), dimension(ngrpart)	igrpart,
		integer, intent(in)	is_dyna,
		integer, intent(in)	nb_dyna_include )

Definition at line 34 of file read_engine_driver.F.

C-----------------------------------------------
C   M o d u l e s
C-----------------------------------------------
      USE message_mod
      USE groupdef_mod
      USE submodel_mod
      USE unitab_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-----------------------------------------------
#include      "com04_c.inc"
#include      "com_engcards_c.inc"
#include      "scr15_c.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      TYPE(GROUP_)  ,DIMENSION(NGRPART) :: IGRPART
      INTEGER,INTENT(IN)::IS_DYNA
      INTEGER,INTENT(IN)::NB_DYNA_INCLUDE
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
       CHARACTER FILNAM*512
       INTEGER LEN_FILNAM,CPT,NRUN,NPARITH_ENG,NTH_TITLE_ENG,
     .         NSTATE_ENG,NDYNAIN_ENG
C=======================================================================
C WRITE /ANIM OPTIONS THAT ARE IN MEMORY(HM MODEL) IN 1.RAD FILE 
C=======================================================================
C-----------------------------------------------
C OPEN 1.rad FILE
C-----------------------------------------------
       IF(nb_dyna_include .NE. 0) THEN
         filnam  = 'DYNA_INCLUDE_0001.rad'
         len_filnam=21
       ELSE
         filnam  =rootnam(1:rootlen)//'_0001.rad'
         len_filnam=rootlen+9
       ENDIF
       CALL cpp_model_open_file(filnam,len_filnam)
C--------------------------------------------------
C START BROWSING ANIM OPTIONS
C--------------------------------------------------
      CALL hm_option_start('/ANIM')
C--------------------------------------------------
C WRITE ANIM OPTIONS IN 1.RAD FILE
C--------------------------------------------------
      DO cpt=1,nanim_eng
        CALL cpp_global_entity_sdi_write(is_dyna)
      ENDDO
C--------------------------------------------------
C START BROWSING RUN OPTIONS
C--------------------------------------------------
      CALL hm_option_start('/RUN')
C--------------------------------------------------
      CALL hm_option_count('/RUN',nrun)
C--------------------------------------------------
C WRITE ANIM OPTIONS IN 1.RAD FILE
C--------------------------------------------------
      DO cpt=1,nrun
        CALL cpp_global_entity_sdi_write(is_dyna)
      ENDDO
C--------------------------------------------------
C START BROWSING TFILE OPTIONS
C--------------------------------------------------
      CALL hm_option_start('/TFILE')
C--------------------------------------------------
C WRITE TFILE OPTIONS IN 1.RAD FILE
C--------------------------------------------------
      DO cpt=1,ntfile_eng
        CALL cpp_global_entity_sdi_write(is_dyna)
      ENDDO
C--------------------------------------------------
C START BROWSING RFILE OPTIONS
C--------------------------------------------------
      CALL hm_option_start('/RFILE')
C--------------------------------------------------
C WRITE RFILE OPTIONS IN 1.RAD FILE
C--------------------------------------------------
      DO cpt=1,nrfile_eng
        CALL cpp_global_entity_sdi_write(is_dyna)
      ENDDO
C--------------------------------------------------
C START BROWSING STOP OPTIONS
C--------------------------------------------------
      CALL hm_option_start('/STOP')
C--------------------------------------------------
C WRITE STOP OPTIONS IN 1.RAD FILE
C--------------------------------------------------
      DO cpt=1,nstop_eng
        CALL cpp_global_entity_sdi_write(is_dyna)
      ENDDO
C--------------------------------------------------
C START BROWSING DT OPTIONS
C--------------------------------------------------
      CALL hm_option_start('/DT')
C--------------------------------------------------
C WRITE DT OPTIONS IN 1.RAD FILE
C--------------------------------------------------
      DO cpt=1,ndt_eng
        CALL cpp_global_entity_sdi_write(is_dyna)
      ENDDO
C--------------------------------------------------
C START BROWSING VERS OPTIONS
C--------------------------------------------------
      CALL hm_option_start('/VERS')
C--------------------------------------------------
C WRITE VERS OPTIONS IN 1.RAD FILE
C--------------------------------------------------
      DO cpt=1,nvers_eng
        CALL cpp_global_entity_sdi_write(is_dyna)
      ENDDO
C--------------------------------------------------
C START BROWSING PARITH OPTION
C--------------------------------------------------
      CALL hm_option_count('/PARITH',nparith_eng)
      CALL hm_option_start('/PARITH')
C--------------------------------------------------
C WRITE PARITH OPTIONS IN 1.RAD FILE
C--------------------------------------------------
      DO cpt=1,nparith_eng
        CALL cpp_global_entity_sdi_write(is_dyna)
      ENDDO
C--------------------------------------------------
C START BROWSING /TH/TITLE OPTIONS
C--------------------------------------------------
      CALL hm_option_count('/TH/TITLE',nth_title_eng)
      CALL hm_option_start('/TH/TITLE')
C--------------------------------------------------
C WRITE /TH/TITLE OPTIONS IN 1.RAD FILE
C--------------------------------------------------
      DO cpt=1,nth_title_eng
        CALL cpp_global_entity_sdi_write(is_dyna)
      ENDDO
C--------------------------------------------------
C START BROWSING /STATE OPTIONS
C--------------------------------------------------
      CALL hm_option_count('/STATE',nstate_eng)
      CALL hm_option_start('/STATE')
C--------------------------------------------------
C WRITE /STATE OPTIONS IN 1.RAD FILE
C--------------------------------------------------
      DO cpt=1,nstate_eng
        CALL cpp_global_entity_sdi_write(is_dyna)
      ENDDO
C--------------------------------------------------
C START BROWSING /DYNAIN OPTIONS
C--------------------------------------------------
      CALL hm_option_count('/DYNAIN',ndynain_eng)
      CALL hm_option_start('/DYNAIN')
C--------------------------------------------------
C WRITE /DYNAIN OPTIONS IN 1.RAD FILE
C--------------------------------------------------
      DO cpt=1,ndynain_eng
        CALL cpp_global_entity_sdi_write(is_dyna)
      ENDDO
C-----------------------------------------------
C CLOSE 1.rad FILE
C-----------------------------------------------
      CALL cpp_model_close_file()
C=======================================================================
C END WRITE /ANIM OPTIONS THAT ARE IN MEMORY(HM MODEL) IN 1.RAD FILE 
C=======================================================================
C-----------------------------------------------
       RETURN