1 | !The Polymorphic Tracking Code |
---|
2 | !Copyright (C) Etienne Forest and CERN |
---|
3 | |
---|
4 | TYPE INNER_FRAME |
---|
5 | INTEGER, POINTER :: NST |
---|
6 | REAL(DP), POINTER :: ORIGIN(:,:) |
---|
7 | REAL(DP), POINTER :: FRAME(:,:,:) |
---|
8 | type(fibre), POINTER :: F |
---|
9 | REAL(DP),POINTER :: L(:) |
---|
10 | logical(LP),POINTER :: DO_SURVEY |
---|
11 | END TYPE INNER_FRAME |
---|
12 | |
---|
13 | |
---|
14 | TYPE worm |
---|
15 | INTEGER, POINTER :: NST |
---|
16 | INTEGER, POINTER :: POS(:) |
---|
17 | REAL(DP), POINTER :: RAY(:,:) |
---|
18 | TYPE(INNER_FRAME), POINTER :: E |
---|
19 | type(fibre), POINTER :: F |
---|
20 | END TYPE worm |
---|
21 | |
---|
22 | !TYPE WORM_8 |
---|
23 | ! INTEGER, POINTER :: NST |
---|
24 | ! INTEGER, POINTER :: POS(:) |
---|
25 | ! TYPE(REAL_8), POINTER :: RAY(:,:) |
---|
26 | ! TYPE(INNER_FRAME), POINTER :: E |
---|
27 | ! type(fibre), POINTER :: F |
---|
28 | !END TYPE WORM_8 |
---|
29 | |
---|
30 | !TYPE INNER_ENV_8_DATA |
---|
31 | ! INTEGER, POINTER :: NST |
---|
32 | ! INTEGER, POINTER :: POS(:) |
---|
33 | ! TYPE(ENV_8), POINTER :: RAY(:,:) |
---|
34 | ! TYPE(INNER_FRAME), POINTER :: E |
---|
35 | ! type(fibre), POINTER :: F |
---|
36 | !END TYPE INNER_ENV_8_DATA |
---|