[net.usoft.s] bug fixes for S routines

aron@presby.UUCP (06/20/83)

A while ago I posted some routines and macros to use with S.  Here are
some bug fixes:

(1) In the file pairedt.i:
	after the line
	    DO k = 1, NROW(mat) {
	replace the next line with
		mdiff[k] = mat[k,i] - mat[k,j]
(2) In the file ptcalc.r:
	after the line
    adf = nr-1
	replace the next line with
    apt = 2* (1-ptdis(abs(at),adf))
(3) In the file avcalc.r:
	after the line
#   compute F statistic probability
	replace the next two lines with
    rpf = 1-pfdis(abs(rf),rdf,edf)
    cpf = 1-pfdis(abs(cf),cdf,edf)

				aron shtull-trauring
				{seismo,cmcl2}!presby!aron