program common1 | |
!use common2 | |
!use common3 | |
!use common4 | |
implicit none | |
common /block/ a_common, b_common, c_common, /mem/ r, f, t | |
integer :: a_common | |
real :: b_common | |
double precision :: c_common | |
integer :: r, f, t | |
a_common = 5 | |
b_common = 4.6 | |
c_common = 2.345 | |
call helper | |
end program common1 | |
subroutine helper | |
implicit none | |
common /block/ a_common, b_common, c_common | |
integer :: a_common | |
real :: b_common | |
double precision :: c_common | |
end subroutine helper |