---

C Library Functions  - 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

Results:

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

AUTHOR

John S. Urban

LICENSE

Public Domain

---

Nemo Release 3.1

indent (3)

July 22, 2023

Generated by manServer 1.08 from 0aeee3b8-7067-4c93-b8e1-109339c1e872 using man macros.