parser_obj_IsDefined Function

private pure function parser_obj_IsDefined(this, label) result(found)

Checks whether a label was found when parsing the file.

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 logical

Result


Calls

proc~~parser_obj_isdefined~~CallsGraph proc~parser_obj_isdefined parser_obj%parser_obj_IsDefined proc~parser_obj_fetchlabelid parser_obj%parser_obj_FetchLabelID proc~parser_obj_isdefined->proc~parser_obj_fetchlabelid

Called by

proc~~parser_obj_isdefined~~CalledByGraph proc~parser_obj_isdefined parser_obj%parser_obj_IsDefined proc~cdifs_obj_preparesolveroutput cdifs_obj_PrepareSolverOutput proc~cdifs_obj_preparesolveroutput->proc~parser_obj_isdefined proc~grans_obj_preparesolvercollision grans_obj_PrepareSolverCollision proc~grans_obj_preparesolvercollision->proc~parser_obj_isdefined proc~grans_obj_preparesolveroutput grans_obj_PrepareSolverOutput proc~grans_obj_preparesolveroutput->proc~parser_obj_isdefined proc~marker_set_prepare marker_set%marker_set_Prepare proc~marker_set_prepare->proc~parser_obj_isdefined proc~respart_set_prepare ResPart_set%ResPart_set_Prepare proc~respart_set_prepare->proc~parser_obj_isdefined proc~cdifs_obj_preparesolver cdifs_obj_PrepareSolver proc~cdifs_obj_preparesolver->proc~cdifs_obj_preparesolveroutput proc~cdifs_obj_preparesolver->proc~respart_set_prepare proc~grans_obj_preparesolver grans_obj_PrepareSolver proc~grans_obj_preparesolver->proc~grans_obj_preparesolvercollision proc~grans_obj_preparesolver->proc~grans_obj_preparesolveroutput proc~grans_obj_preparesolver->proc~marker_set_prepare 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_IsDefined(this,label) result(found)
    !> Checks whether a label was found when parsing the file.
    implicit none
    class(parser_obj), intent(in) :: this                                      !! Parser object
    character(*),      intent(in) :: label                                     !! label to look for
    logical                       :: found                                     !! Result

    found=.false.
    if( this%FetchLabelID(label).ne.0) found=.true.

    return
  end function parser_obj_IsDefined