Esope source files

   1 : C SJACO     SOURCE    CHAT      05/11/16    21:15:35     5235           
   2 : *****************************************************
   3 : *
   4 : * transposition de phi
   5 : *
   6 : ****************************************************     
   7 : C
   8 :           SUBROUTINE SJACO( IPHI ,IPHI1)
   9 : C
  10 :       IMPLICIT INTEGER(I-N)
  11 :           SEGMENT ,MATRIX
  12 :            REAL*8 A(N,N)
  13 :           ENDSEGMENT
  14 : C
  15 :           POINTEUR IPHI.MATRIX,IPHI1.MATRIX
  16 :           REAL*8 F
  17 : C         
  18 :           INTEGER N,I
  19 : C
  20 : *          SEGACT ,IPHI 
  21 :           N=IPHI.A(/1)
  22 : C
  23 :           SEGINI ,IPHI1
  24 : C
  25 :           DO 100 I=1,N
  26 :             DO 200 J=1,N
  27 :              F=IPHI.A(I,J)
  28 :              IPHI1.A(J,I)=F
  29 : 200         CONTINUE
  30 : 100       CONTINUE
  31 : *          SEGDES ,IPHI,IPHI1
  32 :           RETURN
  33 :           END
  34 :  
  35 :