Procedures

pure function adjustc(string[,length])

logical function base(x,b,y,a)

Sample program:

Sample Program:

Sample program:

Sample program:

Sample program:

logical function codebase(in_base10,out_base,answer)

Sample Program:

Sample program:

logical function decodebase(string,basein,out10)

Sample program:

Sample Program:

Sample program:

The Levenshtein distance function returns how many edits (deletions, insertions, transposition) are required to turn one string into another.

function expand(line,escape) result(lineout)

Sample of uses

GETVALS(3f) reads a relatively arbitrary number of numeric values from a character variable into a REAL array using list-directed input.

Example program

Sample Program:

Sample Program:

elemental function isalpha(onechar)

Sample program

Sample program:

Sample program

Sample Program:

Sample Program:

Sample program

As the example shows, you can use an internal READ(3f) along with the IOSTAT= parameter to check (and read) a string as well.

Sample Program:

Sample program:

Sample program:

Sample program:

Sample program

JOIN(3f) appends the elements of a CHARACTER array into a single CHARACTER variable, with elements 1 to N joined from left to right. By default each element is trimmed of trailing spaces and the default separator is a null string.

Sample Program:

(LICENSE:PD)

Sample program

impure elemental subroutine matching_delimiter(str,ipos,imatch)

Sample Program:

MODIF(3f) Modifies the line currently pointed at using a directive that acts much like a line editor directive. Primarily used to create interactive utilities such as input history editors for interactive line-mode programs.

Sample Program:

Sample program:

Sample program:

pad(3f) - [M_strings:LENGTH] return string padded to at least specified length (LICENSE:PD)

function paragraph(source_string,length)

function quote(str,mode,clip) result (quoted_str)

Results:

Sample program

Expected output:

Sample Program:

Sample Program:

Sample program:

Sample program:

Sample Program:

Sample Program:

function strtok(source_string,itoken,token_start,token_end,delimiters) result(strtok_status)

Sample Program:

Sample Program:

function unquote(quoted_str,esc) result (unquoted_str)

upper(3f) - [M_strings:CASE] changes a string to uppercase (LICENSE:PD)

upper_quoted(3f) - [M_strings:CASE] elemental function converts string to miniscule skipping strings quoted per Fortran syntax rules (LICENSE:PD)

Sample Program: