dataplot-2c1b27601a3b7523449de612613eadeead9a8f70/src/dp3.F

8804       REALP(ZDUMMY) = REAL(ZDUMMY)
8838       C=MAX(ABS(REALP(P)),ABS(AIMAGP(P)))
8851       C=MAX(ABS(REALP(P)),ABS(AIMAGP(P)))
8867       P=CMPLX(REALP(P)/TOVER,AIMAGP(P)/TOVER)
8868       PLAST=CMPLX(REALP(PLAST)/TOVER,AIMAGP(PLAST)/TOVER)
8875       IF(ABS(REALP(P))+ABS(AIMAGP(P)).LE.DYOUKI) GO TO 8
8880       E=(REALP(PLAST)**2+AIMAGP(PLAST)**2)*(REALP(POLD)**2+
8892       IF(REALP(POLD)**2+AIMAGP(POLD)**2.GE.TEST) GO TO 10
8905    12 P=1./CMPLX(REALP(P)/C,AIMAGP(P)/C)
8906       B=   CMPLX(REALP(P)/C,AIMAGP(P)/C)
15014       REALP(ZDUMMY) = REAL(ZDUMMY)
15042       E=REALP(Z)**2+AIMAGP(Z)**2
15050       F=1./MAX(ABS(REALP(Z)),ABS(AIMAGP(Z)))
15130       F=1./MAX(ABS(REALP(SUM)),ABS(AIMAGP(SUM)))
15131       FAC=ZP*(F*(FAC/(CMPLX(REALP(SUM)*F,AIMAGP(SUM)*F))))
15205       REALP(ZDUMMY) = REAL(ZDUMMY)
15225       Q=ABS(REALP(Z))
15244       IF ((REALP (EE) ** 2 + AIMAGP (EE) ** 2) .GT. DYOUK)
15262       TEST=DYOUK*MAX(ABS(REALP(AK(1))),ABS(AIMAGP(AK(1))))
15276       IF(MAX(ABS(REALP(AK(N+1))),ABS(AIMAGP(AK(N+1)))).LE.TEST) GO TO 12
15302       IF(REALP(Z).LT.0.) FF=-Z
15312       IF(MAX(ABS(REALP(PP)),ABS(AIMAGP(PP))).GE.EN*TEST) GO TO 23
15336       IF(REALP(Z).GE.0.) GO TO 40
15362       IF(MAX(ABS(REALP(HH)),ABS(AIMAGP(HH))).GT.BIG) GO TO 82
15375       IF(REALP(Z).LT.0.) FF=-FF
15376       IF(REALP(Z).LT.0.) EE=-EE
15387       IF(REALP(Z).LT.0.) GO TO 26
15397       IF(MAX(ABS(REALP(BK(N-1))),ABS(AIMAGP(BK(N-1)))).GT.BIG) GO TO 82
16417       REALP(ZDUMMY) = REAL(ZDUMMY)
16442       Q=REALP(Z)
16467       IF ((REALP (EE) ** 2 + AIMAGP (EE) ** 2) .GT. DYOUK)
16494       TEST =DYOUK*MAX(ABS(REALP(YA(1))),ABS(AIMAGP(YA(1))))
16509       IF(MAX(ABS(REALP(YA(N+1))),ABS(AIMAGP(YA(N+1)))).LE.TEST)GOTO12
16556         IF(MAX(ABS(REALP(HH)),ABS(AIMAGP(HH))).GT.BIG) GO TO 82
16573       IF(REALP(Z).GE.0.) GO TO 32
16591       IF(REALP(Z).LT.0.) GO TO 34
16628       IF(MAX(ABS(REALP(BY(N-1))),ABS(AIMAGP(BY(N-1)))).GT.BIG) GO TO 82