1SUBROUTINE dbcsr_data_convert (n) 2 COMPLEX(KIND=4), DIMENSION(:), POINTER :: s_data_c 3 COMPLEX(KIND=8), DIMENSION(:), POINTER :: t_data_z 4 t_data_z(1:n) = CMPLX(s_data_c(1:n), KIND=8) 5 CALL foo() 6END SUBROUTINE dbcsr_data_convert 7 8