Return to t14.f CVS log

Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / usr / src / usr.bin / f77 / f77pass1 / tst

Power 6/32 Unix version 1.21

c	subroutine tst14
	parameter(ntest=14)
c	Standard subroutines

	parameter(eps = 2.0e-7)
	if ( iabs(-1) .ne. 1 ) call e(1,ntest)
	i= -5
	if ( iabs(i) .ne. 5 ) call e(2,ntest)
	x=-2.0
	if ( abs(x) .ne. 2.0 ) call e(3,ntest)
	if ( max(i,4) .ne. 4 ) call e(4,ntest)
	if ( min(i,4) .ne. -5 ) call e(5,ntest)
	if ( amax1(x,4.0) .ne. 4.0 ) call e(6,ntest)
	if ( amin1(x,4.0) .ne. -2.0 ) call e(7,ntest)
	if ( ifix(5.2) .ne. 5 ) call e(8,ntest)
	if ( abs(float(i)+5.0) .gt. eps ) call e(9,ntest)
	if ( abs(ifix(5.2)-5.0) .gt. eps ) call e(14,ntest)
	if ( abs(sin(3.1415926536)) .gt. 10*eps ) call e(15,ntest)
	if ( abs(exp(1.0)-2.7182818) .gt. 0.0001 ) call e(16,ntest)
	if ( abs(alog(exp(1.0))- 1.0) .gt. 3*eps ) call e(17,ntest)
	if ( abs(sqrt(25.0)-5.0) .gt. eps ) call e(18,ntest)
	if ( abs(atan(1.0) - 3.1415926535/4.0) .gt. 0.0001 ) call e(19,ntest)
	if ( abs(alog(atan(1.0)*4) - 1.144729886) .gt. 0.000001 ) call e(20,ntest)
	if ( abs(sin(1.0) - 0.841470985 ) .gt. 0.000001 ) call e(21,ntest)
	if ( abs(cos(1.0) - 0.540302306) .gt. 0.000001 ) call e(22,ntest)
	if ( abs(sqrt(2.0) - 1.4142135623) .gt. 0.000001 ) call e(23,ntest)
	if ( abs(sqrt(10.0) - 3.1622776601) .gt. 0.000001 ) call e(24,ntest)
	if ( abs(sqrt(1000.0) - 31.622776602) .gt. 0.00001 ) call e(25,ntest)
	end

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.