diff libcruft/ranlib/lennob.f @ 2329:30c606bec7a8

[project @ 1996-07-19 01:29:05 by jwe] Initial revision
author jwe
date Fri, 19 Jul 1996 01:29:55 +0000
parents
children
line wrap: on
line diff
new file mode 100644
--- /dev/null
+++ b/libcruft/ranlib/lennob.f
@@ -0,0 +1,36 @@
+      INTEGER FUNCTION lennob(string)
+      IMPLICIT INTEGER (a-p,r-z),LOGICAL (q)
+C**********************************************************************
+C
+C     INTEGER FUNCTION LENNOB( STRING )
+C                LENgth NOt counting trailing Blanks
+C
+C
+C                              Function
+C
+C
+C     Returns the length of STRING up to and including the last
+C     non-blank character.
+C
+C
+C                              Arguments
+C
+C
+C     STRING --> String whose length not counting trailing blanks
+C                is returned.
+C
+C**********************************************************************
+      CHARACTER*(*) string
+
+      end = len(string)
+      DO 20,i = end,1,-1
+          IF (.NOT. (string(i:i).NE.' ')) GO TO 10
+          lennob = i
+          RETURN
+
+   10     CONTINUE
+   20 CONTINUE
+      lennob = 0
+      RETURN
+
+      END