! A fortran95 lib program for G95
! By WQY
subroutine sub()
  implicit none
  write(*,*) "This is subroutine"
  return
end
