deallocate_collisions_params Subroutine

  1. korc_collisions.f90
  2. korc_collisions
  3. deallocate_collisions_params

public subroutine deallocate_collisions_params(params)

Arguments

Type IntentOptional AttributesName
type(KORC_PARAMS), intent(in) :: params

Calls

proc~~deallocate_collisions_params~~CallsGraph proc~deallocate_collisions_params deallocate_collisions_params proc~deallocate_params_ms deallocate_params_ms proc~deallocate_collisions_params->proc~deallocate_params_ms

Called by

proc~~deallocate_collisions_params~~CalledByGraph proc~deallocate_collisions_params deallocate_collisions_params program~main main program~main->proc~deallocate_collisions_params

Contents

Source Code

deallocate_collisions_params

Source Code

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

    if (params%collisions) then
       SELECT CASE (TRIM(params%collisions_model))
       CASE (MODEL1)
          !				write(output_unit_write,'("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(output_unit_write,'("Default case")')
          END SELECT
          
       CASE (MODEL2)
          call deallocate_params_ms()
       CASE DEFAULT
          write(output_unit_write,'("Default case")')
       END SELECT
    end if
  end subroutine deallocate_collisions_params