mathlib-quadpack.c

     1  //! @file mathlib-quadpack.c
     2  //
     3  //! @section copyright
     4  //
     5  // This file is part of VIF - vintage fortran compiler.
     6  // Copyright 2020-2025 J. Marcel van der Veer <algol68g@xs4all.nl>.
     7  //
     8  //! @section license
     9  //
    10  // This program is free software; you can redistribute it and/or modify it 
    11  // under the terms of the gnu general public license as published by the 
    12  // free software foundation; either version 3 of the license, or 
    13  // (at your option) any later version.
    14  //
    15  // This program is distributed in the hope that it will be useful, but 
    16  // without any warranty; without even the implied warranty of merchantability 
    17  // or fitness for a particular purpose. See the GNU general public license for 
    18  // more details. you should have received a copy of the GNU general public 
    19  // license along with this program. If not, see <http://www.gnu.org/licenses/>.
    20  //
    21  //! @Synopsis
    22  //
    23  //! 73 subprograms from QUADPACK
    24  
    25  // Compiled from Fortran source code by VIF.
    26  // Selected subprograms are:
    27  //
    28  // DQAG   DQAWC  DQC25C DQK21  DQNG   QAGI   QAWCE  QC25C  QK15W  QNC79
    29  // DQAGE  DQAWCE DQC25F DQK31  DQPSRT QAGIE  QAWF   QC25F  QK21   QNG
    30  // DQAGI  DQAWF  DQC25S DQK41  DQWGTC QAGP   QAWFE  QC25S  QK31   QPDOC
    31  // DQAGIE DQAWFE DQCHEB DQK51  DQWGTF QAGPE  QAWO   QCHEB  QK41   QPSRT
    32  // DQAGP  DQAWO  DQELG  DQK61  DQWGTS QAGS   QAWOE  QELG   QK51   QWGTC
    33  // DQAGPE DQAWOE DQK15  DQMOMO QAG    QAGSE  QAWS   QK15   QK61   QWGTF
    34  // DQAGS  DQAWS  DQK15I DQNC79 QAGE   QAWC   QAWSE  QK15I  QMOMO  QWGTS
    35  // DQAGSE DQAWSE DQK15W
    36  
    37  // QUADPACK is a FORTRAN 77 library for numerical integration of one-dimensional functions. 
    38  // It was included in the SLATEC Common Mathematical Library and is therefore in the public domain. 
    39  // The individual subprograms are also available on netlib. 
    40  // 
    41  // See also:
    42  //   R. Piessens, E. deDoncker-Kapenga, C. Uberhuber, D. Kahaner
    43  //   Quadpack: a Subroutine Package for Automatic Integration
    44  //   Springer Verlag, 1983.    Series in Computational Mathematics v.1
    45  //   515.43/Q1S  100394Z
    46  
    47  // The license for QUADPACK Fortran source code is:
    48  //
    49  // The SLATEC Common Mathematical Library was developed at
    50  // US government research laboratories and is in the public domain.
    51  // 
    52  // Repository: http://www.netlib.org/slatec/
    53  // 
    54  // The SLATEC common mathematical library is issued by the following
    55  // 
    56  //         Air Force Weapons Laboratory, Albuquerque
    57  //         Lawrence Livermore National Laboratory, Livermore
    58  //         Los Alamos National Laboratory, Los Alamos
    59  //         National Institute of Standards and Technology, Washington
    60  //         National Energy Research Supercomputer Center, Livermore
    61  //         Oak Ridge National Laboratory, Oak Ridge
    62  //         Sandia National Laboratories, Albuquerque
    63  //         Sandia National Laboratories, Livermore
    64  // 
    65  // All questions concerning the distribution of the library should be
    66  // directed to the NATIONAL ENERGY SOFTWARE CENTER, 9700 Cass Ave.,
    67  // Argonne, Illinois  60439, and not to the authors of the subprograms.
    68  // 
    69  //                  * * * * * Notice * * * * *
    70  // 
    71  // This material was prepared as an account of work sponsored by the
    72  // United States Government.  Neither the United States, nor the
    73  // Department of Energy, nor the Department of Defense, nor any of
    74  // their employees, nor any of their contractors, subcontractors, or
    75  // their employees, makes any warranty, expressed or implied, or
    76  // assumes any legal liability or responsibility for the accuracy,
    77  // completeness, or usefulness of any information, apparatus, product,
    78  // or process disclosed, or represents that its use would not infringe
    79  // upon privately owned rights.
    80  
    81  /*
    82  Generated by VIF - experimental VIntage Fortran compiler.
    83  VIF release 1.2.17
    84  */
    85  #if defined (__GNUC__)
    86  #pragma GCC diagnostic ignored "-Wimplicit-function-declaration"
    87  #pragma GCC diagnostic ignored "-Wincompatible-pointer-types"
    88  #if (__GNUC__ >= 14)
    89  #pragma GCC diagnostic ignored "-Wdeclaration-missing-parameter-type"
    90  #pragma GCC diagnostic ignored "-Wimplicit-int"
    91  #pragma GCC diagnostic ignored "-Wint-conversion"
    92  #pragma GCC diagnostic ignored "-Wreturn-mismatch"
    93  #endif
    94  #else
    95  #error VIF requires GCC
    96  #endif
   131  static CALLS __calls[__ncalls] = {
   132    {"dqage", 0}, // subroutine
   133    {"dqag", 0}, // subroutine
   134    {"dqagie", 0}, // subroutine
   135    {"dqagi", 0}, // subroutine
   136    {"dqagpe", 0}, // subroutine
   137    {"dqagp", 0}, // subroutine
   138    {"dqagse", 0}, // subroutine
   139    {"dqags", 0}, // subroutine
   140    {"dqawce", 0}, // subroutine
   141    {"dqawc", 0}, // subroutine
   142    {"dqawfe", 0}, // subroutine
   143    {"dqawf", 0}, // subroutine
   144    {"dqawoe", 0}, // subroutine
   145    {"dqawo", 0}, // subroutine
   146    {"dqawse", 0}, // subroutine
   147    {"dqaws", 0}, // subroutine
   148    {"dqc25c", 0}, // subroutine
   149    {"dqc25f", 0}, // subroutine
   150    {"dqc25s", 0}, // subroutine
   151    {"dqcheb", 0}, // subroutine
   152    {"dqelg", 0}, // subroutine
   153    {"dqk15", 0}, // subroutine
   154    {"dqk15i", 0}, // subroutine
   155    {"dqk15w", 0}, // subroutine
   156    {"dqk21", 0}, // subroutine
   157    {"dqk31", 0}, // subroutine
   158    {"dqk41", 0}, // subroutine
   159    {"dqk51", 0}, // subroutine
   160    {"dqk61", 0}, // subroutine
   161    {"dqmomo", 0}, // subroutine
   162    {"dqnc79", 0}, // subroutine
   163    {"dqng", 0}, // subroutine
   164    {"dqpsrt", 0}, // subroutine
   165    {"dqwgtc", 0}, // real*8 function
   166    {"dqwgtf", 0}, // real*8 function
   167    {"dqwgts", 0}, // real*8 function
   168    {"qage", 0}, // subroutine
   169    {"qag", 0}, // subroutine
   170    {"qagie", 0}, // subroutine
   171    {"qagi", 0}, // subroutine
   172    {"qagpe", 0}, // subroutine
   173    {"qagp", 0}, // subroutine
   174    {"qagse", 0}, // subroutine
   175    {"qags", 0}, // subroutine
   176    {"qawce", 0}, // subroutine
   177    {"qawc", 0}, // subroutine
   178    {"qawfe", 0}, // subroutine
   179    {"qawf", 0}, // subroutine
   180    {"qawoe", 0}, // subroutine
   181    {"qawo", 0}, // subroutine
   182    {"qawse", 0}, // subroutine
   183    {"qaws", 0}, // subroutine
   184    {"qc25c", 0}, // subroutine
   185    {"qc25f", 0}, // subroutine
   186    {"qc25s", 0}, // subroutine
   187    {"qcheb", 0}, // subroutine
   188    {"qelg", 0}, // subroutine
   189    {"qk15", 0}, // subroutine
   190    {"qk15i", 0}, // subroutine
   191    {"qk15w", 0}, // subroutine
   192    {"qk21", 0}, // subroutine
   193    {"qk31", 0}, // subroutine
   194    {"qk41", 0}, // subroutine
   195    {"qk51", 0}, // subroutine
   196    {"qk61", 0}, // subroutine
   197    {"qmomo", 0}, // subroutine
   198    {"qnc79", 0}, // subroutine
   199    {"qng", 0}, // subroutine
   200    {"qpdoc", 0}, // subroutine
   201    {"qpsrt", 0}, // subroutine
   202    {"qwgtc", 0}, // real*4 function
   203    {"qwgtf", 0}, // real*4 function
   204    {"qwgts", 0}, // real*4 function
   205    {NULL, 0}
   206  };
   207  
   209  key_, int_4 _p_ limit_, real_8 _p_ result_, real_8 _p_ abserr_, int_4 _p_ neval_, int_4 _p_ ier_, real_8 _p_ alist_, 
   210  real_8 _p_ blist_, real_8 _p_ rlist_, real_8 _p_ elist_, int_4 _p_ iord_, int_4 _p_ last_);
   212  key_, real_8 _p_ result_, real_8 _p_ abserr_, int_4 _p_ neval_, int_4 _p_ ier_, int_4 _p_ limit_, int_4 _p_ lenw_, 
   213  int_4 _p_ last_, int_4 _p_ iwork_, real_8 _p_ work_);
   215  int_4 _p_ limit_, real_8 _p_ result_, real_8 _p_ abserr_, int_4 _p_ neval_, int_4 _p_ ier_, real_8 _p_ alist_, real_8 
   216  _p_ blist_, real_8 _p_ rlist_, real_8 _p_ elist_, int_4 _p_ iord_, int_4 _p_ last_);
   218  real_8 _p_ result_, real_8 _p_ abserr_, int_4 _p_ neval_, int_4 _p_ ier_, int_4 _p_ limit_, int_4 _p_ lenw_, int_4 _p_ 
   219  last_, int_4 _p_ iwork_, real_8 _p_ work_);
   221  epsabs_, real_8 _p_ epsrel_, int_4 _p_ limit_, real_8 _p_ result_, real_8 _p_ abserr_, int_4 _p_ neval_, int_4 _p_ ier_
   222  , real_8 _p_ alist_, real_8 _p_ blist_, real_8 _p_ rlist_, real_8 _p_ elist_, real_8 _p_ pts_, int_4 _p_ iord_, int_4 
   223  _p_ level_, int_4 _p_ ndin_, int_4 _p_ last_);
   225  epsabs_, real_8 _p_ epsrel_, real_8 _p_ result_, real_8 _p_ abserr_, int_4 _p_ neval_, int_4 _p_ ier_, int_4 _p_ leniw_
   226  , int_4 _p_ lenw_, int_4 _p_ last_, int_4 _p_ iwork_, real_8 _p_ work_);
   228  _p_ limit_, real_8 _p_ result_, real_8 _p_ abserr_, int_4 _p_ neval_, int_4 _p_ ier_, real_8 _p_ alist_, real_8 _p_ 
   229  blist_, real_8 _p_ rlist_, real_8 _p_ elist_, int_4 _p_ iord_, int_4 _p_ last_);
   231  _p_ result_, real_8 _p_ abserr_, int_4 _p_ neval_, int_4 _p_ ier_, int_4 _p_ limit_, int_4 _p_ lenw_, int_4 _p_ last_, 
   232  int_4 _p_ iwork_, real_8 _p_ work_);
   234  epsrel_, int_4 _p_ limit_, real_8 _p_ result_, real_8 _p_ abserr_, int_4 _p_ neval_, int_4 _p_ ier_, real_8 _p_ alist_, 
   235  real_8 _p_ blist_, real_8 _p_ rlist_, real_8 _p_ elist_, int_4 _p_ iord_, int_4 _p_ last_);
   237  epsrel_, real_8 _p_ result_, real_8 _p_ abserr_, int_4 _p_ neval_, int_4 _p_ ier_, int_4 _p_ limit_, int_4 _p_ lenw_, 
   238  int_4 _p_ last_, int_4 _p_ iwork_, real_8 _p_ work_);
   240  _p_ limlst_, int_4 _p_ limit_, int_4 _p_ maxp1_, real_8 _p_ result_, real_8 _p_ abserr_, int_4 _p_ neval_, int_4 _p_ 
   241  ier_, real_8 _p_ rslst_, real_8 _p_ erlst_, int_4 _p_ ierlst_, int_4 _p_ lst_, real_8 _p_ alist_, real_8 _p_ blist_, 
   242  real_8 _p_ rlist_, real_8 _p_ elist_, int_4 _p_ iord_, int_4 _p_ nnlog_, real_8 _p_ chebmo_);
   244  _p_ result_, real_8 _p_ abserr_, int_4 _p_ neval_, int_4 _p_ ier_, int_4 _p_ limlst_, int_4 _p_ lst_, int_4 _p_ leniw_, 
   245  int_4 _p_ maxp1_, int_4 _p_ lenw_, int_4 _p_ iwork_, real_8 _p_ work_);
   247  epsabs_, real_8 _p_ epsrel_, int_4 _p_ limit_, int_4 _p_ icall_, int_4 _p_ maxp1_, real_8 _p_ result_, real_8 _p_ 
   248  abserr_, int_4 _p_ neval_, int_4 _p_ ier_, int_4 _p_ last_, real_8 _p_ alist_, real_8 _p_ blist_, real_8 _p_ rlist_, 
   249  real_8 _p_ elist_, int_4 _p_ iord_, int_4 _p_ nnlog_, int_4 _p_ momcom_, real_8 _p_ chebmo_);
   251  epsabs_, real_8 _p_ epsrel_, real_8 _p_ result_, real_8 _p_ abserr_, int_4 _p_ neval_, int_4 _p_ ier_, int_4 _p_ leniw_
   252  , int_4 _p_ maxp1_, int_4 _p_ lenw_, int_4 _p_ last_, int_4 _p_ iwork_, real_8 _p_ work_);
   254  integr_, real_8 _p_ epsabs_, real_8 _p_ epsrel_, int_4 _p_ limit_, real_8 _p_ result_, real_8 _p_ abserr_, int_4 _p_ 
   255  neval_, int_4 _p_ ier_, real_8 _p_ alist_, real_8 _p_ blist_, real_8 _p_ rlist_, real_8 _p_ elist_, int_4 _p_ iord_, 
   256  int_4 _p_ last_);
   258  integr_, real_8 _p_ epsabs_, real_8 _p_ epsrel_, real_8 _p_ result_, real_8 _p_ abserr_, int_4 _p_ neval_, int_4 _p_ 
   259  ier_, int_4 _p_ limit_, int_4 _p_ lenw_, int_4 _p_ last_, int_4 _p_ iwork_, real_8 _p_ work_);
   261  abserr_, int_4 _p_ krul_, int_4 _p_ neval_);
   263  nrmom_, int_4 _p_ maxp1_, int_4 _p_ ksave_, real_8 _p_ result_, real_8 _p_ abserr_, int_4 _p_ neval_, real_8 _p_ 
   264  resabs_, real_8 _p_ resasc_, int_4 _p_ momcom_, real_8 _p_ chebmo_);
   266  , real_8 _p_ beta_, real_8 _p_ ri_, real_8 _p_ rj_, real_8 _p_ rg_, real_8 _p_ rh_, real_8 _p_ result_, real_8 _p_ 
   267  abserr_, real_8 _p_ resasc_, int_4 _p_ integr_, int_4 _p_ nev_);
   270  int_4 _p_ nres_);
   272  _p_ resabs_, real_8 _p_ resasc_);
   274  result_, real_8 _p_ abserr_, real_8 _p_ resabs_, real_8 _p_ resasc_);
   276  , int_4 _p_ kp_, real_8 _p_ a_, real_8 _p_ b_, real_8 _p_ result_, real_8 _p_ abserr_, real_8 _p_ resabs_, real_8 _p_ 
   277  resasc_);
   279  _p_ resabs_, real_8 _p_ resasc_);
   281  _p_ resabs_, real_8 _p_ resasc_);
   283  _p_ resabs_, real_8 _p_ resasc_);
   285  _p_ resabs_, real_8 _p_ resasc_);
   287  _p_ resabs_, real_8 _p_ resasc_);
   289  rh_, int_4 _p_ integr_);
   291  ierr_, int_4 _p_ k_);
   293  result_, real_8 _p_ abserr_, int_4 _p_ neval_, int_4 _p_ ier_);
   295  int_4 _p_ iord_, int_4 _p_ nrmax_);
   298  integr_);
   300  integr_);
   302  key_, int_4 _p_ limit_, real_4 _p_ result_, real_4 _p_ abserr_, int_4 _p_ neval_, int_4 _p_ ier_, real_4 _p_ alist_, 
   303  real_4 _p_ blist_, real_4 _p_ rlist_, real_4 _p_ elist_, int_4 _p_ iord_, int_4 _p_ last_);
   305  key_, real_4 _p_ result_, real_4 _p_ abserr_, int_4 _p_ neval_, int_4 _p_ ier_, int_4 _p_ limit_, int_4 _p_ lenw_, 
   306  int_4 _p_ last_, int_4 _p_ iwork_, real_4 _p_ work_);
   308  int_4 _p_ limit_, real_4 _p_ result_, real_4 _p_ abserr_, int_4 _p_ neval_, int_4 _p_ ier_, real_4 _p_ alist_, real_4 
   309  _p_ blist_, real_4 _p_ rlist_, real_4 _p_ elist_, int_4 _p_ iord_, int_4 _p_ last_);
   311  real_4 _p_ result_, real_4 _p_ abserr_, int_4 _p_ neval_, int_4 _p_ ier_, int_4 _p_ limit_, int_4 _p_ lenw_, int_4 _p_ 
   312  last_, int_4 _p_ iwork_, real_4 _p_ work_);
   314  epsabs_, real_4 _p_ epsrel_, int_4 _p_ limit_, real_4 _p_ result_, real_4 _p_ abserr_, int_4 _p_ neval_, int_4 _p_ ier_
   315  , real_4 _p_ alist_, real_4 _p_ blist_, real_4 _p_ rlist_, real_4 _p_ elist_, real_4 _p_ pts_, int_4 _p_ iord_, int_4 
   316  _p_ level_, int_4 _p_ ndin_, int_4 _p_ last_);
   318  epsabs_, real_4 _p_ epsrel_, real_4 _p_ result_, real_4 _p_ abserr_, int_4 _p_ neval_, int_4 _p_ ier_, int_4 _p_ leniw_
   319  , int_4 _p_ lenw_, int_4 _p_ last_, int_4 _p_ iwork_, real_4 _p_ work_);
   321  limit_, real_4 _p_ result_, real_4 _p_ abserr_, int_4 _p_ neval_, int_4 _p_ ier_, real_4 _p_ alist_, real_4 _p_ blist_, 
   322  real_4 _p_ rlist_, real_4 _p_ elist_, int_4 _p_ iord_, int_4 _p_ last_);
   324  result_, real_4 _p_ abserr_, int_4 _p_ neval_, int_4 _p_ ier_, int_4 _p_ limit_, int_4 _p_ lenw_, int_4 _p_ last_, 
   325  int_4 _p_ iwork_, real_4 _p_ work_);
   327  epsrel_, int_4 _p_ limit_, real_4 _p_ result_, real_4 _p_ abserr_, int_4 _p_ neval_, int_4 _p_ ier_, real_4 _p_ alist_, 
   328  real_4 _p_ blist_, real_4 _p_ rlist_, real_4 _p_ elist_, int_4 _p_ iord_, int_4 _p_ last_);
   330  epsrel_, real_4 _p_ result_, real_4 _p_ abserr_, int_4 _p_ neval_, int_4 _p_ ier_, int_4 _p_ limit_, int_4 _p_ lenw_, 
   331  int_4 _p_ last_, int_4 _p_ iwork_, real_4 _p_ work_);
   333  _p_ limlst_, int_4 _p_ limit_, int_4 _p_ maxp1_, real_4 _p_ result_, real_4 _p_ abserr_, int_4 _p_ neval_, int_4 _p_ 
   334  ier_, real_4 _p_ rslst_, real_4 _p_ erlst_, int_4 _p_ ierlst_, int_4 _p_ lst_, real_4 _p_ alist_, real_4 _p_ blist_, 
   335  real_4 _p_ rlist_, real_4 _p_ elist_, int_4 _p_ iord_, int_4 _p_ nnlog_, real_4 _p_ chebmo_);
   337  _p_ result_, real_4 _p_ abserr_, int_4 _p_ neval_, int_4 _p_ ier_, int_4 _p_ limlst_, int_4 _p_ lst_, int_4 _p_ leniw_, 
   338  int_4 _p_ maxp1_, int_4 _p_ lenw_, int_4 _p_ iwork_, real_4 _p_ work_);
   340  epsabs_, real_4 _p_ epsrel_, int_4 _p_ limit_, int_4 _p_ icall_, int_4 _p_ maxp1_, real_4 _p_ result_, real_4 _p_ 
   341  abserr_, int_4 _p_ neval_, int_4 _p_ ier_, int_4 _p_ last_, real_4 _p_ alist_, real_4 _p_ blist_, real_4 _p_ rlist_, 
   342  real_4 _p_ elist_, int_4 _p_ iord_, int_4 _p_ nnlog_, int_4 _p_ momcom_, real_4 _p_ chebmo_);
   344  epsabs_, real_4 _p_ epsrel_, real_4 _p_ result_, real_4 _p_ abserr_, int_4 _p_ neval_, int_4 _p_ ier_, int_4 _p_ leniw_
   345  , int_4 _p_ maxp1_, int_4 _p_ lenw_, int_4 _p_ last_, int_4 _p_ iwork_, real_4 _p_ work_);
   347  integr_, real_4 _p_ epsabs_, real_4 _p_ epsrel_, int_4 _p_ limit_, real_4 _p_ result_, real_4 _p_ abserr_, int_4 _p_ 
   348  neval_, int_4 _p_ ier_, real_4 _p_ alist_, real_4 _p_ blist_, real_4 _p_ rlist_, real_4 _p_ elist_, int_4 _p_ iord_, 
   349  int_4 _p_ last_);
   351  integr_, real_4 _p_ epsabs_, real_4 _p_ epsrel_, real_4 _p_ result_, real_4 _p_ abserr_, int_4 _p_ neval_, int_4 _p_ 
   352  ier_, int_4 _p_ limit_, int_4 _p_ lenw_, int_4 _p_ last_, int_4 _p_ iwork_, real_4 _p_ work_);
   354  abserr_, int_4 _p_ krul_, int_4 _p_ neval_);
   356  nrmom_, int_4 _p_ maxp1_, int_4 _p_ ksave_, real_4 _p_ result_, real_4 _p_ abserr_, int_4 _p_ neval_, real_4 _p_ 
   357  resabs_, real_4 _p_ resasc_, int_4 _p_ momcom_, real_4 _p_ chebmo_);
   359  real_4 _p_ beta_, real_4 _p_ ri_, real_4 _p_ rj_, real_4 _p_ rg_, real_4 _p_ rh_, real_4 _p_ result_, real_4 _p_ 
   360  abserr_, real_4 _p_ resasc_, int_4 _p_ integr_, int_4 _p_ nev_);
   363  int_4 _p_ nres_);
   365  resabs_, real_4 _p_ resasc_);
   367  result_, real_4 _p_ abserr_, real_4 _p_ resabs_, real_4 _p_ resasc_);
   369  int_4 _p_ kp_, real_4 _p_ a_, real_4 _p_ b_, real_4 _p_ result_, real_4 _p_ abserr_, real_4 _p_ resabs_, real_4 _p_ 
   370  resasc_);
   372  resabs_, real_4 _p_ resasc_);
   374  resabs_, real_4 _p_ resasc_);
   376  resabs_, real_4 _p_ resasc_);
   378  resabs_, real_4 _p_ resasc_);
   380  resabs_, real_4 _p_ resasc_);
   382  rh_, int_4 _p_ integr_);
   384  ierr_, int_4 _p_ k_);
   386  result_, real_4 _p_ abserr_, int_4 _p_ neval_, int_4 _p_ ier_);
   389  int_4 _p_ iord_, int_4 _p_ nrmax_);
   392  integr_);
   394  integr_);
   395  int_4 _dqage (real_8 (*_f)(), real_8 _p_ a_, real_8 _p_ b_, real_8 _p_ epsabs_, real_8 _p_ epsrel_, int_4 _p_ key_, 
   396  int_4 _p_ limit_, real_8 _p_ result_, real_8 _p_ abserr_, int_4 _p_ neval_, int_4 _p_ ier_, real_8 _p_ alist_, real_8 
   397  _p_ blist_, real_8 _p_ rlist_, real_8 _p_ elist_, int_4 _p_ iord_, int_4 _p_ last_)
   398  { // ** body not listed **
   580  }
   581  
   582  int_4 _dqag (real_8 (*_f)(), real_8 _p_ a_, real_8 _p_ b_, real_8 _p_ epsabs_, real_8 _p_ epsrel_, int_4 _p_ key_, 
   583  real_8 _p_ result_, real_8 _p_ abserr_, int_4 _p_ neval_, int_4 _p_ ier_, int_4 _p_ limit_, int_4 _p_ lenw_, int_4 _p_ 
   584  last_, int_4 _p_ iwork_, real_8 _p_ work_)
   585  { // ** body not listed **
   608  }
   609  
   610  int_4 _dqagie (real_8 (*_f)(), real_8 _p_ bound_, int_4 _p_ inf_, real_8 _p_ epsabs_, real_8 _p_ epsrel_, int_4 _p_ 
   611  limit_, real_8 _p_ result_, real_8 _p_ abserr_, int_4 _p_ neval_, int_4 _p_ ier_, real_8 _p_ alist_, real_8 _p_ blist_, 
   612  real_8 _p_ rlist_, real_8 _p_ elist_, int_4 _p_ iord_, int_4 _p_ last_)
   613  { // ** body not listed **
   877  }
   878  
   879  int_4 _dqagi (real_8 (*_f)(), real_8 _p_ bound_, int_4 _p_ inf_, real_8 _p_ epsabs_, real_8 _p_ epsrel_, real_8 _p_ 
   880  result_, real_8 _p_ abserr_, int_4 _p_ neval_, int_4 _p_ ier_, int_4 _p_ limit_, int_4 _p_ lenw_, int_4 _p_ last_, 
   881  int_4 _p_ iwork_, real_8 _p_ work_)
   882  { // ** body not listed **
   907  }
   908  
   909  int_4 _dqagpe (real_8 (*_f)(), real_8 _p_ a_, real_8 _p_ b_, int_4 _p_ npts2_, real_8 _p_ points_, real_8 _p_ epsabs_, 
   910  real_8 _p_ epsrel_, int_4 _p_ limit_, real_8 _p_ result_, real_8 _p_ abserr_, int_4 _p_ neval_, int_4 _p_ ier_, real_8 
   911  _p_ alist_, real_8 _p_ blist_, real_8 _p_ rlist_, real_8 _p_ elist_, real_8 _p_ pts_, int_4 _p_ iord_, int_4 _p_ level_
   912  , int_4 _p_ ndin_, int_4 _p_ last_)
   913  { // ** body not listed **
  1257  }
  1258  
  1259  int_4 _dqagp (real_8 (*_f)(), real_8 _p_ a_, real_8 _p_ b_, int_4 _p_ npts2_, real_8 _p_ points_, real_8 _p_ epsabs_, 
  1260  real_8 _p_ epsrel_, real_8 _p_ result_, real_8 _p_ abserr_, int_4 _p_ neval_, int_4 _p_ ier_, int_4 _p_ leniw_, int_4 
  1261  _p_ lenw_, int_4 _p_ last_, int_4 _p_ iwork_, real_8 _p_ work_)
  1262  { // ** body not listed **
  1290  }
  1291  
  1292  int_4 _dqagse (real_8 (*_f)(), real_8 _p_ a_, real_8 _p_ b_, real_8 _p_ epsabs_, real_8 _p_ epsrel_, int_4 _p_ limit_, 
  1293  real_8 _p_ result_, real_8 _p_ abserr_, int_4 _p_ neval_, int_4 _p_ ier_, real_8 _p_ alist_, real_8 _p_ blist_, real_8 
  1294  _p_ rlist_, real_8 _p_ elist_, int_4 _p_ iord_, int_4 _p_ last_)
  1295  { // ** body not listed **
  1551  }
  1552  
  1553  int_4 _dqags (real_8 (*_f)(), real_8 _p_ a_, real_8 _p_ b_, real_8 _p_ epsabs_, real_8 _p_ epsrel_, real_8 _p_ result_, 
  1554  real_8 _p_ abserr_, int_4 _p_ neval_, int_4 _p_ ier_, int_4 _p_ limit_, int_4 _p_ lenw_, int_4 _p_ last_, int_4 _p_ 
  1555  iwork_, real_8 _p_ work_)
  1556  { // ** body not listed **
  1581  }
  1582  
  1583  int_4 _dqawce (real_8 (*_f)(), real_8 _p_ a_, real_8 _p_ b_, real_8 _p_ c_, real_8 _p_ epsabs_, real_8 _p_ epsrel_, 
  1584  int_4 _p_ limit_, real_8 _p_ result_, real_8 _p_ abserr_, int_4 _p_ neval_, int_4 _p_ ier_, real_8 _p_ alist_, real_8 
  1585  _p_ blist_, real_8 _p_ rlist_, real_8 _p_ elist_, int_4 _p_ iord_, int_4 _p_ last_)
  1586  { // ** body not listed **
  1719  }
  1720  
  1721  int_4 _dqawc (real_8 (*_f)(), real_8 _p_ a_, real_8 _p_ b_, real_8 _p_ c_, real_8 _p_ epsabs_, real_8 _p_ epsrel_, 
  1722  real_8 _p_ result_, real_8 _p_ abserr_, int_4 _p_ neval_, int_4 _p_ ier_, int_4 _p_ limit_, int_4 _p_ lenw_, int_4 _p_ 
  1723  last_, int_4 _p_ iwork_, real_8 _p_ work_)
  1724  { // ** body not listed **
  1749  }
  1750  
  1751  int_4 _dqawfe (real_8 (*_f)(), real_8 _p_ a_, real_8 _p_ omega_, int_4 _p_ integr_, real_8 _p_ epsabs_, int_4 _p_ 
  1752  limlst_, int_4 _p_ limit_, int_4 _p_ maxp1_, real_8 _p_ result_, real_8 _p_ abserr_, int_4 _p_ neval_, int_4 _p_ ier_, 
  1753  real_8 _p_ rslst_, real_8 _p_ erlst_, int_4 _p_ ierlst_, int_4 _p_ lst_, real_8 _p_ alist_, real_8 _p_ blist_, real_8 
  1754  _p_ rlist_, real_8 _p_ elist_, int_4 _p_ iord_, int_4 _p_ nnlog_, real_8 _p_ chebmo_)
  1755  { // ** body not listed **
  1916  }
  1917  
  1918  int_4 _dqawf (real_8 (*_f)(), real_8 _p_ a_, real_8 _p_ omega_, int_4 _p_ integr_, real_8 _p_ epsabs_, real_8 _p_ 
  1919  result_, real_8 _p_ abserr_, int_4 _p_ neval_, int_4 _p_ ier_, int_4 _p_ limlst_, int_4 _p_ lst_, int_4 _p_ leniw_, 
  1920  int_4 _p_ maxp1_, int_4 _p_ lenw_, int_4 _p_ iwork_, real_8 _p_ work_)
  1921  { // ** body not listed **
  1951  }
  1952  
  1953  int_4 _dqawoe (real_8 (*_f)(), real_8 _p_ a_, real_8 _p_ b_, real_8 _p_ omega_, int_4 _p_ integr_, real_8 _p_ epsabs_, 
  1954  real_8 _p_ epsrel_, int_4 _p_ limit_, int_4 _p_ icall_, int_4 _p_ maxp1_, real_8 _p_ result_, real_8 _p_ abserr_, int_4 
  1955  _p_ neval_, int_4 _p_ ier_, int_4 _p_ last_, real_8 _p_ alist_, real_8 _p_ blist_, real_8 _p_ rlist_, real_8 _p_ elist_
  1956  , int_4 _p_ iord_, int_4 _p_ nnlog_, int_4 _p_ momcom_, real_8 _p_ chebmo_)
  1957  { // ** body not listed **
  2265  }
  2266  
  2267  int_4 _dqawo (real_8 (*_f)(), real_8 _p_ a_, real_8 _p_ b_, real_8 _p_ omega_, int_4 _p_ integr_, real_8 _p_ epsabs_, 
  2268  real_8 _p_ epsrel_, real_8 _p_ result_, real_8 _p_ abserr_, int_4 _p_ neval_, int_4 _p_ ier_, int_4 _p_ leniw_, int_4 
  2269  _p_ maxp1_, int_4 _p_ lenw_, int_4 _p_ last_, int_4 _p_ iwork_, real_8 _p_ work_)
  2270  { // ** body not listed **
  2298  }
  2299  
  2300  int_4 _dqawse (real_8 (*_f)(), real_8 _p_ a_, real_8 _p_ b_, real_8 _p_ alfa_, real_8 _p_ beta_, int_4 _p_ integr_, 
  2301  real_8 _p_ epsabs_, real_8 _p_ epsrel_, int_4 _p_ limit_, real_8 _p_ result_, real_8 _p_ abserr_, int_4 _p_ neval_, 
  2302  int_4 _p_ ier_, real_8 _p_ alist_, real_8 _p_ blist_, real_8 _p_ rlist_, real_8 _p_ elist_, int_4 _p_ iord_, int_4 _p_ 
  2303  last_)
  2304  { // ** body not listed **
  2450  }
  2451  
  2452  int_4 _dqaws (real_8 (*_f)(), real_8 _p_ a_, real_8 _p_ b_, real_8 _p_ alfa_, real_8 _p_ beta_, int_4 _p_ integr_, 
  2453  real_8 _p_ epsabs_, real_8 _p_ epsrel_, real_8 _p_ result_, real_8 _p_ abserr_, int_4 _p_ neval_, int_4 _p_ ier_, int_4 
  2454  _p_ limit_, int_4 _p_ lenw_, int_4 _p_ last_, int_4 _p_ iwork_, real_8 _p_ work_)
  2455  { // ** body not listed **
  2480  }
  2481  
  2482  int_4 _dqc25c (real_8 (*_f)(), real_8 _p_ a_, real_8 _p_ b_, real_8 _p_ c_, real_8 _p_ result_, real_8 _p_ abserr_, 
  2483  int_4 _p_ krul_, int_4 _p_ neval_)
  2484  { // ** body not listed **
  2606  }
  2607  
  2608  int_4 _dqc25f (real_8 (*_f)(), real_8 _p_ a_, real_8 _p_ b_, real_8 _p_ omega_, int_4 _p_ integr_, int_4 _p_ nrmom_, 
  2609  int_4 _p_ maxp1_, int_4 _p_ ksave_, real_8 _p_ result_, real_8 _p_ abserr_, int_4 _p_ neval_, real_8 _p_ resabs_, 
  2610  real_8 _p_ resasc_, int_4 _p_ momcom_, real_8 _p_ chebmo_)
  2611  { // ** body not listed **
  2832  }
  2833  
  2834  int_4 _dqc25s (real_8 (*_f)(), real_8 _p_ a_, real_8 _p_ b_, real_8 _p_ bl_, real_8 _p_ br_, real_8 _p_ alfa_, real_8 
  2835  _p_ beta_, real_8 _p_ ri_, real_8 _p_ rj_, real_8 _p_ rg_, real_8 _p_ rh_, real_8 _p_ result_, real_8 _p_ abserr_, 
  2836  real_8 _p_ resasc_, int_4 _p_ integr_, int_4 _p_ nev_)
  2837  { // ** body not listed **
  3080  }
  3081  
  3082  int_4 _dqcheb (real_8 _p_ x_, real_8 _p_ fval_, real_8 _p_ cheb12_, real_8 _p_ cheb24_)
  3083  { // ** body not listed **
  3178  }
  3179  
  3180  int_4 _dqelg (int_4 _p_ n_, real_8 _p_ epstab_, real_8 _p_ result_, real_8 _p_ abserr_, real_8 _p_ res3la_, int_4 _p_ 
  3181  nres_)
  3182  { // ** body not listed **
  3289  }
  3290  
  3291  int_4 _dqk15 (real_8 (*_f)(), real_8 _p_ a_, real_8 _p_ b_, real_8 _p_ result_, real_8 _p_ abserr_, real_8 _p_ resabs_, 
  3292  real_8 _p_ resasc_)
  3293  { // ** body not listed **
  3571  }
  3572  
  3573  int_4 _dqk15i (real_8 (*_f)(), real_8 _p_ boun_, int_4 _p_ inf_, real_8 _p_ a_, real_8 _p_ b_, real_8 _p_ result_, 
  3574  real_8 _p_ abserr_, real_8 _p_ resabs_, real_8 _p_ resasc_)
  3575  { // ** body not listed **
  3774  }
  3775  
  3776  int_4 _dqk15w (real_8 (*_f)(), real_8 (*_w)(), real_8 _p_ p1_, real_8 _p_ p2_, real_8 _p_ p3_, real_8 _p_ p4_, int_4 
  3777  _p_ kp_, real_8 _p_ a_, real_8 _p_ b_, real_8 _p_ result_, real_8 _p_ abserr_, real_8 _p_ resabs_, real_8 _p_ resasc_)
  3778  { // ** body not listed **
  3955  }
  3956  int_4 _dqk21 (real_8 (*_f)(), real_8 _p_ a_, real_8 _p_ b_, real_8 _p_ result_, real_8 _p_ abserr_, real_8 _p_ resabs_, 
  3957  real_8 _p_ resasc_)
  3958  { // ** body not listed **
  4313  }
  4314  
  4315  int_4 _dqk31 (real_8 (*_f)(), real_8 _p_ a_, real_8 _p_ b_, real_8 _p_ result_, real_8 _p_ abserr_, real_8 _p_ resabs_, 
  4316  real_8 _p_ resasc_)
  4317  { // ** body not listed **
  4817  }
  4818  
  4819  int_4 _dqk41 (real_8 (*_f)(), real_8 _p_ a_, real_8 _p_ b_, real_8 _p_ result_, real_8 _p_ abserr_, real_8 _p_ resabs_, 
  4820  real_8 _p_ resasc_)
  4821  { // ** body not listed **
  5454  }
  5455  
  5456  int_4 _dqk51 (real_8 (*_f)(), real_8 _p_ a_, real_8 _p_ b_, real_8 _p_ result_, real_8 _p_ abserr_, real_8 _p_ resabs_, 
  5457  real_8 _p_ resasc_)
  5458  { // ** body not listed **
  6236  }
  6237  
  6238  int_4 _dqk61 (real_8 (*_f)(), real_8 _p_ a_, real_8 _p_ b_, real_8 _p_ result_, real_8 _p_ abserr_, real_8 _p_ resabs_, 
  6239  real_8 _p_ resasc_)
  6240  { // ** body not listed **
  7151  }
  7152  
  7153  int_4 _dqmomo (real_8 _p_ alfa_, real_8 _p_ beta_, real_8 _p_ ri_, real_8 _p_ rj_, real_8 _p_ rg_, real_8 _p_ rh_, 
  7154  int_4 _p_ integr_)
  7155  { // ** body not listed **
  7219  }
  7220  
  7221  int_4 _dqnc79 (real_8 (*_fun)(), real_8 _p_ a_, real_8 _p_ b_, real_8 _p_ err_, real_8 _p_ ans_, int_4 _p_ ierr_, int_4 
  7222  _p_ k_)
  7223  { // ** body not listed **
  7458  }
  7459  
  7460  int_4 _dqng (real_8 (*_f)(), real_8 _p_ a_, real_8 _p_ b_, real_8 _p_ epsabs_, real_8 _p_ epsrel_, real_8 _p_ result_, 
  7461  real_8 _p_ abserr_, int_4 _p_ neval_, int_4 _p_ ier_)
  7462  { // ** body not listed **
  8968  }
  8969  
  8970  int_4 _dqpsrt (int_4 _p_ limit_, int_4 _p_ last_, int_4 _p_ maxerr_, real_8 _p_ ermax_, real_8 _p_ elist_, int_4 _p_ 
  8971  iord_, int_4 _p_ nrmax_)
  8972  { // ** body not listed **
  9037  }
  9038  
  9039  real_8 _dqwgtc (real_8 _p_ x_, real_8 _p_ c_, real_8 _p_ p2_, real_8 _p_ p3_, real_8 _p_ p4_, int_4 _p_ kp_)
  9040  { // ** body not listed **
  9045  }
  9046  
  9047  real_8 _dqwgtf (real_8 _p_ x_, real_8 _p_ omega_, real_8 _p_ p2_, real_8 _p_ p3_, real_8 _p_ p4_, int_4 _p_ integr_)
  9048  { // ** body not listed **
  9065  }
  9066  
  9067  real_8 _dqwgts (real_8 _p_ x_, real_8 _p_ a_, real_8 _p_ b_, real_8 _p_ alfa_, real_8 _p_ beta_, int_4 _p_ integr_)
  9068  { // ** body not listed **
  9092  }
  9093  
  9094  int_4 _qage (real_4 (*_f)(), real_4 _p_ a_, real_4 _p_ b_, real_4 _p_ epsabs_, real_4 _p_ epsrel_, int_4 _p_ key_, 
  9095  int_4 _p_ limit_, real_4 _p_ result_, real_4 _p_ abserr_, int_4 _p_ neval_, int_4 _p_ ier_, real_4 _p_ alist_, real_4 
  9096  _p_ blist_, real_4 _p_ rlist_, real_4 _p_ elist_, int_4 _p_ iord_, int_4 _p_ last_)
  9097  { // ** body not listed **
  9279  }
  9280  
  9281  int_4 _qag (real_4 (*_f)(), real_4 _p_ a_, real_4 _p_ b_, real_4 _p_ epsabs_, real_4 _p_ epsrel_, int_4 _p_ key_, 
  9282  real_4 _p_ result_, real_4 _p_ abserr_, int_4 _p_ neval_, int_4 _p_ ier_, int_4 _p_ limit_, int_4 _p_ lenw_, int_4 _p_ 
  9283  last_, int_4 _p_ iwork_, real_4 _p_ work_)
  9284  { // ** body not listed **
  9307  }
  9308  
  9309  int_4 _qagie (real_4 (*_f)(), real_4 _p_ bound_, int_4 _p_ inf_, real_4 _p_ epsabs_, real_4 _p_ epsrel_, int_4 _p_ 
  9310  limit_, real_4 _p_ result_, real_4 _p_ abserr_, int_4 _p_ neval_, int_4 _p_ ier_, real_4 _p_ alist_, real_4 _p_ blist_, 
  9311  real_4 _p_ rlist_, real_4 _p_ elist_, int_4 _p_ iord_, int_4 _p_ last_)
  9312  { // ** body not listed **
  9576  }
  9577  
  9578  int_4 _qagi (real_4 (*_f)(), real_4 _p_ bound_, int_4 _p_ inf_, real_4 _p_ epsabs_, real_4 _p_ epsrel_, real_4 _p_ 
  9579  result_, real_4 _p_ abserr_, int_4 _p_ neval_, int_4 _p_ ier_, int_4 _p_ limit_, int_4 _p_ lenw_, int_4 _p_ last_, 
  9580  int_4 _p_ iwork_, real_4 _p_ work_)
  9581  { // ** body not listed **
  9606  }
  9607  
  9608  int_4 _qagpe (real_4 (*_f)(), real_4 _p_ a_, real_4 _p_ b_, int_4 _p_ npts2_, real_4 _p_ points_, real_4 _p_ epsabs_, 
  9609  real_4 _p_ epsrel_, int_4 _p_ limit_, real_4 _p_ result_, real_4 _p_ abserr_, int_4 _p_ neval_, int_4 _p_ ier_, real_4 
  9610  _p_ alist_, real_4 _p_ blist_, real_4 _p_ rlist_, real_4 _p_ elist_, real_4 _p_ pts_, int_4 _p_ iord_, int_4 _p_ level_
  9611  , int_4 _p_ ndin_, int_4 _p_ last_)
  9612  { // ** body not listed **
  9956  }
  9957  
  9958  int_4 _qagp (real_4 (*_f)(), real_4 _p_ a_, real_4 _p_ b_, int_4 _p_ npts2_, real_4 _p_ points_, real_4 _p_ epsabs_, 
  9959  real_4 _p_ epsrel_, real_4 _p_ result_, real_4 _p_ abserr_, int_4 _p_ neval_, int_4 _p_ ier_, int_4 _p_ leniw_, int_4 
  9960  _p_ lenw_, int_4 _p_ last_, int_4 _p_ iwork_, real_4 _p_ work_)
  9961  { // ** body not listed **
  9989  }
  9990  
  9991  int_4 _qagse (real_4 (*_f)(), real_4 _p_ a_, real_4 _p_ b_, real_4 _p_ epsabs_, real_4 _p_ epsrel_, int_4 _p_ limit_, 
  9992  real_4 _p_ result_, real_4 _p_ abserr_, int_4 _p_ neval_, int_4 _p_ ier_, real_4 _p_ alist_, real_4 _p_ blist_, real_4 
  9993  _p_ rlist_, real_4 _p_ elist_, int_4 _p_ iord_, int_4 _p_ last_)
  9994  { // ** body not listed **
 10250  }
 10251  
 10252  int_4 _qags (real_4 (*_f)(), real_4 _p_ a_, real_4 _p_ b_, real_4 _p_ epsabs_, real_4 _p_ epsrel_, real_4 _p_ result_, 
 10253  real_4 _p_ abserr_, int_4 _p_ neval_, int_4 _p_ ier_, int_4 _p_ limit_, int_4 _p_ lenw_, int_4 _p_ last_, int_4 _p_ 
 10254  iwork_, real_4 _p_ work_)
 10255  { // ** body not listed **
 10280  }
 10281  
 10282  int_4 _qawce (real_4 (*_f)(), real_4 _p_ a_, real_4 _p_ b_, real_4 _p_ c_, real_4 _p_ epsabs_, real_4 _p_ epsrel_, 
 10283  int_4 _p_ limit_, real_4 _p_ result_, real_4 _p_ abserr_, int_4 _p_ neval_, int_4 _p_ ier_, real_4 _p_ alist_, real_4 
 10284  _p_ blist_, real_4 _p_ rlist_, real_4 _p_ elist_, int_4 _p_ iord_, int_4 _p_ last_)
 10285  { // ** body not listed **
 10418  }
 10419  
 10420  int_4 _qawc (real_4 (*_f)(), real_4 _p_ a_, real_4 _p_ b_, real_4 _p_ c_, real_4 _p_ epsabs_, real_4 _p_ epsrel_, 
 10421  real_4 _p_ result_, real_4 _p_ abserr_, int_4 _p_ neval_, int_4 _p_ ier_, int_4 _p_ limit_, int_4 _p_ lenw_, int_4 _p_ 
 10422  last_, int_4 _p_ iwork_, real_4 _p_ work_)
 10423  { // ** body not listed **
 10448  }
 10449  
 10450  int_4 _qawfe (real_4 (*_f)(), real_4 _p_ a_, real_4 _p_ omega_, int_4 _p_ integr_, real_4 _p_ epsabs_, int_4 _p_ 
 10451  limlst_, int_4 _p_ limit_, int_4 _p_ maxp1_, real_4 _p_ result_, real_4 _p_ abserr_, int_4 _p_ neval_, int_4 _p_ ier_, 
 10452  real_4 _p_ rslst_, real_4 _p_ erlst_, int_4 _p_ ierlst_, int_4 _p_ lst_, real_4 _p_ alist_, real_4 _p_ blist_, real_4 
 10453  _p_ rlist_, real_4 _p_ elist_, int_4 _p_ iord_, int_4 _p_ nnlog_, real_4 _p_ chebmo_)
 10454  { // ** body not listed **
 10613  }
 10614  
 10615  int_4 _qawf (real_4 (*_f)(), real_4 _p_ a_, real_4 _p_ omega_, int_4 _p_ integr_, real_4 _p_ epsabs_, real_4 _p_ 
 10616  result_, real_4 _p_ abserr_, int_4 _p_ neval_, int_4 _p_ ier_, int_4 _p_ limlst_, int_4 _p_ lst_, int_4 _p_ leniw_, 
 10617  int_4 _p_ maxp1_, int_4 _p_ lenw_, int_4 _p_ iwork_, real_4 _p_ work_)
 10618  { // ** body not listed **
 10648  }
 10649  
 10650  int_4 _qawoe (real_4 (*_f)(), real_4 _p_ a_, real_4 _p_ b_, real_4 _p_ omega_, int_4 _p_ integr_, real_4 _p_ epsabs_, 
 10651  real_4 _p_ epsrel_, int_4 _p_ limit_, int_4 _p_ icall_, int_4 _p_ maxp1_, real_4 _p_ result_, real_4 _p_ abserr_, int_4 
 10652  _p_ neval_, int_4 _p_ ier_, int_4 _p_ last_, real_4 _p_ alist_, real_4 _p_ blist_, real_4 _p_ rlist_, real_4 _p_ elist_
 10653  , int_4 _p_ iord_, int_4 _p_ nnlog_, int_4 _p_ momcom_, real_4 _p_ chebmo_)
 10654  { // ** body not listed **
 10962  }
 10963  
 10964  int_4 _qawo (real_4 (*_f)(), real_4 _p_ a_, real_4 _p_ b_, real_4 _p_ omega_, int_4 _p_ integr_, real_4 _p_ epsabs_, 
 10965  real_4 _p_ epsrel_, real_4 _p_ result_, real_4 _p_ abserr_, int_4 _p_ neval_, int_4 _p_ ier_, int_4 _p_ leniw_, int_4 
 10966  _p_ maxp1_, int_4 _p_ lenw_, int_4 _p_ last_, int_4 _p_ iwork_, real_4 _p_ work_)
 10967  { // ** body not listed **
 10995  }
 10996  
 10997  int_4 _qawse (real_4 (*_f)(), real_4 _p_ a_, real_4 _p_ b_, real_4 _p_ alfa_, real_4 _p_ beta_, int_4 _p_ integr_, 
 10998  real_4 _p_ epsabs_, real_4 _p_ epsrel_, int_4 _p_ limit_, real_4 _p_ result_, real_4 _p_ abserr_, int_4 _p_ neval_, 
 10999  int_4 _p_ ier_, real_4 _p_ alist_, real_4 _p_ blist_, real_4 _p_ rlist_, real_4 _p_ elist_, int_4 _p_ iord_, int_4 _p_ 
 11000  last_)
 11001  { // ** body not listed **
 11145  }
 11146  
 11147  int_4 _qaws (real_4 (*_f)(), real_4 _p_ a_, real_4 _p_ b_, real_4 _p_ alfa_, real_4 _p_ beta_, int_4 _p_ integr_, 
 11148  real_4 _p_ epsabs_, real_4 _p_ epsrel_, real_4 _p_ result_, real_4 _p_ abserr_, int_4 _p_ neval_, int_4 _p_ ier_, int_4 
 11149  _p_ limit_, int_4 _p_ lenw_, int_4 _p_ last_, int_4 _p_ iwork_, real_4 _p_ work_)
 11150  { // ** body not listed **
 11175  }
 11176  
 11177  int_4 _qc25c (real_4 (*_f)(), real_4 _p_ a_, real_4 _p_ b_, real_4 _p_ c_, real_4 _p_ result_, real_4 _p_ abserr_, 
 11178  int_4 _p_ krul_, int_4 _p_ neval_)
 11179  { // ** body not listed **
 11301  }
 11302  
 11303  int_4 _qc25f (real_4 (*_f)(), real_4 _p_ a_, real_4 _p_ b_, real_4 _p_ omega_, int_4 _p_ integr_, int_4 _p_ nrmom_, 
 11304  int_4 _p_ maxp1_, int_4 _p_ ksave_, real_4 _p_ result_, real_4 _p_ abserr_, int_4 _p_ neval_, real_4 _p_ resabs_, 
 11305  real_4 _p_ resasc_, int_4 _p_ momcom_, real_4 _p_ chebmo_)
 11306  { // ** body not listed **
 11527  }
 11528  
 11529  int_4 _qc25s (real_4 (*_f)(), real_4 _p_ a_, real_4 _p_ b_, real_4 _p_ bl_, real_4 _p_ br_, real_4 _p_ alfa_, real_4 
 11530  _p_ beta_, real_4 _p_ ri_, real_4 _p_ rj_, real_4 _p_ rg_, real_4 _p_ rh_, real_4 _p_ result_, real_4 _p_ abserr_, 
 11531  real_4 _p_ resasc_, int_4 _p_ integr_, int_4 _p_ nev_)
 11532  { // ** body not listed **
 11775  }
 11776  
 11777  int_4 _qcheb (real_4 _p_ x_, real_4 _p_ fval_, real_4 _p_ cheb12_, real_4 _p_ cheb24_)
 11778  { // ** body not listed **
 11873  }
 11874  
 11875  int_4 _qelg (int_4 _p_ n_, real_4 _p_ epstab_, real_4 _p_ result_, real_4 _p_ abserr_, real_4 _p_ res3la_, int_4 _p_ 
 11876  nres_)
 11877  { // ** body not listed **
 11984  }
 11985  
 11986  int_4 _qk15 (real_4 (*_f)(), real_4 _p_ a_, real_4 _p_ b_, real_4 _p_ result_, real_4 _p_ abserr_, real_4 _p_ resabs_, 
 11987  real_4 _p_ resasc_)
 11988  { // ** body not listed **
 12162  }
 12163  
 12164  int_4 _qk15i (real_4 (*_f)(), real_4 _p_ boun_, int_4 _p_ inf_, real_4 _p_ a_, real_4 _p_ b_, real_4 _p_ result_, 
 12165  real_4 _p_ abserr_, real_4 _p_ resabs_, real_4 _p_ resasc_)
 12166  { // ** body not listed **
 12365  }
 12366  
 12367  int_4 _qk15w (real_4 (*_f)(), real_4 (*_w)(), real_4 _p_ p1_, real_4 _p_ p2_, real_4 _p_ p3_, real_4 _p_ p4_, int_4 _p_ 
 12368  kp_, real_4 _p_ a_, real_4 _p_ b_, real_4 _p_ result_, real_4 _p_ abserr_, real_4 _p_ resabs_, real_4 _p_ resasc_)
 12369  { // ** body not listed **
 12546  }
 12547  int_4 _qk21 (real_4 (*_f)(), real_4 _p_ a_, real_4 _p_ b_, real_4 _p_ result_, real_4 _p_ abserr_, real_4 _p_ resabs_, 
 12548  real_4 _p_ resasc_)
 12549  { // ** body not listed **
 12758  }
 12759  
 12760  int_4 _qk31 (real_4 (*_f)(), real_4 _p_ a_, real_4 _p_ b_, real_4 _p_ result_, real_4 _p_ abserr_, real_4 _p_ resabs_, 
 12761  real_4 _p_ resasc_)
 12762  { // ** body not listed **
 13036  }
 13037  
 13038  int_4 _qk41 (real_4 (*_f)(), real_4 _p_ a_, real_4 _p_ b_, real_4 _p_ result_, real_4 _p_ abserr_, real_4 _p_ resabs_, 
 13039  real_4 _p_ resasc_)
 13040  { // ** body not listed **
 13374  }
 13375  
 13376  int_4 _qk51 (real_4 (*_f)(), real_4 _p_ a_, real_4 _p_ b_, real_4 _p_ result_, real_4 _p_ abserr_, real_4 _p_ resabs_, 
 13377  real_4 _p_ resasc_)
 13378  { // ** body not listed **
 13789  }
 13790  
 13791  int_4 _qk61 (real_4 (*_f)(), real_4 _p_ a_, real_4 _p_ b_, real_4 _p_ result_, real_4 _p_ abserr_, real_4 _p_ resabs_, 
 13792  real_4 _p_ resasc_)
 13793  { // ** body not listed **
 14282  }
 14283  
 14284  int_4 _qmomo (real_4 _p_ alfa_, real_4 _p_ beta_, real_4 _p_ ri_, real_4 _p_ rj_, real_4 _p_ rg_, real_4 _p_ rh_, int_4 
 14285  _p_ integr_)
 14286  { // ** body not listed **
 14350  }
 14351  
 14352  int_4 _qnc79 (real_4 (*_fun)(), real_4 _p_ a_, real_4 _p_ b_, real_4 _p_ err_, real_4 _p_ ans_, int_4 _p_ ierr_, int_4 
 14353  _p_ k_)
 14354  { // ** body not listed **
 14589  }
 14590  
 14591  int_4 _qng (real_4 (*_f)(), real_4 _p_ a_, real_4 _p_ b_, real_4 _p_ epsabs_, real_4 _p_ epsrel_, real_4 _p_ result_, 
 14592  real_4 _p_ abserr_, int_4 _p_ neval_, int_4 _p_ ier_)
 14593  { // ** body not listed **
 15402  }
 15403  
 15404  int_4 _qpdoc (void)
 15405  { // ** body not listed **
 15408  }
 15409  
 15410  int_4 _qpsrt (int_4 _p_ limit_, int_4 _p_ last_, int_4 _p_ maxerr_, real_4 _p_ ermax_, real_4 _p_ elist_, int_4 _p_ 
 15411  iord_, int_4 _p_ nrmax_)
 15412  { // ** body not listed **
 15477  }
 15478  
 15479  real_4 _qwgtc (real_4 _p_ x_, real_4 _p_ c_, real_4 _p_ p2_, real_4 _p_ p3_, real_4 _p_ p4_, int_4 _p_ kp_)
 15480  { // ** body not listed **
 15485  }
 15486  
 15487  real_4 _qwgtf (real_4 _p_ x_, real_4 _p_ omega_, real_4 _p_ p2_, real_4 _p_ p3_, real_4 _p_ p4_, int_4 _p_ integr_)
 15488  { // ** body not listed **
 15505  }
 15506  
 15507  real_4 _qwgts (real_4 _p_ x_, real_4 _p_ a_, real_4 _p_ b_, real_4 _p_ alfa_, real_4 _p_ beta_, int_4 _p_ integr_)
 15508  { // ** body not listed **
 15532  }
 15533  


© 2002-2025 J.M. van der Veer (jmvdveer@xs4all.nl)