Esope source files

   1 : C TBEFF     SOURCE    CHAT      06/04/12    21:15:02     5398           
   2 : c subroutine utilisee dans tableau
   3 : c source ensam    aout 94
   4 : 
   5 : ***************************************************
   6 : *
   7 : *  EFFACE LA FENETRE GRAPHIQUE
   8 : *  ET LA REINITIALISE AUX DIMENTIONS D'UNE FEUILLE A4
   9 : *  EN TENANT COMPTE DE L'ORIENTATION 'ZHORIZ'
  10 : *
  11 : ***************************************************
  12 :         SUBROUTINE TBEFF
  13 : * attention il ne faut pas de implicit real*8 
  14 : *
  15 : *  DEFINITION DES VARIABLES
  16 : *
  17 :       IMPLICIT INTEGER(I-N)
  18 : -INC CCOPTIO                                                                    
  19 :         INTEGER         NBCOUL
  20 :         CHARACTER*72    TITR
  21 :         
  22 : *
  23 :         TITR = ' '
  23 :         CALL TRINIT(24,0.,0.,TITR,1.5,.TRUE.,NBCOUL)
  24 :         IF (ZHORIZ) THEN
  25 :           X1 = 0.
  26 :           X2 = 0.
  27 :           Y1 = 0.
  28 :           Y2 = 0.
  28 :           CALL DFENET(0.,29.7,0.,21.,zmi,zma,X1,X2,Y1,Y2,.FALSE.)
  29 :         ELSE
  30 :           X1 = 0.
  31 :           X2 = 0.
  32 :           Y1 = 0.
  33 :           Y2 = 0.
  33 :           CALL DFENET(0.,21.,0.,29.7,zmi,zma,X1,X2,Y1,Y2,.FALSE.)
  34 :         ENDIF
  35 : *
  36 :         END
  37 : *
  38 : ****  FIN DE LA PROCEDURE EFFACER  ****************
  39 : ***************************************************
  40 :  
  41 :  
  42 :  
  43 :