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

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1996/02/15 17:49:41  mclareni
   6 * Kernlib
   7 *
   8 *
   9 #include "kerngen/pilot.h"
  10       SUBROUTINE GSHOWF (LUNP)
  11 C
  12 C CERN PROGLIB# Z001    GSHOWF          .VERSION KERNFOR  4.39  940228
  13 C ORIG. 18/12/78
  14 C
  15       COMMON /SLATE/ ICH(32),DUM(8)
  16       CHARACTER    VIDQQ*(*)
  17       PARAMETER   (VIDQQ = '@(#)' //
  18      + ' KERNFOR  4.42  1995/10/11 17.43        >')
  19       PARAMETER    (LUNSTP=6)
  20
  21       LUN = LUNP
  22       IF (LUN.EQ.0)  LUN = LUNSTP
  23
  24       WRITE (LUN,9002) ICH
  25       CALL CLEFT (VIDQQ,1,0)
  26       RETURN
  27
  28  9002 FORMAT (1X/25H KERNGT.  KERNLIB from:  , 32A1/25X,
  29      + ' KERNFOR  4.42  1995/10/11 17.43        ')
  30       END