program main
use m01

implicit none

write(*,"(A)") " Anfang"

write(*,"(2(F40.35/)F40.35)") e, pi, w2

write(*,*) "Ende"

end program main