[UP]

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) March 11, 2021
Generated by manServer 1.08 from ec0e7d8d-2c00-47e2-9b8a-297e686046ea using man macros.