*
* $Id: palogo.F,v 1.63 1999/11/23 17:33:18 couet Exp $
*
* $Log: palogo.F,v $
* Revision 1.63  1999/11/23 17:33:18  couet
* - 2.11/12
*
* Revision 1.62  1999/11/09 10:14:51  couet
* - 2.11/11
*
* Revision 1.61  1999/11/03 10:13:13  couet
* - 2.11/09
*
* Revision 1.60  1999/10/29 15:22:12  couet
* - 2.11/09
*
* Revision 1.59  1999/10/06 14:45:43  couet
* - 2.11/08
*
* Revision 1.58  1999/10/05 07:06:24  couet
* - 2.11/07
*
* Revision 1.57  1999/09/29 08:23:04  couet
* - 2.11/06
*
* Revision 1.56  1999/09/17 07:35:05  couet
* - 2.11/05
*
* Revision 1.55  1999/08/31 09:18:50  couet
* - Mistake in the date
*
* Revision 1.54  1999/08/31 08:51:25  couet
* - 2.11/04
*
* Revision 1.53  1999/08/31 08:47:16  couet
* - A new set of PAW commands using Neural Networks.
*   These new commands are using the MLPfit package.
*
* Revision 1.52  1999/05/20 07:43:40  couet
* - 2.11/03
*
* Revision 1.51  1999/04/16 14:26:00  couet
* - 2.11/02
*
* Revision 1.50  1999/04/08 15:15:07  couet
* - 2.11/01
*
* Revision 1.49  1999/03/25 14:24:01  couet
* - 2.11/00
*
* Revision 1.48  1999/03/01 09:15:55  couet
* - 2.10/09
*
* Revision 1.47  1999/01/27 13:49:54  couet
* - version++
*
* Revision 1.46  1999/01/07 13:06:55  couet
* - 2.10/07
*
* Revision 1.45  1998/12/10 10:55:50  couet
* - 2.10/06
*
* Revision 1.44  1998/12/08 09:14:27  couet
* - 2.10/05
*
* Revision 1.43  1998/11/30 09:36:39  couet
* - 2.10/04
*
* Revision 1.42  1998/11/16 13:52:52  couet
* - 2.10/03
*
* Revision 1.41  1998/09/17 10:15:37  couet
* - 2.10/02
*
* Revision 1.40  1998/09/02 10:11:41  couet
* - 2.10/01
*
* Revision 1.39  1998/04/09 12:53:46  couet
* - 2.10/00
*
* Revision 1.38  1998/03/19 15:30:27  couet
* - 2.09/18
*
* Revision 1.37  1998/02/12 08:31:47  couet
* - 2.09/17
*
* Revision 1.36  1997/11/24 10:50:47  couet
* - 2.09/16
*
* Revision 1.35  1997/11/18 13:51:50  couet
* - 2.09/15
*
* Revision 1.34  1997/07/18 09:38:15  couet
* - 2.09/14
*
* Revision 1.33  1997/07/10 13:29:46  couet
* - 2.09/13
*
* Revision 1.32  1997/06/20 14:48:31  couet
* - 2.09/12
*
* Revision 1.31  1997/06/13 14:06:07  couet
* - 2.09/11
*
* Revision 1.30  1997/05/20 09:44:08  couet
* - 2.09/10
*
* Revision 1.29  1997/05/13 12:00:45  couet
* - 2.09/09
*
* Revision 1.28  1997/04/25 12:09:12  couet
* - 2.09/08
*
* Revision 1.27  1997/04/23 15:03:00  couet
* - 2.09/07
*
* Revision 1.26  1997/04/08 12:34:05  couet
* - 2.09/06
*
* Revision 1.25  1997/04/03 12:47:35  couet
* - 2.09/05
*
* Revision 1.24  1997/03/17 10:02:50  couet
* - 2.09/04
*
* Revision 1.23  1997/03/14 11:16:45  couet
* - 2.09/03
*
* Revision 1.22  1997/03/11 16:17:43  couet
* - Version 2.09/02, CLTOU was missing in FUN/DRAW
*
* Revision 1.21  1997/03/10 17:02:19  couet
* - vers ++
*
* Revision 1.20  1997/02/12 14:22:16  couet
* Version 2.08/15      12 February 1997
*
* Revision 1.19  1997/01/21 16:49:42  couet
* - version ++
*
* Revision 1.18  1997/01/09 12:47:18  couet
* - version 2.08/13
*
* Revision 1.17  1996/12/05 10:09:55  lecointe
* change version to 2.08/12
*
* Revision 1.16  1996/10/21 16:40:14  couet
* - 2.08/11
*
* Revision 1.15  1996/10/15 16:10:03  couet
* - Version 2.08/10
*
* Revision 1.14  1996/10/03 11:40:43  couet
* - version++
*
* Revision 1.13  1996/09/19 09:26:39  couet
* - version++
*
* Revision 1.12  1996/09/12 09:43:28  couet
* - V 2.08/07
*
* Revision 1.11  1996/08/27 11:44:58  couet
* - version 2.08/06
*
* Revision 1.10  1996/07/11 09:08:00  couet
* - new version
*
* Revision 1.9  1996/07/04 13:39:44  couet
* - version 2.08/04
*
* Revision 1.8  1996/06/24 08:47:58  couet
* - New version
*
* Revision 1.7  1996/06/17 09:16:08  couet
* - Version number incremented
*
* Revision 1.6  1996/06/13 15:10:22  couet
* - Version number incremented
*
* Revision 1.5  1996/06/03 14:03:22  couet
* - paw version is now 2.08/00
*
* Revision 1.4  1996/05/13 16:43:12  couet
* - Version number incremented
*
* Revision 1.3  1996/04/18 16:03:22  maartenb
* - Initialize character variable (which is partially filled by UHTOC).
*
* Revision 1.2  1996/03/14 17:37:40  couet
* Change the version number
*
* Revision 1.1.1.1  1996/03/01 11:38:41  mclareni
* Paw
*
*
#include "paw/pilot.h"
*
      SUBROUTINE PALOGO
