subroutine aaaa()
       call bbbb1

       call bbbb2
       end