************************************************************************ ************************************************************************ SUBROUTINE TRIMLEN (STR, STRLEN, RET, *) ************************************************************************ * * * STRINGVERARBEITUNG : LÄNGE EINES STRINGS BESTIMMEN * * * * LIEFERT DIE POSITION DES LETZTEN SIGNIFIKANTEN ZEICHENS (UNGLEICH * * BLANK) INNERHALB DES STRINGS STR. ENTHÄLT STR KEINE SIGNIFIKANTEN * * ZEICHEN, SO WIRD STRLEN = 0 ZURÜCKGEGEBEN. * * * ************************************************************************ * * * KEINE CATGEO-UMGEBUNG ERFORDERLICH (GGF. DUMMYS LINKEN) * * * ************************************************************************ * * * INPUT-PARAMETER : * * ----------------- * * STR C** VORGEGEBENER STRING * * * * OUTPUT-PARAMETER : * * ----------------- * * STRLEN I*4 LÄNGE DES STRINGS * * * ************************************************************************ * * * * . AUTOR : DBB * * * FIRMA : MRO * * * TEL. : 069/8305-2876 * 17.07.91 * * * * * . PROGRAMMIERSPRACHE : VS-FORTRAN V2R4M0 * * * * * * . FEHLERBEHANDLUNGSROUTINEN * 02.04.92 * * * * ************************************************** 21.02.97 ** DBB ***** IMPLICIT NONE *----------------------------------------------------------------------- * PARAMETER-DEKLARATIONEN *----------------------------------------------------------------------- CHARACTER*(*) STR INTEGER*4 STRLEN INTEGER RET *----------------------------------------------------------------------- * VARIABLEN-DEKLARATIONEN *----------------------------------------------------------------------- INTEGER I *----------------------------------------------------------------------- * PROGRAMM-RUMPF *----------------------------------------------------------------------- RET = 0 I = LEN (STR) DO WHILE ((I .GT. 0) .AND. - (STR(I:I) .EQ. ' ') ) I = I-1 ENDDO STRLEN = I ************************************************************************ RETURN * FEHLERBEHANDLUNG * 998 CALL RETPUSH ('TRIMLEN ') * 999 RETURN 1 END