Procedures

Add an int64 variable which contains the FLOPs we use int64 since we might reach very large FLOP counts

Left-adjust the character sequence represented by the string. The length of the character sequence remains unchanged.

Left-adjust the character sequence represented by the string. The length of the character sequence remains unchanged.

Right-adjust the character sequence represented by the string. The length of the character sequence remains unchanged.

Right-adjust the character sequence represented by the string. The length of the character sequence remains unchanged.

Assign a character sequence to a string.

Assign a character sequence to a string.

Core buffering routine — appends a log entry to the buffer. If the buffer is full, increments the overflow counter. If a message or name exceeds its max length, it is truncated and the entry is flagged.

Return the character sequence represented by the string.

Return the character sequence represented by the string.

Return the character sequence represented by the string.

Return the character sequence represented by the string.

Returns the corresponding lowercase letter, if c is an uppercase ASCII character, otherwise c itself.

Returns the corresponding uppercase letter, if c is a lowercase ASCII character, otherwise c itself.

Remove trailing characters in set from string. If no character set is provided trailing whitespace is removed.

Remove trailing characters in set from string. Default character set variant where trailing whitespace is removed.

Remove trailing characters in set from string.

Remove trailing characters in set from string.

Remove trailing characters in set from string. Default character set variant where trailing whitespace is removed.

Remove trailing substrings from string.

Remove trailing substrings from string.

Remove trailing substrings from string.

Remove trailing substrings from string.

Reset the buffer to empty. Call after flushing if you want to reuse it.

Close the log file, needs to be called at the end of the program

Map an error code to a human-readable name

Computes longest prefix suffix for each index of the input ‘string’

Concatenate two character sequences. In this version the right-hand side character sequences is by a string.

Concatenate two character sequences. In this version the left-hand side character sequences is by a string.

Concatenate two character sequences. In this version both character sequences are by a string.

Get the current logger verbosity configuration

Configure the logger to be a certain verbosity level

Configure the logger to file to be a certain verbosity level

copy a tensor of datatype dp

copy a tensor of datatype int32

copy a tensor of datatype int64

copy a tensor of datatype sp

copy a matrix of datatype dp

copy a matrix of datatype int32

copy a matrix of datatype int64

copy a matrix of datatype sp

copy a vector of datatype dp

copy a vector of datatype int32

copy a vector of datatype int64

copy a vector of datatype sp

Returns the number of times substring ‘pattern’ has appeared in the input string ‘string’

Returns the number of times substring ‘pattern’ has appeared in the input string ‘string’ Returns an integer

Returns the number of times substring ‘pattern’ has appeared in the input string ‘string’ Returns an integer

Returns the number of times substring ‘pattern’ has appeared in the input string ‘string’ Returns an integer

Returns the number of times substring ‘pattern’ has appeared in the input string ‘string’ Returns an integer

Log a message that will only be printed at the debug level of verbosity

Route a buffered entry to the appropriate logger method

this subroutine runs a random dgemm to create work so that timers and other testing utils work nicely

Check whether a string ends with substring or not

Check whether a string ends with substring or not

Check whether a string ends with substring or not

Check whether a string ends with substring or not

Check whether a string ends with substring or not

Compare two character sequences for equality. In this version the right-hand side character sequences is by a string.

Compare two character sequences for equality. In this version the left-hand side character sequences is by a string.

Compare two character sequences for equality. In this version both character sequences are by a string.

Log a message that will only be printed at the error of verbosity

Add a call location to the stack trace Typically called when propagating errors upward

Clear the error state, stack trace, and cause chain

Print the error trace and stop the program Use for unrecoverable errors

Get the error code

Get complete error message with cause chain and stack trace Returns a dynamically-sized multi-line string

Get the error message (without stack trace)

Check if an error is set

Check if the error matches a specific error code

Print error with cause chain and stack trace to specified unit If unit not specified, prints to stdout

Set an error with code and message Resets the stack trace and cause chain

