Geant4  9.6.p02
 All Classes Namespaces Files Functions Variables Typedefs Enumerations Enumerator Friends Macros Groups Pages
hids.f
Go to the documentation of this file.
1  SUBROUTINE hids(N)
2  IMPLICIT NONE
3 *.==========>
4 *.
5 *. Returns the number of all IDS.
6 *. Inspired from hidall.F.
7 *. G.Barrand.
8 *
9 *KEEP,HCBOOK.
10  INTEGER nwpaw,ixpawc,ihdiv,ixhigz,ixku, lmain
11  REAL fenc , hcv
12  common/pawc/nwpaw,ixpawc,ihdiv,ixhigz,ixku,fenc(5),lmain,hcv(9989)
13  INTEGER iq ,lq
14  REAL q
15  dimension iq(2),q(2),lq(8000)
16  equivalence(lq(1),lmain),(iq(1),lq(9)),(q(1),iq(1))
17  INTEGER hversn,ihwork,lhbook,lhplot,lgtit,lhwork,
18  +lcdir,lsdir,lids,ltab,lcid,lcont,lscat,lprox,lproy,lslix,
19  +lsliy,lbanx,lbany,lprx,lpry,lfix,llid,lr1,lr2,lname,lchar,lint,
20  +lreal,lblok,llblk,lbufm,lbuf,ltmpm,ltmp,ltmp1,lhplip,lhdum,
21  +lhfit,lfunc,lhfco,lhfna,lcidn
22  common/hcbook/hversn,ihwork,lhbook,lhplot,lgtit,lhwork,
23  +lcdir,lsdir,lids,ltab,lcid,lcont,lscat,lprox,lproy,lslix,
24  +lsliy,lbanx,lbany,lprx,lpry,lfix,llid,lr1,lr2,lname,lchar,lint,
25  +lreal,lblok,llblk,lbufm,lbuf,ltmpm,ltmp,ltmp1,lhplip,lhdum(9),
26  +lhfit,lfunc,lhfco,lhfna,lcidn
27 *
28  INTEGER kncx ,kxmin ,kxmax ,kmin1 ,kmax1 ,knorm , ktit1,
29  + kncy ,kymin ,kymax ,kmin2 ,kmax2 ,kscal2 , ktit2,
30  + knbit ,knoent ,kstat1 ,knsdir ,knrh ,
31  + kcon1 ,kcon2 ,kbits ,kntot
32  parameter(kncx=3,kxmin=4,kxmax=5,kmin1=7,kmax1=8,knorm=9,ktit1=10,
33  + kncy=7,kymin=8,kymax=9,kmin2=6,kmax2=10,kscal2=11,
34  + ktit2=12,knbit=1,knoent=2,kstat1=3,knsdir=5,knrh=6,
35  + kcon1=9,kcon2=3,kbits=1,kntot=2)
36 *
37 *KEND.
38 *
39  INTEGER n
40 *
41  n = iq(lcdir+knrh)
42  RETURN
43  END
44