module constants
     implicit none
     real, parameter :: pi= 3.14159
     real, parameter :: g = 9.81
 end module constants
 module vars
     implicit none
     real :: pi_2
 end module vars
 program ex0435
 use constants
 use vars
 implicit none
 write(*,*) 'pi = ', pi
 write(*,*) 'g = ', g
 pi_2 = 2.0* pi
 write(*,*) ' 2 PI = ', pi_2
 stop
 end program ex0435