($orgname,$mswant,$how,$baseinterval,$unit,$cy) = ($1,$2,$3,$4,$5,$6,$7);
$specd= $baseinterval.$unit.$cy;
if ($unit =~ m/M/) { $baseinterval *= 1.e6; }
($orgname,$mswant,$how,$baseinterval,$unit,$cy) = ($1,$2,$3,$4,$5,$6,$7);
$specd= $baseinterval.$unit.$cy;
if ($unit =~ m/M/) { $baseinterval *= 1.e6; }
- provide_interval($orgname, $baseinterval, 'us', 1.e-6);
- provide_interval($orgname, $baseinterval, 'ms', 1.e-3);
- provide_interval($orgname, $baseinterval, 's', 1.0);
+ if ($mswant =~ m/T/) {
+ provide_interval($orgname, $baseinterval, 'us', 1.e-6);
+ provide_interval($orgname, $baseinterval, 'ms', 1.e-3);
+ provide_interval($orgname, $baseinterval, 's', 1.0);
+ }