]> git.uio.no Git - u/mrichter/AliRoot.git/blobdiff - MINICERN/packlib/kernlib/kerngen/ccgen/hpxgs/lnblnk.c
Merging the VirtualMC branch to the main development branch (HEAD)
[u/mrichter/AliRoot.git] / MINICERN / packlib / kernlib / kerngen / ccgen / hpxgs / lnblnk.c
diff --git a/MINICERN/packlib/kernlib/kerngen/ccgen/hpxgs/lnblnk.c b/MINICERN/packlib/kernlib/kerngen/ccgen/hpxgs/lnblnk.c
deleted file mode 100644 (file)
index d56f277..0000000
+++ /dev/null
@@ -1,33 +0,0 @@
-/*
- * $Id$
- *
- * $Log$
- * Revision 1.1.1.1  1996/02/15 17:49:32  mclareni
- * Kernlib
- *
- */
-/*>    ROUTINE LNBLNK
-  CERN PROGLIB# M507    LNBLNK          .VERSION KERNHPX  1.02  920511
-  ORIG. 30/04/92, RDM + JZ
-
-  N = LNBLNK (CHLINE)   find last non-blank character in CHLINE
-*/
-#if defined(CERNLIB_QX_SC)
-      int lnblnk_(chline, len)
-#endif
-#if defined(CERNLIB_QXNO_SC)
-      int lnblnk(chline, len)
-#endif
-      char  *chline;
-      int   len;
-{
-      char  *chcur;
-
-      chcur = chline + len;
-      while (chcur > chline)
-        {  if (*--chcur != ' ')      goto exit; }
-      return 0;
-
-exit: return chcur+1 - chline;
-}
-/*> END <----------------------------------------------------------*/