MINICERN/packlib/kernlib/kerngen/ccgenci/cirew.c

   1 /*
   2  * $Id$
   3  *
   4  * $Log$
   5  * Revision 1.3  1997/09/16 09:45:00  mclareni
   6  * Typing error affecting VMS
   7  *
   8  * Revision 1.2  1997/02/04 17:35:20  mclareni
   9  * Merge Winnt and 97a versions
  10  *
  11  * Revision 1.1.1.1.2.1  1997/01/21 11:30:19  mclareni
  12  * All mods for Winnt 96a on winnt branch
  13  *
  14  * Revision 1.1.1.1  1996/02/15 17:49:39  mclareni
  15  * Kernlib
  16  *
  17  */
  18 #include "kerngen/pilot.h"
  19 #include "kerngen/fortranc.h"
  20
  21 /*>    ROUTINE CIREW
  22   CERN PROGLIB# Z311    CIREW           .VERSION KERNFOR  4.31  911111
  23   ORIG. 12/10/91, JZ
  24       CALL CIREW (LUNDES)
  25       rewind the file :
  26        LUNDES  file descriptor
  27 */
  28 #include "kerngen/cf_seek.h"
  29 #include "kerngen/cf_xaft.h"
  30
  31 #if defined(CERNLIB_QX_SC)
  32 void type_of_call cirew_(lundes)
  33 #endif
  34 #if defined(CERNLIB_QXNO_SC)
  35 void type_of_call  cirew(lundes)
  36 #endif
  37 #if defined(CERNLIB_QXCAPT)
  38 void type_of_call CIREW(lundes)
  39 #endif
  40       int  *lundes;
  41 {
  42       int  fildes;
  43       int  newpos;
  44
  45       fildes = *lundes;
  46       newpos = lseek (fildes, 0, 0);
  47       if (newpos < 0)              goto trouble;
  48       return;
  49
  50 trouble:  perror (" error in CIREW");
  51           return;
  52 }
  53 /*> END <----------------------------------------------------------*/