C MOVE.FTN ACR/SCF:90.1 [223,1] 11/70 IAS C C H.S. MILLER 03-AUG-78(MOD 28-AUG-78 TO ALLOW "FILL" ENTRY) C C== C MOVE SUBROUTINE - MOVES DATA FROM ONE ARRAY TO ANOTHER BY SUBCRIPT C== C C SUBROUTINE MOVE (ARRAY,FIRST,LAST,OTHER,BEGIN) C C----PROVIDE ENTRY POINT "MOVE" C ENTRY TJU64 (ARRAY,FIRST,LAST,OTHER,BEGIN) INTEGER FIRST,LAST,BEGIN LOGICAL*1 ARRAY(1),OTHER(1),NCHAR C C----MOVE ARRAY(FIRST) THROUGH ARRAY(LAST) TO OTHER, C BEGINNING AT SUBSCRIPT BEGIN. C INTO=BEGIN NOW=FIRST 1 OTHER(INTO)=ARRAY(NOW) NOW=NOW+1 INTO=INTO+1 IF (NOW.GT.LAST) RETURN GO TO 1 C C----ADDITIONAL ENTRY POINT "FILL" FILLS ARRAY WITH CHARACTER NCHAR ENTRY FILL (ARRAY,FIRST,LAST,NCHAR) DO 5 I=FIRST,LAST 5 ARRAY(I)=NCHAR RETURN END