Télécharger rigjol.eso

Retour à la liste

Numérotation des lignes :

rigjol
  1. C RIGJOL SOURCE AM 18/11/23 21:15:23 10008
  2. SUBROUTINE RIGJOL(REL,LRE,DDHOOK,LHOOK,IDIM)
  3. C====================================================================
  4. C CONSTRUIT LA RAIDEUR LOCALE
  5. C====================================================================
  6. IMPLICIT INTEGER(I-N)
  7. IMPLICIT REAL*8(A-H,O-Z)
  8. DIMENSION REL(LRE,LRE),DDHOOK(LHOOK,LHOOK)
  9. DIMENSION RE2(3,3),RE3(6,6)
  10. C
  11. CALL ZERO(REL,LRE,LRE)
  12. XZER = 0.D0
  13. C
  14. IF (IDIM.EQ.3) THEN
  15. DO I =1,6
  16. DO J =1,6
  17. REL(I,J)=DDHOOK(I,J)
  18. REL(I+6,J)=-1*DDHOOK(I,J)
  19. REL(I,J+6)=-1*DDHOOK(I,J)
  20. REL(I+6,J+6)=DDHOOK(I,J)
  21. END DO
  22. END DO
  23. *
  24. *
  25. *
  26. ELSE IF (IDIM.EQ.2) THEN
  27. DO I =1,3
  28. DO J =1,3
  29. REL(I,J)=DDHOOK(I,J)
  30. REL(I,J+3)=-1*DDHOOK(I,J)
  31. REL(I+3,J)=-1*DDHOOK(I,J)
  32. REL(I+3,J+3)=DDHOOK(I,J)
  33. END DO
  34. END DO
  35. ENDIF
  36. *
  37. *-------------------------------------------------------------
  38. * WRITE(*,*) '** REL APRES ( dans RIGJOL) ** '
  39. * DO 112 IA=1,LRE
  40. * WRITE(*,1991) (REL(IA,IC),IC=1,LRE)
  41. * 112 CONTINUE
  42. * 1991 FORMAT(18(1X,E12.5))
  43. *-------------------------------------------------------------
  44. RETURN
  45. END
  46.  
  47.  
  48.  
  49.  
  50.  
  51.  
  52.  

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