FIXME : Add documentation
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
complex, | intent(in), | dimension(:) | :: | a | ||
real, | intent(out), | dimension(:,:) | :: | a_ri |
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