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    PV090527  25/11/12    21:15:45     12376          
  2.  
  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.       SUBROUTINE SAUTE1 (NBPAGE,NBLIGN)
  36.  
  37.       IMPLICIT INTEGER(I-N)
  38.       IMPLICIT REAL*8 (A-H,O-Z)
  39.  
  40. -INC PPARAM
  41. -INC CCOPTIO
  42.  
  43.       DO 100 I=1,NBPAGE
  44.          WRITE (IOIMP,2000)
  45.  2000    FORMAT ('1')
  46. *  EN INTERACTIF EFFACE L'ECRAN
  47.          CALL TREFF
  48.   100    CONTINUE
  49. *     END DO
  50.  
  51.       DO 110 I=1,NBLIGN
  52.          WRITE (IOIMP,'(A)') ' '
  53.   110    CONTINUE
  54. *     END DO
  55.  
  56. *     RETURN
  57.       END
  58.  
  59.  
  60.  
  61.  

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