x4r2c Subroutine

private subroutine x4r2c(a, a_ri)

Arguments

Type IntentOptional Attributes Name
complex, intent(out), dimension(:, :, :, :) :: a
real, intent(in), dimension(:, :, :, :, :) :: a_ri