Télécharger la plaquette Cast3M


fr en

Télécharger esecha.eso

Retour à la liste

Numérotation des lignes : 

esecha

  1. C ESECHA    SOURCE    CHAT      05/01/12    23:45:27     5004
  2. C
  3.       SUBROUTINE ESECHA(IO,LABEL,NOM)
  4. C     *****************************************************************
  5. C     OBJET  : ECRIT UNE CHAINE SUR LE STANDARD OUTPUT
  6. C     *****************************************************************
  7.       IMPLICIT INTEGER(I-N)
  8.       CHARACTER*(*) NOM,LABEL
  9.       INTEGER IO
  10. C
  11.       INTEGER    IECR
  12.       PARAMETER (IECR = 6)
  13.       INTEGER    ESLGCH
  14.       EXTERNAL   ESLGCH
  15. C
  16.       IF( IO.EQ. 1 )THEN
  17. C     --- STANDARD INPUT ---
  18.         WRITE ( UNIT = IECR, FMT = *, ERR = 999)
  19.      >  LABEL(:ESLGCH(LABEL)),NOM(:ESLGCH(NOM))
  20.       ELSE
  21.         IF( IO .EQ. 2 )THEN
  22. C       --- ECRITURE DANS UN FICHIER ESPION ---
  23.         WRITE ( UNIT = IECR, FMT = *) 'NON ENCORE IMPLEMENTE'
  24.         ELSE
  25.           IF( IO.EQ. 3 )THEN
  26. C         --- AFFICHAGE VIA INTERFACE GRAPHIQUE ---
  27.         WRITE ( UNIT = IECR, FMT = *) 'NON ENCORE IMPLEMENTE'
  28.           ENDIF
  29.         ENDIF
  30.       ENDIF
  31. C   10 FORMAT(A)
  32.   999 END
  33.  
  34.  
  35.  

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