Télécharger heflp1.eso

Retour à la liste

Numérotation des lignes :

  1. C HEFLP1 SOURCE KK2000 14/04/09 21:15:26 8027
  2.  
  3. SUBROUTINE HESSFLPOWDER1 (SIG,VAR,AMAT,NDIMA)
  4. IMPLICIT INTEGER(I-N)
  5. integer ndima,i,j
  6. real*8 sig(3),var,amat(ndima,ndima)
  7. real*8 aux2,x22(6,6),x33(6,6)
  8. real*8 nn1,nn2,eta0,aa1,aa2
  9. common /poder1_data/ nn1,nn2,eta0,aa1,aa2
  10. call DDINIJ(sig,x22,x33,3)
  11. aux2 = aa1/9.D0*2.D0
  12. do i=1,3
  13. do j=1,3
  14. amat(i,j)=2.D0*x22(i,j)+aux2
  15. enddo
  16. enddo
  17. return
  18. end
  19.  
  20.  
  21.  

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