Esope source files

   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 : -INC CCOPTIO
  15 : -INC SMELEME
  16 : c
  17 :       MRIGID=IRET
  18 :       SEGACT MRIGID
  19 :       NRI=IRIGEL(/1)
  20 :       NR=IRIGEL(/2)
  21 :       DO 191 I=1,NR
  22 : c          IGEO=IRIGEL(1,I)
  23 :           XMATRI=IRIGEL(4,I)
  24 :           SEGACT XMATRI
  25 :           NMA=RE(/3)
  26 :           DO 196 IA=1,NMA
  27 :               IF (IERR.NE.0) RETURN
  28 : C              XMATRI=IMATTT(IA)
  29 : C              SEGACT XMATRI
  30 :               NVA=RE(/1)
  31 :               NVB=RE(/2)
  32 :               DO 198 L=1,NVA
  33 :                 WRITE(IFIC,195) (RE(L,K,IA),K=1,NVB)
  34 :   195           FORMAT(6(1X,E12.5))
  35 :   198         CONTINUE
  36 : C              SEGDES XMATRI
  37 :   196     CONTINUE
  38 :           SEGDES XMATRI
  39 :   191 CONTINUE
  40 :       SEGDES MRIGID
  41 :       RETURN
  42 :       END
  43 : c
  44 :  
  45 :  
  46 :  
  47 :  
  48 :  
  49 :  
  50 :