[u/mrichter/AliRoot.git] / MINICERN / packlib / kernlib / kerngen / tcgen / cfweof.F

*
* $Id$
*
* $Log$
* Revision 1.1.1.1  1996/02/15 17:49:44  mclareni
* Kernlib
*
*
#include "kerngen/pilot.h"
      SUBROUTINE CFWEOF (LUNPTR, MEDIUM, NEOF)
C CERN PROGLIB#         CFWEOF          .VERSION KERNFOR  4.26  910313
C     write NEOF system file marks, dummy routine
C      LUNPTR  file pointer
C      MEDIUM  = 0,1,2,3 : primary disk/tape, secondary disk/tape
C     *NEOF*   number of file marke to be writtin / actually written

      NEOF = 0
      RETURN
      END
Commit	Line	Data
fe4da5cc	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