      SUBROUTINE S3(L1,NUMB,NCD)
C
C.....TRANSFER THE DATA FROM STRESS TO BRAY AS N
C     NECESSARY TO TURN ON DISPLY.
C
      COMMON/AR/BRAY (4,600),STRESS(200,4)
C
      GO TO(1,2,3),L1
C.....TRANSFER STRESS INTO BRAY, TOP AND BOTTOM.
    1 CONTINUE
      DO 30 I=1,NUMB
      DO 30 J=1,2
      BRAY(J,I)=STRESS(I,J)
      K=J+2
      BRAY(K,I)=BRAY(J,I)
   30 CONTINUE
      GO TO 6
    2 CONTINUE
C.....TRANSFER BRAY TOP TO BRAY BOTTOM.
      DO 29 K=1,NCD
      DO 29 N=1,2
      L=N+2
      BRAY(L,K)=BRAY(N,K)
   29 CONTINUE
      GO TO 6
    3 CONTINUE
      IF(NCD.LT.2)GO TO 2
C.....TRANSFER BRAY(I,J) TO BRAY(I-1,J+2), TO DRAW A LINE.
      DO 25 J=2,NCD
      K=J-1
      BRAY(3,K)=BRAY(1,J)
      BRAY(4,K)=BRAY(2,J)
   25 CONTINUE
      BRAY(3,NCD)=BRAY(1,NCD)
      BRAY(4,NCD)=BRAY(2,NCD)
    6 CONTINUE
      DO 4I=1,4
      DO4J=1,10
      WRITE(6,5)(BRAY(I,J),J=1,10)
    5 FORMAT(1X,10F10.3)
    4 CONTINUE
      WRITE(6,7)
    7 FORMAT(//)
      RETURN
      END
