subroutine sub3()
   implicit none
   print *,'Sub3'
end subroutine sub3