diff --git a/base/internals/psi_ldsc_pre_halo.f90 b/base/internals/psi_ldsc_pre_halo.f90 index f6b83129..d241ae3c 100644 --- a/base/internals/psi_ldsc_pre_halo.f90 +++ b/base/internals/psi_ldsc_pre_halo.f90 @@ -32,14 +32,8 @@ ! File: psi_ldsc_pre_halo.f90 ! ! Subroutine: psi_ldsc_pre_halo -! Build initial versions of data exchange lists. -! When the descriptor is for a large index space, we cannot build -! the data exchange lists "on-the-fly", but we also want to keep using the -! same format conversion routines we use in the small index space case, -! hence this adapter routine. -! Since it also convers the AVL tree data structure into the hashed list -! of ordered lists, it may be called to do just that; perhaps we should -! cut away that functionality and put it somewhere else... +! Build initial versions of data exchange lists for the +! large index space case. ! ! ! Arguments: