Return to sortst.f CVS log

Up to [CSRG BSD Unix] / 42BSD / usr.lib / libU77 / test

Annotation of 42BSD/usr.lib/libU77/test/sortst.f, revision 1.1.1.1

1.1       root        1:        program tst
                      2: c to test various syslib routines
                      3:        external ntest
                      4:        character*10 num(10)
                      5:        do 10 i=1,10
                      6:        write(*,'(i2,": ",$)') i
                      7:    10  read(*,*) num(i)
                      8:        write(*,*) num
                      9:        call qsort(num, 10, 10, ntest)
                     10:        write(*,*) num
                     11:        end
                     12: 
                     13:        integer*2 function ntest(i1, i2)
                     14:        character*10 i1, i2
                     15:        ntest = 0
                     16:        if (lgt(i1,i2)) ntest = 1
                     17:        if (llt(i1,i2)) ntest = -1
                     18:        return
                     19:        end

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