---

C Library Functions  - crop (3)

---

NAME

crop(3f) - [M_strings:WHITESPACE] trim leading and trailing blanks and control characters from a string (LICENSE:PD)

CONTENTS

Synopsis
Description
Options
Returns
Example
Author
License

SYNOPSIS

function crop(strin) result (strout)

    character(len=*),intent(in)  :: strin
    character(len=:),allocatable :: strout

DESCRIPTION

All control characters throughout the string are replaced with spaces and leading and trailing spaces are trimmed from the resulting string. Tabs are expanded assuming a stop every eight characters.

OPTIONS

strin	input string to trim leading and trailing space and control characters from

RETURNS

strout	cropped version of input string

EXAMPLE

Sample program:

   program demo_crop
   use M_strings, only: crop
   implicit none
   character(len=20) ::  untrimmed = ’   ABCDEFG abcdefg  ’
      write(*,*) ’untrimmed string=[’,untrimmed,’]’
      write(*,*) ’cropped string=[’,crop(untrimmed),’]’
   end program demo_crop

Expected output

     untrimmed string=[   ABCDEFG abcdefg                      ]
     cropped string=[ABCDEFG abcdefg]

AUTHOR

John S. Urban

LICENSE

Public Domain

---

Nemo Release 3.1

crop (3)

July 22, 2023

Generated by manServer 1.08 from 4ad8c23f-1e78-41fc-95a7-2dcf786290af using man macros.