anchor.diff:          R=1.0D0
           HMAX=0.0D0
           HMIN=1.0D+300
  +        H0=0D0
           DO 15 K=1,150
              R=R*(A0+K-1.0D0)*X/((N+K)*K)
              HM1=HM1+R
  
positive.code:            VM=V                     
             RETURN
          ENDIF
          IF (DBLE(Z).LT.0.0) Z1=-Z
          IF (A0.LE.12.0) THEN
             DO 25 L=0,1
  
negative.code:         BL3=X.GT.12.5.AND.A.GE.5.0.AND.B.GE.A+5.0
          BN=B.EQ.INT(B).AND.B.NE.0.0
          ID1=-100
          HU1=0.0D0
          IF (B.NE.INT(B)) THEN
             CALL CHGUS(A,B,X,HU,ID1)
             MD=1
  