Wrap the current error with a higher-level context Pushes the current error into the cause chain and sets a new top-level code and message (Rust-style “caused by”)

fill a tensor of datatype dp with a value

fill a tensor of datatype int32 with a value

fill a tensor of datatype int64 with a value

fill a tensor of datatype sp with a value

fill a matrix of datatype dp with a value

fill a matrix of datatype int32 with a value

fill a matrix of datatype int64 with a value

fill a matrix of datatype sp with a value

fill a vector of datatype dp with a value

fill a vector of datatype int32 with a value

fill a vector of datatype int64 with a value

fill a vector of datatype sp with a value

Finds the starting index of substring ‘pattern’ in the input ‘string’ Specifications

Returns the starting index of the ‘occurrence’th occurrence of substring ‘pattern’ in input ‘string’ Returns an integer

Returns the starting index of the ‘occurrence’th occurrence of substring ‘pattern’ in input ‘string’ Returns an integer

Find an existing region by name or create a new one Returns -1 if MAX_REGIONS is exceeded

Returns the starting index of the ‘occurrence’th occurrence of substring ‘pattern’ in input ‘string’ Returns an integer

Returns the starting index of the ‘occurrence’th occurrence of substring ‘pattern’ in input ‘string’ Returns an integer

add flops to the flop rate type, this will add the flops to the flop recorder Usage: call my_flop_rate%add_flops(1000)

get the flop rate in GFLOP/s, this will calculate the flop rate based on the number of flops and the elapsed time

get the number of flops recorded in the flop rate type

get the elapsed time in seconds from the timer contained in the flop rate type

report the flop rate, this will print the flop rate in GFLOP/s

reset the flop rate type, this will reset the timer and the flop recorder

Calls the start method for the timer contained in the flop rate type

Calls the stop method for the timer contained in the flop rate type

Flush all buffered entries through the real logger, then clear the buffer. This is impure — call it once you are back outside the pure call chain.

FNV_1 interfaces

FNV_1A interfaces

Compare two character sequences for being greater or equal In this version the right-hand side character sequences is by a string.

Compare two character sequences for being greater or equal. In this version the left-hand side character sequences is by a string.

Compare two character sequences for being greater or equal. In this version both character sequences are by a string.

get the first argument from the command line, this is expected to be a filename

Get the int64 number of FLOPs we currently have in the counter

I print random knowledge

Get the current precision for real numbers

Obtain the current precision being used to print variables to strings

get_threading_mode returns the current threading mode for the array routines Usage: mode = get_threading_mode()

get the current threading mode for the array routines Usage: mode = get_threading_mode()

Compare two character sequences for being greater. In this version the right-hand side character sequences is by a string.

Compare two character sequences for being greater. In this version the left-hand side character sequences is by a string.

Compare two character sequences for being greater. In this version both character sequences are by a string.

Code in ASCII collating sequence.

Code in ASCII collating sequence.

Character-to-integer conversion function.

Character-to-integer conversion function.

Position of a substring within a string.

Position of a sequence of character within a character sequence. In this version the sub character sequence is represented by a string.

Position of a sequence of character within a character sequence. In this version the main character sequence is represented by a string.

Position of a sequence of character within a character sequence. In this version both character sequences are represented by a string.

Log a message that will only be printed at the info level of verbosity

The original FNV-1 8-bit key algorithm.

The original FNV-1a 8-bit key algorithm.

Checks whether c is an ASCII letter (A .. Z, a .. z).

Checks whether c is a letter or a number (0 .. 9, a .. z, A .. Z).

Checks whether or not c is in the ASCII character set - i.e. in the range 0 .. 0x7F.

Checks whether or not c is a blank character. That includes the only the space and tab characters

Checks whether c is a control character.

Checks whether c is a digit (0 .. 9).

The is equal interface is used to circumvent the fact that Fortran, rightfully, complains about comparing two reals without involving a tolerance, i.e. if(a == b) since there is no guarantee that the two reals are exactly equal due to floating point precision issues. The functions are defined as elemental

Checks whether or not c is a printable character other than the space character.

