real*8 -> double