subroutine sub02
common /my_common/a,b
data b / 2.0/
print *,'subroutine sub02'
return
end
