MODULE String_Procedures

Module String_Procedures exports constants, subroutines and functions for manipulating strings.

Here is the list of the public constants exported by module String_Procedures:

!
! CODES FOR CASE CONVERSIONS.
!
integer(i1b), parameter ::     &
    toupper       = 1,         &
    tolower       = 2,         &
    capitalize    = 3
!
! CODES FOR NUMERICAL DATA TYPES STORED IN A STRING.
!
integer(i1b), parameter  ::    &
    kchr = 0,                  & ! NON-NUMERICAL STRING
    kint = 1,                  & ! INTEGER
    kfix = 2,                  & ! FIXED REAL
    kexp = 3                     ! REAL WITH EXPONENT

In order to use one of these constants or one of the routines listed below, you must include an appropriate use String_Procedures or use Statpack statement in your Fortran program, like:

use String_Procedures, only: capitalize

or :

use Statpack, only: capitalize

Here is the list of the public routines exported by module String_Procedures:

ascii_is_upper()

Synopsis:

c_is_upper = ascii_is_upper( c )

is_upper()

Synopsis:

c_is_upper = is_upper( c )

ascii_is_lower()

Synopsis:

c_is_lower = ascii_is_lower( c )

is_lower()

Synopsis:

c_is_lower = is_lower( c )

ascii_is_alpha()

Synopsis:

c_is_alpha = ascii_is_alpha( c )

is_alpha()

Synopsis:

c_is_alpha = is_alpha( c )

ascii_is_same()

Synopsis:

c1_c2_are_same = ascii_is_same( c1 , c2 )

is_same()

Synopsis:

c1_c2_are_same = is_same( c1 , c2 )

ascii_is_digit()

Synopsis:

c_is_digit = ascii_is_digit( c )

is_digit()

Synopsis:

c_is_digit = is_digit( c )

is_space()

Synopsis:

c_is_space = is_space( c )

is_num()

Synopsis:

string_is_num = is_num( string )

string_count()

Synopsis:

count = string_count( string , letter )

ascii_string_eq()

Synopsis:

strings_are_same = ascii_string_eq( string1 , string2 )

string_eq()

Synopsis:

strings_are_same = string_eq( string1 , string2 )

ascii_string_index()

Synopsis:

index = ascii_string_index( string , list(:) )

string_index()

Synopsis:

index = string_index( string , list(:) )

ascii_string_comp()

Synopsis:

compare_strings = ascii_string_comp( string1 , string2 )

string_comp()

Synopsis:

compare_strings = string_comp( string1 , string2 )

ebc2asc()

Synopsis:

call ebc2asc( ebc_str , asc_str , nchr )

asc2ebc()

Synopsis:

call asc2ebc( asc_str , ebc_str , nchr )

ascii_to_upper()

Synopsis:

c_upper = ascii_to_upper( c )

to_upper()

Synopsis:

c_upper = to_upper( c )

ascii_to_lower()

Synopsis:

c_lower = ascii_to_lower( c )

to_lower()

Synopsis:

c_lower = to_lower( c )

ascii_case_change()

Synopsis:

call ascii_case_change( string , type )

case_change()

Synopsis:

call case_change( string , type )

mid_shift()

Synopsis:

call mid_shift( string , from , to , number )

center()

Synopsis:

call center( string )

find_field()

Synopsis:

call find_field( string , istart , iend , delims=delims , isearch=isearch )

nbrchf()

Synopsis:

nchar = nbrchf( jval )
nchar = nbrchf( rval )

obt_fmt()

Synopsis:

fmt = obt_fmt( jval )
fmt = obt_fmt( rval )

val_to_string()

Synopsis:

call val_to_string( jval , string , nchar                 )
call val_to_string( rval , string , nchar, fmt=fmt , d=d  )

string_to_val()

Synopsis:

call string_to_val( string , kcode , fmt )