1C /* q_f.f */ /* anonymous ftp@zebra.desy.de */ 2C /* An example from cfortran.h package. Requires q.c */ 3C /* Burkhard Burow burow@desy.de 1990 - 1996. */ 4 5 subroutine fqsortex(size) 6 implicit none 7C Because it's convinient here, we let C tell us the size of INTEGER. 8 integer size 9 10 integer base(10),cmp,i 11 external cmp 12 data base /1,10,2,9,3,8,4,7,5,6/ 13 call fqsort(base,10,size,cmp) 14 print '(10I3)', (base(i), i=1,10) 15 return 16 end 17 18 integer function cmp(a,b) 19 implicit none 20 integer a,b 21 cmp = a-b 22 return 23 end 24