Télécharger entnof.eso

Retour à la liste

Numérotation des lignes :

  1. C ENTNOF SOURCE CHAT 05/01/12 23:40:30 5004
  2. SUBROUTINE ENTNOF(IBAND,NOBJN,NOMM1,NOMM2,IRETOU)
  3. C
  4. C LECTURE DES OBJETS NOMMES. IL Y EN A NOBJN
  5. C LECTURE SUR L'UNITE IBAND
  6. C NOMM1 SEGMENT QUI CONTIENT LES NUMEROS DES OBJETS DS LEUR PILE
  7. C NOMM2 SEGMENT QUI CONTIENT LE NOM DE CES OBJETS
  8. C IRETOU =0 SI TOUT S'EST BIEN PASSE. IRETOU=1 SINON.
  9. C APPELE PAR RESTSO
  10. C ECRIT PAR FARVACQUE
  11. C
  12. IMPLICIT INTEGER(I-N)
  13. -INC CCOPTIO
  14. SEGMENT/NOMM1/(NOM1(NOBJN1))
  15. SEGMENT/NOMM2/(NOM2(NOBJN2))
  16. ITOTO=1
  17. IRETOU=0
  18. NOBJN1=NOBJN
  19. NOBJN2=2*NOBJN
  20. SEGADJ NOMM1
  21. SEGADJ NOMM2
  22. CALL LFCDIM(IBAND,NOBJN2,NOM2,IRETOU,ITOTO)
  23. IF(IRETOU.NE.0)RETURN
  24. READ(IBAND,708,END=4,ERR=4)(NOM1(I),I=1,NOBJN1)
  25. 708 FORMAT(20I4)
  26. C CALL LFCDIE(IBAND,NOBJN1,NOM1,IRETOU,ITOTO)
  27. C IF(IRETOU.NE.0) RETURN
  28. IF(IIMPI.NE.5) GOTO 1
  29. WRITE(IOIMP,101)
  30. DO 2 I=1,NOBJN
  31. WRITE(IOIMP,100) NOM2(2*I-1),NOM2(2*I),NOM1(I)
  32. 2 CONTINUE
  33. GOTO 1
  34. 4 IRETOU=1
  35. 1 CONTINUE
  36. 100 FORMAT(2X,2A4,2X,I6)
  37. 101 FORMAT(' OBJETS NOMMES ET LEUR RANG DANS LA PILE : ')
  38. RETURN
  39. END
  40.  
  41.  

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