hm_debug_print_option.F File Reference

#include "implicit_f.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	hm_debug_print_option (option)

Function/Subroutine Documentation

hm_debug_print_option()

subroutine hm_debug_print_option

(

character*(*), intent(in)

option

)

Definition at line 32 of file hm_debug_print_option.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   D u m m y   A r g u m e n t s
C-----------------------------------------------
C INPUT ARGUMENTS
      CHARACTER*(*),INTENT(IN)::OPTION
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
       CHARACTER FILNAM*512
       INTEGER I,LEN_FILNAM,CPT
C=======================================================================
C WRITE /ANIM OPTIONS THAT ARE IN MEMORY(HM MODEL) IN 1.RAD FILE 
C=======================================================================
C-----------------------------------------------
C OPEN debug_hm.txt
C-----------------------------------------------
       filnam  ='debug_hm.txt'
       len_filnam=12
       CALL cpp_debug_model_open_file(filnam,len_filnam)
C--------------------------------------------------
C START BROWSING OPTIONS
C--------------------------------------------------
      CALL hm_option_count(option(1:len_trim(option)),cpt)
      CALL hm_option_start(option(1:len_trim(option)))
C--------------------------------------------------
C WRITE INd ebug_hm.txt
C--------------------------------------------------
      DO i=1,cpt
        CALL cpp_debug_global_entity_sdi_write()
      ENDDO
C-----------------------------------------------
C CLOSE debug_hm.txt
C-----------------------------------------------
      CALL cpp_debug_model_close_file()
C-----------------------------------------------
       RETURN