SURFEX v8.1
General documentation of Surfex
qsortr.F
Go to the documentation of this file.
1 ! Sort character strings
2  SUBROUTINE qsortr (N, ORD, A)
3  USE parkind1, ONLY : jprb, jprd
4  IMPLICIT INTEGER (A-Z)
5 
6  REAL (KIND=JPRB) :: A (n)
7  dimension ord(n)
8 
9  IF (jprd == jprb) THEN
10  CALL qsortr8 (n, ord, a)
11  ELSE
12  CALL qsortr4 (n, ord, a)
13  ENDIF
14 
15  END SUBROUTINE
parkind1::jprd
integer, parameter jprd
Definition: parkind1.F90:39
qsortr8
subroutine qsortr8(N, ORD, A)
Definition: qsortr8.F:2
parkind1::jprb
integer, parameter jprb
Definition: parkind1.F90:32
qsortr4
subroutine qsortr4(N, ORD, A)
Definition: qsortr4.F:3
qsortr
subroutine qsortr(N, ORD, A)
Definition: qsortr.F:3
Generated on Tue Jan 16 2018 16:23:22 for SURFEX v8.1 by   doxygen 1.8.13