get_matching_plane_response_snapshot Subroutine

public subroutine get_matching_plane_response_snapshot(path, table, status, message)

path ごとに最初の検証済み内容を固定し、同一 process 内で共有する。

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: path
type(matching_plane_response_table_type), intent(out) :: table
integer(kind=i32), intent(out) :: status
character(len=*), intent(out) :: message

Source Code

  subroutine get_matching_plane_response_snapshot(path, table, status, message)
    character(len=*), intent(in) :: path
    type(matching_plane_response_table_type), intent(out) :: table
    integer(i32), intent(out) :: status
    character(len=*), intent(out) :: message

    integer :: entry

    table = matching_plane_response_table_type()
    call ensure_matching_plane_response_snapshot(path, entry, status, message)
    if (status /= matching_plane_response_ok) return
    table = response_snapshots(entry)%table
  end subroutine get_matching_plane_response_snapshot