subroutine sub01
common /my_common/a,b
data a / 1.0/
print *,'subroutine sub01'
return
end