Checks whether c is a digit in base 16 (0 .. 9, A .. F, a .. f).

Checks whether c is a lowercase ASCII letter (a .. z).

Checks whether c is a digit in base 8 (0 .. 7).

Checks whether or not c is a printable character - including the space character.

Checks whether or not c is a punctuation character. That includes all ASCII characters which are not control characters, letters, digits, or whitespace.

is_sorted provides a simple way to checking if a 1d array is sorted it is implemented for int32, int64, sp, and dp datatypes. The default is to check if an array is sorted in ascending fashion.

check if a 1d array of type char is sorted

check if a 1d array of type dp is sorted

check if a 1d array of type int32 is sorted

check if a 1d array of type int64 is sorted

check if a 1d array of type sp is sorted

Checks whether c is an uppercase ASCII letter (A .. Z).

Checks whether or not c is a whitespace character. That includes the space, tab, vertical tab, form feed, carriage return, and linefeed characters.

Joins an array of strings into a single string. The chunks are separated with a space, or an optional user-defined separator.

Joins a list of strings with a separator (default: space). Returns a new string

Joins a list of strings with a separator (default: space). Returns a new string

Log a message that will only be printed at the error of verbosity

Compare two character sequences for being less or equal In this version the right-hand side character sequences is by a string.

Compare two character sequences for being less or equal. In this version the left-hand side character sequences is by a string.

Compare two character sequences for being less or equal. In this version both character sequences are by a string.

Returns the length of the character sequence represented by the string.

Returns the length of the character sequence without trailing spaces represented by the string.

Returns the length of the character sequence without trailing spaces represented by the string.

Lexically compare the order of two character sequences being greater equal, The left-hand side, the right-hand side or both character sequences can be represented by a string.

Lexically compare two character sequences for being greater or equal In this version the right-hand side character sequences is by a string.

Lexically compare two character sequences for being greater or equal. In this version the left-hand side character sequences is by a string.

Lexically compare two character sequences for being greater or equal. In this version both character sequences are by a string.

Lexically compare the order of two character sequences being greater, The left-hand side, the right-hand side or both character sequences can be represented by a string.

Lexically compare two character sequences for being greater. In this version the right-hand side character sequences is by a string.

Lexically compare two character sequences for being greater. In this version the left-hand side character sequences is by a string.

Lexically compare two character sequences for being greater. In this version both character sequences are by a string.

Lexically compare the order of two character sequences being less equal, The left-hand side, the right-hand side or both character sequences can be represented by a string.

Lexically compare two character sequences for being less or equal In this version the right-hand side character sequences is by a string.

Lexically compare two character sequences for being less or equal. In this version the left-hand side character sequences is by a string.

Lexically compare two character sequences for being less or equal. In this version both character sequences are by a string.

Lexically compare the order of two character sequences being less, The left-hand side, the right-hand side or both character sequences can be represented by a string.

Lexically compare two character sequences for being less. In this version the right-hand side character sequences is by a string.

Lexically compare two character sequences for being less. In this version the left-hand side character sequences is by a string.

Lexically compare two character sequences for being less. In this version both character sequences are by a string.

internal subroutines that processes the message and filters it according to the verbosity level set by the user or the default this is a private subroutine so it is not exposed to the user

Compare two character sequences for being less. In this version the right-hand side character sequences is by a string.

Compare two character sequences for being less. In this version the left-hand side character sequences is by a string.

Compare two character sequences for being less. In this version both character sequences are by a string.

Safely return the character sequences represented by the string

Moves the allocated character scalar from ‘from’ to ‘to’

Moves the allocated character scalar from ‘from’ to ‘to’ No output

Moves the allocated character scalar from ‘from’ to ‘to’ No output

Moves the allocated character scalar from ‘from’ to ‘to’ No output

Moves the allocated character scalar from ‘from’ to ‘to’ No output

Compare two character sequences for inequality. In this version the right-hand side character sequences is by a string.

Compare two character sequences for inequality. In this version the left-hand side character sequences is by a string.

