]>
Commit | Line | Data |
---|---|---|
da0e9ce3 | 1 | SUBROUTINE PHOTOS(ID) |
2 | C.---------------------------------------------------------------------- | |
3 | C. | |
4 | C. PHOTOS: General search routine + _GET + _SET | |
5 | C. | |
6 | C. Purpose: /HEPEVT/ is not anymore a standard at least | |
7 | C. REAL*8 REAL*4 are in use. PHOTOS_GET and PHOTOS_SET | |
8 | C. were to be introduced. | |
9 | C. | |
10 | C. | |
11 | C. Input Parameters: ID see routine PPHOTOS_MAKE | |
12 | C. | |
13 | C. Output Parameters: None | |
14 | C. | |
15 | C. Author(s): Z. Was Created at: 21/07/98 | |
16 | C. Last Update: 21/07/98 | |
17 | C. | |
18 | C.---------------------------------------------------------------------- | |
19 | CALL PHOTOS_GET | |
20 | CALL PHOTOS_MAKE(ID) | |
21 | CALL PHOTOS_SET | |
22 | END |