elemental integer function size_of_cd (arg) complex (kind_rd), intent(in) :: arg size_of_cd = c_sizeof(arg) end function size_of_cd