Compare two character sequences for inequality. In this version both character sequences are by a string.

Pop an NVTX range (no-op if PIC_USE_NVTX not defined)

Push an NVTX range (no-op if PIC_USE_NVTX not defined)

Operator for checking error state: if (.haserror. err) then

Concatenate two character sequences, the left-hand side, the right-hand side or both character sequences can be represented by a string.

Compare two character sequences for inequality, the left-hand side, the right-hand side or both character sequences can be represented by a string.

Compare two character sequences for being less, the left-hand side, the right-hand side or both character sequences can be represented by a string.

Compare two character sequences for being less than, the left-hand side, the right-hand side or both character sequences can be represented by a string.

Compare two character sequences for equality, the left-hand side, the right-hand side or both character sequences can be represented by a string.

Compare two character sequences for being greater, the left-hand side, the right-hand side or both character sequences can be represented by a string.

Compare two character sequences for being greater than, the left-hand side, the right-hand side or both character sequences can be represented by a string.

Handle optional character(len=*) value

Handle optional real(dp) value

Handle optional integer(int32) value

Handle optional integer(int64) value

Handle optional logical value

Handle optional real(sp) value

The generic subroutine interface implementing the ORD_SORT algorithm, a translation to Fortran 2008, of the "Rust" sort algorithm found in slice.rs https://github.com/rust-lang/rust/blob/90eb44a5897c39e3dff9c7e48e3973671dcd9496/src/liballoc/slice.rs#L2159 ORD_SORT is a hybrid stable comparison algorithm combining merge sort, and insertion sort.

function to pad a string with a certain number of characters for nice printing

adds a number X of spaces to the left of a “string” whcih is just a collection of characters. Mostly used for nice printing

Left pad the input string

Left pad the input string with ” ” (1 whitespace)

Left pad the input string with the ‘pad_with’ character

Left pad the input string with ” ” (1 whitespace)

Left pad the input string with the ‘pad_with’ character

Right pad the input string

Right pad the input string with ” ” (1 whitespace)

Right pad the input string with the ‘pad_with’ character

Right pad the input string with ” ” (1 whitespace)

Right pad the input string with the ‘pad_with’ character

Log a message that will only be printed at the performance of verbosity

copy provides a blas-less implementation of xcopy where x is (i,s,d) icopy, scopy, dcopy if you built pic with BLAS use the copy interface provided there, I will not beat BLAS copy is implemented for (int32, int64, sp, dp) for 1 and 2d arrays of the same types

fill provides a generic interface to assing a value alpha of types (int32, int64, sp, dp) as defined in pic_types.F90 The inteface supports filling 1d and 2d arrays of the specified variables

Overloaded interface for optional value retrieval, supported types are: - integer(int32), integer(int64), real(sp), real(dp), character(len=*), logical

Generic interface for printing arrays of different types

my cool banner, work in progress

pic_sum provides a threaded alternative to the sum(array) Fortran intrinsic which will be too slow for large sizes of vectors and matrices. Note that this provides the total sum. As opposed to the blas alternative XASUM which does the absolute sum

pic_transpose provides a blas-less, threaded alternative to the Fortran transpose intrinsic which will be slow for large matrix sizes. pic_transpose does not assume symmetric matrices

Print a 3D tensor of values

Print a 3D tensor of values

Print a 3D tensor of values

Print a 3D tensor of values

prints a convenient row of asterisks of length n

print a matrix of values

print a matrix of values

print a matrix of values

print a matrix of values

Print a packed lower triangular matrix of values

Print a packed lower triangular matrix of values

Print a packed lower triangular matrix of values

Print a packed lower triangular matrix of values

print a vector of values

print a vector of values

print a vector of values

print a vector of values

Disable profiling temporarily

Enable profiling (if it was disabled)

Finalize the profiler and release resources

Get accumulated time for a named region

Initialize the profiler

Print profiling report sorted by time

Reset all timing data while keeping region names

Start a named profiling region

Stop a profiling region

Buffer a debug-level message

