TEvtGen/PHOTOS/photos.F

   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