functionleading_blankspureprivate
pure integer function leading_blanks(line)
Number of blanks at the start of line.
Arguments
| Name | Type | Intent | Attributes | Description |
|---|---|---|---|---|
| line | character(len=*) | in | the line |
Result
| Name | Type | Attributes | Description |
|---|---|---|---|
| leading_blanks | integer |
Source
Show the code
pure integer function leading_blanks(line)
character(len=*), intent(in) :: line !! the line
leading_blanks = verify(line, ' ') - 1
if (leading_blanks < 0) leading_blanks = len(line)
end function leading_blanks