2012-04-10 19:00:34 +05:30
|
|
|
!##################################################################################################
|
2014-03-29 13:50:36 +05:30
|
|
|
! $Id$
|
2012-04-10 19:00:34 +05:30
|
|
|
!##################################################################################################
|
|
|
|
!********************************************************************
|
2014-03-29 13:50:36 +05:30
|
|
|
! quit subroutine to satisfy IO_error for core module
|
2012-04-10 19:00:34 +05:30
|
|
|
!
|
|
|
|
!********************************************************************
|
|
|
|
subroutine quit(stop_id)
|
|
|
|
use prec, only: &
|
|
|
|
pInt
|
|
|
|
|
|
|
|
implicit none
|
|
|
|
integer(pInt), intent(in) :: stop_id
|
|
|
|
|
|
|
|
end subroutine
|