9bb8decbcf
Former-commit-id:133dc97f67[formerlya02aeb236c] [formerly9f19e3f712] [formerly06a8b51d6d[formerly9f19e3f712[formerly 64fa9254b946eae7e61bbc3f513b7c3696c4f54f]]] Former-commit-id:06a8b51d6dFormer-commit-id:377dcd10b9[formerly3360eb6c5f] Former-commit-id:8e80217e59
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
|