Buffer an error-level message

Buffer an info-level message

Buffer a knowledge-level message

Buffer a performance-level message

Buffer a verbose-level message

Buffer a warning-level message

The generic subroutine interface implementing the LSD radix sort algorithm, see https://en.wikipedia.org/wiki/Radix_sort for more details. It is always O(N) in sorting random data, but need a O(N) buffer. (Specification)

Read a character sequence from a connected unformatted unit into the string.

Read a character sequence from a connected unformatted unit into the string.

Read a character sequence from a connected formatted unit into the string.

Read a character sequence from a connected unformatted unit into the string.

Remove a region index from the stack (helper for explicit stop)

Repeats the character sequence hold by the string by the number of specified copies.

Repeats the character sequence hold by the string by the number of specified copies.

Replaces all the occurrences of substring ‘pattern’ in the input ‘string’ with the replacement ‘replacement’ Version: experimental

Replaces all the occurrences of substring ‘pattern’ in the input ‘string’ with the replacement ‘replacement’ Returns a new string

Replaces all occurrences of substring ‘pattern’ in the input ‘string’ with the replacement ‘replacement’ Returns a new string

Replaces all occurrences of substring ‘pattern’ in the input ‘string’ with the replacement ‘replacement’ Returns a new string

Replaces all occurrences of substring ‘pattern’ in the input ‘string’ with the replacement ‘replacement’ Returns a new string

Replaces all occurrences of substring ‘pattern’ in the input ‘string’ with the replacement ‘replacement’ Returns a new string

Replaces all occurrences of substring ‘pattern’ in the input ‘string’ with the replacement ‘replacement’ Returns a new string

Replaces all occurrences of substring ‘pattern’ in the input ‘string’ with the replacement ‘replacement’ Returns a new string

Replaces all occurrences of substring ‘pattern’ in the input ‘string’ with the replacement ‘replacement’ Returns a new string

Resets the flop counter to 0_int64

Reverses the character sequence hold by the input string

Reverse the character order in the input character variable

Returns a new character sequence which is reverse of the input charater sequence This method is elemental and returns a character sequence

Reverse the character sequence hold by the input string

Scan a string for the presence of a set of characters. Scans a string for any of the characters in a set of characters.

Scan a character sequence for any of the characters in a set of characters. In this version the set of characters is represented by a string.

Scan a character sequence for any of the characters in a set of characters. In this version the character sequences is represented by a string.

Scan a character sequence for any of the characters in a set of characters. In this version both the character sequence and the character set are represented by a string.

should not be used, intended for testing purposes. randomizes an array of type char

should not be used, intended for testing purposes. randomizes an array of type dp

should not be used, intended for testing purposes. randomizes an array of type int32

should not be used, intended for testing purposes. randomizes an array of type int64

should not be used, intended for testing purposes. randomizes an array of type sp

Set brackets based on output format type

This routine overrides the default dp precision used for printing strings in the to_char function, the default is : integer(default_int), parameter :: default_dp_precision = 12

Set the precision for real numbers

set_threading sets the threading mode for the array routines this will set the use_threaded variable to true or false depending on the input Usage: call set_threading_mode(.true.) or call set_threading_mode(.false.)

set the threading mode for the array routines, this will set the use_threaded variable to true or false depending on the input

Implementation to transfer a set of characters to a string representing the set.

Returns the length of the character sequence represented by the string.

Extracts characters from the input string to return a new string

Extract the characters from the region between ‘first’ and ‘last’ index (both inclusive) of the input ‘string’ by taking strides of length ‘stride’ Returns a new string

Extract the characters from the region between ‘first’ and ‘last’ index (both inclusive) of the input ‘string’ by taking strides of length ‘stride’ Returns a new string

The generic subroutine interface implementing the SORT algorithm, based on the introsort of David Musser. (Specification)

The generic subroutine interface implementing the SORT_INDEX algorithm, based on the "Rust" sort algorithm found in slice.rs https://github.com/rust-lang/rust/blob/90eb44a5897c39e3dff9c7e48e3973671dcd9496/src/liballoc/slice.rs#L2159 but modified to return an array of indices that would provide a stable sort of the rank one ARRAY input.

