Télécharger matghi.eso

Retour à la liste

Numérotation des lignes :

  1. C MATGHI SOURCE CHAT 05/01/13 01:33:57 5004
  2. CCC
  3. C Inversa de la matriz de Hook ampliada
  4. CCC
  5. SUBROUTINE MATGENHOOKINV (AMAT,NDIMX,NDIMS)
  6. IMPLICIT INTEGER(I-N)
  7. integer ndimx,ndims,ifl,i,j
  8. real*8 Amat(ndimx,ndimx),xnu,you
  9. common /elasdata/ you,xnu
  10. c Inversa de la matriz de hook
  11. ifl=-1
  12. call mathok(Amat,ndimx,ndims,ifl)
  13. c Parte de las variables internas
  14. do i=ndims+1,ndimx
  15. do j=1,ndimx
  16. Amat(i,j)=0.D0
  17. Amat(j,i)=0.D0
  18. enddo
  19. Amat(i,i)=1.D0
  20. enddo
  21. return
  22. end
  23.  
  24.  
  25.  
  26.  

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