jsv5D
;... Deviatoric strain plot  Dev_plot.xfm
; This routine calculates the coordinates for
; +Ex and -Ez axes for deviatoric strain plot.
; MTB  4/9/94
col(18)=Data(0.1,5.0,0.1)    ;Sy prime
Sy = col(18)
n=if(Sy<1, -3, +3)
Rxz= Sy^n
put Rxz into col(19)