************************************************************************ * * SetDampingPowerFONLL.f: * * This subroutine sets the power with wich the FONLL damping factor * suppresses F^{(d)}. * ************************************************************************ subroutine SetDampingPowerFONLL(dpc,dpb,dpt) * implicit none * include "../commons/DampingFONLL.h" * integer dpc,dpb,dpt * DampPowerFONLL(4) = dpc DampPowerFONLL(5) = dpb DampPowerFONLL(6) = dpt InDampPowerFONLL = "done" * return end