1 : C ZTAOUZ SOURCE CHAT 05/01/13 04:25:02 5004 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 : IF (NN) 11, 9,10 25 : 9 II(1,IR)=IDINS(1) 26 : II(2,IR)=IDINS(2) 27 : IF (IR-LR) 50,14,14 28 : 10 IF (IR.EQ.1) GO TO 18 29 : 11 DO 12 JR=IR,LR 30 : II(1,JR)=INOP(1) 31 : 12 II(2,JR)=INOP(2) 32 : 14 IF (NL.EQ.0) GOTO 18 33 : DO 17 K=1,8 34 : J4=0 35 : DO 16 J=1,3 36 : KK(J)=JJ(J,K)/256 37 : JJ(J,K)=JJ(J,K)-KK(J)*256 38 : IF (MOD(JJ(J,K),64).EQ.0) JJ(J,K)=JJ(J,K)+1 39 : J4=J4*256+JJ(J,K) 40 : 16 CONTINUE 41 : KK(4)= J4/4096 42 : KK(5)=MOD(J4,4096) 43 : DO 17 J=1,5 44 : DO 17 I=1,2 45 : BUF(10*K+2*J-I-9:10*K+2*J-I-9)= 46 : # L6C(MOD(KK(J),64)+1:MOD(KK(J),64)+1) 47 : KK(J)=KK(J)/64 48 : 17 CONTINUE 49 : 1000 FORMAT(A80) 50 : WRITE (25,1000) BUF 51 : 18 IR=0 52 : IF (NN) 30,50,20 53 : 20 NL=NN 54 : IR=1 55 : II(1,1)=IDINS(1) 56 : II(2,1)=IDINS(2) 57 : RETURN 58 : 30 CONTINUE 59 : 50 RETURN 60 : END 61 : 62 :
© Cast3M 2003 - All rights reserved.
Disclaimer