get_snapshot_index Function

public function get_snapshot_index(filename)

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: filename

Return Value integer


Called by

proc~~get_snapshot_index~~CalledByGraph proc~get_snapshot_index get_snapshot_index proc~read_par_files read_par_files proc~read_par_files->proc~get_snapshot_index proc~read_snapshot read_snapshot proc~read_snapshot->proc~get_snapshot_index proc~snapshot_read_header snapshot_read_header proc~read_snapshot->proc~snapshot_read_header proc~snapshot_read_header->proc~get_snapshot_index proc~initialize_amrvac initialize_amrvac proc~initialize_amrvac->proc~read_par_files proc~main main proc~main->proc~read_snapshot proc~main->proc~initialize_amrvac program~agile agile program~agile->proc~main

Source Code

  integer function get_snapshot_index(filename)
    character(len=*), intent(in) :: filename
    integer                      :: i

    ! Try to parse index in restart_from_file string (e.g. basename0000.dat)
    i = len_trim(filename) - 7
    read(filename(i:i+3), '(I4)') get_snapshot_index
  end function get_snapshot_index