Télécharger la plaquette Cast3M


fr en

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