Sources Esope | Cast3M

rigjol
C RIGJOL    SOURCE    AM        18/11/23    21:15:23     10008          
      SUBROUTINE RIGJOL(REL,LRE,DDHOOK,LHOOK,IDIM)
C====================================================================
C     CONSTRUIT LA RAIDEUR LOCALE
C====================================================================
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)
      DIMENSION REL(LRE,LRE),DDHOOK(LHOOK,LHOOK) 
      DIMENSION RE2(3,3),RE3(6,6)
C
      CALL ZERO(REL,LRE,LRE)
      XZER = 0.D0
C
      IF (IDIM.EQ.3) THEN
       DO I =1,6
        DO J =1,6
          REL(I,J)=DDHOOK(I,J)
          REL(I+6,J)=-1*DDHOOK(I,J)
          REL(I,J+6)=-1*DDHOOK(I,J)
          REL(I+6,J+6)=DDHOOK(I,J)
        END DO
       END DO
*
*
*
      ELSE IF (IDIM.EQ.2) THEN
       DO I =1,3
        DO J =1,3
          REL(I,J)=DDHOOK(I,J)
          REL(I,J+3)=-1*DDHOOK(I,J)
          REL(I+3,J)=-1*DDHOOK(I,J)
          REL(I+3,J+3)=DDHOOK(I,J)
        END DO
       END DO
      ENDIF
*
*-------------------------------------------------------------
*       WRITE(*,*) '**  REL APRES ( dans RIGJOL) ** '
*       DO 112 IA=1,LRE
*        WRITE(*,1991) (REL(IA,IC),IC=1,LRE)
* 112   CONTINUE
* 1991  FORMAT(18(1X,E12.5))
*-------------------------------------------------------------
      RETURN
      END