Trailing-Edge
-
PDP-10 Archives
-
decuslib10-12
-
43,50554/4/resp.for
There is 1 other file named resp.for in the archive. Click here to see a list.
program resp
c
c program to display system response
c after 'r' command, get response since system was booted
c after a restart, 'start' command, get incremental response
c
implicit integer (a-t)
common/w/d(0:23)
dimension e(0:23)
dimension tout(5)
double precision tout
data (e(i),i=0,23)/24*0/
data xjfsec/60./
data tout(1)/'TTY output'/
data tout(2)/'TTY input'/
data tout(3)/'Requeued'/
data tout(4)/'1st above'/
data tout(5)/'Execution'/
c
c ******************************************
xconv=2.0**35
call rsub
type 1
1 format(' System Response:'/
1 ' Type'11x'Number'7x'Mean'2x'Deviation'/)
do 100 i=0,4
10 j=4*i
n=d(j+1)-e(j+1)
xm=0
xv=0
if(n.eq.0) go to 30
t=d(j)-e(j)
sh=d(j+2)-e(j+2)
sl=d(j+3)-e(j+3)
20 xn=float(n)
xt=float(t)
xs=float(sl)+float(sh)*xconv
xc=xn*xjfsec
25 xm=xt/xc
xv=sqrt(xs*xn-xt**2)/xc
30 type 2,tout(i+1),n,xm,xv
2 format(1xa10,1xi10,1xf10.2,1xf10.2)
100 continue
do 120 i=0,23
120 e(i)=d(i)
type 3
3 format(/' Type "start" for incremental values'/)
call quit
end