replaced complex(8) with standardized double precision complex