integer, parameter module_radsw_parameters::nbands = NBHGH-NBLOW+1