x1r2c Subroutine

private subroutine x1r2c(a, a_ri)

FIXME : Add documentation

Arguments

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

Contents

Source Code

x1r2c

Source Code

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

    if(size(a, 1) /= size(a_ri, 2)) call aborter('x2r2c: size(a, 1) does not match size(a_ri, 2)')
    a(:) = cmplx(a_ri(1,:), a_ri(2,:))

  end subroutine x1r2c