user.f90 for whizard2