split Subroutine

public subroutine split(str_in, bStr, separator)

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: str_in
character(len=*), intent(out) :: bStr
character(len=1), intent(in) :: separator

Called by

proc~~split~~CalledByGraph proc~split split proc~fillstrings FillStrings proc~fillstrings->proc~split

Source Code

SUBROUTINE split(str_in,bStr,separator)
  IMPLICIT NONE
  !-------------------------------------------
  ! input
  CHARACTER(LEN=*),INTENT(IN) :: str_in
  CHARACTER(LEN=1),INTENT(IN) :: separator
  ! output
  CHARACTER(LEN=*),INTENT(OUT) :: bStr
  !-------------------------------------------
  ! LOCAL VARIABLES
  INTEGER :: i_sep
  !==============================================================================
  bstr=TRIM(str_in)
  i_sep = INDEX(bstr,separator)
  IF (i_sep > 0) THEN
      bstr=bstr(1:i_sep-1)
  END IF
END SUBROUTINE split