Return to t17.f CVS log

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

Annotation of cci/usr/src/usr.bin/f77/f77pass1/tst/t17.f, revision 1.1

1.1     ! root        1: c      subroutine tst17
        !             2:        parameter(ntest=17)
        !             3: c      Complex arithmetic
        !             4: 
        !             5:        parameter(eps = 2.0e-7)
        !             6: c      common /t17/c1,c2,c3
        !             7:        complex c1,c2,c3
        !             8:        c1 = cmplx(3.0,4.0)
        !             9:        c2 = cmplx(-2.0,1.0)
        !            10:        c3 = cmplx(1.0,-2.0)
        !            11:        if( abs(real(c1)-3.0) .gt. eps) call e(1,ntest)
        !            12:        if( abs(imag(c1)-4.0) .gt. eps) call e(2,ntest)
        !            13:        if( abs(cabs(c1)-5.0) .gt. eps) call e(3,ntest)
        !            14:        if( cabs(conjg(c2)-cmplx(-2.0,-1.0)) .gt. eps) call e(4,ntest)
        !            15:        if( cabs(c1+c2-cmplx(1.0,5.0)) .gt. eps) call e(5,ntest)
        !            16:        if( cabs(c2*c3-cmplx(0.0,5.0)) .gt. eps) call e(6,ntest)
        !            17:        if( cabs(c3/c1-cmplx(-0.2,-0.4)) .gt. eps) call e(6,ntest)
        !            18:        end

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