Télécharger la plaquette Cast3M


fr en

Télécharger sjaco.eso

Retour à la liste

Numérotation des lignes : 

sjaco

  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.  
  36.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales