Télécharger fusbas.eso

Retour à la liste

Numérotation des lignes :

  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