functionadjustl_textpureprivate
pure character(len=len(text)-verify(text//'x','')+1) function adjustl_text(text) result(out)
text without leading blanks.
Arguments
| Name | Type | Intent | Attributes | Description |
|---|---|---|---|---|
| text | character(len=*) | in | the text |
Result
| Name | Type | Attributes | Description |
|---|---|---|---|
| out | character(len=len(text)-verify(text//'x','')+1) | private |
Source
Show the code
pure function adjustl_text(text) result(out)
character(len=*), intent(in) :: text !! the text
character(len=len(text) - verify(text//'x', ' ') + 1) :: out
out = text(len(text) - len(out) + 1:)
end function adjustl_text