notopen(3f) - [M_io:FILENAME] generate a filename containing a number (LICENSE:PD)
Synopsis
Description
Options
Examples
Author
License
Usage
function filename_generator(head,tail,num,lenlimit) result(filename) character(len=*),intent(in) :: head character(len=*),intent(in) :: tail integer,intent(in) :: num integer,intent(in) :: lenlimit character(len=:),allocatable :: filename
Generate a filename containing a representation of the specified whole number. This is useful for generating a series of filenames differing by a number such as "file1.txt", "file2.txt", ... .
head filename prefix. tail filename suffix. num number to represent as a string between HEAD and TAIL. lenlimit number of digits up to which to zero-pad the string representing NUM.
Sample program:
program demo_filename_generator use,intrinsic::iso_fortran_env,only:int8,int16,int32,int64 use M_io, only : filename_generator implicit noneResults! no zero-fill write(*,*) filename_generator("file_",".dat",11) ! zero-fill till 3 digits write(*,*) filename_generator("file_",".dat",11,3) ! zero-fill till 9 digits write(*,*) filename_generator("file_",".dat",11,9) ! same as default (no zero-fill) write(*,*) filename_generator("file_",".dat",11,0)
end program demo_filename_generator
> file_11.dat > file_011.dat > file_000000011.dat > file_11.dat
Zh, Niu; with modifications by John S. Urban
Public Domain
Nemo Release 3.1 | filename_generator (3) | February 23, 2025 |