5 * Revision 1.2 1997/02/04 17:35:21 mclareni
6 * Merge Winnt and 97a versions
8 * Revision 1.1.1.1.2.1 1997/01/21 11:30:20 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 CISEEK .VERSION KERNFOR 4.31 911111
21 CALL CISEEK (LUNDES, JCBYT, ISTAT)
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 ciseek_(lundes, jcbyt, stat)
32 #if defined(CERNLIB_QXNO_SC)
33 void type_of_call ciseek(lundes, jcbyt, stat)
35 #if defined(CERNLIB_QXCAPT)
36 void type_of_call CISEEK(lundes, jcbyt, stat)
38 int *lundes, *jcbyt, *stat;
44 /* position the file */
48 isw = lseek (fildes, nbdo, 0);
49 if (isw < 0) goto trouble;
54 perror (" error in CISEEK");
57 /*> END <----------------------------------------------------------*/