
      SUBROUTINE casco_info(lun) 

	 integer lun 
C
      WRITE(lun,601)
      WRITE(lun,601)
      WRITE(lun,605)'**', '             CASCO               ', '**'
      WRITE(lun,602)'**', '**'
      WRITE(lun,605)'**', '3-D Linear Adjoint for Estimating', '**'
      WRITE(lun,605)'**', '  Elevation Boundary Conditions  ' , '**'
      WRITE(lun,602)'**', '**'
      WRITE(lun,606)'**', '    Version 4a: Nov. XX, 2002    ', '**'
      WRITE(lun,602)'**', '**'
      WRITE(lun,606)'**', '    Contacts:                   ', '**'
      WRITE(lun,606)'**', '    Charles Hannah              ', '**'
      WRITE(lun,606)'**', '    HannahC@mar.dfo-mpo.gc.ca   ', '**'
      WRITE(lun,602)'**', '**'
      WRITE(lun,606)'**', '    Daniel Lynch                ', '**'
      WRITE(lun,606)'**', '    dan.r.lynch@dartmouth.edu   ', '**'
      WRITE(lun,602)'**', '**'
      WRITE(lun,601)
      WRITE(lun,601)

C
C Output format statements
C
  601 FORMAT('************************************',
     &                 '************************************')
  602 FORMAT(A2,68X,A2)
  605 FORMAT(A2,14X,A40,14X,A2)
  606 FORMAT(A2,19X,A30,19X,A2)
      RETURN
      END
C***********************************************************************
C***********************************************************************
