Esope source files

   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 : *                                                                               
  15 : *     CALL SAUTE1 (NBPAGE,NBLIGN)                                               
  16 : *                                                                               
  17 : * REMARQUES:                                                                    
  18 : * ----------                                                                    
  19 : *                                                                               
  20 : *     LES SAUTS EN VALEURS NEGATIVES SONT IGNOREES.                             
  21 : *                                                                               
  22 : * AUTEUR, DATE DE CREATION:                                                     
  23 : * -------------------------                                                     
  24 : *                                                                               
  25 : *     PASCAL MANIGOT     27 DECEMBRE 1984                                       
  26 : *                                                                               
  27 : * LANGAGE:                                                                      
  28 : * --------                                                                      
  29 : *                                                                               
  30 : *     FORTRAN77                                                                 
  31 : *                                                                               
  32 : ************************************************************************        
  33 : *                                                                               
  34 :       IMPLICIT INTEGER(I-N)
  35 : -INC CCOPTIO                                                                    
  36 : *                                                                               
  37 :       DO 100 I=1,NBPAGE                                                         
  38 :          WRITE (IOIMP,2000)                                                     
  39 :  2000    FORMAT ('1')                                                           
  40 : *  EN INTERACTIF EFFACE L'ECRAN                                                 
  40 :          CALL TREFF                                                             
  41 :   100    CONTINUE                                                               
  42 : *     END DO                                                                    
  43 : *                                                                               
  44 :       DO 110 I=1,NBLIGN                                                         
  45 :          WRITE (IOIMP,'(/)')                                                    
  46 :   110    CONTINUE                                                               
  47 : *     END DO                                                                    
  48 : *                                                                               
  49 :       END                                                                       
  50 :