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