/[PAMELA software]/gpamela/gptrd/gpdtrd.F
ViewVC logotype

Diff of /gpamela/gptrd/gpdtrd.F

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 3.1.1.1 by cafagna, Thu Jul 11 16:02:01 2002 UTC revision 3.2 by cafagna, Tue Jun 21 02:42:33 2005 UTC
# Line 1  Line 1 
1  *  *
2  * $Id$  * $Id: gpdtrd.F,v 3.1.1.1 2002/07/11 16:02:01 cafagna Exp $
3    *
4    * $Log: gpdtrd.F,v $
5    * Revision 3.1.1.1  2002/07/11 16:02:01  cafagna
6    * First GPAMELA release on CVS
7  *  *
 * $Log$  
8  *  *
9  *CMZ :  3.00/00 08/02/2002  17.36.53  by  Unknown  *CMZ :  3.00/00 08/02/2002  17.36.53  by  Unknown
10  *CMZ :  2.01/00 08/03/2000  18.34.57  by  Unknown  *CMZ :  2.01/00 08/03/2000  18.34.57  by  Unknown
# Line 34  Line 37 
37  *  *
38        CALL VZERO(ITRBS,NHMTRD)        CALL VZERO(ITRBS,NHMTRD)
39  *ML:  *ML:
40  *      CALL VZERO(ITRSO,NHMTRD)        CALL VZERO(ITRSO,NHMTRD)
41        CALL VZERO(ITRSI,NHMTRD)  *      CALL VZERO(ITRSI,NHMTRD)
42  *END ML.  *END ML.
43  #if defined(GPAMELA_INTER)  #if defined(GPAMELA_INTER)
44        CALL VZERO(XAVTRD,NHMTRD)        CALL VZERO(XAVTRD,NHMTRD)
# Line 70  C END ML. Line 73  C END ML.
73        NV = NVOL        NV = NVOL
74        NVM= NVMAX        NVM= NVMAX
75        IS   = ISTRD        IS   = ISTRD
76        ID   = IDTRSI        ID   = IDTRSO
77        CSET = 'TRD '        CSET = 'TRD '
78        IT = -1        IT = -1
79  *  *
# Line 106  C END ML. Line 109  C END ML.
109  *  *
110        NTHTRD = NHITS        NTHTRD = NHITS
111        DO I=1,NHITS        DO I=1,NHITS
112           ITRBS(I) = NUMBV((NVTRD-1),I)           ITRBS(I) = NUMBV((NVTRD-2),I)
113  *ML:  *ML:
114  *         ITRBS(I) = NUMBV((NVTRD-2),I)  *         ITRBS(I) = NUMBV((NVTRD-2),I)
115  *         ITRSO(I) = NUMBV((NVTRD-1),I)  *         ITRSO(I) = NUMBV((NVTRD-1),I)
116           ITRSI(I) = NUMBV(NVTRD,I)           ITRSI(I) = NUMBV((NVTRD-1),I)
117  *END ML.  *END ML.
118  #if defined(GPAMELA_INTER)  #if defined(GPAMELA_INTER)
119           XAVTRD(I) = VHITS(1,I)           XAVTRD(I) = VHITS(1,I)
Legend:
Removed from v.3.1.1.1  
changed lines
  Added in v.3.2
  ViewVC Help
Powered by ViewVC 1.1.23