generic float dbl long cfloat c dbl cmplx long atanh atanhf atanh atanhl catanhf catanh catanhl #### perl -pi -e 's/c$tgt || c$tgtf || c$tgtl || $tgtf || $tgtl /$tgt/g' *.c #### $tgt = tanh #### exa=cexpl ( ccosl (arg), csinl ( arg) ) * cabsl (arg2) + csqrtl ( cargl(arg3) + csqrtl(cargl(arg4) * cargl(arg5) + cargl (arg5) * cargl(arg5)); #### exa = exp( cos(arg) , sin(arg) ) * fabs(arg2)+ sqrt(carg(arg3) + sqrt(carg(arg4)*carg(arg5)+carg(arg5)*carg(arg5));