Télécharger la plaquette Cast3M


fr en

Télécharger fuslec.eso

Retour à la liste

Numérotation des lignes : 

fuslec

  1. C FUSLEC    SOURCE    CB215821  19/08/20    21:18:01     10287          
  2.       SUBROUTINE FUSLEC(IP1,IP2,IRETOU)
  3. C======================================================================
  4. C   ENTREES
  5. C     IP1 = POINTEUR SUR LA PREMIERER LECTURE
  6. C     IP2 = POINTEUR SUR LA DEUXIEME  LECTURE
  7. C  SORTIES
  8. C     IRETOU = POINTEUR SUR LA CONCATENATION DES 2 LECTURES
  9. C    GIAN/LOYS      JUILLET 21/86
  10. C======================================================================
  11.       IMPLICIT INTEGER(I-N)
  12. -INC SMLENTI
  13.       MLENT1=IP1
  14.       SEGACT MLENT1
  15.       NN1=MLENT1.LECT(/1)
  16. C
  17.       MLENT2=IP2
  18.       SEGACT MLENT2
  19.       NN2=MLENT2.LECT(/1)
  20. C
  21.       JG=NN1+NN2
  22.       SEGINI MLENTI
  23.       IRETOU=MLENTI
  24.       DO 100 IA=1,NN1
  25.       LECT(IA)=MLENT1.LECT(IA)
  26.  100  CONTINUE
  27.       DO 200 IA=1,NN2
  28.       LECT(IA+NN1)=MLENT2.LECT(IA)
  29.  200  CONTINUE
  30.       END
  31.  
  32.  
  33.  

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