1*47946SbosticC 2*47946SbosticC Copyright (c) 1980 The Regents of the University of California. 3*47946SbosticC All rights reserved. 4*47946SbosticC 5*47946SbosticC %sccs.include.proprietary.f% 6*47946SbosticC 7*47946SbosticC @(#)sortst.f 5.2 (Berkeley) 04/12/91 8*47946SbosticC 9*47946Sbostic 1044006Sbostic program tst 1144006Sbosticc to test various syslib routines 1244006Sbostic external ntest 1344006Sbostic character*10 num(10) 1444006Sbostic do 10 i=1,10 1544006Sbostic write(*,'(i2,": ",$)') i 1644006Sbostic 10 read(*,*) num(i) 1744006Sbostic write(*,*) num 1844006Sbostic call qsort(num, 10, 10, ntest) 1944006Sbostic write(*,*) num 2044006Sbostic end 2144006Sbostic 2244006Sbostic integer*2 function ntest(i1, i2) 2344006Sbostic character*10 i1, i2 2444006Sbostic ntest = 0 2544006Sbostic if (lgt(i1,i2)) ntest = 1 2644006Sbostic if (llt(i1,i2)) ntest = -1 2744006Sbostic return 2844006Sbostic end 29