6 October   2023  12:14:56.755 PM      
 
files_multiple():
  FORTRAN77 version.
  Demonstrate how to work with multiple files.
 
TEST01
  Create 4 files, and count to 100.
  "divisor1.txt" will contain multiples of 2;
  "divisor2.txt" will contain multiples of 3;
  "divisor3.txt" will contain multiples of 5;
  "divisor4.txt" will contain multiples of 7;
 
TEST02
  Create 4 files.
  The vector X contains 100 values,
  and is set 20 times.
 
  Write X(10), X(25), X(64) and X(81) to the files
  "x1.txt", "x2.txt", "x3.txt" and "x4.txt"
 
files_multiple():
  Normal end of execution.
 
 6 October   2023  12:14:56.765 PM