Télécharger la plaquette Cast3M


fr en

Télécharger saute1.eso

Retour à la liste

Numérotation des lignes : 

saute1

  1. C SAUTE1    SOURCE    CHAT      05/01/13    03:11:28     5004
  2.       SUBROUTINE SAUTE1 (NBPAGE,NBLIGN)
  3. ************************************************************************
  4. *
  5. *                             S A U T E 1
  6. *                             -----------
  7. *
  8. * FONCTION:
  9. * ---------
  10. *
  11. *     SAUTER DES PAGES ET/OU DES LIGNES LORS DES IMPRESSIONS.
  12. *
  13. * MODE D'APPEL:
  14. * -------------
  15. *
  16. *     CALL SAUTE1 (NBPAGE,NBLIGN)
  17. *
  18. * REMARQUES:
  19. * ----------
  20. *
  21. *     LES SAUTS EN VALEURS NEGATIVES SONT IGNOREES.
  22. *
  23. * AUTEUR, DATE DE CREATION:
  24. * -------------------------
  25. *
  26. *     PASCAL MANIGOT     27 DECEMBRE 1984
  27. *
  28. * LANGAGE:
  29. * --------
  30. *
  31. *     FORTRAN77
  32. *
  33. ************************************************************************
  34. *
  35.       IMPLICIT INTEGER(I-N)
  36.  
  37. -INC PPARAM
  38. -INC CCOPTIO
  39. *
  40.       DO 100 I=1,NBPAGE
  41.          WRITE (IOIMP,2000)
  42.  2000    FORMAT ('1')
  43. *  EN INTERACTIF EFFACE L'ECRAN
  44.          CALL TREFF
  45.   100    CONTINUE
  46. *     END DO
  47. *
  48.       DO 110 I=1,NBLIGN
  49.          WRITE (IOIMP,'(/)')
  50.   110    CONTINUE
  51. *     END DO
  52. *
  53.       END
  54.  
  55.  

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