Check whether a string starts with substring or not

Check whether a string starts with substring or not

Check whether a string starts with substring or not

Check whether a string starts with substring or not

Check whether a string starts with substring or not

Constructor for new string instances

Remove leading and trailing whitespace characters.

Remove leading and trailing whitespace characters.

Remove leading and trailing whitespace characters.

perform the total sum of all components of type dp in a 3d tensor

perform the total sum of all components of type int32 in a 3d tensor

perform the total sum of all components of type int64 in a 3d tensor

perform the total sum of all components of type sp in a 3d tensor

perform the total sum of all components of type dp in a matrix

perform the total sum of all components of type int32 in a matrix

perform the total sum of all components of type int64 in a matrix

perform the total sum of all components of type sp in a matrix

perform the total sum of all components of type dp in a vector

perform the total sum of all components of type int32 in a vector

perform the total sum of all components of type int64 in a vector

perform the total sum of all components of type sp in a vector

Returns the elapsed time as a real(dp) variable

Prints the elapsed time at the time of calling

starts the timer. If OMP is enabled, it will use omp_get_wtime() if not, it will use Fortran’s system_clock

stop the timer. If OMP is enabled, it will use omp_get_wtime() if not, it will use Fortran’s system_clock

Format or transfer other types as a string.

Convert a Fortran character string to a C character array

Convert a Fortran string type to a C character array

converts a variable of type (int32, int64, sp, dp, char, logical) to a series of chars which is just a collecting of chars.

transform a character to a string

transform a real(dp) to a string

transform an int32 to a string

transform an int64 to a string

tranform a logical to a string either true or false

transform a real(sp) to a string

Returns the lowercase version of the character sequence hold by the input string

Convert character variable to lower case

Returns a new character sequence which is the lower case version of the input character sequence This method is elemental and returns a character sequence

Convert the character sequence hold by the input string to lower case

Returns the sentencecase version of the character sequence hold by the input string

Converts character sequence to sentence case

Returns a new character sequence which is the sentence case version of the input character sequence This method is elemental and returns a character sequence

Convert the character sequence hold by the input string to sentence case

Format or transfer other types as a string.

Returns the titlecase version of the character sequence hold by the input string

Converts character sequence to title case

Returns a new character sequence which is the title case version of the input character sequence This method is elemental and returns a character sequence

Convert the character sequence hold by the input string to title case

Returns the uppercase version of the character sequence hold by the input string

Convert character variable to upper case

Returns a new character sequence which is the upper case version of the input character sequence This method is elemental and returns a character sequence

Convert the character sequence hold by the input string to upper case

transpose a matrix of datatype dp

transpose a matrix of datatype int32

transpose a matrix of datatype int64

transpose a matrix of datatype sp

Returns the character sequence hold by the string without trailing spaces.

Returns the character sequence hold by the string without trailing spaces.

Do nothing but mark an unused dummy argument as such to acknowledge compile time warning like:

Log a message that will only be printed at the verbose level of verbosity

Scan a string for the absence of a set of characters. Verifies that all the characters in string belong to the set of characters in set.

Verify a character sequence for the absence any of the characters in a set of characters. In this version the set of characters is represented by a string.

Verify a character sequence for the absence any of the characters in a set of characters. In this version the character sequences is represented by a string.

Verify a character sequence for the absence any of the characters in a set of characters. In this version both the character sequence and the character set are represented by a string.

Log a message that will only be printed at the warning level of verbosity

Write the character sequence hold by the string to a connected formatted unit.

Write the character sequence hold by the string to a connected unformatted unit.

Write the character sequence hold by the string to a connected formatted unit.

Internal subroutine that will write the message to the log no interface to the public

Write the character sequence hold by the string to a connected unformatted unit.

Left pad the input string with zeros.

Left pad the input string with zeros

Left pad the input string with zeros