Télécharger la plaquette Cast3M


fr en

Télécharger opchau.eso

Retour à la liste

Numérotation des lignes : 

opchau

  1. C OPCHAU    SOURCE    CHAT      05/01/13    02:04:11     5004
  2.       SUBROUTINE OPCHAU(IECHO,IWAIT,IENT)
  3. C_______________________________________________________________________
  4. C
  5. C     Esclave de CHAUSS pour les options echo et attente
  6. C_______________________________________________________________________
  7. C     P.PEGON 7/9/93
  8. C-----------------------------------------------------------------------
  9. C
  10.       IMPLICIT INTEGER(I-N)
  11.       PARAMETER(NCLE=2)
  12.       CHARACTER MCLE(NCLE)*8
  13.       DATA MCLE/'ECHO    ','ATTENTE '/
  14. C
  15.       IECHO=0
  16.       IWAIT=30
  17. C
  18.  1    CALL LIRMOT(MCLE,NCLE,ICLE,0)
  19. C
  20.       IF (ICLE.EQ.0)RETURN
  21. C
  22.       GOTO(10,20),ICLE
  23. C
  24.  10   IECHO=1
  25.       GOTO 1
  26. C
  27.  20   CALL LIRENT(IWAIT,1,IRET)
  28.       IF(IRET.NE.0)GOTO 1
  29.       IENT=0
  30.       RETURN
  31. C
  32.       END
  33.  
  34.  

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