anchor.diff:  	U2=DSQRT(Q)*C2
   	CALL JYNB(KM,U1,NM,BJ1,DJ1,BY1,DY1)
   	CALL JYNB(KM,U2,NM,BJ2,DJ2,BY2,DY2)
  +        W1=0.0D0
  +        W2=0.0D0
   	IF (KC.EQ.2) GO TO 50
   	F1R=0.0D0
   	DO 30 K=1,KM
  
positive.code: 35            BK(K+1)=QT*S1
  40         CONTINUE
  	ELSE IF (IP.EQ.1) THEN
  	   DO 60 K=0,N2-1
  	      S1=0.0D0
  	      I1=K-M+1
  
negative.code:            ZHF = 1.0D300
             RETURN
          ENDIF
          NM=0
          IF (A0.EQ.0.0D0.OR.A.EQ.0.0D0.OR.B.EQ.0.0D0) THEN
             ZHF=(1.0D0,0.0D0)
          ELSE IF (Z.EQ.1.0D0.AND.C-A-B.GT.0.0D0) THEN
  