deallocate_params_ms Subroutine

  1. korc_collisions.f90
  2. korc_collisions
  3. deallocate_params_ms

private subroutine deallocate_params_ms()

Arguments

None

Called by

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

Contents

Source Code

deallocate_params_ms

Source Code

  subroutine deallocate_params_ms()
    if (ALLOCATED(cparams_ms%Zj)) DEALLOCATE(cparams_ms%Zj)
    if (ALLOCATED(cparams_ms%Zo)) DEALLOCATE(cparams_ms%Zo)
    if (ALLOCATED(cparams_ms%nz)) DEALLOCATE(cparams_ms%nz)
    if (ALLOCATED(cparams_ms%neb)) DEALLOCATE(cparams_ms%neb)
    if (ALLOCATED(cparams_ms%IZj)) DEALLOCATE(cparams_ms%IZj)
    if (ALLOCATED(cparams_ms%Zj)) DEALLOCATE(cparams_ms%Ee_IZj)
  end subroutine deallocate_params_ms