lnblnk needed by MacOSX gcc 4.0

[u/mrichter/AliRoot.git] / MICROCERN / lnblnk.c

diff --git a/MICROCERN/lnblnk.c b/MICROCERN/lnblnk.c
new file mode 100644 (file)
index 0000000..7e3734f
--- /dev/null
+++ b/MICROCERN/lnblnk.c
@@ -0,0 +1,24 @@
+/*
+ * $Id$
+ *
+ */
+/*>    ROUTINE LNBLNK
+  CERN PROGLIB# M432    LNBLNK          .VERSION KERNVMI  1.06  920511
+  ORIG. 30/04/92, RDM + JZ
+
+  N = LNBLNK (CHLINE)   find last non-blank character in CHLINE
+*/
+      int lnblnk_(chline, len)
+      char  *chline;
+      int   len;
+{
+      char  *chcur;
+
+      chcur = chline + len;
+      while (chcur > chline)
+        {  if (*--chcur != ' ')      goto exit; }
+      return 0;
+
+exit: return chcur+1 - chline;
+}
+/*> END <----------------------------------------------------------*/