Manual Reference Pages - atleast (3)
NAME
atleast(3f) - [M_strings:LENGTH] return string padded to at least specified length (LICENSE:PD)
CONTENTS
Synopsis
Description
Options
Returns
Example
Author
License
SYNOPSIS
function atleast(str,length,pattern) result(strout)
character(len=*) :: str integer,intent(in) :: length character(len=max(length,len(trim(line)))) :: strout character(len=*),optional :: pattern
DESCRIPTION
atleast(3f) pads a string with spaces to at least the specified length. If the trimmed input string is longer than the requested length the trimmed string is returned.
OPTIONS
str the input string to return trimmed, but then padded to the specified length if shorter than length length The minimum string length to return pattern optional string to use as padding. Defaults to a space.
RETURNS
strout The input string padded to the requested length or the trimmed input string if the input string is longer than the requested length.
EXAMPLE
Sample Program:
program demo_atleast use M_strings, only : atleast implicit none character(len=10) :: string=’abcdefghij’ character(len=:),allocatable :: answer integer :: i answer=atleast(string,5) write(*,’("[",a,"]")’) answer answer=atleast(string,20) write(*,’("[",a,"]")’) answer i=30 write(*,*) write(*,’(1x,a,1x,i0)’) & & atleast(’CHAPTER 1 : The beginning ’,i,’.’), 1 , & & atleast(’CHAPTER 2 : The end ’,i,’.’), 1234, & & atleast(’APPENDIX ’,i,’.’), 1235 write(*,*) write(*,’(1x,a,i7)’) & & atleast(’CHAPTER 1 : The beginning ’,i,’.’), 1 , & & atleast(’CHAPTER 2 : The end ’,i,’.’), 1234, & & atleast(’APPENDIX ’,i,’.’), 1235 end program demo_atleastResults:
[abcdefghij] [abcdefghij ]CHAPTER 1 : The beginning .... 1 CHAPTER 2 : The end .......... 1234 APPENDIX ..................... 1235
CHAPTER 1 : The beginning .... 1 CHAPTER 2 : The end .......... 1234 APPENDIX ..................... 1235
AUTHOR
John S. Urban
LICENSE
Public Domain
| atleast (3) | March 11, 2021 |
