Télécharger fuscha.eso

Retour à la liste

Numérotation des lignes :

  1. C FUSCHA SOURCE CHAT 05/01/13 00:11:55 5004
  2. SUBROUTINE FUSCHA(MCHAR1,MCHAR2,MCHARG)
  3. C
  4. C =====================================================================
  5. C = CE SUBROUTINE REALISE L OPERATION "ET" SUR LES 2 OBJETS =
  6. C = CHARGEMENTS MCHAR1 ET MCHAR2.LE RESULTAT EST RANGE DANS MCHARG =
  7. C = =
  8. C = CREATION : 15/10/85 =
  9. C = PROGRAMMEUR : GUILBAUD =
  10. C = MODIFICATION: 05/09/94 =
  11. C = PROGRAMMEUR : JEANVOINE =
  12. C = EXTENSION : 11/97 =
  13. C = PROGRAMMEUR : KICHENIN =
  14. C =====================================================================
  15. C
  16. IMPLICIT INTEGER(I-N)
  17. -INC SMCHARG
  18. C
  19. SEGACT MCHAR1,MCHAR2
  20. N1=MCHAR1.KCHARG(/1)
  21. N2=MCHAR2.KCHARG(/1)
  22. N=N1+N2
  23. SEGINI MCHARG
  24. DO 10 I=1,N1
  25. CHANAT(I)=MCHAR1.CHANAT(I)
  26. CHANOM(I)=MCHAR1.CHANOM(I)
  27. CHAMOB(I)=MCHAR1.CHAMOB(I)
  28. CHALIE(I)=MCHAR1.CHALIE(I)
  29. KCHARG(I)=MCHAR1.KCHARG(I)
  30. 10 CONTINUE
  31. DO 20 J=1,N2
  32. I=N1+J
  33. CHANAT(I)=MCHAR2.CHANAT(J)
  34. CHANOM(I)=MCHAR2.CHANOM(J)
  35. CHAMOB(I)=MCHAR2.CHAMOB(J)
  36. CHALIE(I)=MCHAR2.CHALIE(J)
  37. KCHARG(I)=MCHAR2.KCHARG(J)
  38. 20 CONTINUE
  39. SEGDES MCHARG
  40. SEGDES MCHAR1,MCHAR2
  41. RETURN
  42. END
  43.  
  44.  
  45.  

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