lnblnk needed by MacOSX gcc 4.0
authoralibrary <alibrary@f7af4fe6-9843-0410-8265-dc069ae4e863>
Tue, 14 Jun 2005 09:59:22 +0000 (09:59 +0000)
committeralibrary <alibrary@f7af4fe6-9843-0410-8265-dc069ae4e863>
Tue, 14 Jun 2005 09:59:22 +0000 (09:59 +0000)
MICROCERN/libmicrocern.pkg
MICROCERN/lnblnk.c [new file with mode: 0644]

index 62f272e..6356efc 100644 (file)
@@ -1,8 +1,15 @@
+#-*- Mode: Makefile -*-
+# $Id$
+
 FSRCS= cltou.F gamma.F gamma64.F sortzv.F ufill.F fint.F abend.F \
 cfill.F mtlprt.F mtlset.F kerset.F gauss.F getenvf.F gauss64.F
 
 CSRCS= geteni.c fchput.c fchtak.c dummies.c
 
+ifneq (,$(findstring macosx,$(ALICE_TARGET)))
+CSRCS+=lnblnk.c
+endif 
+
 EINCLUDE:= 
 
 PACKFFLAGS := $(FFLAGS) -IMICROCERN/kerngen
diff --git a/MICROCERN/lnblnk.c b/MICROCERN/lnblnk.c
new file mode 100644 (file)
index 0000000..7e3734f
--- /dev/null
@@ -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 <----------------------------------------------------------*/