Directory of image this file is from
This file as a plain text file

C	DIE SUBROUTINE SORT DIENT ZUM EINSORTIEREN VON 
C	ARGUMENTEN IN BESTIMMTE INTERVALLE. 
C	VERGLEICHSWERT=		RS1
C	SORTIERTABELLE=		RSAR
C	MAX. WERT IN TABELLE=	RS2


	FUNCTION SORTR(RS1,RS2,RSAR)
	DIMENSION RSAR(500,2)

	IF (RS1-RS2) 10,30,30
10	IF(RS1-RSAR(1,1)) 30,20,20
20	RSTEP=RSAR(2,1)-RSAR(1,1)
	RST1=RS1-RSAR(1,1)
	IST1=IFIX(RST1/RSTEP)+1
	SORTR=RSAR(IST1,2)
	RETURN
30	SORTR=0.0

	RETURN
	END