Télécharger jaco.eso

Retour à la liste

Numérotation des lignes :

  1. C JACO SOURCE CB215821 19/07/30 21:17:00 10273
  2. SUBROUTINE JACO
  3. C=====================================================================
  4. C OPERATEUR POUR CALCULER LE JACOBIEN AUX POINTS DE GAUSS
  5. C
  6. C CHAM = JACO MODL
  7. C MODL : MODELE de calcul , type MMODEL
  8. C CHAM : CHAMELEM de sous type SCALAIRE contenant
  9. C les JACOBIENS aux POINTS DE GAUSS
  10. C
  11. C=====================================================================
  12. C
  13. IMPLICIT INTEGER(I-N)
  14. IMPLICIT REAL*8(A-H,O-Z)
  15. PARAMETER(XZER=0.D0,UNDEMI=.5D0,UN=1.D0)
  16. -INC CCOPTIO
  17. -INC SMCHAML
  18. C
  19. C
  20. C
  21. C
  22. C IPMODL MODELE MMODEL
  23. C IPCHE CHAMELEM DE SOUS TYPE SCALAIRE
  24. C CONTENANT LE JACOBIEN
  25. C
  26. C
  27. IPMODL=0
  28. IPCHE=0
  29. IRET=0
  30. C
  31. C LECTURE DU MODELE
  32. C
  33. CALL LIROBJ('MMODEL ',IPMODL,1,IRTM)
  34. CALL ACTOBJ('MMODEL ',IPMODL,1)
  35. IF (IERR.NE.0) RETURN
  36. C
  37. C CALCUL DU JACOBIEN
  38. C
  39. CALL JACOPO(IPMODL,IPCHE,IRET)
  40. C
  41. IF(IRET.NE.0) THEN
  42. CALL ACTOBJ('MCHAML ',IPCHE,1)
  43. CALL ECROBJ('MCHAML ',IPCHE)
  44. ENDIF
  45. END
  46.  
  47.  
  48.  

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