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