ADAS Subroutine xxcomm

      subroutine xxcomm(iunit, ndcomm, comments, ncomm)

C-----------------------------------------------------------------------
C
C  ****************** FORTRAN77 SUBROUTINE: XXCOMM *********************
C
C  PURPOSE: Read the comments from an ADAS adf dataset.
C
C  CALLING PROGRAM: General use.
C
C  INPUT:  (C*(*)) dsname    = dataset name
C  INPUT:  (I*4)   ndcomm    = maximum number of comment lines
C
C  OUTPUT: (I*4)   ncomm     = nunber of comment lines
C  OUTPUT: (C*(*)) comments  = array of comment strings
C
C  ROUTINES : NONE
C
C  AUTHOR   : Martin O'Mullane,
C
C  VERSION  : 1.1
C  DATE     : 14-04-2005
C  MODIFIED : Martin O'Mullane
C              - First version.
C
C-----------------------------------------------------------------------
      CHARACTER*(*)       COMMENTS(NDCOMM)
      INTEGER             IUNIT,       NCOMM,       NDCOMM