sff_TrimLen()

subroutine sff_TrimLen	(	character, dimension(*)	string,
		integer	ntrim
	)

Definition at line 39 of file fapid_sff_trimlen.f.

c
c  give length of a string excluding trailing blanks
c  Input:
c        string:  String to be trimmed
c  Output:
c        ntrim:   length of string excluding trailing blanks
c
      integer ntrim
      character string*(*)
cE
      do 10 ntrim=len(string),1,-1
 10     if(string(ntrim:ntrim).ne.' ') return
      ntrim = 1 
      return