int2str0 Interface

public interface int2str0

Converts an integer variable into a string variable, filling with leading zeros up to the limit imposed by the user. Useful to open files named sequentially with leading zeros in the name.

Syntax

 t = int2str0(integ, total_length)

Where:

• integ: Integer number to convert. This number MUST be positive.
• format: Number of digits to use, including leading zeros. This number MUST be positive.

It returns a string containing the number.

Example

The following program a converts an integer to a number with leading zeros to create sequential filenames

 PROGRAM int2str0Example
    USE FU_Strings, ONLY: int2str0
    IMPLICIT NONE
    INTEGER :: i
    INTEGER :: total_length
    CHARACTER(LEN=:), ALLOCATABLE :: filename
    total_length = 5
    DO i = 1, 25
       filename = int2str0(i, total_length)//'.dat'
       WRITE(*,*) filename
    END DO
 END PROGRAM int2str0Example

Module Procedures