ADAS Subroutine colint

       SUBROUTINE COLINT(Y,Z,EN,AI)          
C
       IMPLICIT REAL*8 (A-H,O-Z)     
C
C-----------------------------------------------------------------------
C
C  ****************** FORTRAN77 SUBROUTINE: COLINT *********************
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: 08-02-96
C MODIFIED: TIM HAMMOND (TESSELLA SUPPORT SERVICES PLC)
C               - REPLACED 0.0 ARGUMENT IN CALL TO YIP
C                 WITH A DUMMY VARIABLE INSTEAD.
C
C-----------------------------------------------------------------------
C
      REAL*8              AI,          EN,          Y,           Z