Télécharger la plaquette Cast3M


fr en

Télécharger prrimi.eso

Retour à la liste

Numérotation des lignes : 

prrimi

  1. C PRRIMI    SOURCE    AF221230  13/08/01    21:15:10     7808
  2. C PRRIMI    SOURCE
  3.       SUBROUTINE PRRIMI(IRET,IFIC)
  4.       IMPLICIT INTEGER(I-N)
  5.       IMPLICIT REAL*8(A-H,O-Z)
  6. C
  7. C=======================================================================
  8. C     POUR MISS3D : ECRITURE DES MATRICES REDUITES SUR FICHIER .imp
  9. C
  10. C     Appelle par l'operateur MISE
  11. C=======================================================================
  12. C
  13. -INC SMRIGID
  14.  
  15. -INC PPARAM
  16. -INC CCOPTIO
  17. -INC SMELEME
  18. c
  19.       MRIGID=IRET
  20.       SEGACT MRIGID
  21.       NRI=IRIGEL(/1)
  22.       NR=IRIGEL(/2)
  23.       DO 191 I=1,NR
  24. c          IGEO=IRIGEL(1,I)
  25.           XMATRI=IRIGEL(4,I)
  26.           SEGACT XMATRI
  27.           NMA=RE(/3)
  28.           DO 196 IA=1,NMA
  29.               IF (IERR.NE.0) RETURN
  30. C              XMATRI=IMATTT(IA)
  31. C              SEGACT XMATRI
  32.               NVA=RE(/1)
  33.               NVB=RE(/2)
  34.               DO 198 L=1,NVA
  35.                 WRITE(IFIC,195) (RE(L,K,IA),K=1,NVB)
  36.   195           FORMAT(6(1X,E12.5))
  37.   198         CONTINUE
  38. C              SEGDES XMATRI
  39.   196     CONTINUE
  40.           SEGDES XMATRI
  41.   191 CONTINUE
  42.       SEGDES MRIGID
  43.       RETURN
  44.       END
  45. c
  46.  
  47.  
  48.  
  49.  
  50.  
  51.  
  52.  
  53.  

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