1C 2C Copyright (c) 1980 The Regents of the University of California. 3C All rights reserved. 4C 5C %sccs.include.proprietary.f% 6C 7C @(#)sortst.f 5.2 (Berkeley) 04/12/91 8C 9 10 program tst 11c to test various syslib routines 12 external ntest 13 character*10 num(10) 14 do 10 i=1,10 15 write(*,'(i2,": ",$)') i 16 10 read(*,*) num(i) 17 write(*,*) num 18 call qsort(num, 10, 10, ntest) 19 write(*,*) num 20 end 21 22 integer*2 function ntest(i1, i2) 23 character*10 i1, i2 24 ntest = 0 25 if (lgt(i1,i2)) ntest = 1 26 if (llt(i1,i2)) ntest = -1 27 return 28 end 29