ADAS Subroutine dielcl

       SUBROUTINE DIELCL(Z,EIJ,F,T,COR,JCOR,N,DEF,AD,L,CPT)             
       IMPLICIT REAL*8 (A-H,O-Z)                                        
C-----------------------------------------------------------------------
C
C  ************** FORTRAN77 SUBROUTINE: DIELCL  ************************
C
C  VERSION:  1.0
C
C  PURPOSE:  THIS SUBROUTINE IS NOT YET PROPERLY DOCUMENTED
C
C-----------------------------------------------------------------------
C
C UNIX-IDL CONVERSION:
C
C VERSION: 1.1                          DATE: 22-08-96
C MODIFIED: WILLIAM OSBORN
C               - FIRST CONVERTED. NO CHANGES.
C
C VERSION: 1.2                          DATE: 09-09-96
C MODIFIED: WILLIAM OSBORN
C               - COMMENTED-OUT LINE 'CPT=CPTS(L+1)' WHICH WAS GIVING
C                 A COMPILER WARNING AND IS NOT YET NEEDED.
C-----------------------------------------------------------------------

      INTEGER             JCOR,        L,           N
      REAL*8              AD,          COR(20),     CPT,         DEF
      REAL*8              EIJ,         F,           T,           Z