fferr.h

        character*80 e1
        parameter (e1="ffca0: minimum value complex logarit"//
     +   "hm gives problem, change mu.")
        character*80 e2
        parameter (e2="ffxa0: minimum value real logarithm "//
     +   "gives problem, change mu.")
        character*80 e3
        parameter (e3="ffcb0: minimum value complex logarit"//
     +   "hm gives problem, change mu.")
        character*80 e4
        parameter (e4="ffxb0: minimum value real logarithm "//
     +   "gives problem, change mu.")
        character*80 e5
        parameter (e5="ffcb0p: cannot handle complex k^2 yet")
        character*80 e6
        parameter (e6="ffcb0p: minimum value complex log giv"//
     +   "es problem in unequal masses.")
        character*80 e7
        parameter (e7="ffxb0p: divergence for k->0, m1=m2=0.")
        character*80 e8
        parameter (e8="ffxb0p: minimum value real log gives "//
     +   "problem in equal masses.")
        character*80 e9
        parameter (e9="ffxb0p: minimum value real log gives "//
     +   "problem in unequal masses.")
        character*80 e10
        parameter (e10="ffcc0p: cannot handle two spacelike m"//
     +   "omenta and one zero.")
        character*80 e11
        parameter (e11="ffxc0p: cannot handle two spacelike m"//
     +   "omenta and one zero.")
        character*80 e12
        parameter (e12="ffcs3: illegal code for isoort(1) (s"//
     +   "hould not occur)")
        character*80 e13
        parameter (e13="ffcs3: illegal code for isoort(2) (s"//
     +   "hould not occur)")
        character*80 e14
        parameter (e14="ffcs3: imaginary part wrong, will be"//
     +   " improved later")
        character*80 e15
        parameter (e15="ffcs3: isoort = -1,0 not yet ready")
        character*80 e16
        parameter (e16="ffcs3: illegal combination in isoort"//
     +   " (should not occur)")
        character*80 e17
        parameter (e17="ffcxs3: illegal code for isoort(1) (s"//
     +   "hould not occur)")
        character*80 e18
        parameter (e18="ffcxs3: illegal code for isoort(2) (s"//
     +   "hould not occur)")
        character*80 e19
        parameter (e19="ffcs4: imaginary part is wrong (shou"//
     +   "ld be updated)")
        character*80 e20
        parameter (e20="ffdcrr: Taylor expansion in 1/x not y"//
     +   "et ready")
        character*80 e21
        parameter (e21="ffdcxr: imaginary part is wrong")
        character*80 e22
        parameter (e22="ffdcxr: Taylor expansion in 1/x not y"//
     +   "et ready")
        character*80 e23
        parameter (e23="ffcrr: minimum value complex log cau"//
     +   "ses correction term to be wrong.")
        character*80 e24
        parameter (e24="ffcxr: minimum value real log causes"//
     +   " correction term to be wrong.")
        character*80 e25
        parameter (e25="ffcrr: illegal code for iclas1 (shou"//
     +   "ld not occur)")
        character*80 e26
        parameter (e26="ffcxr: illegal code for iclas1 (shou"//
     +   "ld not occur)")
        character*80 e27
        parameter (e27="ffcrr: illegal code for iclas2 (shou"//
     +   "ld not occur)")
        character*80 e28
        parameter (e28="ffcxr: illegal code for iclas2 (shou"//
     +   "ld not occur)")
        character*80 e29
        parameter (e29="ffxli2: argument too large (should no"//
     +   "t occur)")
        character*80 e30
        parameter (e30="ffzli2: argument too large (should no"//
     +   "t occur)")
        character*80 e31
        parameter (e31="ffzzdl: imaginary part dilog is undef"//
     +   "ined for real x > 1.")
        character*80 e32
        parameter (e32="nffeta: eta is not defined for real n"//
     +   "egative numbers a,b, ab.")
        character*80 e33
        parameter (e33="nffet1: eta is not defined for real n"//
     +   "egative numbers a,b, ab.")
        character*80 e34
        parameter (e34="ffcota: illegal flag (should not occu"//
     +   "r)")
        character*80 e35
        parameter (e35="ffrota: illegal flag (should not occu"//
     +   "r)")
        character*80 e36
        parameter (e36="ffccyz: I took the wrong value for ca"//
     +   "lpha... (should not occur)")
        character*80 e37
        parameter (e37="ffxxyz: I took the wrong value for al"//
     +   "pha... (should not occur)")
        character*80 e38
        parameter (e38="ffcoot: a=0, trying to find two roots"//
     +   " of a linear equation ...")
        character*80 e39
        parameter (e39="ffroot: a=0, trying to find two roots"//
     +   " of a linear equation ...")
        character*80 e40
        parameter (e40="ffrot3: all three external masses zer"//
     +   "o !")
        character*80 e41
        parameter (e41="ffxc0: lambda(p1,p2,p3) < 0, unphysi"//
     +   "cal configuration")
        character*80 e42
        parameter (e42="ffxc0: cannot handle this case (p1,p"//
     +   "2,p3 dependent, on threshold)")
        character*80 e43
        parameter (e43="ffcxs3: illegal code for isoort(1) (s"//
     +   "hould not occur)")
        character*80 e44
        parameter (e44="ffxd0: lambda(p1,p2,p3,p4) < 0, unph"//
     +   "ysical configuration")
        character*80 e45
        parameter (e45="ffxd0: cannot handle this case (p1,p"//
     +   "2,p3 dependent, on threshold)")
        character*80 e46
        parameter (e46="ffxd0p: correction terms for Ai <0 in"//
     +   "finite (mass zero?)")
        character*80 e47
        parameter (e47="ffcxyz: p_i^2 = 0 (should not occur)")
        character*80 e48
        parameter (e48="ffeta: answer not consistent with no"//
     +   "rmal result (old)")
        character*80 e49
        parameter (e49="ffcc0: cannot handle complex externa"//
     +   "l momenta or im > 0")
        character*80 e50
        parameter (e50="ffcd0: cannot handle complex externa"//
     +   "l momenta.")
        character*80 e51
        parameter (e51="zfflog: imaginary part undefined for "//
     +   "real z < 0.")
        character*80 e52
        parameter (e52="zxfflg: imaginary part undefined for "//
     +   "x < 0.")
        character*80 e53
        parameter (e53="ffcs3: eta changes within (0,1), add"//
     +   " sophisticated terms...")
        character*80 e54
        parameter (e54="ffrot4: cannot find any physical vert"//
     +   "ex to apply transformation.")
        character*80 e55
        parameter (e55="fftra0: too many vectors parallel, p_"//
     +   "1.p_7 or p_2.p_7 is zero.")
        character*80 e56
        parameter (e56="zfflog: tiny imaginary part in confli"//
     +   "ct with ieps prescription.")
        character*80 e57
        parameter (e57="ffxe0: lambda(p1,p2,p3,p4,p5) < 0, u"//
     +   "nphysical")
        character*80 e58
        parameter (e58="ffxc0j: IR divergent C0 with lambda(p"//
     +   "1,p2,p3)=0.")
        character*80 e59
        parameter (e59="ffxc0i: IR divergent C0 with lambda2=0.")
        character*80 e60
        parameter (e60="ffxc0j: IR divergent C0 obtained from"//
     +   " D0 is singular. Contact author.")
        character*80 e61
        parameter (e61="ffxd0p: IR divergent D0 with lambda2=0.")
        character*80 e62
        parameter (e62="ffxc0p: I never expected complex root"//
     +   "s in an IR divergent diagram.")
        character*80 e63
        parameter (e63="ffxd0p: can only handle one IR diverg"//
     +   "ence per 3point function")
        character*80 e64
        parameter (e64="ffxd0p: cannot handle a threshold in"//
     +   " (3,4), rotated wrongly.")
        character*80 e65
        parameter (e65="ffcxr: IR divergence but iclass!=3. "//
     +   " should not occur.")
        character*80 e66
        parameter (e66="ffcxs3: different imaginary signs sho"//
     +   "uld not occur for ipole=3.")
        character*80 e67
        parameter (e67="ffxdbd: I cannot use this algorithm f"//
     +   "or a linear IR divergence")
        character*80 e68
        parameter (e68="ffxd0: cannot find a proj. transform"//
     +   "ation; try another permutation.")
        character*80 e69
        parameter (e69="ff5ind: could not find independent mo"//
     +   "menta (should not occur).")
        character*80 e70
        parameter (e70="ffxdna: lambda(pi,pj,pk) < 0, unphysi"//
     +   "cal configuration")
        character*80 e71
        parameter (e71="ffxdna: cannot handle lambda(pi,pj,pk"//
     +   ") = 0, dependent momenta.")
        character*80 e72
        parameter (e72="ffxd0e: could not find a stable root;"//
     +   " please try another permutation")
        character*80 e73
        parameter (e73="ffxdir: cannot handle a linearly dive"//
     +   "rgent four point function (yet)")
        character*80 e74
        parameter (e74="ffxdbd: IR divergent B0' without cuto"//
     +   "ff in /ffregul/")
        character*80 e75
        parameter (e75="ffdcxr: dyz=0, should not occur")
        character*80 e76
        parameter (e76="ffdcrr: cdwz=0, but iepsz!=iepsz and "//
     +   "significant")
        character*80 e77
        parameter (e77="ffdcrr: cdyz=0, should not occur")
        character*80 e78
        parameter (e78="ffdcc0: imaginary part wrong")
        character*80 e79
        parameter (e79="ffdcs: cannot handle isoort=0")
        character*80 e80
        parameter (e80="ffdcs: mixed up iep's, 2*pi^2 wrong "//
     +   "somewhere")
        character*80 e81
        parameter (e81="ffdcs: wrong value for isoort")
        character*80 e82
        parameter (e82="ffdxc0: imaginary part Ai < 0 terms unc"//
     +   "ertain")
        character*80 e83
        parameter (e83="ffxc0j: sorry, complex roots not yet "//
     +   "supported here")
        character*80 e84
        parameter (e84="ffxc0p: imaginary part Ai < 0 terms unc"//
     +   "ertain")
        character*80 e85
        parameter (e85="ffxd0a: t3 = t4, don''t know what to do")
        character*80 e86
        parameter (e86="ffxdbp: cannot compute derivative, la"//
     +   "m=0")
        character*80 e87
        parameter (e87="ffxdi: dependent momenta not yet sup"//
     +   "ported (boundary of phase space)")
        character*80 e88
        parameter (e88="ffxxyz: xk = 0 not yet implemented")
        character*80 e92
        parameter (e92="ffxc1: cannot invert matrix with zer"//
     +   "o determinant.")
        character*80 e93
        parameter (e93="ffze0: Im(m^2) > 0")
        character*80 e94
        parameter (e94="ffze0: Im(p^2) != 0")
        character*80 e95
        parameter (e95="ffzf0: Im(m^2) > 0")
        character*80 e96
        parameter (e96="ffzf0: Im(p^2) != 0")
        character*80 e97
        parameter (e97="ffxc0j: ill-defined IR-divergent C0 f"//
     +   "or massless charged particles.")
        character*80 e98
        parameter (e98="ffxdbd: ill-defined IR-divergent D0 f"//
     +   "or massless charged particles.")
        character*80 e100
        parameter (e100="ffrcvr: probably underflow, I do"//
     +   " not know where or how severe.")
        character*80 e101
        parameter (e101="ffxdb1: DB1(0, 0, 0) not defined")
        character*80 e102
        parameter (e102="ffxdb11: DB11(0, m1, m2) not defined")
        character*80 error(102)
        data error / e1,e2,e3,e4,e5,e6,e7,e8,e9,
     +   e10,e11,e12,e13,e14,e15,e16,e17,e18,e19,
     +   e20,e21,e22,e23,e24,e25,e26,e27,e28,e29,
     +   e30,e31,e32,e33,e34,e35,e36,e37,e38,e39,
     +   e40,e41,e42,e43,e44,e45,e46,e47,e48,e49,
     +   e50,e51,e52,e53,e54,e55,e56,e57,e58,e59,
     +   e60,e61,e62,e63,e64,e65,e66,e67,e68,e69,
     +   e70,e71,e72,e73,e74,e75,e76,e77,e78,e79,
     +   e80,e81,e82,e83,e84,e85,e86,e87,e88," ",
     +   " "," ",e92,e93,e94,e95,e96,e97,e98," ",
     +   e100,e101,e102 /