Télécharger hprime.eso

Retour à la liste

Numérotation des lignes :

  1. C HPRIME SOURCE CHAT 05/01/13 00:26:20 5004
  2. SUBROUTINE HPRIME(XE,NBNN,IDIM,SHPTOT,IGAU,SHPWRK,DJAC)
  3. C=======================================================================
  4. C
  5. C ENTREES
  6. C XE(3,NBNN)= COORDONNEES DES NOEUDS
  7. C NBNN = NOMBRE DES NOEUDS
  8. C IDIM = DIMENSION DU PROBLEME
  9. C SHPTOT(6,NBNO,IGAU)= FONCTIONS DE FORME REDUITES (VIENT DE MINTE
  10. C IGAU =NUMERO DU POINT DE GAUUS
  11. C SORTIES
  12. C SHPWRK(6,NBNO)= H H,X H,Y H,Z
  13. C DJAC =JACOBIEN
  14. C
  15. C=======================================================================
  16. IMPLICIT INTEGER(I-N)
  17. IMPLICIT REAL*8(A-H,O-Z)
  18. DIMENSION XE(3,*),SHPTOT(6,NBNN,*),SHPWRK(6,*)
  19. IDIM1=IDIM+1
  20. DO 100 IA=1,NBNN
  21. DO 100 IB=1,IDIM1
  22. SHPWRK(IB,IA)=SHPTOT(IB,IA,IGAU)
  23. 100 CONTINUE
  24. CALL JACOBI(XE,SHPWRK,IDIM,NBNN,DJAC)
  25. RETURN
  26. END
  27.  
  28.  

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