/[PAMELA software]/gpamela/gpcalordes/mmicap.inc
ViewVC logotype

Annotation of /gpamela/gpcalordes/mmicap.inc

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (hide annotations) (download)
Wed Dec 14 03:15:45 2005 UTC (18 years, 11 months ago) by cafagna
Branch: MAIN
CVS Tags: v4r4, v4r5, v4r6, v4r7, v4r8, v4r9, v4r14, v4r12, v4r13, v4r10, v4r11, HEAD
Neutron detector added. Geometry and GPCALOR package

1 cafagna 1.1 *KEEP,MMICAP.
2     C
3     C
4     COMMON/ MMICAP / LMAG2,LCISO,LGE2MO,LMOMA,LMOX1,LMOX2,
5     + LMOX3,LMOX4
6     COMMON/ MICPAR / LMIST
7     COMMON/ MIFILE / LMIFIL
8     COMMON/ MICTMP / LTEMP,NTUNIT,NTNAME,NTMPNI,NTCOMM,NTDATS,NTLIST
9     PARAMETER (KWBANK=69000,KWWORK=5200)
10     COMMON/GCBANK/NZEBRA,GVERSN,ZVERSN,IXSTOR,IXDIV,IXCONS,FENDQ(16)
11     + ,LMAIN,LR1,WS(KWBANK)
12     DIMENSION IQ(2),Q(2),LQ(8000),IWS(2)
13     EQUIVALENCE (Q(1),IQ(1),LQ(9)),(LQ(1),LMAIN),(IWS(1),WS(1))
14     EQUIVALENCE (JCG,JGSTAT)
15     COMMON/GCLINK/JDIGI ,JDRAW ,JHEAD ,JHITS ,JKINE ,JMATE ,JPART
16     + ,JROTM ,JRUNG ,JSET ,JSTAK ,JGSTAT,JTMED ,JTRACK,JVERTX
17     + ,JVOLUM,JXYZ ,JGPAR ,JGPAR2,JSKLT
18     C
19     DIMENSION LD(1),D(1)
20     EQUIVALENCE (D(1),Q(1)),(LD(1),IQ(1))
21     CHARACTER*24 DATSTR
22     CHARACTER*80 COMMEN
23     COMMON/ MICMAT / DATSTR,COMMEN,MATIDS(100,20,2)
24     C

  ViewVC Help
Powered by ViewVC 1.1.23