Télécharger caljaj.eso

Retour à la liste

Numérotation des lignes :

  1. C CALJAJ SOURCE CHAT 05/01/12 21:46:37 5004
  2. SUBROUTINE CALJAJ(GR,XYZ,ND,IES,NP,NPG,AJ)
  3. C************************************************************************
  4. C
  5. C CALJAJ APPELLE CALJ00
  6. C
  7. C
  8. C CALCUL DU JACOBIEN AJ=1/J
  9. C CALCUL DE L'ELEMENT D'AIRE SQ=DET(J)
  10. C DANS LES CAS 1D 2D ET 3D
  11. C
  12. C ND DIMENSION ESPACE
  13. C NP NOMBRE DE NOEUDS DE L'ELEMENT
  14. C NPG NOMBRE DE POINTS D'INTEGRATION
  15. C
  16. C XYZ COORDONNEES
  17. C GR GRADIENT
  18. C************************************************************************
  19. IMPLICIT INTEGER(I-N)
  20. IMPLICIT REAL*8 (A-H,O-Z)
  21. C
  22. REAL*8 GR(ND,NP,1),XYZ(IES,NP),XY(20),AJ(3,3,9)
  23. C
  24. C WRITE(6,*)'SUB CALJAJ ND,IES',ND,IES
  25. IF(ND.EQ.IES)GOTO 20
  26. CALL CALJQ(XYZ,XY,IES,ND,NP)
  27. C WRITE(6,*)'SUB CALJAJ XYZ',XYZ
  28. C WRITE(6,*)'SUB CALJAJ XY',XY
  29. CALL CALJ00(GR,XY,ND,NP,NPG,AJ)
  30. C
  31. RETURN
  32. 20 CONTINUE
  33. CALL CALJ00(GR,XYZ,ND,NP,NPG,AJ)
  34. RETURN
  35. 1002 FORMAT(10(1X,1PE11.4))
  36. 1001 FORMAT(20(1X,I5))
  37. END
  38.  
  39.  
  40.  
  41.  
  42.  

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