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