c 
c The following list corresponds to the FORTRAN which follows
c 
c 
c 				         - HNU/TI(I,J)
c [T(K) = A(K) (EXB1(I,J) + B1(I,J)) - %E		      , 
c 
c U(K) = B(K) (EXB2(I,J) + B2(I,J)) (EXB3(I,J) + B3(I,J)), 
c 
c 						    2
c V(K) = (EXB1(I,J) + B1(I,J)) (EXB3(I,J) + B3(I,J)) , 
c 
c 				      EXB2(I,J) + B2(I,J)
c W(K) = ------------------------------------------------------------------------------, 
c 				   2			    2			     2
c        SQRT((EXB3(I,J) + B3(I,J))  + (EXB2(I,J) + B2(I,J))  + (EXB1(I,J) + B1(I,J)) )
c 
c 							     2		      2
c X(K) = SQRT(EXB1(I,J) + B1(I,J)) SQRT((EXB3(I,J) + B3(I,J))  + (EXB2(I,J) + B2(I,J))
c 
c 			2      - HNU/TI(I,J)
c  + (EXB1(I,J) + B1(I,J)) ) - %E		      ]
c 
      T(J) = A(J)*(B1(I,J)+EXB1(I,J))-EXP(-HNU/TI(I,J))
      U(J) = B(J)*(B2(I,J)+EXB2(I,J))*(B3(I,J)+EXB3(I,J))
      V(J) = (B1(I,J)+EXB1(I,J))*(B3(I,J)+EXB3(I,J))**2
      W(J) = (B2(I,J)+EXB2(I,J))*(1/SQRT((B1(I,J)+EXB1(I,J))**2+(B2(I,J)
     1   +EXB2(I,J))**2+(B3(I,J)+EXB3(I,J))**2))
      X(J) = SQRT(B1(I,J)+EXB1(I,J))*SQRT((B1(I,J)+EXB1(I,J))**2+(B2(I,J
     1   )+EXB2(I,J))**2+(B3(I,J)+EXB3(I,J))**2)-EXP(-HNU/TI(I,J))