ADAS Subroutine pyip

       SUBROUTINE PYIP(D,EM,ZCOL,PHI,CPY,WI,WJ,R,TE,INTD,PY)  
C
       IMPLICIT REAL*8 (A-H,O-Z)                            
C
C-----------------------------------------------------------------------
C
C  ****************** FORTRAN77 SUBROUTINE: PYIP ***********************
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             INTD
      REAL*8              CPY,         D,           EM,          PHI
      REAL*8              PY,          R,           TE,          WI
      REAL*8              WJ,          ZCOL