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