Recent content by vsolute

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...