Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
integer, | intent(in) | :: | config_label | |||
real(kind=dp), | intent(in) | :: | overlap_mats(:,:,:) | |||
real(kind=dp), | intent(in) | :: | hamil_mats(:,:,:) |
subroutine output_kp_matrices_wrapper(config_label, overlap_mats, hamil_mats)
integer, intent(in) :: config_label
real(dp), intent(in) :: overlap_mats(:, :, :)
real(dp), intent(in) :: hamil_mats(:, :, :)
call output_kp_matrices(config_label, 'overlap', overlap_mats)
call output_kp_matrices(config_label, 'hamil ', hamil_mats)
end subroutine output_kp_matrices_wrapper