Télécharger la plaquette Cast3M


fr en

Télécharger eseint.eso

Retour à la liste

Numérotation des lignes : 

eseint

  1. C ESEINT    SOURCE    PV        22/04/21    21:15:04     11344          
  2. C
  3. C
  4.       SUBROUTINE ESEINT(IO,LABEL,IENTIE,NBI)
  5. C     *****************************************************************
  6. C     OBJET  : ECRIT UN OU PLUSIEURS ENTIER(S) SUR LE STANDARD OUTPUT
  7. C     *****************************************************************
  8.       IMPLICIT INTEGER(I-N)
  9.       CHARACTER*(*) LABEL
  10.       INTEGER IO
  11.       INTEGER IENTIE   ,NBI
  12. C
  13.       INTEGER    IECR,J
  14.       PARAMETER (IECR = 6)
  15.       INTEGER    ESLGCH
  16.       EXTERNAL   ESLGCH
  17. C
  18.       IF( IO.EQ. 1 )THEN
  19. C     --- STANDARD INPUT ---
  20.         WRITE ( UNIT = IECR, FMT = *, ERR = 999)
  21.      >        LABEL(:ESLGCH(LABEL)),(IENTIE   ,J=1,NBI)
  22.       ELSE
  23.         IF( IO .EQ. 2 )THEN
  24. C       --- ECRITURE DANS UN FICHIER ESPION ---
  25.         WRITE ( UNIT = IECR, FMT = *) 'NON ENCORE IMPLEMENTE'
  26.         ELSE
  27.           IF( IO.EQ. 3 )THEN
  28. C         --- AFFICHAGE VIA INTERFACE GRAPHIQUE ---
  29.         WRITE ( UNIT = IECR, FMT = *) 'NON ENCORE IMPLEMENTE'
  30.           ENDIF
  31.         ENDIF
  32.       ENDIF
  33. C
  34.   999 END
  35.  
  36.  
  37.  
  38.  

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