save_collision_params Subroutine

  1. korc_collisions.f90
  2. korc_collisions
  3. save_collision_params

public subroutine save_collision_params(params)

Arguments

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

Calls

proc~~save_collision_params~~CallsGraph proc~save_collision_params save_collision_params proc~save_params_ss save_params_ss proc~save_collision_params->proc~save_params_ss proc~save_params_ms save_params_ms proc~save_collision_params->proc~save_params_ms h5fclose_f h5fclose_f proc~save_params_ss->h5fclose_f interface~save_to_hdf5 save_to_hdf5 proc~save_params_ss->interface~save_to_hdf5 proc~save_string_parameter save_string_parameter proc~save_params_ss->proc~save_string_parameter h5gclose_f h5gclose_f proc~save_params_ss->h5gclose_f proc~save_params_ms->h5fclose_f interface~save_1d_array_to_hdf5 save_1d_array_to_hdf5 proc~save_params_ms->interface~save_1d_array_to_hdf5 proc~save_params_ms->interface~save_to_hdf5 proc~save_params_ms->proc~save_string_parameter proc~save_params_ms->h5gclose_f proc~isave_1d_array_to_hdf5 isave_1d_array_to_hdf5 interface~save_1d_array_to_hdf5->proc~isave_1d_array_to_hdf5 proc~rsave_1d_array_to_hdf5 rsave_1d_array_to_hdf5 interface~save_1d_array_to_hdf5->proc~rsave_1d_array_to_hdf5 proc~i2save_to_hdf5 i2save_to_hdf5 interface~save_to_hdf5->proc~i2save_to_hdf5 proc~i1save_to_hdf5 i1save_to_hdf5 interface~save_to_hdf5->proc~i1save_to_hdf5 proc~i4save_to_hdf5 i4save_to_hdf5 interface~save_to_hdf5->proc~i4save_to_hdf5 proc~i8save_to_hdf5 i8save_to_hdf5 interface~save_to_hdf5->proc~i8save_to_hdf5 proc~rsave_to_hdf5 rsave_to_hdf5 interface~save_to_hdf5->proc~rsave_to_hdf5 h5dwrite_vl_f h5dwrite_vl_f proc~save_string_parameter->h5dwrite_vl_f h5dclose_f h5dclose_f proc~save_string_parameter->h5dclose_f h5tcopy_f h5tcopy_f proc~save_string_parameter->h5tcopy_f h5screate_simple_f h5screate_simple_f proc~save_string_parameter->h5screate_simple_f h5sclose_f h5sclose_f proc~save_string_parameter->h5sclose_f h5tset_strpad_f h5tset_strpad_f proc~save_string_parameter->h5tset_strpad_f proc~isave_1d_array_to_hdf5->h5dclose_f proc~isave_1d_array_to_hdf5->h5tcopy_f proc~isave_1d_array_to_hdf5->h5screate_simple_f proc~isave_1d_array_to_hdf5->h5sclose_f h5tset_size_f h5tset_size_f proc~isave_1d_array_to_hdf5->h5tset_size_f h5aclose_f h5aclose_f proc~isave_1d_array_to_hdf5->h5aclose_f h5awrite_f h5awrite_f proc~isave_1d_array_to_hdf5->h5awrite_f h5dwrite_f h5dwrite_f proc~isave_1d_array_to_hdf5->h5dwrite_f h5acreate_f h5acreate_f proc~isave_1d_array_to_hdf5->h5acreate_f proc~i2save_to_hdf5->h5dclose_f proc~i2save_to_hdf5->h5tcopy_f proc~i2save_to_hdf5->h5screate_simple_f proc~i2save_to_hdf5->h5sclose_f proc~i2save_to_hdf5->h5tset_size_f proc~i2save_to_hdf5->h5aclose_f proc~i2save_to_hdf5->h5awrite_f proc~i2save_to_hdf5->h5acreate_f proc~i1save_to_hdf5->h5dclose_f proc~i1save_to_hdf5->h5tcopy_f proc~i1save_to_hdf5->h5screate_simple_f proc~i1save_to_hdf5->h5sclose_f proc~i1save_to_hdf5->h5tset_size_f proc~i1save_to_hdf5->h5aclose_f proc~i1save_to_hdf5->h5awrite_f proc~i1save_to_hdf5->h5acreate_f proc~i4save_to_hdf5->h5dclose_f proc~i4save_to_hdf5->h5tcopy_f proc~i4save_to_hdf5->h5screate_simple_f proc~i4save_to_hdf5->h5sclose_f proc~i4save_to_hdf5->h5tset_size_f proc~i4save_to_hdf5->h5aclose_f proc~i4save_to_hdf5->h5awrite_f proc~i4save_to_hdf5->h5acreate_f proc~i8save_to_hdf5->h5dclose_f proc~i8save_to_hdf5->h5tcopy_f proc~i8save_to_hdf5->h5screate_simple_f proc~i8save_to_hdf5->h5sclose_f proc~i8save_to_hdf5->h5tset_size_f proc~i8save_to_hdf5->h5aclose_f proc~i8save_to_hdf5->h5awrite_f proc~i8save_to_hdf5->h5acreate_f proc~rsave_to_hdf5->h5dclose_f proc~rsave_to_hdf5->h5tcopy_f proc~rsave_to_hdf5->h5screate_simple_f proc~rsave_to_hdf5->h5sclose_f proc~rsave_to_hdf5->h5tset_size_f proc~rsave_to_hdf5->h5aclose_f proc~rsave_to_hdf5->h5awrite_f proc~rsave_to_hdf5->h5dwrite_f proc~rsave_to_hdf5->h5acreate_f proc~rsave_1d_array_to_hdf5->h5dclose_f proc~rsave_1d_array_to_hdf5->h5tcopy_f proc~rsave_1d_array_to_hdf5->h5screate_simple_f proc~rsave_1d_array_to_hdf5->h5sclose_f proc~rsave_1d_array_to_hdf5->h5tset_size_f proc~rsave_1d_array_to_hdf5->h5aclose_f proc~rsave_1d_array_to_hdf5->h5awrite_f proc~rsave_1d_array_to_hdf5->h5dwrite_f proc~rsave_1d_array_to_hdf5->h5acreate_f

Called by

proc~~save_collision_params~~CalledByGraph proc~save_collision_params save_collision_params program~main main program~main->proc~save_collision_params

Contents

Source Code

save_collision_params

Source Code

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

    if (.NOT.(params%restart)) 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(output_unit_write,'("Default case")')
             END SELECT
             
          CASE (MODEL2)
             call save_params_ms(params)
          CASE DEFAULT
             write(output_unit_write,'("Default case")')
          END SELECT
       end if

    end if
  end subroutine save_collision_params