parser_obj_FetchLabelID Function

private pure function parser_obj_FetchLabelID(this, label) result(id)

Returns ID of label in entries array. Returns 0 if label not found.

Type Bound

parser_obj

Arguments

Type IntentOptional Attributes Name
class(parser_obj), intent(in) :: this

Parser object
character(len=*), intent(in) :: label

label to look for

Return Value integer


Called by

proc~~parser_obj_fetchlabelid~~CalledByGraph proc~parser_obj_fetchlabelid parser_obj%parser_obj_FetchLabelID proc~parser_obj_isdefined parser_obj%parser_obj_IsDefined proc~parser_obj_isdefined->proc~parser_obj_fetchlabelid proc~parser_obj_parseline parser_obj%parser_obj_ParseLine proc~parser_obj_parseline->proc~parser_obj_fetchlabelid proc~parser_obj_read0d parser_obj%parser_obj_read0D proc~parser_obj_read0d->proc~parser_obj_fetchlabelid proc~parser_obj_read1d parser_obj%parser_obj_read1D proc~parser_obj_read1d->proc~parser_obj_fetchlabelid none~get~4 parser_obj%Get none~get~4->proc~parser_obj_read0d none~get~4->proc~parser_obj_read1d proc~cdifs_obj_preparesolveroutput cdifs_obj_PrepareSolverOutput proc~cdifs_obj_preparesolveroutput->proc~parser_obj_isdefined proc~cdifs_obj_preparesolveroutput->none~get~4 proc~grans_obj_preparesolvercollision grans_obj_PrepareSolverCollision proc~grans_obj_preparesolvercollision->proc~parser_obj_isdefined proc~grans_obj_preparesolvercollision->none~get~4 proc~collision_obj_prepare collision_obj%collision_obj_Prepare proc~grans_obj_preparesolvercollision->proc~collision_obj_prepare proc~grans_obj_preparesolveroutput grans_obj_PrepareSolverOutput proc~grans_obj_preparesolveroutput->proc~parser_obj_isdefined proc~grans_obj_preparesolveroutput->none~get~4 proc~marker_set_prepare marker_set%marker_set_Prepare proc~marker_set_prepare->proc~parser_obj_isdefined proc~marker_set_prepare->none~get~4 proc~parser_obj_parsefile parser_obj%parser_obj_ParseFile proc~parser_obj_parsefile->proc~parser_obj_parseline proc~respart_set_prepare ResPart_set%ResPart_set_Prepare proc~respart_set_prepare->proc~parser_obj_isdefined proc~respart_set_prepare->none~get~4 proc~cdifs_obj_preparesolver cdifs_obj_PrepareSolver proc~cdifs_obj_preparesolver->none~get~4 proc~cdifs_obj_preparesolver->proc~cdifs_obj_preparesolveroutput proc~cdifs_obj_preparesolver->proc~respart_set_prepare proc~cdifs_obj_preparesolverbcs cdifs_obj_PrepareSolverBCS proc~cdifs_obj_preparesolver->proc~cdifs_obj_preparesolverbcs proc~cdifs_obj_preparesolverblock cdifs_obj_PrepareSolverBlock proc~cdifs_obj_preparesolver->proc~cdifs_obj_preparesolverblock proc~cdifs_obj_preparesolverbodyforce cdifs_obj_PrepareSolverBodyforce proc~cdifs_obj_preparesolver->proc~cdifs_obj_preparesolverbodyforce proc~cdifs_obj_preparesolverfields cdifs_obj_PrepareSolverFields proc~cdifs_obj_preparesolver->proc~cdifs_obj_preparesolverfields proc~cdifs_obj_preparesolveroperators cdifs_obj_PrepareSolverOperators proc~cdifs_obj_preparesolver->proc~cdifs_obj_preparesolveroperators proc~cdifs_obj_preparesolverbcs->none~get~4 proc~cdifs_obj_preparesolverblock->none~get~4 proc~cdifs_obj_preparesolverbodyforce->none~get~4 proc~cdifs_obj_preparesolverfields->none~get~4 proc~cdifs_obj_preparesolveroperators->none~get~4 proc~collision_obj_prepare->none~get~4 proc~grans_obj_preparesolver grans_obj_PrepareSolver proc~grans_obj_preparesolver->none~get~4 proc~grans_obj_preparesolver->proc~grans_obj_preparesolvercollision proc~grans_obj_preparesolver->proc~grans_obj_preparesolveroutput proc~grans_obj_preparesolver->proc~marker_set_prepare proc~grans_obj_preparesolverbcs grans_obj_PrepareSolverBCS proc~grans_obj_preparesolver->proc~grans_obj_preparesolverbcs proc~grans_obj_preparesolverblock grans_obj_PrepareSolverBlock proc~grans_obj_preparesolver->proc~grans_obj_preparesolverblock proc~grans_obj_preparesolverfields grans_obj_PrepareSolverFields proc~grans_obj_preparesolver->proc~grans_obj_preparesolverfields proc~grans_obj_preparesolveroperators grans_obj_PrepareSolverOperators proc~grans_obj_preparesolver->proc~grans_obj_preparesolveroperators proc~grans_obj_preparesolverbcs->none~get~4 proc~grans_obj_preparesolverblock->none~get~4 proc~grans_obj_preparesolverfields->none~get~4 proc~grans_obj_preparesolveroperators->none~get~4 proc~particle_set_prepare particle_set%particle_set_Prepare proc~particle_set_prepare->none~get~4 proc~timer_obj_init timer_obj%timer_obj_Init proc~timer_obj_init->none~get~4 program~main main program~main->none~get~4 program~main->proc~parser_obj_parsefile interface~cdifs_obj_preparesolver cdifs_obj%cdifs_obj_PrepareSolver interface~cdifs_obj_preparesolver->proc~cdifs_obj_preparesolver interface~grans_obj_preparesolver grans_obj%grans_obj_PrepareSolver interface~grans_obj_preparesolver->proc~grans_obj_preparesolver

Source Code

  pure function parser_obj_FetchLabelID(this,label) result(id)
    !> Returns ID of label in entries array.
    ! Returns 0 if label not found.
    implicit none
    class(parser_obj), intent(in)  :: this                                     !! Parser object
    character(*),      intent(in)  :: label                                    !! label to look for
    ! Work variables
    integer :: id
    integer :: n

    ! Initialize ID at zero (not found)
    id=0

    if (allocated(this%entries)) then
      do n=1,size(this%entries)
        if (trim(adjustl(this%entries(n)%label)).eq.trim(adjustl(label))) then
          id=n
          return
        end if
      end do

    end if

    return
  end function parser_obj_FetchLabelID