deallocate_collisions_params Subroutine

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

    if (params%collisions) then
       SELECT CASE (TRIM(params%collisions_model))
       CASE (MODEL1)
          !				write(6,'("Something to be done")')

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