Jh,Je,Jn　:: real(8)　からcomplex(kind(0d0))へ