Sources Esope | Cast3M

fuscha
C FUSCHA    SOURCE    CB215821  19/08/20    21:17:58     10287          
      SUBROUTINE FUSCHA(MCHAR1,MCHAR2,MCHARG)
C
C  =====================================================================
C  =  CE SUBROUTINE REALISE L OPERATION "ET" SUR LES 2 OBJETS          =
C  =  CHARGEMENTS MCHAR1 ET MCHAR2.LE RESULTAT EST RANGE DANS MCHARG   =
C  =                                                                   =
C  =  CREATION    : 15/10/85                                           =
C  =  PROGRAMMEUR : GUILBAUD                                           =
C  =  MODIFICATION: 05/09/94                                           =
C  =  PROGRAMMEUR : JEANVOINE                                          =
C  =  EXTENSION   :   11/97                                            =
C  =  PROGRAMMEUR : KICHENIN                                           =
C  =====================================================================
C
      IMPLICIT INTEGER(I-N)
-INC SMCHARG
C
      SEGACT MCHAR1,MCHAR2
      N1=MCHAR1.KCHARG(/1)
      N2=MCHAR2.KCHARG(/1)
      N=N1+N2
      SEGINI MCHARG
      DO 10 I=1,N1
         CHANAT(I)=MCHAR1.CHANAT(I)
         CHANOM(I)=MCHAR1.CHANOM(I)
         CHAMOB(I)=MCHAR1.CHAMOB(I)
         CHALIE(I)=MCHAR1.CHALIE(I)
         KCHARG(I)=MCHAR1.KCHARG(I)
   10 CONTINUE
      DO 20 J=1,N2
         I=N1+J
         CHANAT(I)=MCHAR2.CHANAT(J)
         CHANOM(I)=MCHAR2.CHANOM(J)
         CHAMOB(I)=MCHAR2.CHAMOB(J)
         CHALIE(I)=MCHAR2.CHALIE(J)
         KCHARG(I)=MCHAR2.KCHARG(J)
   20 CONTINUE
      END