Télécharger heflj2.eso

Retour à la liste

Numérotation des lignes :

heflj2
  1. C HEFLJ2 SOURCE KK2000 14/04/09 21:15:26 8027
  2.  
  3. SUBROUTINE HESSFLSIGJ2 (SIG,NDIMS,VAR,NDIMV,AMAT,NDIMX)
  4. IMPLICIT INTEGER(I-N)
  5. integer ndims,ndimv,ndimx,i,j
  6. real*8 sig(ndims),Amat(ndimx,ndimx),var(ndimv)
  7. real*8 x1(6),x2(6),x3(6),x22(6,6),x33(6,6),siginv(3)
  8. real*8 xqq,xtt,xqt,xpp,xq,xt,xp
  9. call InvariantesIJJ (sig,ndims,siginv)
  10. call DerInvariIJJ (sig,x1,x2,x3,ndims)
  11. call DDINIJ(sig,x22,x33,ndims)
  12. call vflvminv(siginv,xp,xq,xt)
  13. call Dvflvminv(siginv,xpp,xqq,xqt,xtt)
  14. do i=1,ndims
  15. do j=1,ndims
  16. Amat(i,j)=xqq*x2(i)*x2(j)+xq*x22(i,j)+
  17. . xtt*x3(i)*x3(j)+xt*x33(i,j)+
  18. . xqt*(x2(i)*x3(j)+x2(j)*x3(i))+xpp*x1(i)*x1(j)
  19. enddo
  20. enddo
  21. return
  22. end
  23.  
  24.  
  25.  
  26.  
  27.  

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