Sources Esope | Cast3M

yldrhm
C YLDRHM    SOURCE    CB215821  16/04/21    21:18:44     8920
 
      SUBROUTINE YIELDRHMC (SIGINV,VALOR)
      IMPLICIT INTEGER(I-N)
      real*8 siginv(3),t,valor,aux,ktetMC
      real*8            coh,phi,ar,tmax,aap,aan,bbp,bbn
      common /rhmcdata/ coh,phi,ar,tmax,aap,aan,bbp,bbn
      call Invari_J3_a_t2(siginv(2),siginv(3),t)
      aux  =siginv(2)*ktetMC(t)**2+(ar*coh)**2
      valor=siginv(1)/3.D0*SIN(phi)-coh*COS(phi)+sqrt(aux)
      return
      end