*
* $Id$
*
* $Log$
* Revision 1.2  2004/07/29 13:57:31  mclareni
* For 64-bit pointer systems put local variables referenced by LOCF
* in a dummy named common block to keep addresses in the program region.
* Changed added by cpp define CERNLIB_QMLXIA64 but it should work in all
* systems.
*
* Revision 1.1.1.1  1996/03/06 10:47:02  mclareni
* Zebra
*
*
*
* tpseudo.inc
*
#if defined(CERNLIB_QMLXIA64)
      COMMON /TEST64/ PSEU
#endif
      DIMENSION    PSEU(6200)
