SUBROUTINE AXIS
      COMMON/MODDAT/IAX,DIST,SMODEL(7,17,2),MODNO(10)
      COMMON/BULK/I3S,I3E,O(6,30)
      COMMON/PAINT/I2S,IDUM,P(4,30)
      DIMENSION IVECT(50)
      I2S=1
      I3S=1
      I3E=3
      I2E=6
      O(1,1)=0.
      O(2,1)=0.
      O(3,1)=0.
      O(4,1)=1000.
      O(5,1)=0.
      O(6,1)=0.
      O(1,2)=0.
      O(2,2)=0.
      O(3,2)=0.
      O(4,2)=0.
      O(5,2)=2000.
      O(6,2)=0.
      O(1,3)=0.
      O(2,3)=0.
      O(3,3)=0.
      O(4,3)=0.
      O(5,3)=0.
      O(6,3)=200.
      IF(IAX.EQ.0)CALL DISPLY(3,21)
      IF(IAX.EQ.0)RETURN
      CALL MAPPER(DIST)
      CALL VECTOR(1,P,1,6,IVECT,1,LAST,7,0,0)
      CALL DISPLY(6,21,IVECT,1,LAST)
      RETURN
      END