initialize_collision_params Subroutine

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

    if (params%collisions) then

       if (params%mpi_params%rank .EQ. 0) then
          write(6,'(/,"* * * * * * * INITIALIZING COLLISIONS * * * * * * *")')
       end if
          
       SELECT CASE (TRIM(params%collisions_model))
       CASE (MODEL1)
          call load_params_ss(params)
          
          SELECT CASE(TRIM(params%bound_electron_model))
          CASE ('NO_BOUND')
             call load_params_ms(params)
          CASE('HESSLOW')
             call load_params_ms(params)
          CASE('ROSENBLUTH')
             call load_params_ms(params)
          CASE DEFAULT
             write(6,'("Default case")')
          END SELECT
          
       CASE (MODEL2)
          call load_params_ms(params)
       CASE DEFAULT
          write(6,'("Default case")')
       END SELECT

       if (params%mpi_params%rank .EQ. 0) then
          write(6,'("* * * * * * * * * * * * * * * * * * * * * * * * * *",/)')
       end if
       
    end if

    
  end subroutine initialize_collision_params