MINICERN/packlib/kernlib/kerngen/tcgen/cfweof.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1996/02/15 17:49:44  mclareni
   6 * Kernlib
   7 *
   8 *
   9 #include "kerngen/pilot.h"
  10       SUBROUTINE CFWEOF (LUNPTR, MEDIUM, NEOF)
  11 C CERN PROGLIB#         CFWEOF          .VERSION KERNFOR  4.26  910313
  12 C     write NEOF system file marks, dummy routine
  13 C      LUNPTR  file pointer
  14 C      MEDIUM  = 0,1,2,3 : primary disk/tape, secondary disk/tape
  15 C     *NEOF*   number of file marke to be writtin / actually written
  16
  17       NEOF = 0
  18       RETURN
  19       END