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