Télécharger nommef.eso

Retour à la liste

Numérotation des lignes :

  1. C NOMMEF SOURCE CHAT 09/05/15 21:15:03 6387
  2. SUBROUTINE NOMMEF(ISGTR,IMAX,IPIL,IFORM,IDEB,isilen)
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8(A-H,O-Z)
  5. C------------------------------------------------------------------
  6. C
  7. C BUT : ECRIRE SUR IOSAUV DESC ENREGS CARACTERISTIQUES DE LA PILE
  8. C
  9. C ENTREE : ISGTR TABLE ASSOCIEE A LA PILE EXAMINEE
  10. C IMAX VALEUR MAX DE LA PILE
  11. C IPIL NUMERO DE LA PILE EXAMINEE
  12. C IFORM INDICE 0 OU 1 POUR SORTIE AVEC OU SANS FORMAT
  13. C
  14. C CHERCHE DANS LA LISTE ISGTR (NOM-NOM-IVAL=RANG DANS LA PILE) LES
  15. C OBJETS TELS QUE IVAL.LE.IMAX
  16. C ECRIT CES OBJETS SUR IOSAU AVEC OU SANS FORMAT :
  17. C 1- NUMERO DE LA PILE,NBRE OBJETS NOMMES, NBRE OBJETS DANS LA PILE
  18. C 2- LISTE DES NOMS DES OBJETS NOMMES S IL Y EN A
  19. C 3- LISTE DES POINTEURS DES OBJETS NOMMES S IL Y EN A
  20. C------------------------------------------------------------------
  21. C
  22. -INC CCOPTIO
  23. SEGMENT ISGTR
  24. CHARACTER*8 ISGTRC(KS)
  25. INTEGER ISGTRI(KS)
  26. ENDSEGMENT
  27. SEGMENT ISTMP
  28. CHARACTER*8 ISTMPC(NTMP)
  29. ENDSEGMENT
  30. DIMENSION ILENA(3)
  31. C
  32. C
  33. IQUOI=2
  34. CALL ECDES (IOSAU,IQUOI,IFORM)
  35. NI=0
  36. IF(ISGTR.NE.0) THEN
  37. NI=ISGTRI(/1)
  38. ENDIF
  39. ILENA(1)= IPIL
  40. ILENA(2)= NI
  41. ILENA(3)= IMAX-IDEB+1
  42. ILLL = 3
  43. CALL ECDIFP (IOSAU,ILLL,ILENA,IFORM)
  44. IF(ISGTR.NE.0) THEN
  45. IF (NI.NE.0) THEN
  46. NTMP=ISGTRI(/1)
  47. SEGINI ISTMP
  48. DO 999 ITMP=1,NTMP
  49. ISTMPC(ITMP)=ISGTRC(ITMP)
  50. 999 CONTINUE
  51. CALL ECDIFN(IOSAU,NI,ISTMP,IFORM)
  52. SEGSUP ISTMP
  53. CALL ECDIFE(IOSAU,NI,ISGTRI,IFORM)
  54. C ... Rappel sur le terminal ...
  55. IF( ISILEN.NE.1)WRITE(IOIMP,800) NI
  56. * WRITE(IOIMP,801)(ISGTRC(I),ISGTRI(I),I=1,NI)
  57. ENDIF
  58. ENDIF
  59. RETURN
  60.  
  61. C-OLD 800 FORMAT(' IL Y A ',I5,' OBJET(S) NOMME(S) :')
  62. 800 FORMAT(' IL Y A ',I8,' OBJET(S) NOMME(S) :')
  63. 801 FORMAT(5(2X,A8,I5))
  64. END
  65.  
  66.  
  67.  
  68.  
  69.  
  70.  
  71.  

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