Platform

x64, Win32

Purpose

To sort a REAL (KIND=1) array.

Syntax

SUBROUTINE RSORT@(A,R,N)
REAL (KIND=1) R(N)
INTEGER (KIND=3) A(N),N

Description

RSORT@ sorts the REAL array R by setting pointers from 1 to N in the array A in the same manner as CHSORT@ .