Télécharger la plaquette Cast3M


fr en

Télécharger ztaouz.eso

Retour à la liste

Numérotation des lignes : 

ztaouz

  1. C ZTAOUZ    SOURCE    CB215821  26/10/26    21:16:29     12682          
  2.       SUBROUTINE ZTAOUZ (NN,IDINS)
  3. C-----------------------------------------------------------------------
  4. C
  5. C                       SORTIE DU FICHIER GRAPHIQUE
  6. C
  7. C     NN GT 0   DEBUT DE GRAPHIQUE  NUMERO LOGIQUE  NN
  8. C     NN EQ 0   INSTRUCTION A SORTIR
  9. C     NN LT 0   FIN DE GRAPHIQUE  VIDAGE DU BUFFER
  10. C
  11. C-----------------------------------------------------------------------
  12.       IMPLICIT INTEGER(I-N)
  13.       SAVE
  14.       DIMENSION II(2,12),JJ(3,8),INOP(2),IDINS(2)
  15.       EQUIVALENCE (II(1,1),JJ(1,1))
  16.       CHARACTER*80 BUF
  17.       COMMON /CLGI/L6C
  18.       CHARACTER*64 L6C
  19.       DIMENSION KK(5)
  20.       DATA LR,IR,NL /12,0,0/
  21.       DATA INOP /257,257/
  22. C
  23.       IR=IR+1
  24. C     IF (NN)                                      11, 9,10
  25.       IF (NN .LT. 0) GOTO 11
  26.       IF (NN .EQ. 0) GOTO 9
  27.       GOTO 10
  28.  
  29.     9 II(1,IR)=IDINS(1)
  30.       II(2,IR)=IDINS(2)
  31.  
  32. C     IF (IR-LR)                                   50,14,14      
  33.       IF (IR-LR .LT. 0) THEN
  34.         GOTO 50
  35.       ELSE
  36.         GOTO 14
  37.       ENDIF
  38.  
  39.    10 IF (IR.EQ.1)                                 GO TO 18
  40.    11 DO 12 JR=IR,LR
  41.         II(1,JR)=INOP(1)
  42.         II(2,JR)=INOP(2)
  43.    12 CONTINUE
  44.    14 IF (NL.EQ.0)         GOTO 18
  45.       DO 1002 K=1,8
  46.         J4=0
  47.         DO 16 J=1,3
  48.            KK(J)=JJ(J,K)/256
  49.            JJ(J,K)=JJ(J,K)-KK(J)*256
  50.            IF (MOD(JJ(J,K),64).EQ.0)     JJ(J,K)=JJ(J,K)+1
  51.            J4=J4*256+JJ(J,K)
  52.    16   CONTINUE
  53.         KK(4)=    J4/4096
  54.         KK(5)=MOD(J4,4096)
  55.       DO 1001 J=1,5
  56.          DO 17 I=1,2
  57.       BUF(10*K+2*J-I-9:10*K+2*J-I-9)=
  58.      # L6C(MOD(KK(J),64)+1:MOD(KK(J),64)+1)
  59.             KK(J)=KK(J)/64
  60.    17 CONTINUE
  61.  1001 CONTINUE
  62.  1002 CONTINUE
  63.  1000 FORMAT(A80)
  64.       WRITE (25,1000) BUF
  65.    18 IR=0
  66. C     IF (NN)                                      30,50,20
  67.       IF (NN .LT. 0) GOTO 30
  68.       IF (NN .EQ. 0) GOTO 50
  69.       GOTO 20
  70.  
  71.    20 NL=NN
  72.       IR=1
  73.       II(1,1)=IDINS(1)
  74.       II(2,1)=IDINS(2)
  75.                                                      RETURN
  76.    30 CONTINUE
  77.    50                                                RETURN
  78.       END
  79.  
  80.  
  81.  
  82.  
  83.  

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