mimic_handshake Subroutine

  1. mimic_main.F90
  2. mimic_main
  3. mimic_handshake

public subroutine mimic_handshake(paths)

MiMiC initialization routine

Arguments

TypeIntentOptionalAttributesName
character(len=*), intent(in), dimension(:):: paths

paths to client codes

Contents

Source Code

mimic_handshake

Source Code

subroutine mimic_handshake(paths)

    !> paths to client codes
    character(len=*), dimension(:), intent(in) :: paths

    call timer_start("mimic_handshake")

    call print_welcome

    if (size(paths) == 0) then
        !> @todo: may be downgraded to a warning as
        !> the development progresses
        call handle_error(SEVERITY_FATAL, &
                          TYPE_INCORRECT_ARG, &
                          "Empty paths array is provided", &
                          __FILE__, __LINE__)
    endif

    call communicator%handshake(paths)

    call timer_stop

end subroutine mimic_handshake