FIXME : Add documentation
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
complex, | intent(out), | dimension(:,:,:,:,:) | :: | a | ||
real, | intent(in), | dimension(:,:,:,:,:,:) | :: | a_ri |
subroutine x5r2c(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('x5r2c: size(a, 1) does not match size(a_ri, 2)')
if(size(a, 2) /= size(a_ri, 3)) call aborter('x5r2c: size(a, 2) does not match size(a_ri, 3)')
if(size(a, 3) /= size(a_ri, 4)) call aborter('x5r2c: size(a, 3) does not match size(a_ri, 4)')
if(size(a, 4) /= size(a_ri, 5)) call aborter('x5r2c: size(a, 4) does not match size(a_ri, 5)')
if(size(a, 5) /= size(a_ri, 6)) call aborter('x5r2c: size(a, 5) does not match size(a_ri, 6)')
a(:,:,:,:,:) = cmplx(a_ri(1,:,:,:,:,:), a_ri(2,:,:,:,:,:))
end subroutine x5r2c