Télécharger fuscls.eso

Retour à la liste

Numérotation des lignes :

  1. C FUSCLS SOURCE CHAT 05/01/13 00:12:07 5004
  2. SUBROUTINE FUSCLS(IP1,IP2,IRETOU)
  3. C
  4. C CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
  5. C C OPERATION ET SUR DEUX OBJETS DE TYPE CL1 STRU C
  6. C CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
  7. C
  8. IMPLICIT INTEGER(I-N)
  9. -INC SMCLSTR
  10. MCLST1=IP1
  11. MCLST2=IP2
  12. SEGACT MCLST1,MCLST2
  13. N1=MCLST1.ISOSTR(/1)
  14. N2=MCLST2.ISOSTR(/1)
  15. N=N1+N2
  16. SEGINI MCLSTR
  17. DO 10 I=1,N1
  18. ISOSTR(I)=MCLST1.ISOSTR(I)
  19. IRIGCL(I)=MCLST1.IRIGCL(I)
  20. 10 CONTINUE
  21. DO 20 I=1,N2
  22. II=I+N1
  23. ISOSTR(II)=MCLST2.ISOSTR(I)
  24. IRIGCL(II)=MCLST2.IRIGCL(I)
  25. 20 CONTINUE
  26. SEGDES MCLST1,MCLST2,MCLSTR
  27. IRETOU=MCLSTR
  28. RETURN
  29. END
  30.  
  31.  

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