module m01
implicit none

real(kind=16), parameter ::                                            &
                 e =2.7182818284590452353602874713526625_16,           &
                 pi=3.1415926535897932384626433832795029_16,           &
                 w2=1.4142135623730950488016887242096981_16
!contains

end module m01