00001 /* 00002 * $Id: lnblnk.c,v 1.2 2009/02/16 08:04:39 schubert Exp $ 00003 * 00004 * Revision 1.1.1.1 2002/06/16 15:18:46 hristov 00005 * Separate distribution of Geant3 00006 * 00007 * Revision 1.1.1.1 1999/05/18 15:55:28 fca 00008 * AliRoot sources 00009 * 00010 * Revision 1.3 1997/10/23 16:25:15 mclareni 00011 * NT mods, mostly C Fortran interface 00012 * 00013 * Revision 1.2 1997/02/04 17:35:00 mclareni 00014 * Merge Winnt and 97a versions 00015 * 00016 * Revision 1.1.1.1.2.1 1997/01/21 11:30:06 mclareni 00017 * All mods for Winnt 96a on winnt branch 00018 * 00019 * Revision 1.1.1.1 1996/02/15 17:49:34 mclareni 00020 * Kernlib 00021 * 00022 */ 00023 /*> ROUTINE LNBLNK 00024 CERN PROGLIB# M432 LNBLNK .VERSION KERNVMI 1.06 920511 00025 ORIG. 30/04/92, RDM + JZ 00026 00027 N = LNBLNK (CHLINE) find last non-blank character in CHLINE 00028 */ 00029 #ifndef CERNLIB_MSSTDCALL 00030 int lnblnk_(chline, len) 00031 #else 00032 int __stdcall LNBLNK(chline, len) 00033 #endif 00034 char *chline; 00035 int len; 00036 { 00037 char *chcur; 00038 00039 chcur = chline + len; 00040 while (chcur > chline) 00041 { if (*--chcur != ' ') goto exit; } 00042 return 0; 00043 00044 exit: return chcur+1 - chline; 00045 } 00046 /*> END <----------------------------------------------------------*/
1.3.9.1