C_ommp_time_pull Subroutine

public subroutine C_ommp_time_pull(c_msg) bind(c, name="0")

Arguments

Type IntentOptional Attributes Name
character(kind=c_char), intent(in) :: c_msg(OMMP_STR_CHAR_MAX)

Calls

proc~~c_ommp_time_pull~~CallsGraph proc~c_ommp_time_pull C_ommp_time_pull proc~c2f_string c2f_string proc~c_ommp_time_pull->proc~c2f_string proc~time_pull time_pull proc~c_ommp_time_pull->proc~time_pull proc~mem_stat mem_stat proc~time_pull->proc~mem_stat proc~fatal_error fatal_error proc~time_pull->proc~fatal_error proc~ommp_message ommp_message proc~time_pull->proc~ommp_message proc~memory_init memory_init proc~mem_stat->proc~memory_init proc~fatal_error->proc~ommp_message proc~close_output close_output proc~fatal_error->proc~close_output proc~close_output->proc~ommp_message

Contents

Source Code


Source Code

        subroutine C_ommp_time_pull(c_msg) &
                bind(c, name='ommp_time_pull')
            implicit none
            
            character(kind=c_char), intent(in) :: c_msg(OMMP_STR_CHAR_MAX)
            character(len=OMMP_STR_CHAR_MAX) :: msg
            
            call c2f_string(c_msg, msg)
            call ommp_time_pull(trim(msg))

        end subroutine C_ommp_time_pull