ADAS Subroutine initpos

      SUBROUTINE INITPOS(NTA,M)                                         
C                                                                      
C
C-----------------------------------------------------------------------
C
C  ****************** FORTRAN77 SUBROUTINE: INITPOS ********************
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: 01-02-96
C MODIFIED: TIM HAMMOND (TESSELLA SUPPORT SERVICES PLC)
C               - PUT UNDER SCCS CONTROL
C
C-----------------------------------------------------------------------
C
      INTEGER             M,           NTA(*)