13 lines
321 B
Fortran
13 lines
321 B
Fortran
!********************************************************************
|
|
! quit subroutine to satisfy IO_error for core module
|
|
!
|
|
!********************************************************************
|
|
subroutine quit(stop_id)
|
|
use prec, only: &
|
|
pInt
|
|
|
|
implicit none
|
|
integer(pInt), intent(in) :: stop_id
|
|
|
|
end subroutine
|