save_collision_params Subroutine

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

    if (.NOT.(params%restart.OR.params%proceed)) then

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

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

    end if
  end subroutine save_collision_params