1 program tst 2c 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 20