ADAS Subroutine diel_310

       SUBROUTINE DIEL_310(Z,EIJ,F,T,COR,JCOR,N,AD)              
       IMPLICIT REAL*8 (A-H,O-Z)                            
C
C-----------------------------------------------------------------------
C
C  ****************** FORTRAN77 PROGRAM: DIEL_310 **************************
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 VERSION: 1.2					DATE: 04-04-2000
C MODIFIED: RICHARD MARTIN
C		  - CHANGED NAME FROM DIEL.FOR TO DIEL_310.FOR
C		    (TO AVOID NAME CONFLICT WITH ADAS801)
C
C-----------------------------------------------------------------------
C
      INTEGER             JCOR,        N
      REAL*8              AD,          COR(20),     EIJ,         F
      REAL*8              T,           Z