forgot to add scal2.f