sw/rescue/lab8e_goettingen/disk2_11/rkb/paroff/hacopy.ft

   1 C       COPY FORTRAN RANDOM FILES
   2         INTEGER B(85),I,REC7,REC9,B9,B7,BC,S9,S7
   3 C
   4 C
   5         WRITE (4,1)
   6         READ (4,2) B9
   7         WRITE (4,3)
   8         READ (4,2) B7
   9         WRITE (4,4)
  10         READ (4,2) S9
  11         WRITE (4,6)
  12         READ (4,2) S7
  13         WRITE (4,5)
  14         READ (4,2) BC
  15 C
  16 C
  17         DEFINE FILE 9(B9,85,U,REC9)
  18         DEFINE FILE 7(B7,85,U,REC7)
  19 C
  20 C
  21         REC7=S7
  22         REC9=S9
  23 C
  24         DO 30 I=1,BC
  25         READ (9'REC9) B
  26         II=REC9-1
  27         WRITE (4,7) II
  28         WRITE(7'REC7) B
  29 30      CONTINUE
  30         WRITE (4,8)
  31         STOP
  32 1       FORMAT (' INPUT UNIT 9: NUMBER OF BLOCKS ASSIGNED? ',$)
  33 3       FORMAT (' OUTPUT UNIT 7:    ""    ""        ""   " ',$)
  34 4       FORMAT (' NUMBER OF THE FIRST RECORD TO READ?      ',$)
  35 6       FORMAT (' NUMBER OF THE FIRST RECORD TO WRITE?     ',$)
  36 7       FORMAT (1H+,I6)
  37 8       FORMAT (' END HACOPY.')
  38 5       FORMAT (' NUMBER OF BLOCKS TO COPY?                ',$)
  39 2       FORMAT  (I4)
  40 \1a