33 lines
943 B
Fortran
33 lines
943 B
Fortran
C MODULE LENSTR
|
|
C-----------------------------------------------------------------------
|
|
C
|
|
INTEGER FUNCTION LENSTR (STRNG)
|
|
C
|
|
C ROUTINE TO GET NUMBER OF CHARACTERS IN STRING
|
|
C
|
|
CHARACTER*(*) STRNG
|
|
C
|
|
C ================================= RCS keyword statements ==========
|
|
CHARACTER*68 RCSKW1,RCSKW2
|
|
DATA RCSKW1,RCSKW2 / '
|
|
.$Source: /fs/hseb/ob72/wfo_rfc/precip_proc/source/gribit/src/RCS/lenstr.f,v $
|
|
. $', '
|
|
.$Id: lenstr.f,v 1.1 2006/05/03 13:43:59 gsood Exp $
|
|
. $' /
|
|
C ===================================================================
|
|
C
|
|
C
|
|
LENSTR=0
|
|
C
|
|
DO 10 IPOS=LEN(STRNG),1,-1
|
|
IF (STRNG(IPOS:IPOS).EQ.' ') GO TO 10
|
|
IF (STRNG(IPOS:IPOS).EQ.CHAR(0)) GO TO 10
|
|
GO TO 20
|
|
10 CONTINUE
|
|
GO TO 30
|
|
C
|
|
20 LENSTR=IPOS
|
|
C
|
|
30 RETURN
|
|
C
|
|
END
|