*
*           Print PAW version identification
*
#include "paw/pcmode.inc"
*
      CHARACTER*8  CHPAW
      CHARACTER*80 TCARD
      CHARACTER*12 MONTH(12)
*
      DATA MONTH/'January','February','March','April','May','June',
     + 'July','August','September','October','November','December'/
*
      TCARD=' '
      CALL UHTOC(
     + 40HPAW      2.11/12  23/11/99  18.15.00     
#if !defined(CERNLIB_CRAY)
     +,4,TCARD,26)
#endif
#if defined(CERNLIB_CRAY)
     +,8,TCARD,26)
#endif
      READ(TCARD,'(18X,I2,1X,I2,1X,I2)')IDAY,IMONTH,IYEAR
      IF(IYEAR.LT.90)MILLE=2000+IYEAR
      IF(IYEAR.GE.90)MILLE=1900+IYEAR
      IF (IPAWPP.EQ.0) CHPAW = 'P A W'
      IF (IPAWPP.NE.0) CHPAW = 'P A W++'
      NCM=LENOCC(MONTH(IMONTH))
      PRINT 3000,CHPAW,TCARD(9:18),IDAY,MONTH(IMONTH)(1:NCM),
     +   MILLE,MONTH(IMONTH)(NCM+1:)
      IDATQQ=IDAY+100*IMONTH+10000*IYEAR
      ITIME2=IDATQQ+10000
      IF(IMONTH+9.LT.12)THEN
         ITIME1=IDATQQ+900
      ELSE
         ITIME1=ITIME2-300
      ENDIF
*
 3000 FORMAT(' ******************************************************'/
     +      ,' *                                                    *'/
     +      ,' *            W E L C O M E    to   ', A7,'           *'/
     +      ,' *                                                    *'/
     +      ,' *       Version',A,4X,I2,1X,A,1x,I4,A,4X,           '*'/
     +      ,' *                                                    *'/
     +      ,' ******************************************************')
*
      END