module m01 implicit none real(kind=16), parameter :: & e =2.7182818284590452353602874713526625_16, & pi=3.1415926535897932384626433832795029_16, & w2=1.4142135623730950488016887242096981_16 !contains end module m01