1 | include(dom.inc)
   2 | 
   3 |       MODULE mod_ftn_c
   4 |         INTERFACE
   5 |           SUBROUTINE qsort_C(table, nblines, sizeline)                &
   6 |      &               BIND(C, NAME='qsort_C')
   7 |           USE ISO_C_BINDING
   8 |           IMPLICIT NONE
   9 |           DOM_INT (C_INT), INTENT(INOUT)     :: table
  10 |           DOM_INT (C_INT), VALUE, INTENT(IN) :: nblines
  11 |           DOM_INT (C_INT), VALUE, INTENT(IN) :: sizeline
  12 |           END SUBROUTINE qsort_C
  13 |         END INTERFACE
  14 |       END MODULE mod_ftn_c
  15 |