Télécharger la plaquette Cast3M


fr en

Télécharger fusbas.eso

Retour à la liste

Numérotation des lignes : 

fusbas

  1. C FUSBAS    SOURCE    CHAT      05/01/13    00:11:51     5004
  2.       SUBROUTINE FUSBAS(MBASE1,MBASE2,MBASEM)
  3. C
  4. C     CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
  5. C     C CE SUBROUTINE REALISE L OPERATION "ET" SUR LES 2 OBJETS        C
  6. C     C BASE-MODALE MBASE1 ET MBASE2.LE RESULTAT EST RANGE DANS MBASEM C
  7. C     CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
  8. C
  9.       IMPLICIT INTEGER(I-N)
  10. -INC SMBASEM
  11. C
  12.       SEGACT MBASE1,MBASE2
  13.       NBASE1=MBASE1.LISBAS(/1)
  14.       NBASE2=MBASE2.LISBAS(/1)
  15.       N=NBASE1+NBASE2
  16.       SEGINI MBASEM
  17.       DO 3 I=1,NBASE1
  18.       LISBAS(I)=MBASE1.LISBAS(I)
  19.  3    CONTINUE
  20.       DO 4 J=1,NBASE2
  21.       I=NBASE1+J
  22.       LISBAS(I)=MBASE2.LISBAS(J)
  23.  4    CONTINUE
  24.       SEGDES MBASEM,MBASE1,MBASE2
  25.       RETURN
  26.       END
  27.  
  28.  

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