Télécharger la plaquette Cast3M


fr en

Télécharger fuscls.eso

Retour à la liste

Numérotation des lignes : 

fuscls

  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