changed dsqrt to sqrt in evalcostf.g90