mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2024-08-21 22:06:34 -04:00
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6748 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
25 lines
637 B
Fortran
25 lines
637 B
Fortran
module timer_module
|
|
implicit none
|
|
|
|
abstract interface
|
|
subroutine timer_callback (dname, k)
|
|
character(len=8), intent(in) :: dname
|
|
integer, intent(in) :: k
|
|
end subroutine timer_callback
|
|
end interface
|
|
|
|
public :: null_timer
|
|
procedure(timer_callback), pointer :: timer => null_timer
|
|
|
|
contains
|
|
!
|
|
! default Fortran implementation which does nothing
|
|
!
|
|
subroutine null_timer (dname, k)
|
|
implicit none
|
|
character(len=8), intent(in) :: dname
|
|
integer, intent(in) :: k
|
|
if(dname.eq.'99999999' .and. k.eq.9999) stop !Silence compiler warnings
|
|
end subroutine null_timer
|
|
end module timer_module
|