Télécharger matgho.eso

Retour à la liste

Numérotation des lignes :

  1. C MATGHO SOURCE CHAT 05/01/13 01:34:02 5004
  2. CCC
  3. C Matriz de Hook ampliada con 1
  4. CCC
  5. SUBROUTINE MATGENHOOK (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