Télécharger jaco.eso

Retour à la liste

Numérotation des lignes :

jaco
  1. C JACO SOURCE PV 20/03/31 14:33:28 10567
  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.  
  17. -INC PPARAM
  18. -INC CCOPTIO
  19. -INC SMCHAML
  20. -INC SMCOORD
  21. C
  22. C
  23. C
  24. C
  25. C IPMODL MODELE MMODEL
  26. C IPCHE CHAMELEM DE SOUS TYPE SCALAIRE
  27. C CONTENANT LE JACOBIEN
  28. C
  29. C
  30. IPMODL=0
  31. IPCHE=0
  32. IRET=0
  33. C
  34. C LECTURE DU MODELE
  35. C
  36. CALL LIROBJ('MMODEL ',IPMODL,1,IRTM)
  37. CALL ACTOBJ('MMODEL ',IPMODL,1)
  38. IF (IERR.NE.0) RETURN
  39. C
  40. C CALCUL DU JACOBIEN
  41. C
  42. segact mcoord
  43. CALL JACOPO(IPMODL,IPCHE,IRET)
  44. C
  45. IF(IRET.NE.0) THEN
  46. CALL ACTOBJ('MCHAML ',IPCHE,1)
  47. CALL ECROBJ('MCHAML ',IPCHE)
  48. ENDIF
  49. END
  50.  
  51.  
  52.  
  53.  

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