libsim Versione 7.2.0

◆ line_split_get_line()

character(len=size(this%paragraph, 1)) function, public line_split_get_line ( type(line_split), intent(in)  this,
integer, intent(in)  nline 
)

Return the nline-th line obtained after splitting.

If nline is out of range, a missing value is returned. The line is always left-aligned and it is padded with trailing blanks up to the requested line length.

Parametri
[in]thisobject initialised with the line to be splitted
[in]nlineindex of the line to be returned

Definizione alla linea 1095 del file char_utilities.F90.

1096!! .FALSE. otherwise. Note: trailing blanks are ignored.
1097function string_match_v( string, pattern ) result(match)
1098character(len=*), intent(in) :: string(:)
1099character(len=*), intent(in) :: pattern
1100logical :: match(size(string))
1101
1102integer :: i
1103
1104do i =1,size(string)
1105 match(i)=string_match(string(i),pattern)

Generated with Doxygen.