Télécharger la plaquette Cast3M


fr en

Télécharger tbeff.eso

Retour à la liste

Numérotation des lignes : 

tbeff

  1. C TBEFF     SOURCE    GOUNAND   23/01/20    21:15:04     11564          
  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.  
  19. -INC PPARAM
  20. -INC CCOPTIO
  21.         INTEGER         NBCOUL
  22.         CHARACTER*72    TITR
  23.  
  24. *
  25.         TITR = ' '
  26.         CALL TRINIT(24,0.d0,0.d0,TITR,1.5,.TRUE.,NBCOUL)
  27.         IF (ZHORIZ) THEN
  28.           X1 = 0.
  29.           X2 = 0.
  30.           Y1 = 0.
  31.           Y2 = 0.
  32.           zmi=-1.
  33.           zma=+1.
  34.           CALL DFENET(0.,29.7,0.,21.,zmi,zma,X1,X2,Y1,Y2,.FALSE.)
  35.         ELSE
  36.           X1 = 0.
  37.           X2 = 0.
  38.           Y1 = 0.
  39.           Y2 = 0.
  40.           zmi=-1.
  41.           zma=+1.
  42.           CALL DFENET(0.,21.,0.,29.7,zmi,zma,X1,X2,Y1,Y2,.FALSE.)
  43.         ENDIF
  44. *
  45.         END
  46. *
  47. ****  FIN DE LA PROCEDURE EFFACER  ****************
  48. ***************************************************
  49.  
  50.  

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