ADAS Subroutine photo

      SUBROUTINE PHOTO(PION,PREC,PSTIM,Z,TE,TP,EN,KPION,KPREC,KPSTIM)   
C
      IMPLICIT REAL*8 (A-H,O-Z)                                        
C
C-----------------------------------------------------------------------
C
C  ****************** FORTRAN77 SUBROUTINE: PHOTO **********************
C
C PURPOSE UNKNOWN
C
C NOTES: THIS ROUTINE IS NOT YET PROPERLY ANNOTATED
C
C UNIX-IDL PORT:
C
C VERSION: 1.1                          DATE: 16-1-96
C MODIFIED: TIM HAMMOND (TESSELLA SUPPORT SERVICES PLC)
C               - FIRST VERSION
C
C-----------------------------------------------------------------------
C
      INTEGER             KPION,       KPREC,       KPSTIM
      REAL*8              EN,          PION,        PREC,        PSTIM
      REAL*8              TE,          TP,          Z