Télécharger ecstru.eso

Retour à la liste

Numérotation des lignes :

  1. C ECSTRU SOURCE CHAT 05/01/12 23:27:52 5004
  2. SUBROUTINE ECSTRU(MSTRUC)
  3. C
  4. IMPLICIT INTEGER(I-N)
  5. -INC SMSTRUC
  6. -INC CCOPTIO
  7. C
  8. INTERR(1)=MSTRUC
  9. CALL ERREUR(-34)
  10. 3001 FORMAT(' *MSOSTU *ITYSOU *RIGIDIT* MASSE *MATERIA*CARACTE*')
  11. WRITE(IOIMP,3001)
  12. SEGACT MSTRUC
  13. NSTRU=LISTRU(/1)
  14. DO 3100 IS=1,NSTRU
  15. MSOSTU=LISTRU(IS)
  16. SEGACT MSOSTU
  17. WRITE(IOIMP,3003)MSOSTU,ITYSOU,ISRAID,ISMASS,ISCHAM(1),ISCHAM(2)
  18. 3003 FORMAT(3X,6(I5,3X))
  19. SEGDES MSOSTU
  20. 3100 CONTINUE
  21. WRITE(IOIMP,3002)
  22. 3002 FORMAT(//)
  23. SEGDES MSTRUC
  24. RETURN
  25. END
  26.  
  27.  

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