MINICERN/mathlib/gen/s/gent.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.2  1996/04/15 10:02:56  mclareni
   6 * Change format statement to compile also on OSF, and add a date
   7 *
   8 * Revision 1.1.1.1  1996/04/01 15:02:53  mclareni
   9 * Mathlib gen
  10 *
  11 *
  12       SUBROUTINE GENT ( LUN)
  13 C.
  14 C.
  15 C.    ******************************************************************
  16 C.    *                                                                *
  17 C.    *                                                                *
  18 C.    *       PRINT PAM TITLE ON LUN                                   *
  19 C.    *                                                                *
  20 C.    *                                                                *
  21 C.    ******************************************************************
  22 C.
  23       WRITE (LUN,1000)
  24       RETURN
  25  1000 FORMAT('  GENT  COMPILED FROM PAM FILE= ',
  26      + ' GEN      1.48/00  150496' ,
  27      +/)
  28       END