matchbgn Function

public function matchbgn(string, substring)

Arguments

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

Return Value logical


Called by

proc~~matchbgn~~CalledByGraph proc~matchbgn matchbgn proc~scan_begin scan_begin proc~scan_begin->proc~matchbgn proc~scan_count_match_bgn scan_count_match_bgn proc~scan_count_match_bgn->proc~matchbgn

Source Code

  function matchbgn ( string, substring )
    ! only begin with
    ! string:  main-str
    ! substring:  sub-str
    IMPLICIT NONE
    CHARACTER (LEN=*), INTENT(IN) :: string, substring
    LOGICAL                       :: matchbgn
    if (index(string, substring).eq.1) then
       matchbgn = .TRUE.
    else
       matchbgn = .FALSE.
    endif
    return
  end function matchbgn