---

Manual Reference Pages  - indent (3)

---

NAME

indent(3f) - [M_strings:WHITESPACE] count number of leading spaces in a string (LICENSE:PD)

CONTENTS

Synopsis
Description
Examples
Author
License

SYNOPSIS

function indent(line)

    integer                        :: indent
    character(len=*),intent(in)    :: line

DESCRIPTION

Count number of leading spaces in a CHARACTER variable.

EXAMPLES

Sample Program:

    program demo_indent
    !  test filter to count leading spaces in a character variable
    !  might want to call notabs(3f) to expand tab characters
    use M_strings, only : indent
    implicit none
    character(len=1024) :: in
    integer             :: ios
       READFILE: do
          read(*,’(A)’,iostat=ios)in
          if(ios /= 0) exit READFILE
          write(*,’(i3,"",a)’)indent(in),trim(in)
       enddo READFILE
    end program demo_indent

AUTHOR

John S. Urban

LICENSE

Public Domain

---

indent (3)

July 05, 2020

Generated by manServer 1.08 from f9fe918d-106e-492c-bc0e-89ed7c971e3f using man macros.