dummy.f

来自「seismic software,very useful」· F 代码 · 共 15 行

	subroutine dummies
	entry dskms8
	  call cancel(100,'do not call me')
	  return
        entry dskmi8
	  call cancel(100,'do not call me')
	  return
        entry dskmo8
	  call cancel(100,'do not call me')
	  return
        entry dskmn8
	  call cancel(100,'do not call me')
	  return
	end