init_gs2_file_utils_c Subroutine

private subroutine init_gs2_file_utils_c(strlen, run_name) bind(c, name='init_gs2_file_utils')

Uses

FIXME : Add documentation

Arguments

Type IntentOptional Attributes Name
integer(kind=c_int), intent(in) :: strlen
character(kind=c_char, len=1), intent(in) :: run_name

Contents

Source Code

init_gs2_file_utils_c

Source Code

  subroutine init_gs2_file_utils_c(strlen, run_name) &
       bind(c, name='init_gs2_file_utils')
    use iso_c_binding
    use file_utils, only: init_file_utils
    implicit none
    integer(c_int), intent(in) :: strlen
    character(kind=c_char), intent(in) :: run_name

    call init_gs2_file_utils_c_actual(strlen, run_name)

  end subroutine init_gs2_file_utils_c