C SJACO1    SOURCE    CHAT      05/11/16    21:15:20     5235           
***************************************************
*
* Construit la matrice de UNITE
*
***************************************************
C
        SUBROUTINE SJACO1(IPUN,N)
C        
         SEGMENT MATRIX
          REAL*8 A(N,N)
         ENDSEGMENT
C
         INTEGER N,I,J
         POINTEUR IPUN.MATRIX
         SEGINI ,IPUN
C
         DO 700 J=1,N
          DO 750 I=J,N
            IPUN.A(I,J)=0.D0
            IF(I.EQ.J) THEN
              IPUN.A(J,I) = 1.D0
            ENDIF 
750       CONTINUE
700      CONTINUE
C
*         SEGDES ,IPUN
         RETURN
         END