*
* $Id$
*
* $Log$
*
*
* gpdkey.inc
*
*CMZ :  3.00/00 01/05/2001  16.02.39  by  Marialuigia Ambriola
*CMZ :  2.03/00 06/11/2000  01.54.20  by  Francesco Cafagna
*CMZ :  2.02/00 12/10/2000  16.03.56  by  Francesco Cafagna
*CMZ :  2.01/00 05/04/2000  13.46.56  by  Marialuigia Ambriola
*CMZ :  2.00/00 01/03/2000  12.57.55  by  Francesco Cafagna
*CMZ :  1.00/02 05/04/96  09.08.57  by  Francesco Cafagna
*-- Author :    Francesco Cafagna   09/02/96
C
C Data block for GPKEY common
C
      DATA NCPL/44*-1111/
      DATA NCSI/9*-1111/
      DATA NCAB/22*-1111/
      DATA NOCAPL/44*.FALSE./
      DATA NOCASI/9*.FALSE./
      DATA NOCAAB/22*.FALSE./
      DATA NDET/8*4H    /
      DATA NHPAK/4H    /
      DATA NHBFILE/21*4H    /
      DATA NGARFILE/21*4H    /
      DATA XYZGEN/5*-1111./
      DATA NDECAS/3*4H    /
      DATA NDECAT/3*4H    /
      DATA NDETOF/3*4H    /
      DATA NDETRD/3*4H    /
      DATA NDESPE/3*4H    /
      DATA NDECAL/3*4H    /
      DATA NDES4/3*4H    /
*ML:
      DATA PHGEN/0.,360./
      DATA THGEN/0.,90./
      DATA TPAL/5*-1111./
      DATA TG10/5*-1111./
      DATA TPN2/5*-1111./
      DATA TPW/5*-1111./
      DATA TPKA/5*-1111./
      DATA TPFE/5*-1111./
      DATA TRAD/5*-1111./
      DATA TPRO/5*-1111./
      DATA TPCF/5*-1111./
      DATA TPSC/5*-1111./
      DATA TSCA/5*-1111./
      DATA TSTR/5*-1111./
      DATA TPXE/5*-1111./
      DATA TPAE/5*-1111./
*EM:
      DATA TPW2/5*-1111./
      DATA TPCE/5*-1111./
      DATA T10C/5*-1111./
*END EM.
*END ML.