Directory of image this file is from
This file as a plain text file
SUBROUTINE MOVE2(NMFILE,NR,JSTART,NJSAVE,JSAVE,T) DIMENSION NMFILE(1),JSAVE(1),T(1) C C THIS SUBROUTINE MOVES THE RECORDS SPECIFIED BY JSAVE C TO THE FRONT OF THE DATA FILE. NJSAVE IS THE C NUMBER OF RECORDS TO BE MOVED AND NMFILE CONTAINS C THE NAME OF THE DATA FILE. C IF(NJSAVE - 1) 40,25,10 C C RANK THE ELEMENTS OF JSAVE IN ASCENDING ORDER. C 10 IJK = 0 DO 20 J=2,NJSAVE J1 = J - 1 IF(JSAVE(J1) .LE. JSAVE(J)) GO TO 20 IJK = JSAVE(J1) JSAVE(J1) = JSAVE(J) JSAVE(J) = IJK 20 CONTINUE IF(IJK .NE. 0) GO TO 10 C C MOVE THE RECORDS SPECIFIED BY JSAVE TO THE BEGINNING C OF THE DATA FILE. C 25 NR1 = NR CALL FDBSET(1,'OLD') CALL ASSIGN(1,NMFILE,10,IER) DEFINE FILE 1(NR1,252,U,IER) DO 30 M=1,NJSAVE MM = JSAVE(M) MMM = M + JSTART - 1 MMMM = MM + JSTART - 1 READ(1'MMMM) (T(I),I=1,126) WRITE(1'MMM) (T(I),I=1,126) 30 CONTINUE CALL CLOSE(1) 40 RETURN END