home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p190 / 6.ddi / OBJ / BTJD.FOR next >
Encoding:
Text File  |  1990-04-22  |  12.5 KB  |  468 lines
  1. $DEBUG
  2.     SUBROUTINE BTJD(DC,DG,JDZF,ZJD,YDDJ,PWDJ,JCDJ,CHX,DRAW,NZ1,NZ2,
  3.      # RM1,CSI,BF,A0,ALF,NGF,GFL,SX,CG,DIR,MATE,DRAFT,NAME,NUMBER,
  4.      #  SCL,NZL,M1,CONZJD,CSX,CNX,WQ)
  5.     DIMENSION SX(5),ZJD(5,12),RM1(5),NZ1(5),BF(5),NZ2(5),A0(5),
  6.      #    CSI(5),GFL(5),NGF(5),CG(5),ALF(5),CONZJD(14),WJDZ(7)
  7.     INTEGER YDDJ(5),PWDJ(5),JCDJ(5),CZ1,CZ2,CYDDJ,CPWDJ,CJCDJ,
  8.      #  WZ1,WJD,WZ2
  9.     CHARACTER*5 JDZF(5,8),SCAL,NAME
  10.     CHARACTER*8 DRAW(5),TREAT(5),CDRAW,CTREAT,WDRAW
  11.     CHARACTER*9 DRAFT
  12.     CHARACTER*10 HEAT
  13.     CHARACTER*12 MATE
  14.     CHARACTER*3 CHX(5),CCHX
  15.     CHARACTER*4 WDIR,WDDA
  16.     CHARACTER*2 DIR(5),CDIR,WCHX
  17.     COMMON/AA8/TREAT,HEAT
  18.     DO 5 I=1,NZL
  19.     DO 2 J=1,12
  20.         IF(J.EQ.7.OR.J.EQ.8)GOTO 2
  21.         ZJD(I,J)=ZJD(I,J)/1000
  22.    2    CONTINUE
  23.    5    CONTINUE
  24.     XB=DC-190
  25.       IF(DG.EQ.297.0)XB=DC-185
  26.     YB=10
  27.       IF(DG.EQ.297.0)YB=5
  28.     CALL INSERT('HYU',XB,YB,1.,1.,0.)
  29.     XT=XB+70
  30.     YT=YB+18
  31.     CALL INSERT(NAME,XT,YT,10.,10.,0.)
  32.         IF(M1.LE.4)THEN
  33.     XT=XB+150
  34.     YT=YB+31
  35.     CALL TEXT('S',3.0,0.,XT,YT,0.,0.,MATE,M1,'A')
  36.         ELSE
  37.     CALL INSERT('MAT',DC-121.,55.7,8.3,8.3,0.)
  38.     CALL TEXT('S',6.,0.,DC-96.,57.,0.,0.,MATE,M1,'A')
  39.         ENDIF
  40.     XT=XB+150
  41.     YT=YB+25
  42.     CALL TEXT('S',4.,0.,XT,YT,0.,NUMBER,'0',1,'I')
  43.     XT=XB+170
  44.     YT=YB+15
  45.     IF(SCL.EQ.0.1)SCAL='10:1 '
  46.     IF(SCL.EQ.0.2)SCAL='5:1  '
  47.     IF(SCL.EQ.0.5)SCAL='2:1  '
  48.     IF(SCL.EQ.1.0)SCAL='1:1  '
  49.     IF(SCL.EQ.2.0)SCAL='1:2  '
  50.     IF(SCL.EQ.5.0)SCAL='1:5  '
  51.     CALL TEXT('S',4.,0.,XT,YT,0.,0.,SCAL,5,'A')
  52.     IF((N1+N2).LE.10)THEN
  53.     XT=XB+148
  54.     YT=YB+1
  55.     CALL TEXT('S',3.83,0.,XT,YT,0.,0,DRAFT,9,'A')
  56.         ELSE
  57.     XT=XB+140
  58.     YT=YB+1
  59.     CALL TEXT('S',3.83,0.,XT,YT,0.,0,DRAFT,9,'A')
  60.         ENDIF
  61.     IF(HEAT.NE.'          ')THEN
  62.         IF(M1.LE.4)THEN
  63.         YT=62.
  64.         ELSE
  65.         YT=66.
  66.         ENDIF
  67.     CALL INSERT('HET',DC-120.,YT,8.,8.,0.)
  68.     CALL TEXT('S',6.,0.,DC-90.,YT+1,0.,0,HEAT,10,'A')
  69.     ENDIF
  70.     IF(TREAT(1).NE.'        '.AND.NZL.GT.0)THEN
  71.         IF(M1.LE.4)THEN
  72.         YT=62.
  73.         ELSE
  74.         YT=66.
  75.         ENDIF
  76.     CALL INSERT('ZBH',DC-60.,YT,8.,8.,0.)
  77.     CALL TEXT('S',6.,0.,DC-30.,YT+1,0.,0,TREAT(1),8,'A')
  78.     ENDIF
  79.     IF(NZL.GE.1)THEN
  80.     XB=DC-69-NZL*25
  81.       IF(DG.EQ.297.0)XB=XB+5
  82.     YB=DG-38
  83.       IF(DG.EQ.297.0)YB=YB+5
  84.     CALL INSERT('OTH',XB-60,YB+10,10.,10.,0.)
  85.     CALL INSERT('GD4',XB-20,YB+10,8.,8.,0.)
  86.     CALL INSERT('WZJ',XB-60,YB,1.,1.,0.)
  87.     CALL INSERT('JB0',XB,YB,1.,1.,0.)
  88.     DO 10 I=1,NZL
  89.     XT=DC-33-(NZL-I)*25
  90.       IF(DG.EQ.297.0)XT=XT+5
  91.     YT=DG-15.5
  92.       IF(DG.EQ.297.0)YT=YT+5
  93.     CALL TEXT('S',4.,0.,XT,YT,RM1(I),0,'0',1,'F')
  94.     YT=YT-7
  95.     CALL TEXT('S',4.,0.,XT,YT,0.,NZ1(I),'0',1,'I')
  96.     YT=YT-7
  97.     CALL TEXT('S',4.,0.,XT,YT,ALF(I),0,'0',1,'F')
  98.     YT=YT-7
  99.     IF(I.EQ.1)THEN
  100.     IF(YDDJ(I).EQ.PWDJ(I).AND.YDDJ(I).EQ.JCDJ(I))THEN
  101.     XX=XT-4
  102.     CALL TEXT('S',4.,0.,XX,YT,0.,YDDJ(I),'0',1,'I')
  103.     XX=XX+4
  104.     CALL TEXT('S',4.,0.,XX,YT,0.,0,'-',1,'A')
  105.     XX=XX+4
  106.     CALL TEXT('S',4.,0.,XX,YT,0.,0,CHX(I),3,'A')
  107.     ELSE
  108.     XX=XT-10
  109.     CALL TEXT('S',4.,0.,XX,YT,0.,YDDJ(I),'0',1,'I')
  110.     XX=XX+4
  111.     CALL TEXT('S',4.,0.,XX,YT,0.,0,'-',1,'A')
  112.     XX=XX+4
  113.     CALL TEXT('S',4.,0.,XX,YT,0.,PWDJ(I),'0',1,'I')
  114.     XX=XX+4
  115.     CALL TEXT('S',4.,0.,XX,YT,0.,0,'-',1,'A')
  116.     XX=XX+4
  117.     CALL TEXT('S',4.,0.,XX,YT,0.,JCDJ(I),'0',1,'I')
  118.     XX=XX+4
  119.     CALL TEXT('S',4.,0.,XX,YT,0.,0,CHX(I),3,'A')
  120.     ENDIF
  121.     ENDIF
  122.   10    CONTINUE
  123.     DO 20 I=1,NZL
  124.     IF(BF(I).NE.0.)GOTO 30
  125.   20    CONTINUE
  126.     GOTO 50
  127.   30    YB=YB-14
  128.     YT0=YT-7
  129.     CALL INSERT('JBB',XB,YB,1.,1.,0.)
  130.     DO 40 I=1,NZL
  131.     XT=DC-33-(NZL-I)*25
  132.       IF(DG.EQ.297.0)XT=XT+5
  133.     YT=YT0
  134.     YA=YT0+0.5
  135.     CALL DFMANG(BF(I),XT,YA)
  136.     YT=YT-7
  137.     YA=YT-2
  138.     XA=DC-35-(NZL-I)*25
  139.       IF(DG.EQ.297.0)XA=XA+5
  140.     IF(DIR(I).EQ.'L ')THEN
  141.     CALL INSERT('LEF',XA,YA,1.,1.,0.)
  142.     ELSEIF(DIR(I).EQ.'R ')THEN
  143.     CALL INSERT('RIG',XA,YA,1.,1.,0.)
  144.     ENDIF
  145.   40    CONTINUE
  146.   50    DO 60 I=1,NZL
  147.     IF(CSI(I).NE.0.)GOTO 70
  148.   60    CONTINUE
  149.     GOTO 90
  150.   70    YB=YB-28
  151.     YT0=YT-7
  152.     CALL INSERT('JBX',XB,YB,1.,1.,0.)
  153.     DO 80 I=1,NZL
  154.     XT=DC-31-(NZL-I)*25
  155.       IF(DG.EQ.297.0)XT=XT+5
  156.     YT=YT0
  157.     CALL TEXT('S',4.,0.,XT,YT,CSI(I),0,'0',1,'F')
  158.     YT=YT-7
  159.     CALL TEXT('S',4.,0.,XT-10,YT,0.,0,DRAW(I),8,'A')
  160.     YT=YT-7
  161.     CALL TEXT('S',4.,0.,XT,YT,0.,NZ2(I),'0',1,'I')
  162.     YT=YT-7
  163.     CALL TEXT('S',4.,0.,XT,YT,A0(I),0,'0',1,'F')
  164.   80    CONTINUE
  165.   90    DO 200 J=1,4
  166.     L=2*J-1
  167.     IF(JDZF(1,J).EQ.'FI1')THEN
  168.     CALL TBZ('FI1',XB,YB,YT,DC,NZL,1,L,ZJD,DG)
  169.     ELSEIF(JDZF(1,J).EQ.'FPK')THEN
  170.     CALL TBZ('FPK',XB,YB,YT,DC,NZL,1,L,ZJD,DG)
  171.       ELSEIF(JDZF(1,J).EQ.'F12')THEN
  172.     CALL TBZ('FI2',XB,YB,YT,DC,NZL,2,L,ZJD,DG)
  173.     ELSEIF(JDZF(1,J).EQ.'FRW')THEN
  174.     CALL TBZ('FRW',XB,YB,YT,DC,NZL,2,L,ZJD,DG)
  175.     ELSEIF(JDZF(1,J).EQ.'FR0')THEN
  176.     CALL TBZ('FR0',XB,YB,YT,DC,NZL,1,L,ZJD,DG)
  177.     ELSEIF(JDZF(1,J).EQ.'FI3')THEN
  178.     CALL TBZ('FI3',XB,YB,YT,DC,NZL,1,L,ZJD,DG)
  179.     ELSEIF(JDZF(1,J).EQ.'FFB')THEN
  180.     CALL TBZ('FFB',XB,YB,YT,DC,NZL,1,L,ZJD,DG)
  181.     ELSEIF(JDZF(1,J).EQ.'FF0')THEN
  182.     CALL TBZ('FF0',XB,YB,YT,DC,NZL,1,L,ZJD,DG)
  183.     ELSEIF(JDZF(1,J).EQ.'FBT')THEN
  184.     CALL TBZ('FBT',XB,YB,YT,DC,NZL,2,L,ZJD,DG)
  185.     ELSEIF(JDZF(1,J).EQ.'FI4')THEN
  186.     CALL TBZ('FI4',XB,YB,YT,DC,NZL,1,L,ZJD,DG)
  187.     ELSEIF(JDZF(1,J).EQ.'FBF')THEN
  188.     CALL TBZ('FBF',XB,YB,YT,DC,NZL,2,L,ZJD,DG)
  189.     ELSEIF(JDZF(1,J).EQ.'FPT')THEN
  190.     CALL TBZ('FPT',XB,YB,YT,DC,NZL,1,L,ZJD,DG)
  191.     ELSEIF(JDZF(1,J).EQ.'FB0')THEN
  192.     CALL TBZ('FB0',XB,YB,YT,DC,NZL,1,L,ZJD,DG)
  193.     ELSEIF(JDZF(1,J).EQ.'FPX')THEN
  194.     CALL TBZ('FPX',XB,YB,YT,DC,NZL,1,L,ZJD,DG)
  195.     ELSEIF(JDZF(1,J).EQ.'DL ')THEN
  196.     YB=YB-28
  197.     CALL INSERT('FW0',XB,YB,1.,1.,0.)
  198.     YT0=YT
  199.     DO 100 I=1,NZL
  200.         IF(ABS(ZJD(I,7)).LT.1)GOTO 188
  201.     ZJD(I,7)=ZJD(I,7)/1000*COS(ALF(I)*0.0175)-0.72*ZJD(I,10)*SIN(
  202.      #    ALF(I)*0.0175)
  203.     ZJD(I,8)=ZJD(I,8)/1000*COS(ALF(I)*0.0175)+0.72*ZJD(I,10)*SIN(
  204.      #    ALF(I)*0.0175)
  205.   188    YT=YT0-7
  206.     XT=DC-33-(NZL-I)*25
  207.       IF(DG.EQ.297.0)XT=XT+5
  208.     CALL TEXT('S',4.,0.,XT-1.5,YT,GFL(I),0,'0',1,'F')
  209.     YT=YT-7
  210.     CALL TEXT('S',4.,0.,XT,YT,ZJD(I,7),0,'0',1,'F')
  211.     YT=YT-7
  212.     CALL TEXT('S',4.,0.,XT,YT,ZJD(I,8),0,'0',1,'F')
  213.     YT=YT-7
  214.     CALL TEXT('S',4.,0.,XT,YT,0.,NGF(I),'0',1,'I')
  215.   100    CONTINUE
  216.     ELSEIF(JDZF(1,J).EQ.'DS ')THEN
  217.     YB=YB-28
  218.     CALL INSERT('CHX',XB,YB,1.,1.,0.)
  219.     YT0=YT
  220.     DO 120 I=1,NZL
  221.     YT=YT0-7
  222.     XT=DC-33-(NZL-I)*25
  223.       IF(DG.EQ.297.0)XT=XT+5
  224.     CALL TEXT('S',4.,0.,XT,YT,SX(I),0,'0',1,'F')
  225.     YT=YT-7
  226.     CALL TEXT('S',4.,0.,XT,YT,CG(I),0,'0',1,'F')
  227.     YT=YT-7
  228.     CALL TEXT('S',4.,0.,XT,YT,ZJD(I,7),0,'0',1,'F')
  229.     YT=YT-7
  230.     CALL TEXT('S',4.,0.,XT,YT,ZJD(I,8),0,'0',1,'F')
  231.   120    CONTINUE
  232.     ENDIF
  233.   200    CONTINUE
  234.     IF(NZL.GT.1)THEN
  235.     N=INT(YB)
  236.     M=DG-10
  237.     DO 250 I=M,N,-7
  238.     XF=DC-10-25*(NZL-1)
  239.       IF(DG.EQ.297.0)XF=XF+5
  240.     XE=DC-10
  241.     Y=FLOAT(I)
  242.     CALL LINE(XF,Y,XE,Y)
  243.   250    CONTINUE
  244.     DO 300 I=1,NZL-1
  245.     X=DC-10-25*I
  246.       IF(DG.EQ.297.0)X=X+5
  247.     YF=DG-10
  248.       IF(DG.EQ.297.0)YF=YF+5
  249.     YE=YF-21
  250.     CALL LINE(X,YF,X,YE)
  251.     YF=YE-7
  252.     CALL LINE(X,YF,X,YB)
  253.   300    CONTINUE
  254.     ENDIF
  255.       ELSEIF(CSX.NE.0.)THEN
  256.     OPEN(2,FILE='\HOUSEM\TXT\CONGEAR.TXT')
  257.     READ(2,'(3F7.2,2I4,3I2,A3,2A8,A2)')CM,CBF,CALF,CZ1,CZ2,
  258.      # CYDDJ,CPWDJ,CJCDJ,CCHX,CDRAW,CTREAT,CDIR
  259.     CLOSE(2)
  260.     XB=DC-94
  261.       IF(DG.EQ.297.0)XB=XB+5
  262.     YB=DG-38
  263.       IF(DG.EQ.297.0)YB=YB+5
  264.     CALL INSERT('OTH',XB-60,YB+10,10.,10.,0.)
  265.     CALL INSERT('GD4',XB-20,YB+10,8.,8.,0.)
  266.     CALL INSERT('WZJ',XB-60,YB,1.,1.,0.)
  267.     CALL INSERT('JB0',XB,YB,1.,1.,0.)
  268.     XT=DC-33
  269.       IF(DG.EQ.297.0)XT=XT+5
  270.     YT=DG-15.5
  271.       IF(DG.EQ.297.0)YT=YT+5
  272.     CALL TEXT('S',4.,0.,XT,YT,CM,0,'0',1,'F')
  273.     YT=YT-7
  274.     CALL TEXT('S',4.,0.,XT,YT,0.,CZ1,'0',1,'I')
  275.     YT=YT-7
  276.     CALL TEXT('S',4.,0.,XT,YT,CALF,0,'0',1,'F')
  277.     YT=YT-7
  278.     IF(CYDDJ.EQ.CPWDJ.AND.CYDDJ.EQ.CJCDJ)THEN
  279.     XX=XT-4
  280.     CALL TEXT('S',4.,0.,XX,YT,0.,CYDDJ,'0',1,'I')
  281.     XX=XX+4
  282.     CALL TEXT('S',4.,0.,XX,YT,0.,0,'-',1,'A')
  283.     XX=XX+4
  284.     CALL TEXT('S',4.,0.,XX,YT,0.,0,CCHX,3,'A')
  285.     ELSE
  286.     XX=XT-10
  287.     CALL TEXT('S',4.,0.,XX,YT,0.,CYDDJ,'0',1,'I')
  288.     XX=XX+4
  289.     CALL TEXT('S',4.,0.,XX,YT,0.,0,'-',1,'A')
  290.     XX=XX+4
  291.     CALL TEXT('S',4.,0.,XX,YT,0.,CPWDJ,'0',1,'I')
  292.     XX=XX+4
  293.     CALL TEXT('S',4.,0.,XX,YT,0.,0,'-',1,'A')
  294.     XX=XX+4
  295.     CALL TEXT('S',4.,0.,XX,YT,0.,CJCDJ,'0',1,'I')
  296.     XX=XX+4
  297.     CALL TEXT('S',4.,0.,XX,YT,0.,0,CCHX,3,'A')
  298.     ENDIF
  299.       YB=YB-7
  300.     CALL INSERT('COE',XB,YB,1.,1.,0.)
  301.       YT=YT-7
  302.     CALL TEXT('S',4.,0.,XT,YT,CONZJD(1),0,'0',1,'F')
  303.       YB=YB-7
  304.     CALL INSERT('COJ',XB,YB,1.,1.,0.)
  305.       YT=YT-7
  306.     CALL TEXT('S',4.,0.,XT,YT,CONZJD(2),0,'0',1,'F')
  307.       YB=YB-7
  308.     CALL INSERT('COP',XB,YB,1.,1.,0.)
  309.       YT=YT-4
  310.     CALL TEXT('S',2.,0.,XT,YT,CONZJD(3),0,'0',1,'F')
  311.       YT=YT-3
  312.     CALL TEXT('S',2.,0.,XT,YT,0.,0,'-',1,'A')
  313.     CALL TEXT('S',2.,0.,XT+4,YT,ABS(CONZJD(4)),0,'0',1,'F')
  314.       YB=YB-7
  315.     CALL INSERT('COT',XB,YB,1.,1.,0.)
  316.       YT=YT-7
  317.     CALL TEXT('S',4.,0.,XT,YT,CONZJD(5),0,'0',1,'F')
  318.       YB=YB-14
  319.     CALL INSERT('COD',XB,YB,1.,1.,0.)
  320.       YT=YT-7
  321.     CALL TEXT('S',4.,0.,XT+13,YT,CONZJD(6),0,'0',1,'F')
  322.     CALL TEXT('S',4.,0.,XT+19,YT,0.,0,'%',1,'A')
  323.       YT=YT-7
  324.     CALL TEXT('S',4.,0.,XT+13,YT,CONZJD(6),0,'0',1,'F')
  325.     CALL TEXT('S',4.,0.,XT+19,YT,0.,0,'%',1,'A')
  326.       YB=YB-28
  327.     CALL INSERT('COH',XB,YB,1.,1.,0.)
  328.       YT=YT-14
  329.     CALL TEXT('S',4.,0.,XT,YT,CSX,0,'0',1,'F')
  330.       YT=YT-14
  331.     CALL TEXT('S',4.,0.,XT,YT,CNX,0,'0',1,'F')
  332.     ELSEIF(WQ.NE.0)THEN
  333.       OPEN(2,FILE='\HOUSEM\TXT\WB.TXT')
  334.      READ(2,'(3F7.2,I4,A4,I2,A2,I4,A8)')WM,WBF,WALF,WZ1,WDIR,
  335.      # WJD,WCHX,WZ2,WDRAW
  336.      CLOSE(2)
  337.      OPEN(3,FILE='\HOUSEM\TXT\WBJDZ.TXT')
  338.      READ(3,'(7F7.2,A4)')(WJDZ(J),J=1,7),WDDA
  339.      CLOSE(3)
  340.      CALL WBP(WZ1,WZ2,WM,WQ,WA,WR,CP,WDA,WDF,WS1,WSM)
  341.     XB=DC-94
  342.       IF(DG.EQ.297.0)XB=XB+5
  343.     YB=DG-150
  344.       IF(DG.EQ.297.0)YB=YB+5
  345.     CALL INSERT('OTH',XB-60,YB+120,10.,10.,0.)
  346.     CALL INSERT('GD4',XB-20,YB+120,8.,8.,0.)
  347.     CALL INSERT('WZJ',XB-60,YB+110,1.,1.,0.)
  348.     CALL INSERT('BWB',XB,YB,1.,1.,0.)
  349.     XT=DC-33
  350.       IF(DG.EQ.297.0)XT=XT+5
  351.     YT=DG-22.5
  352.       IF(DG.EQ.297.0)YT=YT+5
  353.     CALL TEXT('S',4.,0.,XT,YT,WM,0,'0',1,'F')
  354.     YT=YT-7
  355.     CALL TEXT('S',4.,0.,XT,YT,0.,WZ1,'0',1,'I')
  356.     YT=YT-7
  357.     CALL DFMANG(WR,XT,YT)
  358.     YT=YT-14
  359.     CALL TEXT('S',4.,0.,XT,YT,WALF,0,'0',1,'F')
  360.     XX=XT+4
  361.     IF(WALF.GT.9)XX=XT+8
  362.     CALL TEXT('S',4.,0.,XX,YT,0.,0,'%%D',3,'A')
  363.     YT=YT-7
  364.     CALL TEXT('S',4.,0.,XT,YT,0.,WJD,'0',1,'I')
  365.     XX=XT+4
  366.     CALL TEXT('S',4.,0.,XX,YT,0.,0,'-',1,'A')
  367.     XX=XX+4
  368.     CALL TEXT('S',4.,0.,XX,YT,0.,0,WCHX,2,'A')
  369.     YT=YT-7
  370.     CALL TEXT('S',4.,0.,XT,YT,WA,0,'0',1,'F')
  371.     YT=YT-7
  372.     CALL TEXT('S',4.,0.,XT,YT,WQ,0,'0',1,'F')
  373.     YT=YT-7
  374.     CALL TEXT('S',4.,0.,XT,YT,0.,0,WDRAW,8,'A')
  375.     YT=YT-7
  376.     CALL TEXT('S',4.,0.,XT,YT,0.,0,'+',1,'A')
  377.     CALL TEXT('S',4.,0.,XT,YT-2,0.,0,'-',1,'A')
  378.     CALL TEXT('S',4.,0.,XT+4,YT,WJDZ(2),0,'0',1,'F')
  379.       YT=YT-7
  380.       CALL TEXT('S',4.,0.,XT,YT,0.,0,'+',1,'A')
  381.       CALL TEXT('S',4.,0.,XT,YT-2,0.,0,'-',1,'A')
  382.       CALL TEXT('S',4.,0.,XT+4,YT,WJDZ(1),0,'0',1,'F')
  383.      YT=YT-7
  384.      CALL TEXT('S',4.,0.,XT,YT,WJDZ(3),0,'0',1,'F')
  385.      YT=YT-7
  386.      CALL TEXT('S',4.,0.,XT,YT,WJDZ(4),0,'0',1,'F')
  387.      YT=YT-10.5
  388.      CALL TEXT('S',4.,0.,XT,YT,WS1,0,'0',1,'F')
  389.      XX=XT+16
  390.      CALL TEXT('S',2.,0.,XX,YT+3,0.,0,'-',1,'A')
  391.      CALL TEXT('S',2.,0.,XX,YT-1,0.,0,'-',1,'A')
  392.      XX=XX+2
  393.       CALL TEXT('S',2.,0.,XX,YT+3,WJDZ(5),0,'0',1,'F')
  394.         CALL TEXT('S',2.,0.,XX,YT-1,WJDZ(5)+WJDZ(6),0,'0',1,'F')
  395.       YT=YT-14
  396.      CALL TEXT('S',4.,0.,XT,YT,WSM,0,'0',1,'F')
  397.      XX=XT+16
  398.      CALL TEXT('S',2.,0.,XX,YT+3,0.,0,'-',1,'A')
  399.      CALL TEXT('S',2.,0.,XX,YT-1,0.,0,'-',1,'A')
  400.      XX=XX+2
  401.       CALL TEXT('S',2.,0.,XX,YT+3,WJDZ(5),0,'0',1,'F')
  402.       CALL TEXT('S',2.,0.,XX,YT-1,WJDZ(5)+WJDZ(6),0,'0',1,'F')
  403.      YT=YT-14
  404.      CALL TEXT('S',4.,0.,XT,YT,WM,0,'0',1,'F')
  405.     ELSE
  406.       IF(DG.EQ.297.0)THEN
  407.       DC=DC+5
  408.       DG=DG+5
  409.       ENDIF
  410.     CALL INSERT('OTH',DC-70,DG-30,10.,10.,0.)
  411.     CALL INSERT('GD4',DC-30,DG-30,8.,8.,0.)
  412.     CALL INSERT('WZJ',DC-70,DG-40,1.,1.,0.)
  413.     ENDIF
  414. C     IF(DG.EQ.297.0)DG=DG+5
  415. C       CALL TLINE(25.,DG-22.,70.,DG-22.,0.35)
  416. C       CALL TLINE(70.,DG-22.,70.,DG-10.,0.35)
  417. C    XT=68.0-(11-N2)*1.85
  418. C    CALL TEXT('S',3.83,180.,XT,DG-14.,0.,0,DRAFR,8,'A')
  419.     RETURN
  420.     END
  421.         
  422.     SUBROUTINE TBZ(TDF,XB,YB,YT,DC,NZL,N,J,ZJD,DG)
  423.     DIMENSION ZJD(5,12)
  424.     CHARACTER*5 TDF
  425.     YB=YB-7*N
  426.     YT0=YT
  427.     CALL INSERT(TDF,XB,YB,1.,1.,0.)
  428.     DO 20 I=1,NZL
  429.     XT=DC-33-(NZL-I)*25
  430.       IF(DG.EQ.297.0)XT=XT+5
  431.     YT=YT0
  432.     DO 10 K=1,N
  433.     YT=YT-7
  434.     CALL TEXT('S',4.,0.,XT,YT,ZJD(I,J+K-1),0,'0',1,'F')
  435.   10    CONTINUE
  436.   20    CONTINUE
  437.     RETURN
  438.     END
  439.  
  440.     SUBROUTINE DFMANG(ANG,XT,YT)
  441.     IDSH=INT(ANG)
  442.     FSH=(ANG-IDSH)*60
  443.     IFSH=INT(FSH+0.01)
  444.     SH=(FSH-IFSH)*60
  445.     SH=10.*SH
  446.     ISH=INT(SH+0.01)
  447.     SH=ISH/10.0
  448.     CALL TEXT('S',3.,0.,XT,YT,0.,IDSH,'0',1,'I')
  449.     CALL DECIM(ANG,ND,NS)
  450.     XT=XT+ND*3./10-0.5
  451.     CALL TEXT('S',3.,0.,XT,YT,0.,0,'%%D',3,'A')
  452.     XT=XT+2
  453.     CALL TEXT('S',3.,0.,XT,YT,0.,IFSH,'0',1,'I')
  454.     CALL DECIM(FSH,ND,NS)
  455.     XT=XT+ND*3./10-0.5
  456.     CALL TEXT('S',3.,0.,XT,YT,0.,0,'''',1,'A')
  457.     XT=XT+2
  458.     CALL TEXT('S',3.,0.,XT,YT,SH,0,'0',1,'F')
  459.     CALL DECIM(SH,ND,NS)
  460.     IF(NS.GT.0)THEN
  461.     XT=XT+(ND/10+NS+0.5)*3.-0.5
  462.     ELSE
  463.     XT=XT+ND*3./10-0.5
  464.     ENDIF
  465.     CALL TEXT('S',3.,0.,XT,YT,0.,0,'"',1,'A')
  466.     RETURN
  467.     END
  468.