subroutine aaaa()
       call cccc1

       call cccc2
       end