.NTI1Ng.MjY3NjU0

6= 0. IF (N0RM.F.C.0Î GCTC ICC MINI = 32767 MAXI=-32768 on 50 IY=IYMINflYMAX CO 50 IX=ÎXMINtIXMAX 1= IM<IX,IV, IMGIN) M I N I = M I N ( M IM * I ) 5 0 Y A X I = MAXfMAXItI ) If(MINI♦E Q * M A XI)GOTO ICO A = 127«/FLCAT(HAXI-MINI ) 6= -A*FLGATIMINÎî C SELECT LINE IOC DO 400 IY= ÏYMINt I YMAX C FILLING 80FF DG 20 0 IX = I X M I N,IX F A X I B = 2*(IX-IXMINJ + l 1= IMdXtlY,IMGIN) 1= IFIX(A*FLCAT{ I )+3 + 0.5) IF (I.LT.O) 1=0 3UFF < 13 ) = I 2 OC SUFFI 13 + 1 ) = I C L G A C E U F F IX M 0 = IX0+IXG-2+MQC< I Y,2 ) IYMO= (I Y-IYMIN+IYC-1 )*2 L E N G T H = SIZXIIMGIN>*2 IF (M0D(IY»2)«£Q«1) L E N G 7H= M IN(LENGTH,5 11 ) CALL PtoRFI IXMOtI YMC , LENGTH »1» 81 F F( 1 ) » ) 4OC CALL PWRF(IXMO»IYMC+1 »LENG7H»1 ,SUFFI1) , ) RETURN C CASE CF ERRCR SOC VJRITE 16, 1000) 10C0 FORMAT (1H , 'PARAMETER ERRCR IK SUEROUTI NE MLOAC * RETURN END