- #1
vsolute
- 1
- 0
SUBROUTINE STIKA (X,N)
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
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