Télécharger la plaquette Cast3M


fr en

Télécharger prelst.eso

Retour à la liste

Numérotation des lignes : 

prelst

  1. C PRELST    SOURCE    CHAT      05/01/13    02:25:41     5004
  2.       SUBROUTINE PRELST(IRET)
  3. C
  4. C  CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
  5. C  C ECRIT L'OBJET ELEMENT STRUCTURE C
  6. C  CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
  7. C
  8.       IMPLICIT INTEGER(I-N)
  9.  
  10. -INC PPARAM
  11. -INC CCOPTIO
  12. -INC SMELSTR
  13. -INC SMELEME
  14.       MELSTR=IRET
  15.       SEGACT MELSTR
  16.       N=ISOSTU(/1)
  17.       INTERR(1)=MELSTR
  18.       INTERR(2)=N
  19.       CALL ERREUR(-126)
  20.       DO 10 NN=1,N
  21.       INTERR(1)=IMELEM(NN)
  22.       INTERR(2)=ISOSTU(NN)
  23.       CALL ERREUR(-127)
  24.       MELEME=IMELEM(NN)
  25.       SEGACT MELEME
  26.       NBELEM=NUM(/2)
  27.       WRITE(IOIMP,200)(NUM(1,I),I=1,NBELEM)
  28.       SEGDES MELEME
  29.    10 CONTINUE
  30.       SEGDES MELSTR
  31.       WRITE(IOIMP,300)
  32.   200 FORMAT(10(I4,2X))
  33.   300 FORMAT(/)
  34.       RETURN
  35.       END
  36.  
  37.  

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