Module Overlap_Module Use Numeric_Kinds_Module Implicit None Save COMPLEX(dp),ALLOCATABLE :: overlap_vec(:,:), sector_wf(:) End Module Overlap_Module