git://git.uio.no / u / mrichter / AliRoot.git / blame
| Commit | Line | Data |
|---|---|---|
| fe4da5cc | 1 | |
| 2 | *================================================================== | |
| 3 | ||
| 4 | SUBROUTINE RKHLPK(NUM,LGL1,LGL2,LLV,LL1,LL2) | |
| 5 | IMPLICIT INTEGER(A-Z) | |
| 6 | SAVE | |
| 7 | DIMENSION CONFIG(32,6) | |
| 8 | DATA INIT/0/ | |
| 9 | IF(INIT.EQ.0) THEN | |
| 10 | INIT=1 | |
| 11 | MUM=0 | |
| 12 | DO 140 GL1=1,-1,-2 | |
| 13 | DO 130 GL2=1,-1,-2 | |
| 14 | DO 120 LV=1,-1,-2 | |
| 15 | DO 110 L1=1,-1,-2 | |
| 16 | DO 100 L2=1,-1,-2 | |
| 17 | MUM=MUM+1 | |
| 18 | CONFIG(MUM,1)=GL1 | |
| 19 | CONFIG(MUM,2)=GL2 | |
| 20 | CONFIG(MUM,3)=LV | |
| 21 | CONFIG(MUM,4)=L1 | |
| 22 | CONFIG(MUM,5)=L2 | |
| 23 | 100 CONTINUE | |
| 24 | 110 CONTINUE | |
| 25 | 120 CONTINUE | |
| 26 | 130 CONTINUE | |
| 27 | 140 CONTINUE | |
| 28 | ENDIF | |
| 29 | LGL1=CONFIG(NUM,1) | |
| 30 | LGL2=CONFIG(NUM,2) | |
| 31 | LLV =CONFIG(NUM,3) | |
| 32 | LL1 =CONFIG(NUM,4) | |
| 33 | LL2 =CONFIG(NUM,5) | |
| 34 | END |