[u/mrichter/AliRoot.git] / TEvtGen / PHOTOS / photos.F

      SUBROUTINE PHOTOS(ID)
C.----------------------------------------------------------------------
C.
C.    PHOTOS:  General search routine + _GET + _SET
C.
C.    Purpose:  /HEPEVT/ is not anymore a standard at least 
C.              REAL*8 REAL*4 are in use. PHOTOS_GET and PHOTOS_SET
C.              were to be introduced.
C.              
C.
C.    Input Parameters:   ID see routine PPHOTOS_MAKE
C.
C.    Output Parameters:  None
C.
C.    Author(s):  Z. Was                          Created at:  21/07/98
C.                                                Last Update: 21/07/98
C.
C.----------------------------------------------------------------------
      CALL PHOTOS_GET
      CALL PHOTOS_MAKE(ID)
      CALL PHOTOS_SET
      END
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. REAL8 REAL4 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