Télécharger res2lv.eso

Retour à la liste

Numérotation des lignes :

  1. C RES2LV SOURCE CB215821 16/04/21 21:18:11 8920
  2.  
  3. SUBROUTINE RESIDUO_2LEVELS(X,R,N,NDIMX,NMODEL,XTRI,SIG,VECM,LAM)
  4. IMPLICIT INTEGER(I-N)
  5. integer n,i,j,ndims,ndimv,nmodel,ndimx
  6. real*8 x(n),r(n),void,sig(4),vecm(4),xtri(ndimx),lam
  7. integer augla
  8. real*8 c
  9. common /auglagrang1/ augla
  10. common /auglagrang2/ c
  11. void=0.D0
  12. ndimv=1
  13. ndims=3
  14. call der_enerelas_dpral(x,sig,nmodel)
  15. if (ndimx.eq.3) then
  16. call yieldd(sig,ndims,void,ndimv,r(n),nmodel)
  17. call vflsig(sig,ndims,void,ndimv,vecm,nmodel)
  18. else if (ndimx.eq.4) then
  19. call yieldd(sig,ndims,x(ndimx),ndimv,r(n),nmodel)
  20. call vflsig(sig,ndims,x(ndimx),ndimv,vecm,nmodel)
  21. call vflvar(sig,ndims,x(ndimx),ndimv,vecm(ndimx),nmodel)
  22. endif
  23. do i=1,ndimx
  24. r(i)=x(i)-xtri(i)+ABS(lam+c*r(n))*vecm(i)
  25. enddo
  26. return
  27. end
  28.  
  29.  
  30.  
  31.  
  32.  
  33.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales