Sources Esope | Cast3M

ztaouz
C ZTAOUZ    SOURCE    CHAT      05/01/13    04:25:02     5004
      SUBROUTINE ZTAOUZ (NN,IDINS)
C-----------------------------------------------------------------------
C
C                       SORTIE DU FICHIER GRAPHIQUE
C
C     NN GT 0   DEBUT DE GRAPHIQUE  NUMERO LOGIQUE  NN
C     NN EQ 0   INSTRUCTION A SORTIR
C     NN LT 0   FIN DE GRAPHIQUE  VIDAGE DU BUFFER
C
C-----------------------------------------------------------------------
      IMPLICIT INTEGER(I-N)
      SAVE
      DIMENSION II(2,12),JJ(3,8),INOP(2),IDINS(2)
      EQUIVALENCE (II(1,1),JJ(1,1))
      CHARACTER*80 BUF
      COMMON /CLGI/L6C
      CHARACTER*64 L6C
      DIMENSION KK(5)
      DATA LR,IR,NL /12,0,0/
      DATA INOP /257,257/
C
      IR=IR+1
      IF (NN)                                      11, 9,10
    9 II(1,IR)=IDINS(1)
      II(2,IR)=IDINS(2)
      IF (IR-LR)                                   50,14,14
   10 IF (IR.EQ.1)                                 GO TO 18
   11 DO 12 JR=IR,LR
        II(1,JR)=INOP(1)
   12   II(2,JR)=INOP(2)
   14 IF (NL.EQ.0)         GOTO 18
      DO 17 K=1,8
        J4=0
        DO 16 J=1,3
           KK(J)=JJ(J,K)/256
           JJ(J,K)=JJ(J,K)-KK(J)*256
           IF (MOD(JJ(J,K),64).EQ.0)     JJ(J,K)=JJ(J,K)+1
           J4=J4*256+JJ(J,K)
   16   CONTINUE
        KK(4)=    J4/4096
        KK(5)=MOD(J4,4096)
      DO 17 J=1,5
         DO 17 I=1,2
      BUF(10*K+2*J-I-9:10*K+2*J-I-9)=
     # L6C(MOD(KK(J),64)+1:MOD(KK(J),64)+1)
            KK(J)=KK(J)/64
   17 CONTINUE
 1000 FORMAT(A80)
      WRITE (25,1000) BUF
   18 IR=0
      IF (NN)                                      30,50,20
   20 NL=NN
      IR=1
      II(1,1)=IDINS(1)
      II(2,1)=IDINS(2)
                                                     RETURN
   30 CONTINUE
   50                                                RETURN
      END