684 LOSS(J) = (140.05 - RX) * 10. 



685 IF (LOSS(J) .LT. 0) LOSS(J) = 



686 IF (L0S5(J) . GT . 999) LOSS(d) = 999 



687 540 CONTINUE 



688 GO TO (770.780,716) ,KX 



689 C PLOT DB LOSSES 



690 712 COL( 15)=1HI 



691 C0L(39)=1HI 



692 C0L(63)=1HI 



693 C0L(87)=1HI 



694 C0L(111)=1HI 



695 C0L(27)=1HX 



696 C0L(51)=1HX 



697 C0L(75)=1HX 



698 C0L(99)=1HX 



699 I PLACE = 135 



700 DO 787 J = 1 ,NR 



701 I PLACE = I PLACE - 24 



702 783 IPLOT = P LEV(J) - R LOSS(d) 



703 IF (I PLOT .GT. 10) GO TO 776 



704 GO TO 777 



705 776 P LEV(J) = P LEV(J) - 20. 



706 J COUNT(J) = lI COUNT(J) - 2 



707 J COU(J)=J C0U(d)-2 



708 786 COL(I PLACE + 1) = 1 HO 



709 IF (P LEV(J) - 100.) 778,779,781 



710 778 dC = J COU(d) + 1 



711 COL(IPLACE) = ING(dC) 



712 GO TO 783 



713 779 COL(I PLACE) = 1 HO 



714 GO TO 782 



715 781 dC = J COUNT(d) + 1 



716 COL(IPLACE) = ING(dC) 



717 782 COL(I PLACE - 1) = 1H1 



718 GO TO 783 



719 777 IF (I PLOT .LT. -9) GO TO 784 



720 GO TO 785 



721 784 P LEV(J) = P LEV(J) + 20. 



722 d COU(J)=d C0U(d)+2 



723 d COUNT(d) = d COUNT(d) + 2 



724 GO TO 786 



725 785 IPP = I PLACE + IPLOT 



726 COL(IPP) = 1H+ 



727 787 CONTINUE 



728 GO TO 750 



729 C CONTOUR LOSS FIELD 



730 780 DO 590 J J = 1 , 1 20 



731 590 COL(JJ) = 1H 



732 C0L(31)=1HI 



733 C0L(61)=1HI 



734 C0L(91)rlHI 



735 DO 640 dd = 2,41 



736 LEV = 1 



737 620 IF (RLOS (dd) .LT. CONTR(LEV)) GO TO 600 



738 GO TO 610 



739 600 LEV=LEV+1 



740 GO TO 620 



56 



