Télécharger la plaquette Cast3M


fr en

Télécharger nommef.eso

Retour à la liste

Numérotation des lignes : 

nommef

  1. C NOMMEF    SOURCE    JC220346  18/12/04    21:15:49     9991           
  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.  
  23. -INC PPARAM
  24. -INC CCOPTIO
  25. -INC CCNOYAU
  26.       SEGMENT ISGTR
  27.          CHARACTER*(LONOM) ISGTRC(KS)
  28.          INTEGER ISGTRI(KS)
  29.       ENDSEGMENT
  30.       SEGMENT ISTMP
  31.          CHARACTER*(LONOM) ISTMPC(NTMP)
  32.       ENDSEGMENT
  33.       DIMENSION ILENA(3)
  34. C
  35. C
  36.       IQUOI=2
  37.       CALL ECDES (IOSAU,IQUOI,IFORM)
  38.       NI=0
  39.       IF(ISGTR.NE.0) THEN
  40.          NI=ISGTRI(/1)
  41.       ENDIF
  42.       ILENA(1)= IPIL
  43.       ILENA(2)= NI
  44.       ILENA(3)= IMAX-IDEB+1
  45.       ILLL    = 3
  46.       CALL ECDIFP (IOSAU,ILLL,ILENA,IFORM)
  47.       IF(ISGTR.NE.0) THEN
  48.          IF (NI.NE.0) THEN
  49.             NTMP=ISGTRI(/1)
  50.             SEGINI ISTMP
  51.             DO 999 ITMP=1,NTMP
  52.               ISTMPC(ITMP)=ISGTRC(ITMP)
  53.  999        CONTINUE
  54.             CALL ECNOMS(IOSAU,NI,ISTMP,IFORM)
  55.             SEGSUP ISTMP
  56.             CALL ECDIFE(IOSAU,NI,ISGTRI,IFORM)
  57. C       ... Rappel sur le terminal ...
  58.             IF( ISILEN.NE.1)WRITE(IOIMP,800) NI
  59. *            WRITE(IOIMP,801)(ISGTRC(I),ISGTRI(I),I=1,NI)
  60.          ENDIF
  61.       ENDIF
  62.       RETURN
  63.  
  64. C-OLD  800 FORMAT('  IL Y A ',I5,'  OBJET(S) NOMME(S) :')
  65.   800 FORMAT('  IL Y A ',I8,'  OBJET(S) NOMME(S) :')
  66. c   801 FORMAT(5(2X,A24,I5))
  67.       END
  68.  
  69.  
  70.  
  71.  
  72.  
  73.  
  74.  
  75.  

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