NCEPLIBS-bufr  12.0.1
strsuc.F90
Go to the documentation of this file.
1 
5 
15 subroutine strsuc(str1,str2,lens)
16  implicit none
17 
18  character*(*), intent(in) :: str1
19  character*(*), intent(out) :: str2
20 
21  integer, intent(out) :: lens
22 
23 !-----------------------------------------------------------------------
24 !-----------------------------------------------------------------------
25 
26  str2 = adjustl(str1)
27  lens = len_trim(str2)
28 
29  return
30 end subroutine strsuc
strsuc
subroutine strsuc(str1, str2, lens)
This subroutine removes leading and trailing blanks from a character string.
Definition: strsuc.F90:16