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