C SJACO9    SOURCE    CHAT      05/11/16    21:15:33     5235
*****************************************************
*
* Multiplie la matrice A par B
*
****************************************************
C
          SUBROUTINE SJACO9(IPA,IPB,IPC)
C
      IMPLICIT INTEGER(I-N)
          SEGMENT ,MATRIX
           REAL*8 A(N,N)
          ENDSEGMENT
C
          POINTEUR IPA.MATRIX,IPB.MATRIX,IPC.MATRIX
C
          INTEGER N,I,J,K
          REAL*8 S
C
*          SEGACT ,IPA,IPB
C
          N=IPA.A(/1)
C
          SEGINI ,IPC
C
          DO 100 I=1,N
C
             DO 200 J=1,N
               S=0.D0
C
               DO 300 K=1,N
C
                 S=S+(IPA.A(I,K)*IPB.A(K,J))
C
300            CONTINUE
C
             IPC.A(I,J)=S
C
200          CONTINUE
C
100       CONTINUE
C
*          SEGDES ,IPA,IPB,IPC
          RETURN
          END