jsv5D
;... Syp_cont.xfm   4/25/94
;... function calculates contours of intermediate
; deviatoric strain Sy prime
;... contour values should be placed in col(25)
n=size(col(25))  ;number of contours
col(26)=data(.3,2,.05)
Sy=col(26)
for i=1 to n do
  ;... calculate Sv as function of Sy
  ; Syp = Sy Sv^-.3333   Sv = (Sy/Syp)^3
  col(26+i)=(Sy/cell(25,i))^3
end for