      SUBROUTINE WOODS(U,ALFA,SY100,BETA,SZ100,WT)
      DIMENSION UT(4),W(4,5),ALW(4,5),SYW(4,5),BTW(5),SZW(4,5),WTT(5)   
      CHARACTER*2 WTT,WT
      DATA UT/.45,2.2,5.4,8.9/  
      DATA W/.089,.45,1.1,1.8,.089,.36,.8,1.3,.089,.36,.8,1.3,  
     $ .045,.22,.54,.89,.045,.13,.27,.45/   
      DATA ALW/.8,1.,1.,1.1,.8,3*1.,.8,3*1.,.8,7*1./
      DATA SYW/12.8,12.1,12.,12.,18.2,17.5,16.8,14.5,   
     $ 23.5,22.5,19.,14.,29.,26.5,22.5,16.5,53.,36.,26.,23./
      DATA SZW/8.97,9.66,2*10.35,12.96,3*13.78,14.59,   
     $ 3*15.4,4*20.,4*34.5/ 
      DATA BTW/1.2,1.3,1.3,1.4,1./  
      DATA WTT/'DW','MW','CF','MS','RF'/
C     36. WOODS TYPE
   10 CALL DEF(36,IRT)  
      IF (IRT.EQ.0) READ(*,30) WT   
   30 FORMAT(A2)
      DO 40 I=1,5   
      IF (WTT(I).EQ.WT) GO TO 60
   40 CONTINUE  
      WRITE(*,50)   
   50 FORMAT(' WOODS CODE NOT DEFINED') 
      CALL DEF(76,IRT)  
      GO TO 10
   60 IF (U.GT.0.) GO TO 90 
      U=ABS(U)  
      DO 70 J=1,4   
      IF (W(J,I) .GE. U) GO TO 130  
   70 CONTINUE  
   80 ALFA=ALW(4,I) 
      SY100=SYW(4,I)
      SZ100=SZW(4,I)
      GO TO 140 
   90 DO 100  J=1,4 
      IF (UT(J).GE.U) GO TO 110 
  100 CONTINUE  
      J=4   
  110 IF (J.NE.1) GO TO 120 
      U=W(J,I)  
      GO TO 130 
  120 S=ALOG(W(J,I)/W(J-1,I))/ALOG(UT(J)/UT(J-1))   
      U=W(J-1,I)*(U/UT(J-1))**S 
      IF (U.GT.W(4,I)) GO TO 80 
  130 DUW=(U-W(J-1,I))/(W(J,I)-W(J-1,I))
      ALFA=ALW(J-1,I)+DUW*(ALW(J,I)-ALW(J-1,I)) 
      SY100=SYW(J-1,I)+DUW*(SYW(J,I)-SYW(J-1,I))
      SZ100=SZW(J-1,I)+DUW*(SZW(J,I)-SZW(J-1,I))
  140 BETA=BTW(I)
      RETURN
      END
