Télécharger la plaquette Cast3M


fr en

Télécharger sauter.eso

Retour à la liste

Numérotation des lignes : 

sauter

  1. C SAUTER    SOURCE    CHAT      05/01/13    03:11:34     5004
  2.       SUBROUTINE SAUTER
  3. ************************************************************************
  4. *
  5. *                             S A U T E R
  6. *                             -----------
  7. *
  8. *            SOUS-PROGRAMME ASSOCIE A LA DIRECTIVE "SAUTER"
  9. *
  10. * FONCTION:
  11. * ---------
  12. *
  13. *     EFFECTUER UN SAUT DE PAGE(S) OU DE LIGNE(S).
  14. *
  15. * PHRASE D'APPEL (EN GIBIANE):
  16. * ----------------------------
  17. *
  18. *                     |LIGNE|
  19. *     SAUTER (NOMBRE) |     | ;
  20. *                     |PAGE |
  21. *
  22. * OPERANDES:
  23. * ----------
  24. *
  25. *     NOMBRE    'ENTIER  '  (FACULTATIF) NOMBRE DE LIGNES OU PAGES A
  26. *                           SAUTER.
  27. *     LIGNE     'MOT     '  MOT-CLE INDIQUANT QUE L'ON VEUT SAUTER DES
  28. *                           LIGNES.
  29. *     PAGE      'MOT     '  MOT-CLE INDIQUANT QUE L'ON VEUT SAUTER DES
  30. *                           PAGES.
  31. *
  32. * MODE DE FONCTIONNEMENT:
  33. * -----------------------
  34. *
  35. *     LES MOT-CLES "LIGNE" ET "PAGE" S'EXCLUENT MUTUELLEMENT.
  36. *
  37. * SOUS-PROGRAMMES APPELES:
  38. * ------------------------
  39. *
  40. *     LIRE, LIRENT, SAUTE1.
  41. *
  42. * AUTEUR, DATE DE CREATION:
  43. * -------------------------
  44. *
  45. *     PASCAL MANIGOT     27 DECEMBRE 1984
  46. *
  47. * LANGAGE:
  48. * --------
  49. *
  50. *     FORTRAN77 + EXTENSION: CARACTERES MIS DANS DES ENTIERS
  51. *
  52. ************************************************************************
  53. *
  54.       IMPLICIT INTEGER(I-N)
  55.       CHARACTER*(4) LEMOT
  56.  
  57. -INC PPARAM
  58. -INC CCOPTIO
  59. *
  60. *
  61. *
  62.       ICODE = 1
  63.       CALL LIRCHA (LEMOT,ICODE,IRETOU)
  64.       IF (IERR .NE. 0) RETURN
  65. *
  66.       ICODE = 0
  67.       CALL LIRENT (NOMBRE,ICODE,IRETOU)
  68.       IF (IRETOU .EQ. 0) THEN
  69.          NOMBRE = 1
  70.       END IF
  71. *
  72.       IF (LEMOT .EQ. 'PAGE') THEN
  73.          NBPAGE = NOMBRE
  74.          NBLIGN = 0
  75.       ELSE IF (LEMOT .EQ. 'LIGN') THEN
  76.          NBPAGE = 0
  77.          NBLIGN = NOMBRE
  78.       ELSE
  79. *        LA FAUTE N'EST PAS D'IMPORTANCE SUFFISANTE POUR QUE L'ON ENVOIE
  80. *        UN MESSAGE D'ERREUR.
  81.          RETURN
  82.       END IF
  83. *
  84.       CALL SAUTE1 (NBPAGE,NBLIGN)
  85. *
  86.       END
  87.  
  88.  

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