ADAS Subroutine ccfill

      SUBROUTINE CCFILL( NTA   , M )
C-----------------------------------------------------------------------
C
C  ****************** FORTRAN77 SUBROUTINE: CCFILL *********************
C
C  PURPOSE:  TO FILL AN INTEGER ARRAY WITH ITS OWN INDEX.
C
C  CALLING PROGRAM: ADAS312
C
C  SUBROUTINE:
C
C  I/O   : (I*4)  NTA()    = ARRAY TO BE FILLED
C  INPUT : (I*4)  M        = NUMBER OF ELEMENTS TO BE FILLED
C
C          (I*4)  I        = GENERAL INTEGER
C
C
C ROUTINES:
C          NONE
C
C
C AUTHOR:  HARVEY ANDERSON, UNIVERSITY OF STRATHCLYDE/JET
C          JA8.08
C          TEL. 0141-553-4196
C
C
C DATE:    16/05/97
C
C UNIX-IDL PORT: H.P.SUMMERS
C
C VERSION: 1.1				DATE: 10-07-97
C MODIFIED: HUGH SUMMERS, UNIVERSITY OF STRATHCLYDE
C	    - PUT UNDER S.C.C.S. CONTROL
C
C--------------------------------------------------------------------
      INTEGER             M,           NTA(*)