◆NO I=10 J=Jo IDX(I,J)=IDXo EPS=1E-8 IF(SUMO.LT.EPS)GO TO 25 C ONE STEP FORW ARO IF(SUMO.NE.0.0.AND.GDS0.EQ.0.0)GO TO 05 RAMDA=SUMO/GOSO RAMDA=SQRT(RAMDA) RAMDA=RAMDA/GDSO DXO=RAMDA*PSXO DYo=RAMDA*PSYO IF (DX0.GE.0.0)IDX0=IFIX(DX0+0.5) IF (DXO.LT.0.0)IDXO=IFIX(DX0-0.5) IF (DY0.GE.0.0)IDYO=IFIX(DY0+0.5) IF (DYO.LT.0.0)IDYO=IFIX(DYO-0.5) 10=I0-IDX0 JO=Jo-IDX0 G0T010 C OUT-PUT AND DISLAY 28 WRITE(6,158)I0,J0 25 WRITE(6,140) 24 WRITE(6,120)((IDX(I,J),J=1,NY),I=1,NX) PROPC(1,1)=1,0 DO 30 K=1,NK DO 30 L=1,NL I=K+I0-1 J=L+J0-1 30 PROPC(I,J)=DIGPC(I,J)DIGPC(I,J) CALL PICDSP(NX,NY,0) D040I=1,NX D040J=1,NY 40 PROPC(I,J)=DIGPC(I,J) CALL PICDSP(NX,NY,0) STOP 100 FORMAT(414) 101 FORMAT(64A1) 120 FORMAT(1H ,2X,6412) 130 FORMAT(1H,2X,2X,4H NR4HIO,,4H Jo,,6H SUMO,,6H 63， 一 朴 赞 一 一 一 一 一 ， ， ， ， ， ， ， ， ， ， ， ， ， 一 一 ， ， ， ， ， ， ， ， ， ， ， ， ， ， ， ， ， ， ， ， ， ， 肠