replaced real(8) with standardized double precision type