mathlib-fnlib.c

     1  //! @file mathlib-fnlib.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  //! 254 subprograms from FNLIB
    24  
    25  // Compiled from Fortran source code by VIF.
    26  // Selected subprograms are:
    27  //
    28  // AI     BETA   CASINH CLNREL D9LGIT DBI    DCSEVL DPSIFN R9CHU  ZBINU
    29  // AIE    BETAI  CATAN  CLOG10 D9LGMC DBIE   DDAWS  DSINDG R9GMIC ZBIRY
    30  // ALBETA BFQAD  CATAN2 CMLRI  D9LN2R DBINOM DE1    DSPENC R9GMIT ZBKNU
    31  // ALGAMS BI     CATANH COSDG  D9PAK  DBINT4 DEI    E1     R9KNUS ZBUNI
    32  // ALI    BIE    CBESH  COT    D9UPAK DBINTK DEXINT EI     R9LGIC ZBUNK
    33  // ALNREL BINOM  CBESI  CPSI   DAI    DBKIAS DEXPRL EXINT  R9LGIT ZDIV
    34  // BESI   BINT4  CBESJ  CSERI  DAIE   DBKISR DFAC   EXPREL R9LGMC ZEXP
    35  // BESI0  BINTK  CBESK  CSEVL  DASYJY DBSI0E DGAMI  FAC    R9LN2R ZKSCL
    36  // BESI0E BKIAS  CBESY  CSINH  DAWS   DBSI1E DGAMIC FUNDOC R9PAK  ZLOG
    37  // BESI1  BKISR  CBETA  CTAN   DBESI  DBSK0E DGAMIT GAMI   R9UPAK ZMLRI
    38  // BESI1E BSKIN  CBINU  CTANH  DBESI0 DBSK1E DGAMLM GAMIC  RAND   ZMLT
    39  // BESJ   BSPEV  CBIRY  CUNI1  DBESI1 DBSKES DGAMLN GAMIT  RGAUSS ZRATI
    40  // BESJ0  BSPPP  CBKNU  CUNI2  DBESJ  DBSKIN DGAMR  GAMLIM RUNIF  ZS1S2
    41  // BESJ1  BSPVD  CBRT   CUNK1  DBESJ0 DBSKNU DGAMRN GAMLN  SINDG  ZSERI
    42  // BESK   BSQAD  CBUNI  CUNK2  DBESJ1 DBSPEV DHKSEQ GAMR   SPENC  ZSHCH
    43  // BESK0  BVALU  CBUNK  CUOIK  DBESK  DBSPPP DLBETA INITDS ZABS   ZSQRT
    44  // BESK0E C0LGMC CCBRT  CWRSK  DBESK0 DBSPVD DLGAMS INITS  ZACAI  ZUCHK
    45  // BESK1  C9LGMC CCOSH  D9AIMP DBESK1 DBSQAD DLI    PFQAD  ZACON  ZUNHJ
    46  // BESK1E C9LN2R CCOT   D9ATN1 DBESKS DBSYNU DLNREL POCH   ZAIRY  ZUNI1
    47  // BESKES CACAI  CEXPRL D9B0MP DBESY  DBVALU DPFQAD POCH1  ZASYI  ZUNI2
    48  // BESKNU CACON  CGAMMA D9B1MP DBESY0 DC_90  DPOCH  PPQAD  ZBESH  ZUNIK
    49  // BESKS  CACOS  CGAMR  D9CHU  DBESY1 DCBRT  DPOCH1 PPVAL  ZBESI  ZUNK1
    50  // BESY   CACOSH CHU    D9GMIC DBETA  DCHU   DPPQAD PSI    ZBESJ  ZUNK2
    51  // BESY0  CAIRY  CKSCL  D9GMIT DBETAI DCOSDG DPPVAL R9AIMP ZBESK  ZUOIK
    52  // BESY1  CARG   CLBETA D9KNUS DBFQAD DCOT   DPSI   R9ATN1 ZBESY  ZWRSK
    53  // BESYNU CASIN  CLNGAM D9LGIC
    54  
    55  // Routines from SLATEC's AMOSLIB and FNLIB.
    56  // 
    57  // FNLIB is W. Fullerton's special-function package.
    58  // 
    59  // AMOSLIB is D. E. Amos' portable package for Bessel Functions of a 
    60  // Complex Argument and Nonnegative Order.
    61  // 
    62  // Functions that are already in the VIF library have been removed 
    63  // (acos, asin, atan, lngam, erf, ...).
    64  // 
    65  // Source: netlib.org/slatec/
    66  
    67  // The license for FNLIB Fortran source code is:
    68  //
    69  // The SLATEC Common Mathematical Library was developed at
    70  // US government research laboratories and is in the public domain.
    71  // 
    72  // Repository: http://www.netlib.org/slatec/
    73  // 
    74  // The SLATEC common mathematical library is issued by the following
    75  // 
    76  //         Air Force Weapons Laboratory, Albuquerque
    77  //         Lawrence Livermore National Laboratory, Livermore
    78  //         Los Alamos National Laboratory, Los Alamos
    79  //         National Institute of Standards and Technology, Washington
    80  //         National Energy Research Supercomputer Center, Livermore
    81  //         Oak Ridge National Laboratory, Oak Ridge
    82  //         Sandia National Laboratories, Albuquerque
    83  //         Sandia National Laboratories, Livermore
    84  // 
    85  // All questions concerning the distribution of the library should be
    86  // directed to the NATIONAL ENERGY SOFTWARE CENTER, 9700 Cass Ave.,
    87  // Argonne, Illinois  60439, and not to the authors of the subprograms.
    88  // 
    89  //                  * * * * * Notice * * * * *
    90  // 
    91  // This material was prepared as an account of work sponsored by the
    92  // United States Government.  Neither the United States, nor the
    93  // Department of Energy, nor the Department of Defense, nor any of
    94  // their employees, nor any of their contractors, subcontractors, or
    95  // their employees, makes any warranty, expressed or implied, or
    96  // assumes any legal liability or responsibility for the accuracy,
    97  // completeness, or usefulness of any information, apparatus, product,
    98  // or process disclosed, or represents that its use would not infringe
    99  // upon privately owned rights.
   100  
   101  /*
   102  Generated by VIF - experimental VIntage Fortran compiler.
   103  VIF release 1.2.12
   104  */
   408  static CALLS __calls[__ncalls] = {
   409    {"aie", 0}, // function
   410    {"ai", 0}, // function
   411    {"albeta", 0}, // function
   412    {"algams", 0}, // subroutine
   413    {"ali", 0}, // function
   414    {"alnrel", 0}, // function
   415    {"besi0e", 0}, // function
   416    {"besi0", 0}, // function
   417    {"besi1e", 0}, // function
   418    {"besi1", 0}, // function
   419    {"besi", 0}, // subroutine
   420    {"besj0", 0}, // function
   421    {"besj1", 0}, // function
   422    {"besj", 0}, // subroutine
   423    {"besk0e", 0}, // function
   424    {"besk0", 0}, // function
   425    {"besk1e", 0}, // function
   426    {"besk1", 0}, // function
   427    {"beskes", 0}, // subroutine
   428    {"besk", 0}, // subroutine
   429    {"besknu", 0}, // subroutine
   430    {"besks", 0}, // subroutine
   431    {"besy0", 0}, // function
   432    {"besy1", 0}, // function
   433    {"besy", 0}, // subroutine
   434    {"besynu", 0}, // subroutine
   435    {"beta", 0}, // function
   436    {"betai", 0}, // real*4 function
   437    {"bfqad", 0}, // subroutine
   438    {"bie", 0}, // function
   439    {"bi", 0}, // function
   440    {"binom", 0}, // function
   441    {"bint4", 0}, // subroutine
   442    {"bintk", 0}, // subroutine
   443    {"bkias", 0}, // subroutine
   444    {"bkisr", 0}, // subroutine
   445    {"bskin", 0}, // subroutine
   446    {"bspev", 0}, // subroutine
   447    {"bsppp", 0}, // subroutine
   448    {"bspvd", 0}, // subroutine
   449    {"bsqad", 0}, // subroutine
   450    {"bvalu", 0}, // function
   451    {"c0lgmc", 0}, // complex*8 function
   452    {"c9lgmc", 0}, // complex*8 function
   453    {"c9ln2r", 0}, // complex*8 function
   454    {"cacai", 0}, // subroutine
   455    {"cacon", 0}, // subroutine
   456    {"cacos", 0}, // complex*8 function
   457    {"cacosh", 0}, // complex*8 function
   458    {"cairy", 0}, // subroutine
   459    {"carg", 0}, // function
   460    {"casin", 0}, // complex*8 function
   461    {"casinh", 0}, // complex*8 function
   462    {"catan2", 0}, // complex*8 function
   463    {"catan", 0}, // complex*8 function
   464    {"catanh", 0}, // complex*8 function
   465    {"cbesh", 0}, // subroutine
   466    {"cbesi", 0}, // subroutine
   467    {"cbesj", 0}, // subroutine
   468    {"cbesk", 0}, // subroutine
   469    {"cbesy", 0}, // subroutine
   470    {"cbeta", 0}, // complex*8 function
   471    {"cbinu", 0}, // subroutine
   472    {"cbiry", 0}, // subroutine
   473    {"cbknu", 0}, // subroutine
   474    {"cbrt", 0}, // function
   475    {"cbuni", 0}, // subroutine
   476    {"cbunk", 0}, // subroutine
   477    {"ccbrt", 0}, // complex*8 function
   478    {"ccosh", 0}, // complex*8 function
   479    {"ccot", 0}, // complex*8 function
   480    {"cexprl", 0}, // complex*8 function
   481    {"cgamma", 0}, // complex*8 function
   482    {"cgamr", 0}, // complex*8 function
   483    {"chu", 0}, // function
   484    {"ckscl", 0}, // subroutine
   485    {"clbeta", 0}, // complex*8 function
   486    {"clngam", 0}, // complex*8 function
   487    {"clnrel", 0}, // complex*8 function
   488    {"clog10", 0}, // complex*8 function
   489    {"cmlri", 0}, // subroutine
   490    {"cosdg", 0}, // function
   491    {"cot", 0}, // function
   492    {"cpsi", 0}, // complex*8 function
   493    {"cseri", 0}, // subroutine
   494    {"csevl", 0}, // function
   495    {"csinh", 0}, // complex*8 function
   496    {"ctan", 0}, // complex*8 function
   497    {"ctanh", 0}, // complex*8 function
   498    {"cuni1", 0}, // subroutine
   499    {"cuni2", 0}, // subroutine
   500    {"cunk1", 0}, // subroutine
   501    {"cunk2", 0}, // subroutine
   502    {"cuoik", 0}, // subroutine
   503    {"cwrsk", 0}, // subroutine
   504    {"d9aimp", 0}, // subroutine
   505    {"d9atn1", 0}, // real*8 function
   506    {"d9b0mp", 0}, // subroutine
   507    {"d9b1mp", 0}, // subroutine
   508    {"d9chu", 0}, // real*8 function
   509    {"d9gmic", 0}, // real*8 function
   510    {"d9gmit", 0}, // real*8 function
   511    {"d9knus", 0}, // subroutine
   512    {"d9lgic", 0}, // real*8 function
   513    {"d9lgit", 0}, // real*8 function
   514    {"d9lgmc", 0}, // real*8 function
   515    {"d9ln2r", 0}, // real*8 function
   516    {"d9pak", 0}, // real*8 function
   517    {"d9upak", 0}, // subroutine
   518    {"daie", 0}, // real*8 function
   519    {"dai", 0}, // real*8 function
   520    {"dasyjy", 0}, // subroutine
   521    {"daws", 0}, // function
   522    {"dbesi0", 0}, // real*8 function
   523    {"dbesi1", 0}, // real*8 function
   524    {"dbesi", 0}, // subroutine
   525    {"dbesj0", 0}, // real*8 function
   526    {"dbesj1", 0}, // real*8 function
   527    {"dbesj", 0}, // subroutine
   528    {"dbesk0", 0}, // real*8 function
   529    {"dbesk1", 0}, // real*8 function
   530    {"dbesk", 0}, // subroutine
   531    {"dbesks", 0}, // subroutine
   532    {"dbesy0", 0}, // real*8 function
   533    {"dbesy1", 0}, // real*8 function
   534    {"dbesy", 0}, // subroutine
   535    {"dbeta", 0}, // real*8 function
   536    {"dbetai", 0}, // real*8 function
   537    {"dbfqad", 0}, // subroutine
   538    {"dbie", 0}, // real*8 function
   539    {"dbi", 0}, // real*8 function
   540    {"dbinom", 0}, // real*8 function
   541    {"dbint4", 0}, // subroutine
   542    {"dbintk", 0}, // subroutine
   543    {"dbkias", 0}, // subroutine
   544    {"dbkisr", 0}, // subroutine
   545    {"dbsi0e", 0}, // real*8 function
   546    {"dbsi1e", 0}, // real*8 function
   547    {"dbsk0e", 0}, // real*8 function
   548    {"dbsk1e", 0}, // real*8 function
   549    {"dbskes", 0}, // subroutine
   550    {"dbskin", 0}, // subroutine
   551    {"dbsknu", 0}, // subroutine
   552    {"dbspev", 0}, // subroutine
   553    {"dbsppp", 0}, // subroutine
   554    {"dbspvd", 0}, // subroutine
   555    {"dbsqad", 0}, // subroutine
   556    {"dbsynu", 0}, // subroutine
   557    {"dbvalu", 0}, // real*8 function
   558    {"dcbrt", 0}, // real*8 function
   559    {"dchu", 0}, // real*8 function
   560    {"dcosdg", 0}, // real*8 function
   561    {"dcot", 0}, // real*8 function
   562    {"dcsevl", 0}, // real*8 function
   563    {"ddaws", 0}, // real*8 function
   564    {"de1", 0}, // real*8 function
   565    {"dei", 0}, // real*8 function
   566    {"dexint", 0}, // subroutine
   567    {"dexprl", 0}, // real*8 function
   568    {"dfac", 0}, // real*8 function
   569    {"dgamic", 0}, // real*8 function
   570    {"dgami", 0}, // real*8 function
   571    {"dgamit", 0}, // real*8 function
   572    {"dgamlm", 0}, // subroutine
   573    {"dgamln", 0}, // real*8 function
   574    {"dgamr", 0}, // real*8 function
   575    {"dgamrn", 0}, // real*8 function
   576    {"dhkseq", 0}, // subroutine
   577    {"dlbeta", 0}, // real*8 function
   578    {"dlgams", 0}, // subroutine
   579    {"dli", 0}, // real*8 function
   580    {"dlnrel", 0}, // real*8 function
   581    {"dpfqad", 0}, // subroutine
   582    {"dpoch1", 0}, // real*8 function
   583    {"dpoch", 0}, // real*8 function
   584    {"dppqad", 0}, // subroutine
   585    {"dppval", 0}, // real*8 function
   586    {"dpsi", 0}, // real*8 function
   587    {"dpsifn", 0}, // subroutine
   588    {"dsindg", 0}, // real*8 function
   589    {"dspenc", 0}, // real*8 function
   590    {"e1", 0}, // function
   591    {"ei", 0}, // function
   592    {"exint", 0}, // subroutine
   593    {"exprel", 0}, // function
   594    {"fac", 0}, // function
   595    {"fundoc", 0}, // subroutine
   596    {"gamic", 0}, // real*4 function
   597    {"gami", 0}, // function
   598    {"gamit", 0}, // real*4 function
   599    {"gamlim", 0}, // subroutine
   600    {"gamln", 0}, // real*4 function
   601    {"gamr", 0}, // function
   602    {"initds", 0}, // function
   603    {"inits", 0}, // function
   604    {"pfqad", 0}, // subroutine
   605    {"poch1", 0}, // function
   606    {"poch", 0}, // function
   607    {"ppqad", 0}, // subroutine
   608    {"ppval", 0}, // function
   609    {"psi", 0}, // function
   610    {"r9aimp", 0}, // subroutine
   611    {"r9atn1", 0}, // function
   612    {"r9chu", 0}, // function
   613    {"r9gmic", 0}, // function
   614    {"r9gmit", 0}, // function
   615    {"r9knus", 0}, // subroutine
   616    {"r9lgic", 0}, // function
   617    {"r9lgit", 0}, // function
   618    {"r9lgmc", 0}, // function
   619    {"r9ln2r", 0}, // function
   620    {"r9pak", 0}, // function
   621    {"r9upak", 0}, // subroutine
   622    {"rand", 0}, // function
   623    {"rgauss", 0}, // function
   624    {"runif", 0}, // function
   625    {"sindg", 0}, // function
   626    {"spenc", 0}, // function
   627    {"zabs", 0}, // real*8 function
   628    {"zacai", 0}, // subroutine
   629    {"zacon", 0}, // subroutine
   630    {"zairy", 0}, // subroutine
   631    {"zasyi", 0}, // subroutine
   632    {"zbesh", 0}, // subroutine
   633    {"zbesi", 0}, // subroutine
   634    {"zbesj", 0}, // subroutine
   635    {"zbesk", 0}, // subroutine
   636    {"zbesy", 0}, // subroutine
   637    {"zbinu", 0}, // subroutine
   638    {"zbiry", 0}, // subroutine
   639    {"zbknu", 0}, // subroutine
   640    {"zbuni", 0}, // subroutine
   641    {"zbunk", 0}, // subroutine
   642    {"zdiv", 0}, // subroutine
   643    {"zexp", 0}, // subroutine
   644    {"zkscl", 0}, // subroutine
   645    {"zlog", 0}, // subroutine
   646    {"zmlri", 0}, // subroutine
   647    {"zmlt", 0}, // subroutine
   648    {"zrati", 0}, // subroutine
   649    {"zs1s2", 0}, // subroutine
   650    {"zseri", 0}, // subroutine
   651    {"zshch", 0}, // subroutine
   652    {"zsqrt", 0}, // subroutine
   653    {"zuchk", 0}, // subroutine
   654    {"zunhj", 0}, // subroutine
   655    {"zuni1", 0}, // subroutine
   656    {"zuni2", 0}, // subroutine
   657    {"zunik", 0}, // subroutine
   658    {"zunk1", 0}, // subroutine
   659    {"zunk2", 0}, // subroutine
   660    {"zuoik", 0}, // subroutine
   661    {"zwrsk", 0}, // subroutine
   662    {NULL, 0}
   663  };
   664  
   694  real_4 _p_ x1_, real_4 _p_ x2_, real_4 _p_ tol_, real_4 _p_ quad_, int_4 _p_ ierr_, real_4 _p_ work_);
   699  fbcl_, real_4 _p_ fbcr_, int_4 _p_ kntopt_, real_4 _p_ t_, real_4 _p_ bcoef_, int_4 _p_ n_, int_4 _p_ k_, real_4 _p_ w_
   700  );
   702  real_4 _p_ q_, real_4 _p_ work_);
   704  int_4 _p_ ms_, real_4 _p_ gmrn_, real_4 _p_ h_, int_4 _p_ ierr_);
   707  _p_ ierr_);
   709  int_4 _p_ inev_, real_4 _p_ svalue_, real_4 _p_ work_);
   711  _p_ xi_, int_4 _p_ lxi_, real_4 _p_ work_);
   713  ldvnik_, real_4 _p_ vnikx_, real_4 _p_ work_);
   715  real_4 _p_ bquad_, real_4 _p_ work_);
   717  int_4 _p_ inbv_, real_4 _p_ work_);
   722  y_, int_4 _p_ nz_, real_4 _p_ rl_, real_4 _p_ tol_, real_4 _p_ elim_, real_4 _p_ alim_);
   724  y_, int_4 _p_ nz_, real_4 _p_ rl_, real_4 _p_ fnul_, real_4 _p_ tol_, real_4 _p_ elim_, real_4 _p_ alim_);
   728  ierr_);
   736  cy_, int_4 _p_ nz_, int_4 _p_ ierr_);
   738  nz_, int_4 _p_ ierr_);
   740  nz_, int_4 _p_ ierr_);
   742  nz_, int_4 _p_ ierr_);
   744  nz_, complex_8 _p_ cwrk_, int_4 _p_ ierr_);
   747  nz_, real_4 _p_ rl_, real_4 _p_ fnul_, real_4 _p_ tol_, real_4 _p_ elim_, real_4 _p_ alim_);
   750  nz_, real_4 _p_ tol_, real_4 _p_ elim_, real_4 _p_ alim_);
   753  nz_, int_4 _p_ nui_, int_4 _p_ nlast_, real_4 _p_ fnul_, real_4 _p_ tol_, real_4 _p_ elim_, real_4 _p_ alim_);
   755  y_, int_4 _p_ nz_, real_4 _p_ tol_, real_4 _p_ elim_, real_4 _p_ alim_);
   764  _p_ rz_, real_4 _p_ ascle_, real_4 _p_ tol_, real_4 _p_ elim_);
   770  nz_, real_4 _p_ tol_);
   775  nz_, real_4 _p_ tol_, real_4 _p_ elim_, real_4 _p_ alim_);
   781  nz_, int_4 _p_ nlast_, real_4 _p_ fnul_, real_4 _p_ tol_, real_4 _p_ elim_, real_4 _p_ alim_);
   783  nz_, int_4 _p_ nlast_, real_4 _p_ fnul_, real_4 _p_ tol_, real_4 _p_ elim_, real_4 _p_ alim_);
   785  y_, int_4 _p_ nz_, real_4 _p_ tol_, real_4 _p_ elim_, real_4 _p_ alim_);
   787  y_, int_4 _p_ nz_, real_4 _p_ tol_, real_4 _p_ elim_, real_4 _p_ alim_);
   789  _p_ y_, int_4 _p_ nuf_, real_4 _p_ tol_, real_4 _p_ elim_, real_4 _p_ alim_);
   791  nz_, complex_8 _p_ cw_, real_4 _p_ tol_, real_4 _p_ elim_, real_4 _p_ alim_);
   809  _p_ y_, real_8 _p_ wk_, int_4 _p_ iflw_);
   827  real_8 _p_ x1_, real_8 _p_ x2_, real_8 _p_ tol_, real_8 _p_ quad_, int_4 _p_ ierr_, real_8 _p_ work_);
   832  fbcl_, real_8 _p_ fbcr_, int_4 _p_ kntopt_, real_8 _p_ t_, real_8 _p_ bcoef_, int_4 _p_ n_, int_4 _p_ k_, real_8 _p_ w_
   833  );
   835  real_8 _p_ q_, real_8 _p_ work_);
   837  int_4 _p_ ms_, real_8 _p_ gmrn_, real_8 _p_ h_, int_4 _p_ ierr_);
   845  int_4 _p_ ierr_);
   848  int_4 _p_ inev_, real_8 _p_ svalue_, real_8 _p_ work_);
   850  real_8 _p_ xi_, int_4 _p_ lxi_, real_8 _p_ work_);
   852  ldvnik_, real_8 _p_ vnikx_, real_8 _p_ work_);
   854  real_8 _p_ bquad_, real_8 _p_ work_);
   857  int_4 _p_ inbv_, real_8 _p_ work_);
   867  int_4 _p_ nz_, int_4 _p_ ierr_);
   883  int_4 _p_ id_, real_8 _p_ x1_, real_8 _p_ x2_, real_8 _p_ tol_, real_8 _p_ quad_, int_4 _p_ ierr_);
   887  real_8 _p_ x2_, real_8 _p_ pquad_);
   889  ideriv_, real_8 _p_ x_, int_4 _p_ inppv_);
   892  int_4 _p_ ierr_);
   898  int_4 _p_ nz_, int_4 _p_ ierr_);
   911  int_4 _p_ id_, real_4 _p_ x1_, real_4 _p_ x2_, real_4 _p_ tol_, real_4 _p_ quad_, int_4 _p_ ierr_);
   915  real_4 _p_ x2_, real_4 _p_ pquad_);
   917  , real_4 _p_ x_, int_4 _p_ inppv_);
   938  real_8 _p_ yr_, real_8 _p_ yi_, int_4 _p_ nz_, real_8 _p_ rl_, real_8 _p_ tol_, real_8 _p_ elim_, real_8 _p_ alim_);
   940  real_8 _p_ yr_, real_8 _p_ yi_, int_4 _p_ nz_, real_8 _p_ rl_, real_8 _p_ fnul_, real_8 _p_ tol_, real_8 _p_ elim_, 
   941  real_8 _p_ alim_);
   943  aii_, int_4 _p_ nz_, int_4 _p_ ierr_);
   945  real_8 _p_ yi_, int_4 _p_ nz_, real_8 _p_ rl_, real_8 _p_ tol_, real_8 _p_ elim_, real_8 _p_ alim_);
   947  real_8 _p_ cyr_, real_8 _p_ cyi_, int_4 _p_ nz_, int_4 _p_ ierr_);
   949  , real_8 _p_ cyi_, int_4 _p_ nz_, int_4 _p_ ierr_);
   951  , real_8 _p_ cyi_, int_4 _p_ nz_, int_4 _p_ ierr_);
   953  , real_8 _p_ cyi_, int_4 _p_ nz_, int_4 _p_ ierr_);
   955  , real_8 _p_ cyi_, int_4 _p_ nz_, real_8 _p_ cwrkr_, real_8 _p_ cwrki_, int_4 _p_ ierr_);
   957  , real_8 _p_ cyi_, int_4 _p_ nz_, real_8 _p_ rl_, real_8 _p_ fnul_, real_8 _p_ tol_, real_8 _p_ elim_, real_8 _p_ alim_
   958  );
   960  bii_, int_4 _p_ ierr_);
   962  real_8 _p_ yi_, int_4 _p_ nz_, real_8 _p_ tol_, real_8 _p_ elim_, real_8 _p_ alim_);
   964  real_8 _p_ yi_, int_4 _p_ nz_, int_4 _p_ nui_, int_4 _p_ nlast_, real_8 _p_ fnul_, real_8 _p_ tol_, real_8 _p_ elim_, 
   965  real_8 _p_ alim_);
   967  real_8 _p_ yr_, real_8 _p_ yi_, int_4 _p_ nz_, real_8 _p_ tol_, real_8 _p_ elim_, real_8 _p_ alim_);
   971  , int_4 _p_ nz_, real_8 _p_ rzr_, real_8 _p_ rzi_, real_8 _p_ ascle_, real_8 _p_ tol_, real_8 _p_ elim_);
   974  real_8 _p_ yi_, int_4 _p_ nz_, real_8 _p_ tol_);
   977  , real_8 _p_ tol_);
   979  s2i_, int_4 _p_ nz_, real_8 _p_ ascle_, real_8 _p_ alim_, int_4 _p_ iuf_);
   981  real_8 _p_ yi_, int_4 _p_ nz_, real_8 _p_ tol_, real_8 _p_ elim_, real_8 _p_ alim_);
   983  _p_ cchi_);
   987  phir_, real_8 _p_ phii_, real_8 _p_ argr_, real_8 _p_ argi_, real_8 _p_ zeta1r_, real_8 _p_ zeta1i_, real_8 _p_ zeta2r_
   988  , real_8 _p_ zeta2i_, real_8 _p_ asumr_, real_8 _p_ asumi_, real_8 _p_ bsumr_, real_8 _p_ bsumi_);
   990  real_8 _p_ yi_, int_4 _p_ nz_, int_4 _p_ nlast_, real_8 _p_ fnul_, real_8 _p_ tol_, real_8 _p_ elim_, real_8 _p_ alim_)
   991  ;
   993  real_8 _p_ yi_, int_4 _p_ nz_, int_4 _p_ nlast_, real_8 _p_ fnul_, real_8 _p_ tol_, real_8 _p_ elim_, real_8 _p_ alim_)
   994  ;
   996  _p_ tol_, int_4 _p_ init_, real_8 _p_ phir_, real_8 _p_ phii_, real_8 _p_ zeta1r_, real_8 _p_ zeta1i_, real_8 _p_ 
   997  zeta2r_, real_8 _p_ zeta2i_, real_8 _p_ sumr_, real_8 _p_ sumi_, real_8 _p_ cwrkr_, real_8 _p_ cwrki_);
   999  real_8 _p_ yr_, real_8 _p_ yi_, int_4 _p_ nz_, real_8 _p_ tol_, real_8 _p_ elim_, real_8 _p_ alim_);
  1001  real_8 _p_ yr_, real_8 _p_ yi_, int_4 _p_ nz_, real_8 _p_ tol_, real_8 _p_ elim_, real_8 _p_ alim_);
  1003  n_, real_8 _p_ yr_, real_8 _p_ yi_, int_4 _p_ nuf_, real_8 _p_ tol_, real_8 _p_ elim_, real_8 _p_ alim_);
  1005  yr_, real_8 _p_ yi_, int_4 _p_ nz_, real_8 _p_ cwr_, real_8 _p_ cwi_, real_8 _p_ tol_, real_8 _p_ elim_, real_8 _p_ 
  1006  alim_);
  1007  real_4 _aie (real_4 _p_ x_)
  1008  { // ** body not listed **
  1630  }
  1631  
  1632  real_4 _ai (real_4 _p_ x_)
  1633  { // ** body not listed **
  1876  }
  1877  
  1878  real_4 _albeta (real_4 _p_ a_, real_4 _p_ b_)
  1879  { // ** body not listed **
  1919  }
  1920  
  1921  int_4 _algams (real_4 _p_ x_, real_4 _p_ algam_, real_4 _p_ sgngam_)
  1922  { // ** body not listed **
  1936  }
  1937  
  1938  real_4 _ali (real_4 _p_ x_)
  1939  { // ** body not listed **
  1952  }
  1953  
  1954  real_4 _alnrel (real_4 _p_ x_)
  1955  { // ** body not listed **
  2247  }
  2248  
  2249  real_4 _besi0e (real_4 _p_ x_)
  2250  { // ** body not listed **
  2905  }
  2906  
  2907  real_4 _besi0 (real_4 _p_ x_)
  2908  { // ** body not listed **
  3082  }
  3083  
  3084  real_4 _besi1e (real_4 _p_ x_)
  3085  { // ** body not listed **
  3741  }
  3742  
  3743  real_4 _besi1 (real_4 _p_ x_)
  3744  { // ** body not listed **
  3917  }
  3918  
  3919  int_4 _besi (real_4 _p_ x_, real_4 _p_ alpha_, int_4 _p_ kode_, int_4 _p_ n_, real_4 _p_ y_, int_4 _p_ nz_)
  3920  { // ** body not listed **
  4410  }
  4411  
  4412  real_4 _besj0 (real_4 _p_ x_)
  4413  { // ** body not listed **
  5115  }
  5116  
  5117  real_4 _besj1 (real_4 _p_ x_)
  5118  { // ** body not listed **
  5819  }
  5820  
  5821  int_4 _besj (real_4 _p_ x_, real_4 _p_ alpha_, int_4 _p_ n_, real_4 _p_ y_, int_4 _p_ nz_)
  5822  { // ** body not listed **
  6416  }
  6417  
  6418  real_4 _besk0e (real_4 _p_ x_)
  6419  { // ** body not listed **
  6934  }
  6935  
  6936  real_4 _besk0 (real_4 _p_ x_)
  6937  { // ** body not listed **
  7108  }
  7109  
  7110  real_4 _besk1e (real_4 _p_ x_)
  7111  { // ** body not listed **
  7630  }
  7631  
  7632  real_4 _besk1 (real_4 _p_ x_)
  7633  { // ** body not listed **
  7808  }
  7809  
  7810  int_4 _beskes (real_4 _p_ xnu_, real_4 _p_ x_, int_4 _p_ nin_, real_4 _p_ bke_)
  7811  { // ** body not listed **
  7873  }
  7874  
  7875  int_4 _besk (real_4 _p_ x_, real_4 _p_ fnu_, int_4 _p_ kode_, int_4 _p_ n_, real_4 _p_ y_, int_4 _p_ nz_)
  7876  { // ** body not listed **
  8142  }
  8143  
  8144  int_4 _besknu (real_4 _p_ x_, real_4 _p_ fnu_, int_4 _p_ kode_, int_4 _p_ n_, real_4 _p_ y_, int_4 _p_ nz_)
  8145  { // ** body not listed **
  8592  }
  8593  
  8594  int_4 _besks (real_4 _p_ xnu_, real_4 _p_ x_, int_4 _p_ nin_, real_4 _p_ bk_)
  8595  { // ** body not listed **
  8625  }
  8626  
  8627  real_4 _besy0 (real_4 _p_ x_)
  8628  { // ** body not listed **
  9344  }
  9345  
  9346  real_4 _besy1 (real_4 _p_ x_)
  9347  { // ** body not listed **
 10079  }
 10080  
 10081  int_4 _besy (real_4 _p_ x_, real_4 _p_ fnu_, int_4 _p_ n_, real_4 _p_ y_)
 10082  { // ** body not listed **
 10260  }
 10261  
 10262  int_4 _besynu (real_4 _p_ x_, real_4 _p_ fnu_, int_4 _p_ n_, real_4 _p_ y_)
 10263  { // ** body not listed **
 10673  }
 10674  
 10675  real_4 _beta (real_4 _p_ a_, real_4 _p_ b_)
 10676  { // ** body not listed **
 10721  }
 10722  
 10723  real_4 _betai (real_4 _p_ x_, real_4 _p_ pin_, real_4 _p_ qin_)
 10724  { // ** body not listed **
 10839  }
 10840  
 10841  int_4 _bfqad (real_4 (*_f)(), real_4 _p_ t_, real_4 _p_ bcoef_, int_4 _p_ n_, int_4 _p_ k_, int_4 _p_ id_, real_4 _p_ 
 10842  x1_, real_4 _p_ x2_, real_4 _p_ tol_, real_4 _p_ quad_, int_4 _p_ ierr_, real_4 _p_ work_)
 10843  { // ** body not listed **
 10922  }
 10923  
 10924  real_4 _bie (real_4 _p_ x_)
 10925  { // ** body not listed **
 12023  }
 12024  
 12025  real_4 _bi (real_4 _p_ x_)
 12026  { // ** body not listed **
 12495  }
 12496  
 12497  real_4 _binom (int_4 _p_ n_, int_4 _p_ m_)
 12498  { // ** body not listed **
 12576  }
 12577  
 12578  int_4 _bint4 (real_4 _p_ x_, real_4 _p_ y_, int_4 _p_ ndata_, int_4 _p_ ibcl_, int_4 _p_ ibcr_, real_4 _p_ fbcl_, 
 12579  real_4 _p_ fbcr_, int_4 _p_ kntopt_, real_4 _p_ t_, real_4 _p_ bcoef_, int_4 _p_ n_, int_4 _p_ k_, real_4 _p_ w_)
 12580  { // ** body not listed **
 12730  }
 12731  
 12732  int_4 _bintk (real_4 _p_ x_, real_4 _p_ y_, real_4 _p_ t_, int_4 _p_ n_, int_4 _p_ k_, real_4 _p_ bcoef_, real_4 _p_ q_
 12733  , real_4 _p_ work_)
 12734  { // ** body not listed **
 12819  }
 12820  
 12821  int_4 _bkias (real_4 _p_ x_, int_4 _p_ n_, int_4 _p_ ktrms_, real_4 _p_ t_, real_4 _p_ ans_, int_4 _p_ ind_, int_4 _p_ 
 12822  ms_, real_4 _p_ gmrn_, real_4 _p_ h_, int_4 _p_ ierr_)
 12823  { // ** body not listed **
 13706  }
 13707  
 13708  int_4 _bkisr (real_4 _p_ x_, int_4 _p_ n_, real_4 _p_ sum_, int_4 _p_ ierr_)
 13709  { // ** body not listed **
 13794  }
 13795  
 13796  int_4 _bskin (real_4 _p_ x_, int_4 _p_ n_, int_4 _p_ kode_, int_4 _p_ m_, real_4 _p_ y_, int_4 _p_ nz_, int_4 _p_ ierr_
 13797  )
 13798  { // ** body not listed **
 14328  }
 14329  
 14330  int_4 _bspev (real_4 _p_ t_, real_4 _p_ ad_, int_4 _p_ n_, int_4 _p_ k_, int_4 _p_ nderiv_, real_4 _p_ x_, int_4 _p_ 
 14331  inev_, real_4 _p_ svalue_, real_4 _p_ work_)
 14332  { // ** body not listed **
 14405  }
 14406  
 14407  int_4 _bsppp (real_4 _p_ t_, real_4 _p_ a_, int_4 _p_ n_, int_4 _p_ k_, int_4 _p_ ldc_, real_4 _p_ c_, real_4 _p_ xi_, 
 14408  int_4 _p_ lxi_, real_4 _p_ work_)
 14409  { // ** body not listed **
 14448  }
 14449  
 14450  int_4 _bspvd (real_4 _p_ t_, int_4 _p_ k_, int_4 _p_ nderiv_, real_4 _p_ x_, int_4 _p_ ileft_, int_4 _p_ ldvnik_, 
 14451  real_4 _p_ vnikx_, real_4 _p_ work_)
 14452  { // ** body not listed **
 14537  }
 14538  
 14539  int_4 _bsqad (real_4 _p_ t_, real_4 _p_ bcoef_, int_4 _p_ n_, int_4 _p_ k_, real_4 _p_ x1_, real_4 _p_ x2_, real_4 _p_ 
 14540  bquad_, real_4 _p_ work_)
 14541  { // ** body not listed **
 14730  }
 14731  
 14732  real_4 _bvalu (real_4 _p_ t_, real_4 _p_ a_, int_4 _p_ n_, int_4 _p_ k_, int_4 _p_ ideriv_, real_4 _p_ x_, int_4 _p_ 
 14733  inbv_, real_4 _p_ work_)
 14734  { // ** body not listed **
 14836  }
 14837  
 14838  complex_8 _c0lgmc (complex_8 _p_ z_)
 14839  { // ** body not listed **
 14876  }
 14877  
 14878  complex_8 _c9lgmc (complex_8 _p_ zin_)
 14879  { // ** body not listed **
 15061  }
 15062  
 15063  complex_8 _c9ln2r (complex_8 _p_ z_)
 15064  { // ** body not listed **
 15091  }
 15092  
 15093  int_4 _cacai (complex_8 _p_ z_, real_4 _p_ fnu_, int_4 _p_ kode_, int_4 _p_ mr_, int_4 _p_ n_, complex_8 _p_ y_, int_4 
 15094  _p_ nz_, real_4 _p_ rl_, real_4 _p_ tol_, real_4 _p_ elim_, real_4 _p_ alim_)
 15095  { // ** body not listed **
 15184  }
 15185  
 15186  int_4 _cacon (complex_8 _p_ z_, real_4 _p_ fnu_, int_4 _p_ kode_, int_4 _p_ mr_, int_4 _p_ n_, complex_8 _p_ y_, int_4 
 15187  _p_ nz_, real_4 _p_ rl_, real_4 _p_ fnul_, real_4 _p_ tol_, real_4 _p_ elim_, real_4 _p_ alim_)
 15188  { // ** body not listed **
 15367  }
 15368  
 15369  complex_8 _cacos (complex_8 _p_ z_)
 15370  { // ** body not listed **
 15388  }
 15389  
 15390  complex_8 _cacosh (complex_8 _p_ z_)
 15391  { // ** body not listed **
 15409  }
 15410  
 15411  int_4 _cairy (complex_8 _p_ z_, int_4 _p_ id_, int_4 _p_ kode_, complex_8 _p_ ai_, int_4 _p_ nz_, int_4 _p_ ierr_)
 15412  { // ** body not listed **
 15690  }
 15691  
 15692  real_4 _carg (complex_8 _p_ z_)
 15693  { // ** body not listed **
 15701  }
 15702  
 15703  complex_8 _casin (complex_8 _p_ zinp_)
 15704  { // ** body not listed **
 15799  }
 15800  
 15801  complex_8 _casinh (complex_8 _p_ z_)
 15802  { // ** body not listed **
 15821  }
 15822  
 15823  complex_8 _catan2 (complex_8 _p_ csn_, complex_8 _p_ ccs_)
 15824  { // ** body not listed **
 15859  }
 15860  
 15861  complex_8 _catan (complex_8 _p_ z_)
 15862  { // ** body not listed **
 15944  }
 15945  
 15946  complex_8 _catanh (complex_8 _p_ z_)
 15947  { // ** body not listed **
 15966  }
 15967  
 15968  int_4 _cbesh (complex_8 _p_ z_, real_4 _p_ fnu_, int_4 _p_ kode_, int_4 _p_ m_, int_4 _p_ n_, complex_8 _p_ cy_, int_4 
 15969  _p_ nz_, int_4 _p_ ierr_)
 15970  { // ** body not listed **
 16163  }
 16164  
 16165  int_4 _cbesi (complex_8 _p_ z_, real_4 _p_ fnu_, int_4 _p_ kode_, int_4 _p_ n_, complex_8 _p_ cy_, int_4 _p_ nz_, int_4 
 16166  _p_ ierr_)
 16167  { // ** body not listed **
 16308  }
 16309  
 16310  int_4 _cbesj (complex_8 _p_ z_, real_4 _p_ fnu_, int_4 _p_ kode_, int_4 _p_ n_, complex_8 _p_ cy_, int_4 _p_ nz_, int_4 
 16311  _p_ ierr_)
 16312  { // ** body not listed **
 16439  }
 16440  
 16441  int_4 _cbesk (complex_8 _p_ z_, real_4 _p_ fnu_, int_4 _p_ kode_, int_4 _p_ n_, complex_8 _p_ cy_, int_4 _p_ nz_, int_4 
 16442  _p_ ierr_)
 16443  { // ** body not listed **
 16594  }
 16595  
 16596  int_4 _cbesy (complex_8 _p_ z_, real_4 _p_ fnu_, int_4 _p_ kode_, int_4 _p_ n_, complex_8 _p_ cy_, int_4 _p_ nz_, 
 16597  complex_8 _p_ cwrk_, int_4 _p_ ierr_)
 16598  { // ** body not listed **
 16705  }
 16706  
 16707  complex_8 _cbeta (complex_8 _p_ a_, complex_8 _p_ b_)
 16708  { // ** body not listed **
 16741  }
 16742  
 16743  int_4 _cbinu (complex_8 _p_ z_, real_4 _p_ fnu_, int_4 _p_ kode_, int_4 _p_ n_, complex_8 _p_ cy_, int_4 _p_ nz_, 
 16744  real_4 _p_ rl_, real_4 _p_ fnul_, real_4 _p_ tol_, real_4 _p_ elim_, real_4 _p_ alim_)
 16745  { // ** body not listed **
 16872  }
 16873  
 16874  int_4 _cbiry (complex_8 _p_ z_, int_4 _p_ id_, int_4 _p_ kode_, complex_8 _p_ bi_, int_4 _p_ ierr_)
 16875  { // ** body not listed **
 17118  }
 17119  
 17120  int_4 _cbknu (complex_8 _p_ z_, real_4 _p_ fnu_, int_4 _p_ kode_, int_4 _p_ n_, complex_8 _p_ y_, int_4 _p_ nz_, real_4 
 17121  _p_ tol_, real_4 _p_ elim_, real_4 _p_ alim_)
 17122  { // ** body not listed **
 17720  }
 17721  
 17722  real_4 _cbrt (real_4 _p_ x_)
 17723  { // ** body not listed **
 17814  }
 17815  
 17816  int_4 _cbuni (complex_8 _p_ z_, real_4 _p_ fnu_, int_4 _p_ kode_, int_4 _p_ n_, complex_8 _p_ y_, int_4 _p_ nz_, int_4 
 17817  _p_ nui_, int_4 _p_ nlast_, real_4 _p_ fnul_, real_4 _p_ tol_, real_4 _p_ elim_, real_4 _p_ alim_)
 17818  { // ** body not listed **
 17976  }
 17977  
 17978  int_4 _cbunk (complex_8 _p_ z_, real_4 _p_ fnu_, int_4 _p_ kode_, int_4 _p_ mr_, int_4 _p_ n_, complex_8 _p_ y_, int_4 
 17979  _p_ nz_, real_4 _p_ tol_, real_4 _p_ elim_, real_4 _p_ alim_)
 17980  { // ** body not listed **
 17997  }
 17998  
 17999  complex_8 _ccbrt (complex_8 _p_ z_)
 18000  { // ** body not listed **
 18009  }
 18010  
 18011  complex_8 _ccosh (complex_8 _p_ z_)
 18012  { // ** body not listed **
 18030  }
 18031  
 18032  complex_8 _ccot (complex_8 _p_ z_)
 18033  { // ** body not listed **
 18070  }
 18071  
 18072  complex_8 _cexprl (complex_8 _p_ z_)
 18073  { // ** body not listed **
 18117  }
 18118  
 18119  complex_8 _cgamma (complex_8 _p_ z_)
 18120  { // ** body not listed **
 18125  }
 18126  
 18127  complex_8 _cgamr (complex_8 _p_ z_)
 18128  { // ** body not listed **
 18146  }
 18147  
 18148  real_4 _chu (real_4 _p_ a_, real_4 _p_ b_, real_4 _p_ x_)
 18149  { // ** body not listed **
 18295  }
 18296  int_4 _ckscl (complex_8 _p_ zr_, real_4 _p_ fnu_, int_4 _p_ n_, complex_8 _p_ y_, int_4 _p_ nz_, complex_8 _p_ rz_, 
 18297  real_4 _p_ ascle_, real_4 _p_ tol_, real_4 _p_ elim_)
 18298  { // ** body not listed **
 18420  }
 18421  
 18422  complex_8 _clbeta (complex_8 _p_ a_, complex_8 _p_ b_)
 18423  { // ** body not listed **
 18433  }
 18434  
 18435  complex_8 _clngam (complex_8 _p_ zin_)
 18436  { // ** body not listed **
 18536  }
 18537  
 18538  complex_8 _clnrel (complex_8 _p_ z_)
 18539  { // ** body not listed **
 18575  }
 18576  
 18577  complex_8 _clog10 (complex_8 _p_ z_)
 18578  { // ** body not listed **
 18596  }
 18597  
 18598  int_4 _cmlri (complex_8 _p_ z_, real_4 _p_ fnu_, int_4 _p_ kode_, int_4 _p_ n_, complex_8 _p_ y_, int_4 _p_ nz_, real_4 
 18599  _p_ tol_)
 18600  { // ** body not listed **
 18768  }
 18769  
 18770  real_4 _cosdg (real_4 _p_ x_)
 18771  { // ** body not listed **
 18801  }
 18802  
 18803  real_4 _cot (real_4 _p_ x_)
 18804  { // ** body not listed **
 18981  }
 18982  
 18983  complex_8 _cpsi (complex_8 _p_ zin_)
 18984  { // ** body not listed **
 19227  }
 19228  
 19229  int_4 _cseri (complex_8 _p_ z_, real_4 _p_ fnu_, int_4 _p_ kode_, int_4 _p_ n_, complex_8 _p_ y_, int_4 _p_ nz_, real_4 
 19230  _p_ tol_, real_4 _p_ elim_, real_4 _p_ alim_)
 19231  { // ** body not listed **
 19414  }
 19415  
 19416  real_4 _csevl (real_4 _p_ x_, real_4 _p_ cs_, int_4 _p_ n_)
 19417  { // ** body not listed **
 19459  }
 19460  
 19461  complex_8 _csinh (complex_8 _p_ z_)
 19462  { // ** body not listed **
 19480  }
 19481  
 19482  complex_8 _ctan (complex_8 _p_ z_)
 19483  { // ** body not listed **
 19520  }
 19521  
 19522  complex_8 _ctanh (complex_8 _p_ z_)
 19523  { // ** body not listed **
 19541  }
 19542  
 19543  int_4 _cuni1 (complex_8 _p_ z_, real_4 _p_ fnu_, int_4 _p_ kode_, int_4 _p_ n_, complex_8 _p_ y_, int_4 _p_ nz_, int_4 
 19544  _p_ nlast_, real_4 _p_ fnul_, real_4 _p_ tol_, real_4 _p_ elim_, real_4 _p_ alim_)
 19545  { // ** body not listed **
 19736  }
 19737  
 19738  int_4 _cuni2 (complex_8 _p_ z_, real_4 _p_ fnu_, int_4 _p_ kode_, int_4 _p_ n_, complex_8 _p_ y_, int_4 _p_ nz_, int_4 
 19739  _p_ nlast_, real_4 _p_ fnul_, real_4 _p_ tol_, real_4 _p_ elim_, real_4 _p_ alim_)
 19740  { // ** body not listed **
 20013  }
 20014  
 20015  int_4 _cunk1 (complex_8 _p_ z_, real_4 _p_ fnu_, int_4 _p_ kode_, int_4 _p_ mr_, int_4 _p_ n_, complex_8 _p_ y_, int_4 
 20016  _p_ nz_, real_4 _p_ tol_, real_4 _p_ elim_, real_4 _p_ alim_)
 20017  { // ** body not listed **
 20416  }
 20417  
 20418  int_4 _cunk2 (complex_8 _p_ z_, real_4 _p_ fnu_, int_4 _p_ kode_, int_4 _p_ mr_, int_4 _p_ n_, complex_8 _p_ y_, int_4 
 20419  _p_ nz_, real_4 _p_ tol_, real_4 _p_ elim_, real_4 _p_ alim_)
 20420  { // ** body not listed **
 20908  }
 20909  
 20910  int_4 _cuoik (complex_8 _p_ z_, real_4 _p_ fnu_, int_4 _p_ kode_, int_4 _p_ ikflg_, int_4 _p_ n_, complex_8 _p_ y_, 
 20911  int_4 _p_ nuf_, real_4 _p_ tol_, real_4 _p_ elim_, real_4 _p_ alim_)
 20912  { // ** body not listed **
 21106  }
 21107  
 21108  int_4 _cwrsk (complex_8 _p_ zr_, real_4 _p_ fnu_, int_4 _p_ kode_, int_4 _p_ n_, complex_8 _p_ y_, int_4 _p_ nz_, 
 21109  complex_8 _p_ cw_, real_4 _p_ tol_, real_4 _p_ elim_, real_4 _p_ alim_)
 21110  { // ** body not listed **
 21172  }
 21173  
 21174  int_4 _d9aimp (real_8 _p_ x_, real_8 _p_ ampl_, real_8 _p_ theta_)
 21175  { // ** body not listed **
 25405  }
 25406  
 25407  real_8 _d9atn1 (real_8 _p_ x_)
 25408  { // ** body not listed **
 25904  }
 25905  
 25906  int_4 _d9b0mp (real_8 _p_ x_, real_8 _p_ ampl_, real_8 _p_ theta_)
 25907  { // ** body not listed **
 27745  }
 27746  
 27747  int_4 _d9b1mp (real_8 _p_ x_, real_8 _p_ ampl_, real_8 _p_ theta_)
 27748  { // ** body not listed **
 29586  }
 29587  
 29588  real_8 _d9chu (real_8 _p_ a_, real_8 _p_ b_, real_8 _p_ z_)
 29589  { // ** body not listed **
 29654  }
 29655  
 29656  real_8 _d9gmic (real_8 _p_ a_, real_8 _p_ x_, real_8 _p_ alx_)
 29657  { // ** body not listed **
 29758  }
 29759  
 29760  real_8 _d9gmit (real_8 _p_ a_, real_8 _p_ x_, real_8 _p_ algap1_, real_8 _p_ sgngam_, real_8 _p_ alx_)
 29761  { // ** body not listed **
 29850  }
 29851  
 29852  int_4 _d9knus (real_8 _p_ xnu_, real_8 _p_ x_, real_8 _p_ bknu_, real_8 _p_ bknu1_, int_4 _p_ iswtch_)
 29853  { // ** body not listed **
 30607  }
 30608  
 30609  real_8 _d9lgic (real_8 _p_ a_, real_8 _p_ x_, real_8 _p_ alx_)
 30610  { // ** body not listed **
 30650  }
 30651  
 30652  real_8 _d9lgit (real_8 _p_ a_, real_8 _p_ x_, real_8 _p_ algap1_)
 30653  { // ** body not listed **
 30703  }
 30704  
 30705  real_8 _d9lgmc (real_8 _p_ x_)
 30706  { // ** body not listed **
 30916  }
 30917  
 30918  real_8 _d9ln2r (real_8 _p_ x_)
 30919  { // ** body not listed **
 31944  }
 31945  
 31946  real_8 _d9pak (real_8 _p_ y_, int_4 _p_ n_)
 31947  { // ** body not listed **
 32020  }
 32021  
 32022  int_4 _d9upak (real_8 _p_ x_, real_8 _p_ y_, int_4 _p_ n_)
 32023  { // ** body not listed **
 32048  }
 32049  
 32050  real_8 _daie (real_8 _p_ x_)
 32051  { // ** body not listed **
 33453  }
 33454  
 33455  real_8 _dai (real_8 _p_ x_)
 33456  { // ** body not listed **
 33800  }
 33801  
 33802  int_4 _dasyjy (int_4 (*_funjy)(), real_8 _p_ x_, real_8 _p_ fnu_, real_8 _p_ flgjy_, int_4 _p_ in_, real_8 _p_ y_, 
 33803  real_8 _p_ wk_, int_4 _p_ iflw_)
 33804  { // ** body not listed **
 35885  }
 35886  
 35887  real_4 _daws (real_4 _p_ x_)
 35888  { // ** body not listed **
 36704  }
 36705  
 36706  real_8 _dbesi0 (real_8 _p_ x_)
 36707  { // ** body not listed **
 36950  }
 36951  
 36952  real_8 _dbesi1 (real_8 _p_ x_)
 36953  { // ** body not listed **
 37195  }
 37196  
 37197  int_4 _dbesi (real_8 _p_ x_, real_8 _p_ alpha_, int_4 _p_ kode_, int_4 _p_ n_, real_8 _p_ y_, int_4 _p_ nz_)
 37198  { // ** body not listed **
 37688  }
 37689  
 37690  real_8 _dbesj0 (real_8 _p_ x_)
 37691  { // ** body not listed **
 37942  }
 37943  
 37944  real_8 _dbesj1 (real_8 _p_ x_)
 37945  { // ** body not listed **
 38206  }
 38207  
 38208  int_4 _dbesj (real_8 _p_ x_, real_8 _p_ alpha_, int_4 _p_ n_, real_8 _p_ y_, int_4 _p_ nz_)
 38209  { // ** body not listed **
 38803  }
 38804  
 38805  real_8 _dbesk0 (real_8 _p_ x_)
 38806  { // ** body not listed **
 39035  }
 39036  
 39037  real_8 _dbesk1 (real_8 _p_ x_)
 39038  { // ** body not listed **
 39272  }
 39273  
 39274  int_4 _dbesk (real_8 _p_ x_, real_8 _p_ fnu_, int_4 _p_ kode_, int_4 _p_ n_, real_8 _p_ y_, int_4 _p_ nz_)
 39275  { // ** body not listed **
 39541  }
 39542  
 39543  int_4 _dbesks (real_8 _p_ xnu_, real_8 _p_ x_, int_4 _p_ nin_, real_8 _p_ bk_)
 39544  { // ** body not listed **
 39574  }
 39575  
 39576  real_8 _dbesy0 (real_8 _p_ x_)
 39577  { // ** body not listed **
 39843  }
 39844  
 39845  real_8 _dbesy1 (real_8 _p_ x_)
 39846  { // ** body not listed **
 40127  }
 40128  
 40129  int_4 _dbesy (real_8 _p_ x_, real_8 _p_ fnu_, int_4 _p_ n_, real_8 _p_ y_)
 40130  { // ** body not listed **
 40308  }
 40309  
 40310  real_8 _dbeta (real_8 _p_ a_, real_8 _p_ b_)
 40311  { // ** body not listed **
 40356  }
 40357  
 40358  real_8 _dbetai (real_8 _p_ x_, real_8 _p_ pin_, real_8 _p_ qin_)
 40359  { // ** body not listed **
 40476  }
 40477  
 40478  int_4 _dbfqad (real_8 (*_f)(), real_8 _p_ t_, real_8 _p_ bcoef_, int_4 _p_ n_, int_4 _p_ k_, int_4 _p_ id_, real_8 _p_ 
 40479  x1_, real_8 _p_ x2_, real_8 _p_ tol_, real_8 _p_ quad_, int_4 _p_ ierr_, real_8 _p_ work_)
 40480  { // ** body not listed **
 40559  }
 40560  
 40561  real_8 _dbie (real_8 _p_ x_)
 40562  { // ** body not listed **
 42787  }
 42788  
 42789  real_8 _dbi (real_8 _p_ x_)
 42790  { // ** body not listed **
 43473  }
 43474  
 43475  real_8 _dbinom (int_4 _p_ n_, int_4 _p_ m_)
 43476  { // ** body not listed **
 43557  }
 43558  
 43559  int_4 _dbint4 (real_8 _p_ x_, real_8 _p_ y_, int_4 _p_ ndata_, int_4 _p_ ibcl_, int_4 _p_ ibcr_, real_8 _p_ fbcl_, 
 43560  real_8 _p_ fbcr_, int_4 _p_ kntopt_, real_8 _p_ t_, real_8 _p_ bcoef_, int_4 _p_ n_, int_4 _p_ k_, real_8 _p_ w_)
 43561  { // ** body not listed **
 43711  }
 43712  
 43713  int_4 _dbintk (real_8 _p_ x_, real_8 _p_ y_, real_8 _p_ t_, int_4 _p_ n_, int_4 _p_ k_, real_8 _p_ bcoef_, real_8 _p_ 
 43714  q_, real_8 _p_ work_)
 43715  { // ** body not listed **
 43800  }
 43801  
 43802  int_4 _dbkias (real_8 _p_ x_, int_4 _p_ n_, int_4 _p_ ktrms_, real_8 _p_ t_, real_8 _p_ ans_, int_4 _p_ ind_, int_4 _p_ 
 43803  ms_, real_8 _p_ gmrn_, real_8 _p_ h_, int_4 _p_ ierr_)
 43804  { // ** body not listed **
 44687  }
 44688  
 44689  int_4 _dbkisr (real_8 _p_ x_, int_4 _p_ n_, real_8 _p_ sum_, int_4 _p_ ierr_)
 44690  { // ** body not listed **
 44775  }
 44776  
 44777  real_8 _dbsi0e (real_8 _p_ x_)
 44778  { // ** body not listed **
 46304  }
 46305  
 46306  real_8 _dbsi1e (real_8 _p_ x_)
 46307  { // ** body not listed **
 47834  }
 47835  
 47836  real_8 _dbsk0e (real_8 _p_ x_)
 47837  { // ** body not listed **
 48856  }
 48857  
 48858  real_8 _dbsk1e (real_8 _p_ x_)
 48859  { // ** body not listed **
 49882  }
 49883  
 49884  int_4 _dbskes (real_8 _p_ xnu_, real_8 _p_ x_, int_4 _p_ nin_, real_8 _p_ bke_)
 49885  { // ** body not listed **
 49948  }
 49949  
 49950  int_4 _dbskin (real_8 _p_ x_, int_4 _p_ n_, int_4 _p_ kode_, int_4 _p_ m_, real_8 _p_ y_, int_4 _p_ nz_, int_4 _p_ 
 49951  ierr_)
 49952  { // ** body not listed **
 50478  }
 50479  
 50480  int_4 _dbsknu (real_8 _p_ x_, real_8 _p_ fnu_, int_4 _p_ kode_, int_4 _p_ n_, real_8 _p_ y_, int_4 _p_ nz_)
 50481  { // ** body not listed **
 50928  }
 50929  
 50930  int_4 _dbspev (real_8 _p_ t_, real_8 _p_ ad_, int_4 _p_ n_, int_4 _p_ k_, int_4 _p_ nderiv_, real_8 _p_ x_, int_4 _p_ 
 50931  inev_, real_8 _p_ svalue_, real_8 _p_ work_)
 50932  { // ** body not listed **
 51005  }
 51006  
 51007  int_4 _dbsppp (real_8 _p_ t_, real_8 _p_ a_, int_4 _p_ n_, int_4 _p_ k_, int_4 _p_ ldc_, real_8 _p_ c_, real_8 _p_ xi_, 
 51008  int_4 _p_ lxi_, real_8 _p_ work_)
 51009  { // ** body not listed **
 51048  }
 51049  
 51050  int_4 _dbspvd (real_8 _p_ t_, int_4 _p_ k_, int_4 _p_ nderiv_, real_8 _p_ x_, int_4 _p_ ileft_, int_4 _p_ ldvnik_, 
 51051  real_8 _p_ vnikx_, real_8 _p_ work_)
 51052  { // ** body not listed **
 51137  }
 51138  
 51139  int_4 _dbsqad (real_8 _p_ t_, real_8 _p_ bcoef_, int_4 _p_ n_, int_4 _p_ k_, real_8 _p_ x1_, real_8 _p_ x2_, real_8 _p_ 
 51140  bquad_, real_8 _p_ work_)
 51141  { // ** body not listed **
 51330  }
 51331  
 51332  int_4 _dbsynu (real_8 _p_ x_, real_8 _p_ fnu_, int_4 _p_ n_, real_8 _p_ y_)
 51333  { // ** body not listed **
 51743  }
 51744  
 51745  real_8 _dbvalu (real_8 _p_ t_, real_8 _p_ a_, int_4 _p_ n_, int_4 _p_ k_, int_4 _p_ ideriv_, real_8 _p_ x_, int_4 _p_ 
 51746  inbv_, real_8 _p_ work_)
 51747  { // ** body not listed **
 51850  }
 51851  
 51852  real_8 _dcbrt (real_8 _p_ x_)
 51853  { // ** body not listed **
 51947  }
 51948  
 51949  real_8 _dchu (real_8 _p_ a_, real_8 _p_ b_, real_8 _p_ x_)
 51950  { // ** body not listed **
 52099  }
 52100  
 52101  real_8 _dcosdg (real_8 _p_ x_)
 52102  { // ** body not listed **
 52133  }
 52134  
 52135  real_8 _dcot (real_8 _p_ x_)
 52136  { // ** body not listed **
 52393  }
 52394  
 52395  real_8 _dcsevl (real_8 _p_ x_, real_8 _p_ cs_, int_4 _p_ n_)
 52396  { // ** body not listed **
 52439  }
 52440  
 52441  real_8 _ddaws (real_8 _p_ x_)
 52442  { // ** body not listed **
 54073  }
 54074  
 54075  real_8 _de1 (real_8 _p_ x_)
 54076  { // ** body not listed **
 57708  }
 57709  
 57710  real_8 _dei (real_8 _p_ x_)
 57711  { // ** body not listed **
 57717  }
 57718  
 57719  int_4 _dexint (real_8 _p_ x_, int_4 _p_ n_, int_4 _p_ kode_, int_4 _p_ m_, real_8 _p_ tol_, real_8 _p_ en_, int_4 _p_ 
 57720  nz_, int_4 _p_ ierr_)
 57721  { // ** body not listed **
 58025  }
 58026  
 58027  real_8 _dexprl (real_8 _p_ x_)
 58028  { // ** body not listed **
 58072  }
 58073  
 58074  real_8 _dfac (int_4 _p_ n_)
 58075  { // ** body not listed **
 58470  }
 58471  
 58472  real_8 _dgamic (real_8 _p_ a_, real_8 _p_ x_)
 58473  { // ** body not listed **
 58596  }
 58597  
 58598  real_8 _dgami (real_8 _p_ a_, real_8 _p_ x_)
 58599  { // ** body not listed **
 58618  }
 58619  
 58620  real_8 _dgamit (real_8 _p_ a_, real_8 _p_ x_)
 58621  { // ** body not listed **
 58719  }
 58720  
 58721  int_4 _dgamlm (real_8 _p_ xmin_, real_8 _p_ xmax_)
 58722  { // ** body not listed **
 58758  }
 58759  
 58760  real_8 _dgamln (real_8 _p_ z_, int_4 _p_ ierr_)
 58761  { // ** body not listed **
 59501  }
 59502  
 59503  real_8 _dgamr (real_8 _p_ x_)
 59504  { // ** body not listed **
 59530  }
 59531  
 59532  real_8 _dgamrn (real_8 _p_ x_)
 59533  { // ** body not listed **
 59656  }
 59657  
 59658  int_4 _dhkseq (real_8 _p_ x_, int_4 _p_ m_, real_8 _p_ h_, int_4 _p_ ierr_)
 59659  { // ** body not listed **
 59886  }
 59887  
 59888  real_8 _dlbeta (real_8 _p_ a_, real_8 _p_ b_)
 59889  { // ** body not listed **
 59930  }
 59931  
 59932  int_4 _dlgams (real_8 _p_ x_, real_8 _p_ dlgam_, real_8 _p_ sgngam_)
 59933  { // ** body not listed **
 59948  }
 59949  
 59950  real_8 _dli (real_8 _p_ x_)
 59951  { // ** body not listed **
 59964  }
 59965  
 59966  real_8 _dlnrel (real_8 _p_ x_)
 59967  { // ** body not listed **
 60484  }
 60485  
 60486  int_4 _dpfqad (real_8 (*_f)(), int_4 _p_ ldc_, real_8 _p_ c_, real_8 _p_ xi_, int_4 _p_ lxi_, int_4 _p_ k_, int_4 _p_ 
 60487  id_, real_8 _p_ x1_, real_8 _p_ x2_, real_8 _p_ tol_, real_8 _p_ quad_, int_4 _p_ ierr_)
 60488  { // ** body not listed **
 60561  }
 60562  
 60563  real_8 _dpoch1 (real_8 _p_ a_, real_8 _p_ x_)
 60564  { // ** body not listed **
 60900  }
 60901  
 60902  real_8 _dpoch (real_8 _p_ a_, real_8 _p_ x_)
 60903  { // ** body not listed **
 60993  }
 60994  
 60995  int_4 _dppqad (int_4 _p_ ldc_, real_8 _p_ c_, real_8 _p_ xi_, int_4 _p_ lxi_, int_4 _p_ k_, real_8 _p_ x1_, real_8 _p_ 
 60996  x2_, real_8 _p_ pquad_)
 60997  { // ** body not listed **
 61068  }
 61069  
 61070  real_8 _dppval (int_4 _p_ ldc_, real_8 _p_ c_, real_8 _p_ xi_, int_4 _p_ lxi_, int_4 _p_ k_, int_4 _p_ ideriv_, real_8 
 61071  _p_ x_, int_4 _p_ inppv_)
 61072  { // ** body not listed **
 61117  }
 61118  
 61119  real_8 _dpsi (real_8 _p_ x_)
 61120  { // ** body not listed **
 61853  }
 61854  
 61855  int_4 _dpsifn (real_8 _p_ x_, int_4 _p_ n_, int_4 _p_ kode_, int_4 _p_ m_, real_8 _p_ ans_, int_4 _p_ nz_, int_4 _p_ 
 61856  ierr_)
 61857  { // ** body not listed **
 62264  }
 62265  
 62266  real_8 _dsindg (real_8 _p_ x_)
 62267  { // ** body not listed **
 62298  }
 62299  
 62300  real_8 _dspenc (real_8 _p_ x_)
 62301  { // ** body not listed **
 62808  }
 62809  
 62810  real_4 _e1 (real_4 _p_ x_)
 62811  { // ** body not listed **
 64554  }
 64555  
 64556  real_4 _ei (real_4 _p_ x_)
 64557  { // ** body not listed **
 64563  }
 64564  
 64565  int_4 _exint (real_4 _p_ x_, int_4 _p_ n_, int_4 _p_ kode_, int_4 _p_ m_, real_4 _p_ tol_, real_4 _p_ en_, int_4 _p_ 
 64566  nz_, int_4 _p_ ierr_)
 64567  { // ** body not listed **
 64863  }
 64864  
 64865  real_4 _exprel (real_4 _p_ x_)
 64866  { // ** body not listed **
 64909  }
 64910  
 64911  real_4 _fac (int_4 _p_ n_)
 64912  { // ** body not listed **
 65250  }
 65251  
 65252  int_4 _fundoc (void)
 65253  { // ** body not listed **
 65256  }
 65257  
 65258  real_4 _gamic (real_4 _p_ a_, real_4 _p_ x_)
 65259  { // ** body not listed **
 65383  }
 65384  
 65385  real_4 _gami (real_4 _p_ a_, real_4 _p_ x_)
 65386  { // ** body not listed **
 65404  }
 65405  
 65406  real_4 _gamit (real_4 _p_ a_, real_4 _p_ x_)
 65407  { // ** body not listed **
 65505  }
 65506  
 65507  int_4 _gamlim (real_4 _p_ xmin_, real_4 _p_ xmax_)
 65508  { // ** body not listed **
 65542  }
 65543  
 65544  real_4 _gamln (real_4 _p_ z_, int_4 _p_ ierr_)
 65545  { // ** body not listed **
 66285  }
 66286  
 66287  real_4 _gamr (real_4 _p_ x_)
 66288  { // ** body not listed **
 66313  }
 66314  
 66315  int_4 _initds (real_8 _p_ os_, int_4 _p_ nos_, real_4 _p_ eta_)
 66316  { // ** body not listed **
 66338  }
 66339  
 66340  int_4 _inits (real_4 _p_ os_, int_4 _p_ nos_, real_4 _p_ eta_)
 66341  { // ** body not listed **
 66363  }
 66364  
 66365  int_4 _pfqad (real_4 (*_f)(), int_4 _p_ ldc_, real_4 _p_ c_, real_4 _p_ xi_, int_4 _p_ lxi_, int_4 _p_ k_, int_4 _p_ 
 66366  id_, real_4 _p_ x1_, real_4 _p_ x2_, real_4 _p_ tol_, real_4 _p_ quad_, int_4 _p_ ierr_)
 66367  { // ** body not listed **
 66440  }
 66441  
 66442  real_4 _poch1 (real_4 _p_ a_, real_4 _p_ x_)
 66443  { // ** body not listed **
 66656  }
 66657  
 66658  real_4 _poch (real_4 _p_ a_, real_4 _p_ x_)
 66659  { // ** body not listed **
 66747  }
 66748  
 66749  int_4 _ppqad (int_4 _p_ ldc_, real_4 _p_ c_, real_4 _p_ xi_, int_4 _p_ lxi_, int_4 _p_ k_, real_4 _p_ x1_, real_4 _p_ 
 66750  x2_, real_4 _p_ pquad_)
 66751  { // ** body not listed **
 66822  }
 66823  
 66824  real_4 _ppval (int_4 _p_ ldc_, real_4 _p_ c_, real_4 _p_ xi_, int_4 _p_ lxi_, int_4 _p_ k_, int_4 _p_ ideriv_, real_4 
 66825  _p_ x_, int_4 _p_ inppv_)
 66826  { // ** body not listed **
 66870  }
 66871  
 66872  real_4 _psi (real_4 _p_ x_)
 66873  { // ** body not listed **
 67385  }
 67386  
 67387  int_4 _r9aimp (real_4 _p_ x_, real_4 _p_ ampl_, real_4 _p_ theta_)
 67388  { // ** body not listed **
 69017  }
 69018  
 69019  real_4 _r9atn1 (real_4 _p_ x_)
 69020  { // ** body not listed **
 69302  }
 69303  
 69304  real_4 _r9chu (real_4 _p_ a_, real_4 _p_ b_, real_4 _p_ z_)
 69305  { // ** body not listed **
 69370  }
 69371  
 69372  real_4 _r9gmic (real_4 _p_ a_, real_4 _p_ x_, real_4 _p_ alx_)
 69373  { // ** body not listed **
 69479  }
 69480  
 69481  real_4 _r9gmit (real_4 _p_ a_, real_4 _p_ x_, real_4 _p_ algap1_, real_4 _p_ sgngam_, real_4 _p_ alx_)
 69482  { // ** body not listed **
 69575  }
 69576  
 69577  int_4 _r9knus (real_4 _p_ xnu_, real_4 _p_ x_, real_4 _p_ bknu_, real_4 _p_ bknu1_, int_4 _p_ iswtch_)
 69578  { // ** body not listed **
 70095  }
 70096  
 70097  real_4 _r9lgic (real_4 _p_ a_, real_4 _p_ x_, real_4 _p_ alx_)
 70098  { // ** body not listed **
 70137  }
 70138  
 70139  real_4 _r9lgit (real_4 _p_ a_, real_4 _p_ x_, real_4 _p_ algap1_)
 70140  { // ** body not listed **
 70194  }
 70195  
 70196  real_4 _r9lgmc (real_4 _p_ x_)
 70197  { // ** body not listed **
 70305  }
 70306  
 70307  real_4 _r9ln2r (real_4 _p_ x_)
 70308  { // ** body not listed **
 70874  }
 70875  
 70876  real_4 _r9pak (real_4 _p_ y_, int_4 _p_ n_)
 70877  { // ** body not listed **
 70949  }
 70950  
 70951  int_4 _r9upak (real_4 _p_ x_, real_4 _p_ y_, int_4 _p_ n_)
 70952  { // ** body not listed **
 70977  }
 70978  
 70979  real_4 _rand (real_4 _p_ r_)
 70980  { // ** body not listed **
 71056  }
 71057  
 71058  real_4 _rgauss (real_4 _p_ xmean_, real_4 _p_ sd_)
 71059  { // ** body not listed **
 71070  }
 71071  
 71072  real_4 _runif (real_4 _p_ t_, int_4 _p_ n_)
 71073  { // ** body not listed **
 71111  }
 71112  
 71113  real_4 _sindg (real_4 _p_ x_)
 71114  { // ** body not listed **
 71144  }
 71145  
 71146  real_4 _spenc (real_4 _p_ x_)
 71147  { // ** body not listed **
 71439  }
 71440  
 71441  real_8 _zabs (real_8 _p_ zr_, real_8 _p_ zi_)
 71442  { // ** body not listed **
 71467  }
 71468  
 71469  int_4 _zacai (real_8 _p_ zr_, real_8 _p_ zi_, real_8 _p_ fnu_, int_4 _p_ kode_, int_4 _p_ mr_, int_4 _p_ n_, real_8 _p_ 
 71470  yr_, real_8 _p_ yi_, int_4 _p_ nz_, real_8 _p_ rl_, real_8 _p_ tol_, real_8 _p_ elim_, real_8 _p_ alim_)
 71471  { // ** body not listed **
 71566  }
 71567  
 71568  int_4 _zacon (real_8 _p_ zr_, real_8 _p_ zi_, real_8 _p_ fnu_, int_4 _p_ kode_, int_4 _p_ mr_, int_4 _p_ n_, real_8 _p_ 
 71569  yr_, real_8 _p_ yi_, int_4 _p_ nz_, real_8 _p_ rl_, real_8 _p_ fnul_, real_8 _p_ tol_, real_8 _p_ elim_, real_8 _p_ 
 71570  alim_)
 71571  { // ** body not listed **
 71804  }
 71805  
 71806  int_4 _zairy (real_8 _p_ zr_, real_8 _p_ zi_, int_4 _p_ id_, int_4 _p_ kode_, real_8 _p_ air_, real_8 _p_ aii_, int_4 
 71807  _p_ nz_, int_4 _p_ ierr_)
 71808  { // ** body not listed **
 72152  }
 72153  
 72154  int_4 _zasyi (real_8 _p_ zr_, real_8 _p_ zi_, real_8 _p_ fnu_, int_4 _p_ kode_, int_4 _p_ n_, real_8 _p_ yr_, real_8 
 72155  _p_ yi_, int_4 _p_ nz_, real_8 _p_ rl_, real_8 _p_ tol_, real_8 _p_ elim_, real_8 _p_ alim_)
 72156  { // ** body not listed **
 72359  }
 72360  
 72361  int_4 _zbesh (real_8 _p_ zr_, real_8 _p_ zi_, real_8 _p_ fnu_, int_4 _p_ kode_, int_4 _p_ m_, int_4 _p_ n_, real_8 _p_ 
 72362  cyr_, real_8 _p_ cyi_, int_4 _p_ nz_, int_4 _p_ ierr_)
 72363  { // ** body not listed **
 72560  }
 72561  
 72562  int_4 _zbesi (real_8 _p_ zr_, real_8 _p_ zi_, real_8 _p_ fnu_, int_4 _p_ kode_, int_4 _p_ n_, real_8 _p_ cyr_, real_8 
 72563  _p_ cyi_, int_4 _p_ nz_, int_4 _p_ ierr_)
 72564  { // ** body not listed **
 72714  }
 72715  
 72716  int_4 _zbesj (real_8 _p_ zr_, real_8 _p_ zi_, real_8 _p_ fnu_, int_4 _p_ kode_, int_4 _p_ n_, real_8 _p_ cyr_, real_8 
 72717  _p_ cyi_, int_4 _p_ nz_, int_4 _p_ ierr_)
 72718  { // ** body not listed **
 72851  }
 72852  
 72853  int_4 _zbesk (real_8 _p_ zr_, real_8 _p_ zi_, real_8 _p_ fnu_, int_4 _p_ kode_, int_4 _p_ n_, real_8 _p_ cyr_, real_8 
 72854  _p_ cyi_, int_4 _p_ nz_, int_4 _p_ ierr_)
 72855  { // ** body not listed **
 73004  }
 73005  
 73006  int_4 _zbesy (real_8 _p_ zr_, real_8 _p_ zi_, real_8 _p_ fnu_, int_4 _p_ kode_, int_4 _p_ n_, real_8 _p_ cyr_, real_8 
 73007  _p_ cyi_, int_4 _p_ nz_, real_8 _p_ cwrkr_, real_8 _p_ cwrki_, int_4 _p_ ierr_)
 73008  { // ** body not listed **
 73120  }
 73121  
 73122  int_4 _zbinu (real_8 _p_ zr_, real_8 _p_ zi_, real_8 _p_ fnu_, int_4 _p_ kode_, int_4 _p_ n_, real_8 _p_ cyr_, real_8 
 73123  _p_ cyi_, int_4 _p_ nz_, real_8 _p_ rl_, real_8 _p_ fnul_, real_8 _p_ tol_, real_8 _p_ elim_, real_8 _p_ alim_)
 73124  { // ** body not listed **
 73256  }
 73257  
 73258  int_4 _zbiry (real_8 _p_ zr_, real_8 _p_ zi_, int_4 _p_ id_, int_4 _p_ kode_, real_8 _p_ bir_, real_8 _p_ bii_, int_4 
 73259  _p_ ierr_)
 73260  { // ** body not listed **
 73556  }
 73557  
 73558  int_4 _zbknu (real_8 _p_ zr_, real_8 _p_ zi_, real_8 _p_ fnu_, int_4 _p_ kode_, int_4 _p_ n_, real_8 _p_ yr_, real_8 
 73559  _p_ yi_, int_4 _p_ nz_, real_8 _p_ tol_, real_8 _p_ elim_, real_8 _p_ alim_)
 73560  { // ** body not listed **
 74269  }
 74270  
 74271  int_4 _zbuni (real_8 _p_ zr_, real_8 _p_ zi_, real_8 _p_ fnu_, int_4 _p_ kode_, int_4 _p_ n_, real_8 _p_ yr_, real_8 
 74272  _p_ yi_, int_4 _p_ nz_, int_4 _p_ nui_, int_4 _p_ nlast_, real_8 _p_ fnul_, real_8 _p_ tol_, real_8 _p_ elim_, real_8 
 74273  _p_ alim_)
 74274  { // ** body not listed **
 74442  }
 74443  
 74444  int_4 _zbunk (real_8 _p_ zr_, real_8 _p_ zi_, real_8 _p_ fnu_, int_4 _p_ kode_, int_4 _p_ mr_, int_4 _p_ n_, real_8 _p_ 
 74445  yr_, real_8 _p_ yi_, int_4 _p_ nz_, real_8 _p_ tol_, real_8 _p_ elim_, real_8 _p_ alim_)
 74446  { // ** body not listed **
 74461  }
 74462  
 74463  int_4 _zdiv (real_8 _p_ ar_, real_8 _p_ ai_, real_8 _p_ br_, real_8 _p_ bi_, real_8 _p_ cr_, real_8 _p_ ci_)
 74464  { // ** body not listed **
 74475  }
 74476  
 74477  int_4 _zexp (real_8 _p_ ar_, real_8 _p_ ai_, real_8 _p_ br_, real_8 _p_ bi_)
 74478  { // ** body not listed **
 74487  }
 74488  
 74489  int_4 _zkscl (real_8 _p_ zrr_, real_8 _p_ zri_, real_8 _p_ fnu_, int_4 _p_ n_, real_8 _p_ yr_, real_8 _p_ yi_, int_4 
 74490  _p_ nz_, real_8 _p_ rzr_, real_8 _p_ rzi_, real_8 _p_ ascle_, real_8 _p_ tol_, real_8 _p_ elim_)
 74491  { // ** body not listed **
 74635  }
 74636  
 74637  int_4 _zlog (real_8 _p_ ar_, real_8 _p_ ai_, real_8 _p_ br_, real_8 _p_ bi_, int_4 _p_ ierr_)
 74638  { // ** body not listed **
 74707  }
 74708  
 74709  int_4 _zmlri (real_8 _p_ zr_, real_8 _p_ zi_, real_8 _p_ fnu_, int_4 _p_ kode_, int_4 _p_ n_, real_8 _p_ yr_, real_8 
 74710  _p_ yi_, int_4 _p_ nz_, real_8 _p_ tol_)
 74711  { // ** body not listed **
 74931  }
 74932  
 74933  int_4 _zmlt (real_8 _p_ ar_, real_8 _p_ ai_, real_8 _p_ br_, real_8 _p_ bi_, real_8 _p_ cr_, real_8 _p_ ci_)
 74934  { // ** body not listed **
 74942  }
 74943  
 74944  int_4 _zrati (real_8 _p_ zr_, real_8 _p_ zi_, real_8 _p_ fnu_, int_4 _p_ n_, real_8 _p_ cyr_, real_8 _p_ cyi_, real_8 
 74945  _p_ tol_)
 74946  { // ** body not listed **
 75100  }
 75101  
 75102  int_4 _zs1s2 (real_8 _p_ zrr_, real_8 _p_ zri_, real_8 _p_ s1r_, real_8 _p_ s1i_, real_8 _p_ s2r_, real_8 _p_ s2i_, 
 75103  int_4 _p_ nz_, real_8 _p_ ascle_, real_8 _p_ alim_, int_4 _p_ iuf_)
 75104  { // ** body not listed **
 75162  }
 75163  
 75164  int_4 _zseri (real_8 _p_ zr_, real_8 _p_ zi_, real_8 _p_ fnu_, int_4 _p_ kode_, int_4 _p_ n_, real_8 _p_ yr_, real_8 
 75165  _p_ yi_, int_4 _p_ nz_, real_8 _p_ tol_, real_8 _p_ elim_, real_8 _p_ alim_)
 75166  { // ** body not listed **
 75394  }
 75395  
 75396  int_4 _zshch (real_8 _p_ zr_, real_8 _p_ zi_, real_8 _p_ cshr_, real_8 _p_ cshi_, real_8 _p_ cchr_, real_8 _p_ cchi_)
 75397  { // ** body not listed **
 75409  }
 75410  
 75411  int_4 _zsqrt (real_8 _p_ ar_, real_8 _p_ ai_, real_8 _p_ br_, real_8 _p_ bi_)
 75412  { // ** body not listed **
 75487  }
 75488  
 75489  int_4 _zuchk (real_8 _p_ yr_, real_8 _p_ yi_, int_4 _p_ nz_, real_8 _p_ ascle_, real_8 _p_ tol_)
 75490  { // ** body not listed **
 75507  }
 75508  
 75509  int_4 _zunhj (real_8 _p_ zr_, real_8 _p_ zi_, real_8 _p_ fnu_, int_4 _p_ ipmtr_, real_8 _p_ tol_, real_8 _p_ phir_, 
 75510  real_8 _p_ phii_, real_8 _p_ argr_, real_8 _p_ argi_, real_8 _p_ zeta1r_, real_8 _p_ zeta1i_, real_8 _p_ zeta2r_, 
 75511  real_8 _p_ zeta2i_, real_8 _p_ asumr_, real_8 _p_ asumi_, real_8 _p_ bsumr_, real_8 _p_ bsumi_)
 75512  { // ** body not listed **
 78838  }
 78839  
 78840  int_4 _zuni1 (real_8 _p_ zr_, real_8 _p_ zi_, real_8 _p_ fnu_, int_4 _p_ kode_, int_4 _p_ n_, real_8 _p_ yr_, real_8 
 78841  _p_ yi_, int_4 _p_ nz_, int_4 _p_ nlast_, real_8 _p_ fnul_, real_8 _p_ tol_, real_8 _p_ elim_, real_8 _p_ alim_)
 78842  { // ** body not listed **
 79070  }
 79071  
 79072  int_4 _zuni2 (real_8 _p_ zr_, real_8 _p_ zi_, real_8 _p_ fnu_, int_4 _p_ kode_, int_4 _p_ n_, real_8 _p_ yr_, real_8 
 79073  _p_ yi_, int_4 _p_ nz_, int_4 _p_ nlast_, real_8 _p_ fnul_, real_8 _p_ tol_, real_8 _p_ elim_, real_8 _p_ alim_)
 79074  { // ** body not listed **
 79412  }
 79413  
 79414  int_4 _zunik (real_8 _p_ zrr_, real_8 _p_ zri_, real_8 _p_ fnu_, int_4 _p_ ikflg_, int_4 _p_ ipmtr_, real_8 _p_ tol_, 
 79415  int_4 _p_ init_, real_8 _p_ phir_, real_8 _p_ phii_, real_8 _p_ zeta1r_, real_8 _p_ zeta1i_, real_8 _p_ zeta2r_, real_8 
 79416  _p_ zeta2i_, real_8 _p_ sumr_, real_8 _p_ sumi_, real_8 _p_ cwrkr_, real_8 _p_ cwrki_)
 79417  { // ** body not listed **
 80201  }
 80202  
 80203  int_4 _zunk1 (real_8 _p_ zr_, real_8 _p_ zi_, real_8 _p_ fnu_, int_4 _p_ kode_, int_4 _p_ mr_, int_4 _p_ n_, real_8 _p_ 
 80204  yr_, real_8 _p_ yi_, int_4 _p_ nz_, real_8 _p_ tol_, real_8 _p_ elim_, real_8 _p_ alim_)
 80205  { // ** body not listed **
 80687  }
 80688  
 80689  int_4 _zunk2 (real_8 _p_ zr_, real_8 _p_ zi_, real_8 _p_ fnu_, int_4 _p_ kode_, int_4 _p_ mr_, int_4 _p_ n_, real_8 _p_ 
 80690  yr_, real_8 _p_ yi_, int_4 _p_ nz_, real_8 _p_ tol_, real_8 _p_ elim_, real_8 _p_ alim_)
 80691  { // ** body not listed **
 81315  }
 81316  
 81317  int_4 _zuoik (real_8 _p_ zr_, real_8 _p_ zi_, real_8 _p_ fnu_, int_4 _p_ kode_, int_4 _p_ ikflg_, int_4 _p_ n_, real_8 
 81318  _p_ yr_, real_8 _p_ yi_, int_4 _p_ nuf_, real_8 _p_ tol_, real_8 _p_ elim_, real_8 _p_ alim_)
 81319  { // ** body not listed **
 81552  }
 81553  
 81554  int_4 _zwrsk (real_8 _p_ zrr_, real_8 _p_ zri_, real_8 _p_ fnu_, int_4 _p_ kode_, int_4 _p_ n_, real_8 _p_ yr_, real_8 
 81555  _p_ yi_, int_4 _p_ nz_, real_8 _p_ cwr_, real_8 _p_ cwi_, real_8 _p_ tol_, real_8 _p_ elim_, real_8 _p_ alim_)
 81556  { // ** body not listed **
 81634  }
 81635  


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