MAPL_scan_pattern_in_file Module


Functions

public function matchbgn(string, substring)

Arguments

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

Return Value logical

public function matches(string, substring)

Arguments

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

Return Value logical


Subroutines

public subroutine go_last_patn(iunps, substring, outline, rew)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: iunps
character(len=*), intent(in) :: substring
character(len=150), intent(out) :: outline
logical, intent(in) :: rew

public subroutine scan_begin(iunps, substring, rew)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: iunps
character(len=*), intent(in) :: substring
logical, intent(in) :: rew

public subroutine scan_contain(iunps, stop_string, rew)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: iunps
character(len=*), intent(in) :: stop_string
logical, intent(in) :: rew

public subroutine scan_count_match_bgn(iunps, string, count, rew)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: iunps
character(len=*), intent(in) :: string
integer, intent(out) :: count
logical, intent(in) :: rew

public subroutine split_string_by_space(string_in, length_mx, mxseg, nseg, str_piece, jstatus)

print, ‘index=’, i write(6,) ‘str_piece(wc)=’, trim(str_piece(wc))

Arguments

Type IntentOptional Attributes Name
character(len=length_mx), intent(in) :: string_in
integer, intent(in) :: length_mx
integer, intent(in) :: mxseg
integer, intent(out) :: nseg
character(len=length_mx), intent(out) :: str_piece(mxseg)
integer, intent(out) :: jstatus