dilate(3f) - [M_strings:NONALPHA] function to expand tab characters (LICENSE:PD)
Synopsis
Description
Options
Returns
Examples
Author
License
function dilate(INSTR) result(OUTSTR)
character(len=*),intent=(in) :: INSTR character(len=:),allocatable :: OUTSTR
In addition, trailing carriage returns and line feeds are removed (they are usually a problem created by going to and from MSWindows).
dilate(3) converts tabs in INSTR to spaces in OUTSTR. It assumes a tab is set every 8 characters. Trailing spaces are removed.
instr Input line to remove tabs from
outstr Output string with tabs expanded.
Sample program:
program demo_dilateResults:use M_strings, only : dilate, visible implicit none character(len=:),allocatable :: in integer :: i in= this is my string ! change spaces to tabs to make a sample input do i=1,len(in) if(in(i:i) == )in(i:i)=char(9) enddo write(*,("[",a,"]"))visible(in) write(*,("[",a,"]"))visible(dilate(in)) end program demo_dilate
> [^I^Ithis^Iis^Imy^Istring^I^I] > [ this is my string]
John S. Urban
Public Domain
Nemo Release 3.1 | dilate (3m_strings) | January 10, 2025 |