---

Manual Reference Pages  - indent (3m_strings)

---

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             :: iostat
      READFILE: do
         read(*,’(A)’,iostat=iostat)in
         if(iostat /= 0) exit READFILE
         write(*,’(i3,"",a)’)indent(in),trim(in)
      enddo READFILE
   end program demo_indent

Results:

     > 3   a b c
     > 0a b c
     > 6      a b c

AUTHOR

John S. Urban

LICENSE

Public Domain

---

Nemo Release 3.1

indent (3m_strings)

January 10, 2025

Generated by manServer 1.08 from 1e14b398-d4b6-4bd9-bcf9-7dbd405cf203 using man macros.