SUBROUTINE MAPER
C** PRINT SECTOR MAP
       COMMON /SECT/SEC(64,64),ISX,ISY,ISX8,ISY8
       TYPE *,'       SECTOR ARRAY'
       TYPE 1001
 1001  FORMAT(/)
       TYPE 1002,(I,I=1,16)
 1002  FORMAT(3X,16(I2,2X))
       DO 10 L=1,64
       TYPE 1003,L,(SEC(K,L),K=1,16)
 1003  FORMAT(I3,16(A3,1X))
 10    CONTINUE
       TYPE 1001
       TYPE 1002,(I,I=17,32)
       DO 20 L=1,64
       TYPE 1003,L,(SEC(K,L),K=17,32)
 20    CONTINUE
       TYPE 1001
       TYPE 1002,(I,I=33,48)
       DO 30 L=1,64
       TYPE 1003,L,(SEC(K,L),K=33,48)
 30    CONTINUE
       TYPE 1001
       TYPE 1002,(I,I=49,64)
       DO 40 L=1,64
       TYPE 1003,L,(SEC(K,L),K=49,64)
 40    CONTINUE
       RETURN
       END