+#-*- 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
--- /dev/null
+/*
+ * $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 <----------------------------------------------------------*/