Fix type in smodel/setup.C.