Commit 10c94c15 authored by thomas.forbriger's avatar thomas.forbriger Committed by thomas.forbriger
Browse files

correction

This is a legacy commit from before 2015-03-01.
It may be incomplete as well as inconsistent.
See COPYING.legacy and README.history for details.


SVN Path:     http://gpitrsvn.gpi.uni-karlsruhe.de/repos/TFSoftware/trunk
SVN Revision: 2946
SVN UUID:     67feda4a-a26e-11df-9d6e-31afc202ad0c
parent 25c68e9d
...@@ -12,11 +12,13 @@ c 06/04/98 V1.1 make tapering switchable ...@@ -12,11 +12,13 @@ c 06/04/98 V1.1 make tapering switchable
c 07/11/98 V1.2 explicitely clear complex workspace c 07/11/98 V1.2 explicitely clear complex workspace
c 26/11/01 V1.3 plot grid c 26/11/01 V1.3 plot grid
c 31/12/04 V1.4 changed label c 31/12/04 V1.4 changed label
c 04/12/05 V1.5 use correct DIN notation for units
c c
c====================================================================== c======================================================================
program splot program splot
character*70 version character*70 version
parameter(version='SPLOT V1.4 display amplitude sepktrum of data' ) parameter(version=
& 'SPLOT V1.5 display amplitude sepktrum of data' )
c declare data variables c declare data variables
integer maxtraces, maxsamples integer maxtraces, maxsamples
parameter(maxtraces=4) parameter(maxtraces=4)
...@@ -217,7 +219,7 @@ c enddo ...@@ -217,7 +219,7 @@ c enddo
call pgupdt call pgupdt
c c
c label data c label data
call pglab('frequency (Hz)',' ',text) call pglab('frequency / Hz',' ',text)
return return
end end
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment