Sources Esope | Cast3M

vyj2vr
C VYJ2VR    SOURCE    CHAT      05/01/13    04:11:01     5004
 
c pq la vint es en deformaciones, no en tensiones como deberia
      SUBROUTINE VYIJ2VAR (VAR,VALOR)
      IMPLICIT INTEGER(I-N)
      real*8 var,valor,sigy_der
      valor=-sigy_der(var)
      return
      end