--
You received this message because you are subscribed to the Google Groups "expokit" group.
To unsubscribe from this group and stop receiving emails from it, send an email to expokit+u...@googlegroups.com.
To view this discussion on the web visit https://groups.google.com/d/msgid/expokit/6e5d7da3-ea90-400d-963d-c05db1534458n%40googlegroups.com.
You received this message because you are subscribed to a topic in the Google Groups "expokit" group.
To unsubscribe from this topic, visit https://groups.google.com/d/topic/expokit/0e3bQN11i_Q/unsubscribe.
To unsubscribe from this group and all its topics, send an email to expokit+u...@googlegroups.com.
To view this discussion on the web visit https://groups.google.com/d/msgid/expokit/CAFQ4HZt4_k4BJK4bL8i8ysPrhe3b85oWC228KFKMrUEWyHF7Dg%40mail.gmail.com.
1 p2 = p1 - 1.0d0
p3 = p2 + p2 + p2
eps = ABS( p3-1.0d0 )
if ( eps.eq.0.0d0 ) go to 1It looks to me that this could be an infinite loop if eps == 0.0 b/b p1 has not changed. However, it does not seem like it is ever possible to have eps = 0.0 with double precision arithmetic.
Something else that looks confusing to me is the following call to compute the Pade approximation:
call ZGPADM( ideg, mx, sgn*t_step, wsp(ih),mh, . wsp(ifree),lfree, iwsp, iexph, ns, iflag )As far as I can tell, "iexph" has not been set at this point in the program. Am I reading this correctly? Thanks for your time again!Best,Tyler