ECG-Kit 1.0

File: <base>/common/prtools/prtver.m (355 bytes) 
%PRTVER Get PRTools version
%
%This routine is intended for internal use in PRTools only

function prtversion = prtver

persistent PRTVERSION
if ~isempty (PRTVERSION)
	prtversion = PRTVERSION;
else
  [dummy,prtoolsname] = fileparts(fileparts(which('fisherc')));
  prtversion = {ver(prtoolsname) datestr(now)};
  PRTVERSION = prtversion;
end