link ../../GridNPB3.1-SHF-SER/SP/set_constants.f