D002J=1,NY IDX(I,J)=0 PROPC(I,J)=32.0 02 ADIGPC(I,J)=DIGPC(I,J) NXK=NX-NK+1 NYL=NY-NL+1 N=0 C C CHOOSEING RADOMLY STARTING POINTS NR=0 IX=584287 05D008KK=1,2 IX=IX#48828125 IX=MOD(IX,2147483647) IF(IX)06,07,07 06IX=(IX+2147483647)+1 07R(KK)=FL0AT(IX)#0.4656613E-9 08 CONTINUE 10=1+IFIX(R(1)*(NXK-1)) j0=1+IFIX(R(2)*(NYL-1)) NR=NR+1 WRITE(6,150)NR,R(1),R(2) IF(NO)20,20,10 C C IDENIFYING I0,Jo 10D015KK=1,N0 IF(MI(KK).EQ.I0.AND.MJ(KK).EQ.Jo)GO TO 05 15 CONTINUE IF(I0,GT.NXK.OR.Jo.GT,NYL)GO TO 05 IF(10.LT,1.OR.Jo.LT.1)GO TO 05 C C CALCUATEING PARAMETERS SUMO,PSXO,PSYO,GDSO OF THE WINDOW AT I0,Jo C AND CHECKING THE MATCHING WITH TEMPLATE 20 CALL SPGO(NO,10,Jo,NK,NL,SUM,PSXO,PSYO,GDSO, SITAO,IDXO) NO=NO+1 MI(NO)=10 MJ(NO)=Jo WRITE(6,130)NR,I0,Jo,SUMO,PSYO,GDSO,SITAO,IDXO, ?， ， ， 二 ， ， 一 一 二 ， 势 ， ， ， 份 一 价 一 一 一 二 ， ， ， ， ， ， ， ， ， ， ， ， ， ， ， ， ， ， ， ， ， ， ， ， ， ， ， ， ， ， 母