Commit 01beb0f9 authored by Andreas Marek's avatar Andreas Marek

Error in GPU complex single precision test program

parent 82e74ea4
......@@ -122,11 +122,11 @@ program test_complex2_gpu_version_single_precision
integer(kind=ik), external :: numroc
real(kind=rk8), allocatable :: ev(:), xr(:,:)
real(kind=rk4), allocatable :: ev(:), xr(:,:)
complex(kind=ck8), allocatable :: a(:,:), z(:,:), tmp1(:,:), tmp2(:,:), as(:,:)
complex(kind=ck4), allocatable :: a(:,:), z(:,:), tmp1(:,:), tmp2(:,:), as(:,:)
complex(kind=ck8), parameter :: CZERO = (0._rk8,0._rk8), CONE = (1._rk8,0._rk8)
complex(kind=ck4), parameter :: CZERO = (0._rk4,0._rk4), CONE = (1._rk4,0._rk4)
integer(kind=ik) :: iseed(4096) ! Random seed, size should be sufficient for every generator
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment