Télécharger la plaquette Cast3M


fr en

Télécharger sjaco8.eso

Retour à la liste

Numérotation des lignes : 

sjaco8

  1. C SJACO8    SOURCE    CHAT      05/11/16    21:15:30     5235
  2. *****************************************************
  3. *
  4. * Normalisation de phi
  5. *
  6. ****************************************************
  7. C
  8.           SUBROUTINE SJACO8(IPHI,IPM1)
  9. C
  10.       IMPLICIT INTEGER(I-N)
  11.           SEGMENT ,MATRIX
  12.            REAL*8 A(N,N)
  13.           ENDSEGMENT
  14. C
  15.           POINTEUR IPM1.MATRIX,IPHI.MATRIX,
  16.      1    IPHIT.MATRIX,IPRE1.MATRIX,IPRE2.MATRIX
  17. C
  18.           INTEGER N,I,J
  19.           REAL*8 F,G
  20. C
  21.           CALL SJACO(IPHI,IPHIT)
  22.           CALL SJACO9 (IPHIT,IPM1,IPRE1)
  23.           CALL SJACO9 (IPRE1,IPHI,IPRE2)
  24. C
  25. *          SEGACT ,IPHI*MOD,IPRE2
  26.           N=IPHI.A(/1)
  27. C
  28.           DO 100 J=1,N
  29.           G=SQRT(ABS(IPRE2.A(J,J)))
  30.              DO 200 I=1,N
  31.                F= IPHI.A(I,J)
  32.                IPHI.A(I,J)=F/G
  33. 200          CONTINUE
  34. 100       CONTINUE
  35. *          SEGDES ,IPHI,IPM1
  36.           SEGSUP ,IPHIT,IPRE1,IPRE2
  37.           RETURN
  38.           END
  39.  
  40.  
  41.  
  42.  
  43.  

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