C ASSMAT    SOURCE    BP208322  12/10/03    21:15:00     7517           
      SUBROUTINE ASSMAT(IPT1,X1,RI1,X2,RI2,X3,RI3,X4,RI4,XMATRI)
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8 (A-H,O-Z)
*
*********************************************************************************
*                CONSTITUTION D'UNE MATRICE 2Nx2N POUR LE QZ                    *
*                     A PARTIR DE MATRICES PROJETEES NxN                        *
* _____________________________________________________________________________ *
*                                                                               *
*      DATE : le 24 Fevrier 1995                                                *
*      AUTEUR : Nicolas BENECH                                                  *
* _____________________________________________________________________________ *
*                                                                               *
*      MODULE(S) APPELANT(S) : QZCONS                                           *
*                                                                               *
*      MODULE(S) APPELE (S): COPMAT                                             *
* _____________________________________________________________________________ *
*                                                                               *
*      EN ENTREE :                                                              *
*           IPT1 : maillage permettant d'ordonner les valeurs                   *
*           (Xi, Ri)  : coefficient et matrice a stoker a l'angle i             *
*                   (i=1, angle superieur gauche, i=2 angle superieur droit)    *
*                   (i=3, angle inferieur gauche, i=4 angle inferieur droit)    *
*                                                                               *
*      EN SORTIE :                                                              *
*           XMATRI : la matrice constituee                                      *
*                  (actif et modifiable en entree/sortie)                       *
*                                                                               *
*********************************************************************************
*
-INC CCOPTIO
-INC SMRIGID
*
      LOGICAL AFFICH
      REAL*8  X1,X2,X3,X4
      INTEGER N1, N2
*
* Affichage des messages pour verification
*
      AFFICH = .FALSE.
*
c       SEGACT, XMATRI
        N1= INT (XMATRI.RE(/1)/2)
        N2= INT (XMATRI.RE(/2)/2)
c       SEGDES, XMATRI
*
      IF (AFFICH) WRITE (*,*) 'Coin superieur gauche ...'
      CALL COPMAT(IPT1,X1,RI1,0,0,XMATRI)
      IF (AFFICH) WRITE (*,*) 'Coin superieur droit ...'
      CALL COPMAT(IPT1,X2,RI2,0,N2,XMATRI)
      IF (AFFICH) WRITE (*,*) 'Coin inferieur gauche ...'
      CALL COPMAT(IPT1,X3,RI3,N1,0,XMATRI)
      IF (AFFICH) WRITE (*,*) 'Coin inferieur droit ...'
      CALL COPMAT(IPT1,X4,RI4,N1,N2,XMATRI)
*
      RETURN
      END