normalize_collisions_params Subroutine

  subroutine normalize_collisions_params(params)
    TYPE(KORC_PARAMS), INTENT(IN) :: params

    if (params%collisions) then
       SELECT CASE (TRIM(params%collisions_model))
       CASE (MODEL1)
          call normalize_params_ss(params)

          SELECT CASE(TRIM(params%bound_electron_model))
          CASE ('NO_BOUND')
             call normalize_params_ms(params)
          CASE('HESSLOW')
             call normalize_params_ms(params)
          CASE('ROSENBLUTH')
             call normalize_params_ms(params)
          CASE DEFAULT
             write(6,'("Default case")')
          END SELECT
             
       CASE (MODEL2)
          call normalize_params_ms(params)
       CASE DEFAULT
          write(6,'("Default case")')
       END SELECT
    end if
  end subroutine normalize_collisions_params