ADAS Subroutine diel
SUBROUTINE DIEL(Z,EIJ,F,T,COR,JCOR,N,AD) IMPLICIT REAL*8 (A-H,O-Z) C C----------------------------------------------------------------------- C C ****************** FORTRAN77 PROGRAM: DIEL ************************** 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 JCOR, N REAL*8 AD, COR(20), EIJ, F REAL*8 T, Z