gpamela/gptrd/gptrad.F

*
* $Id$
*
* $Log$
*
*CMZ :  2.01/00 05/04/2000  14.35.18  by  Marialuigia Ambriola
*CMZ :  2.00/00 03/03/2000  15.39.05  by  Francesco Cafagna
*CMZ :  1.00/02 04/04/96  17.54.01  by  Francesco Cafagna
*-- Author :    Francesco Cafagna   04/04/96
      SUBROUTINE GPTRAD
************************************************************************
*                                                                      *
* To define special tracking parameters for TRD radiator               *
*                                                                      *
* Called by: GPDAT                                                     *
* Author: Francesco Cafagna, 04/04/96 17.41.17                         *
*                                                                      *
************************************************************************
      RETURN
      END
1	*
2	* $Id$
3	*
4	* $Log$
5	*
6	*CMZ : 2.01/00 05/04/2000 14.35.18 by Marialuigia Ambriola
7	*CMZ : 2.00/00 03/03/2000 15.39.05 by Francesco Cafagna
8	*CMZ : 1.00/02 04/04/96 17.54.01 by Francesco Cafagna
9	*-- Author : Francesco Cafagna 04/04/96
10	SUBROUTINE GPTRAD
11	************************************************************************
12	* *
13	* To define special tracking parameters for TRD radiator *
14	* *
15	* Called by: GPDAT *
16	* Author: Francesco Cafagna, 04/04/96 17.41.17 *
17	* *
18	************************************************************************
19	RETURN
20	END