x1c2r Subroutine

private subroutine x1c2r(a, a_ri)

FIXME : Add documentation

Arguments

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

Contents

Source Code


Source Code

  subroutine x1c2r(a, a_ri)
    implicit none
    complex, dimension(:), intent(in) :: a
    real, dimension(:,:), intent(out) :: a_ri

    if(size(a, 1) /= size(a_ri, 2)) call aborter('x2c2r: size(a, 1) does not match size(a_ri, 2)')
    a_ri(1,:) = real(a(:))
    a_ri(2,:) = aimag(a(:))

  end subroutine x1c2r