5 * Revision 1.2 1997/02/04 17:35:22 mclareni
6 * Merge Winnt and 97a versions
8 * Revision 1.1.1.1.2.1 1997/01/21 11:30:21 mclareni
9 * All mods for Winnt 96a on winnt branch
11 * Revision 1.1.1.1 1996/02/15 17:49:39 mclareni
15 #include "kerngen/pilot.h"
16 #include "kerngen/fortranc.h"
19 CERN PROGLIB# Z311 CITELL .VERSION KERNFOR 4.31 911111
21 CALL CITELL (LUNDES, JCBYT, ISTAT)
22 get the current position of the file :
23 LUNDES file descriptor
24 *JCBYT number of bytes before current
25 *ISTAT status, =zero if success
27 #include "kerngen/cf_seek.h"
28 #include "kerngen/cf_xaft.h"
29 #if defined(CERNLIB_QX_SC)
30 void type_of_call citell_(lundes, jcbyt, stat)
32 #if defined(CERNLIB_QXNO_SC)
33 void type_of_call citell(lundes, jcbyt, stat)
35 #if defined(CERNLIB_QXCAPT)
36 void type_of_call CITELL(lundes, jcbyt, stat)
38 int *lundes, *jcbyt, *stat;
43 /* get position of the file */
46 nboff = lseek (fildes, 0, 1);
47 if (nboff < 0) goto trouble;
53 perror (" error in CITELL");
56 /*> END <----------------------------------------------------------*/