16 October   2023  12:21:24.536 PM      
 
patterson_rule():
  FORTRAN77 version
 
  Look up a Gauss-Patterson rule for approximating
    Integral ( A <= x <= B ) f(x) dx
  of order ORDER.
 
  The user specifies ORDER, A, B, and FILENAME.
 
  ORDER is 1, 3, 7, 15, 31, 63, 127, 255 or 511.
  A is the left endpoint.
  B is the right endpoint.
  FILENAME is used to generate 3 files:
 
    filename_w.txt - the weight file
    filename_x.txt - the abscissa file.
    filename_r.txt - the region file.
 
  ORDER =       15
  A =   -1.00000    
  B =    1.00000    
  FILENAME = "gp15".
 
  Creating quadrature files.
 
  "Root" file name is   "gp15".
 
  Weight file will be   "gp15_w.txt".
  Abscissa file will be "gp15_x.txt".
  Region file will be   "gp15_r.txt".
 
patterson_rule():
  Normal end of execution.
 
16 October   2023  12:21:24.536 PM