C PRRIMI    SOURCE    PV090527  26/04/30    21:16:01     12529          
C PRRIMI    SOURCE
      SUBROUTINE PRRIMI(IRET,IFIC)
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)
C
C=======================================================================
C     POUR MISS3D : ECRITURE DES MATRICES REDUITES SUR FICHIER .imp
C
C     Appelle par l'operateur MISE
C=======================================================================
C
-INC SMRIGID

-INC PPARAM
-INC CCOPTIO
-INC SMELEME
c
      MRIGID=IRET
      SEGACT MRIGID
      NRI=IRIGEL(/1)
      NR=IRIGEL(/2)
      DO 191 I=1,NR
c          IGEO=IRIGEL(1,I)
          XMATRI=IRIGEL(4,I)
          SEGACT XMATRI
          NMA=RE(/3)
          DO 196 IA=1,NMA
              IF (IERR.NE.0) RETURN
C              XMATRI=IMATTT(IA)
C              SEGACT XMATRI
              NVA=RE(/1)
              NVB=RE(/2)
              DO 198 L=1,NVA
                WRITE(IFIC,195) (RE(L,K,IA),K=1,NVB)
  195           FORMAT(6(1X,E12.5))
  198         CONTINUE
C              SEGDES XMATRI
  196     CONTINUE
          SEGDES XMATRI
  191 CONTINUE
      SEGDES MRIGID
      RETURN
      END
c