SUBROUTINE STIKA (X,N)(adsbygoogle = window.adsbygoogle || []).push({});

DIMENSION X(N)

IF (N. LT. 2) RETURN

DO 20 I=2, N

DO 10 J=1, I

IF(X(I) .GE. X(J)) GOTO 10

SAVE = X(I)

X(I) = X(J)

X(J) = SAVE

10 CONTINUE

20 CONTINUE

RETURN

If any have a good idea about the program please help

What i actually want is that, I want to know what this program routine will perform and i also want to translate into a high level language like vb or java

thanks

**Physics Forums | Science Articles, Homework Help, Discussion**

Join Physics Forums Today!

The friendliest, high quality science and math community on the planet! Everyone who loves science is here!

The friendliest, high quality science and math community on the planet! Everyone who loves science is here!

# Help Help Help what is the function of this program?

**Physics Forums | Science Articles, Homework Help, Discussion**