Esope source files

   1 : C SJACO1    SOURCE    CHAT      05/11/16    21:15:20     5235           
   2 : ***************************************************
   3 : *
   4 : * Construit la matrice de UNITE
   5 : *
   6 : ***************************************************
   7 : C
   8 :         SUBROUTINE SJACO1(IPUN,N)
   9 : C        
  10 :          SEGMENT MATRIX
  11 :           REAL*8 A(N,N)
  12 :          ENDSEGMENT
  13 : C
  14 :          INTEGER N,I,J
  15 :          POINTEUR IPUN.MATRIX
  16 :          SEGINI ,IPUN
  17 : C
  18 :          DO 700 J=1,N
  19 :           DO 750 I=J,N
  20 :             IPUN.A(I,J)=0.D0
  21 :             IF(I.EQ.J) THEN
  22 :               IPUN.A(J,I) = 1.D0
  23 :             ENDIF 
  24 : 750       CONTINUE
  25 : 700      CONTINUE
  26 : C
  27 : *         SEGDES ,IPUN
  28 :          RETURN
  29 :          END
  30 :  
  31 :