#include "kerngen/pilot.h"#include "kerngen/cf_seek.h"#include "kerngen/cf_xaft.h"#include "kerngen/wordsizc.h"#include "kerngen/fortranc.h"#include "stdio.h"Go to the source code of this file.
Functions | |
| void type_of_call | cfseek_ (int *lundes, int *medium, int *nwrec, int *jcrec, int *stat) |
|
||||||||||||||||||||||||
|
Definition at line 42 of file cfseek.c. References type_of_call. 00051 {
00052 int fildes;
00053 int nbdo;
00054 int isw;
00055
00056 /* position the file */
00057
00058 fildes = *lundes;
00059 nbdo = *jcrec * *nwrec * NBYTPW;
00060 isw = lseek (fildes, nbdo, 0);
00061 if (isw < 0) goto trouble;
00062 *stat = 0;
00063 return;
00064
00065 trouble: *stat = -1;
00066 perror (" error in CFSEEK");
00067 return;
00068 }
|
1.3.9.1