MINICERN/packlib/kernlib/kerngen/ccgencf/cfrew.c

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