crp/OpenMC
1
0
Fork 0
mirror of https://github.com/openmc-dev/openmc.git synced 2026-07-27 05:35:49 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions

Added starts_with and ends_with functions in the string module.

Browse source
This commit is contained in:
Paul Romano 2011-08-29 19:27:34 -04:00
parent 8a5111857d
commit f7ca1dd046
1 changed files with 63 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

63
src/string.f90
View file

@ -204,6 +204,69 @@ contains
end function is_number
!===============================================================================
! STARTS_WITH determines whether a string starts with a certain
! sequence of characters
!===============================================================================
logical function starts_with(str, seq)
character(*) :: str ! string to check
character(*) :: seq ! sequence of characters
integer :: i, i_start
integer :: str_len
integer :: seq_len
str_len = len_trim(str)
seq_len = len_trim(seq)
! determine how many spaces are at beginning of string
i_start = 0
do i = 1, str_len
if (str(i:i) == ' ' .or. str(i:i) == achar(9)) cycle
i_start = i
exit
end do
! Check if string starts with sequence using INDEX intrinsic
if (index(str(1:str_len), seq(1:seq_len)) == i_start) then
starts_with = .true.
else
starts_with = .false.
end if
end function starts_with
!===============================================================================
! ENDS_WITH determines whether a string ends with a certain sequence
! of characters
!===============================================================================
logical function ends_with(str, seq)
character(*) :: str ! string to check
character(*) :: seq ! sequence of characters
integer :: i_start
integer :: str_len
integer :: seq_len
str_len = len_trim(str)
seq_len = len_trim(seq)
! determine how many spaces are at beginning of string
i_start = str_len - seq_len + 1
! Check if string starts with sequence using INDEX intrinsic
if (index(str(1:str_len), seq(1:seq_len), .true.) == i_start) then
ends_with = .true.
else
ends_with = .false.
end if
end function ends_with
!===============================================================================
! INT4_TO_STR converts an integer(4) to a string.
!===============================================================================