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.17
104 */
105 #if defined (__GNUC__)
106 #pragma GCC diagnostic ignored "-Wimplicit-function-declaration"
107 #pragma GCC diagnostic ignored "-Wincompatible-pointer-types"
108 #if (__GNUC__ >= 14)
109 #pragma GCC diagnostic ignored "-Wdeclaration-missing-parameter-type"
110 #pragma GCC diagnostic ignored "-Wimplicit-int"
111 #pragma GCC diagnostic ignored "-Wint-conversion"
112 #pragma GCC diagnostic ignored "-Wreturn-mismatch"
113 #endif
114 #else
115 #error VIF requires GCC
116 #endif
420 static CALLS __calls[__ncalls] = {
421 {"aie", 0}, // function
422 {"ai", 0}, // function
423 {"albeta", 0}, // function
424 {"algams", 0}, // subroutine
425 {"ali", 0}, // function
426 {"alnrel", 0}, // function
427 {"besi0e", 0}, // function
428 {"besi0", 0}, // function
429 {"besi1e", 0}, // function
430 {"besi1", 0}, // function
431 {"besi", 0}, // subroutine
432 {"besj0", 0}, // function
433 {"besj1", 0}, // function
434 {"besj", 0}, // subroutine
435 {"besk0e", 0}, // function
436 {"besk0", 0}, // function
437 {"besk1e", 0}, // function
438 {"besk1", 0}, // function
439 {"beskes", 0}, // subroutine
440 {"besk", 0}, // subroutine
441 {"besknu", 0}, // subroutine
442 {"besks", 0}, // subroutine
443 {"besy0", 0}, // function
444 {"besy1", 0}, // function
445 {"besy", 0}, // subroutine
446 {"besynu", 0}, // subroutine
447 {"beta", 0}, // function
448 {"betai", 0}, // real*4 function
449 {"bfqad", 0}, // subroutine
450 {"bie", 0}, // function
451 {"bi", 0}, // function
452 {"binom", 0}, // function
453 {"bint4", 0}, // subroutine
454 {"bintk", 0}, // subroutine
455 {"bkias", 0}, // subroutine
456 {"bkisr", 0}, // subroutine
457 {"bskin", 0}, // subroutine
458 {"bspev", 0}, // subroutine
459 {"bsppp", 0}, // subroutine
460 {"bspvd", 0}, // subroutine
461 {"bsqad", 0}, // subroutine
462 {"bvalu", 0}, // function
463 {"c0lgmc", 0}, // complex*8 function
464 {"c9lgmc", 0}, // complex*8 function
465 {"c9ln2r", 0}, // complex*8 function
466 {"cacai", 0}, // subroutine
467 {"cacon", 0}, // subroutine
468 {"cacos", 0}, // complex*8 function
469 {"cacosh", 0}, // complex*8 function
470 {"cairy", 0}, // subroutine
471 {"carg", 0}, // function
472 {"casin", 0}, // complex*8 function
473 {"casinh", 0}, // complex*8 function
474 {"catan2", 0}, // complex*8 function
475 {"catan", 0}, // complex*8 function
476 {"catanh", 0}, // complex*8 function
477 {"cbesh", 0}, // subroutine
478 {"cbesi", 0}, // subroutine
479 {"cbesj", 0}, // subroutine
480 {"cbesk", 0}, // subroutine
481 {"cbesy", 0}, // subroutine
482 {"cbeta", 0}, // complex*8 function
483 {"cbinu", 0}, // subroutine
484 {"cbiry", 0}, // subroutine
485 {"cbknu", 0}, // subroutine
486 {"cbrt", 0}, // function
487 {"cbuni", 0}, // subroutine
488 {"cbunk", 0}, // subroutine
489 {"ccbrt", 0}, // complex*8 function
490 {"ccosh", 0}, // complex*8 function
491 {"ccot", 0}, // complex*8 function
492 {"cexprl", 0}, // complex*8 function
493 {"cgamma", 0}, // complex*8 function
494 {"cgamr", 0}, // complex*8 function
495 {"chu", 0}, // function
496 {"ckscl", 0}, // subroutine
497 {"clbeta", 0}, // complex*8 function
498 {"clngam", 0}, // complex*8 function
499 {"clnrel", 0}, // complex*8 function
500 {"clog10", 0}, // complex*8 function
501 {"cmlri", 0}, // subroutine
502 {"cosdg", 0}, // function
503 {"cot", 0}, // function
504 {"cpsi", 0}, // complex*8 function
505 {"cseri", 0}, // subroutine
506 {"csevl", 0}, // function
507 {"csinh", 0}, // complex*8 function
508 {"ctan", 0}, // complex*8 function
509 {"ctanh", 0}, // complex*8 function
510 {"cuni1", 0}, // subroutine
511 {"cuni2", 0}, // subroutine
512 {"cunk1", 0}, // subroutine
513 {"cunk2", 0}, // subroutine
514 {"cuoik", 0}, // subroutine
515 {"cwrsk", 0}, // subroutine
516 {"d9aimp", 0}, // subroutine
517 {"d9atn1", 0}, // real*8 function
518 {"d9b0mp", 0}, // subroutine
519 {"d9b1mp", 0}, // subroutine
520 {"d9chu", 0}, // real*8 function
521 {"d9gmic", 0}, // real*8 function
522 {"d9gmit", 0}, // real*8 function
523 {"d9knus", 0}, // subroutine
524 {"d9lgic", 0}, // real*8 function
525 {"d9lgit", 0}, // real*8 function
526 {"d9lgmc", 0}, // real*8 function
527 {"d9ln2r", 0}, // real*8 function
528 {"d9pak", 0}, // real*8 function
529 {"d9upak", 0}, // subroutine
530 {"daie", 0}, // real*8 function
531 {"dai", 0}, // real*8 function
532 {"dasyjy", 0}, // subroutine
533 {"daws", 0}, // function
534 {"dbesi0", 0}, // real*8 function
535 {"dbesi1", 0}, // real*8 function
536 {"dbesi", 0}, // subroutine
537 {"dbesj0", 0}, // real*8 function
538 {"dbesj1", 0}, // real*8 function
539 {"dbesj", 0}, // subroutine
540 {"dbesk0", 0}, // real*8 function
541 {"dbesk1", 0}, // real*8 function
542 {"dbesk", 0}, // subroutine
543 {"dbesks", 0}, // subroutine
544 {"dbesy0", 0}, // real*8 function
545 {"dbesy1", 0}, // real*8 function
546 {"dbesy", 0}, // subroutine
547 {"dbeta", 0}, // real*8 function
548 {"dbetai", 0}, // real*8 function
549 {"dbfqad", 0}, // subroutine
550 {"dbie", 0}, // real*8 function
551 {"dbi", 0}, // real*8 function
552 {"dbinom", 0}, // real*8 function
553 {"dbint4", 0}, // subroutine
554 {"dbintk", 0}, // subroutine
555 {"dbkias", 0}, // subroutine
556 {"dbkisr", 0}, // subroutine
557 {"dbsi0e", 0}, // real*8 function
558 {"dbsi1e", 0}, // real*8 function
559 {"dbsk0e", 0}, // real*8 function
560 {"dbsk1e", 0}, // real*8 function
561 {"dbskes", 0}, // subroutine
562 {"dbskin", 0}, // subroutine
563 {"dbsknu", 0}, // subroutine
564 {"dbspev", 0}, // subroutine
565 {"dbsppp", 0}, // subroutine
566 {"dbspvd", 0}, // subroutine
567 {"dbsqad", 0}, // subroutine
568 {"dbsynu", 0}, // subroutine
569 {"dbvalu", 0}, // real*8 function
570 {"dcbrt", 0}, // real*8 function
571 {"dchu", 0}, // real*8 function
572 {"dcosdg", 0}, // real*8 function
573 {"dcot", 0}, // real*8 function
574 {"dcsevl", 0}, // real*8 function
575 {"ddaws", 0}, // real*8 function
576 {"de1", 0}, // real*8 function
577 {"dei", 0}, // real*8 function
578 {"dexint", 0}, // subroutine
579 {"dexprl", 0}, // real*8 function
580 {"dfac", 0}, // real*8 function
581 {"dgamic", 0}, // real*8 function
582 {"dgami", 0}, // real*8 function
583 {"dgamit", 0}, // real*8 function
584 {"dgamlm", 0}, // subroutine
585 {"dgamln", 0}, // real*8 function
586 {"dgamr", 0}, // real*8 function
587 {"dgamrn", 0}, // real*8 function
588 {"dhkseq", 0}, // subroutine
589 {"dlbeta", 0}, // real*8 function
590 {"dlgams", 0}, // subroutine
591 {"dli", 0}, // real*8 function
592 {"dlnrel", 0}, // real*8 function
593 {"dpfqad", 0}, // subroutine
594 {"dpoch1", 0}, // real*8 function
595 {"dpoch", 0}, // real*8 function
596 {"dppqad", 0}, // subroutine
597 {"dppval", 0}, // real*8 function
598 {"dpsi", 0}, // real*8 function
599 {"dpsifn", 0}, // subroutine
600 {"dsindg", 0}, // real*8 function
601 {"dspenc", 0}, // real*8 function
602 {"e1", 0}, // function
603 {"ei", 0}, // function
604 {"exint", 0}, // subroutine
605 {"exprel", 0}, // function
606 {"fac", 0}, // function
607 {"fundoc", 0}, // subroutine
608 {"gamic", 0}, // real*4 function
609 {"gami", 0}, // function
610 {"gamit", 0}, // real*4 function
611 {"gamlim", 0}, // subroutine
612 {"gamln", 0}, // real*4 function
613 {"gamr", 0}, // function
614 {"initds", 0}, // function
615 {"inits", 0}, // function
616 {"pfqad", 0}, // subroutine
617 {"poch1", 0}, // function
618 {"poch", 0}, // function
619 {"ppqad", 0}, // subroutine
620 {"ppval", 0}, // function
621 {"psi", 0}, // function
622 {"r9aimp", 0}, // subroutine
623 {"r9atn1", 0}, // function
624 {"r9chu", 0}, // function
625 {"r9gmic", 0}, // function
626 {"r9gmit", 0}, // function
627 {"r9knus", 0}, // subroutine
628 {"r9lgic", 0}, // function
629 {"r9lgit", 0}, // function
630 {"r9lgmc", 0}, // function
631 {"r9ln2r", 0}, // function
632 {"r9pak", 0}, // function
633 {"r9upak", 0}, // subroutine
634 {"rand", 0}, // function
635 {"rgauss", 0}, // function
636 {"runif", 0}, // function
637 {"sindg", 0}, // function
638 {"spenc", 0}, // function
639 {"zabs", 0}, // real*8 function
640 {"zacai", 0}, // subroutine
641 {"zacon", 0}, // subroutine
642 {"zairy", 0}, // subroutine
643 {"zasyi", 0}, // subroutine
644 {"zbesh", 0}, // subroutine
645 {"zbesi", 0}, // subroutine
646 {"zbesj", 0}, // subroutine
647 {"zbesk", 0}, // subroutine
648 {"zbesy", 0}, // subroutine
649 {"zbinu", 0}, // subroutine
650 {"zbiry", 0}, // subroutine
651 {"zbknu", 0}, // subroutine
652 {"zbuni", 0}, // subroutine
653 {"zbunk", 0}, // subroutine
654 {"zdiv", 0}, // subroutine
655 {"zexp", 0}, // subroutine
656 {"zkscl", 0}, // subroutine
657 {"zlog", 0}, // subroutine
658 {"zmlri", 0}, // subroutine
659 {"zmlt", 0}, // subroutine
660 {"zrati", 0}, // subroutine
661 {"zs1s2", 0}, // subroutine
662 {"zseri", 0}, // subroutine
663 {"zshch", 0}, // subroutine
664 {"zsqrt", 0}, // subroutine
665 {"zuchk", 0}, // subroutine
666 {"zunhj", 0}, // subroutine
667 {"zuni1", 0}, // subroutine
668 {"zuni2", 0}, // subroutine
669 {"zunik", 0}, // subroutine
670 {"zunk1", 0}, // subroutine
671 {"zunk2", 0}, // subroutine
672 {"zuoik", 0}, // subroutine
673 {"zwrsk", 0}, // subroutine
674 {NULL, 0}
675 };
676
706 real_4 _p_ x1_, real_4 _p_ x2_, real_4 _p_ tol_, real_4 _p_ quad_, int_4 _p_ ierr_, real_4 _p_ work_);
711 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_
712 );
714 real_4 _p_ q_, real_4 _p_ work_);
716 int_4 _p_ ms_, real_4 _p_ gmrn_, real_4 _p_ h_, int_4 _p_ ierr_);
719 _p_ ierr_);
721 int_4 _p_ inev_, real_4 _p_ svalue_, real_4 _p_ work_);
723 _p_ xi_, int_4 _p_ lxi_, real_4 _p_ work_);
725 ldvnik_, real_4 _p_ vnikx_, real_4 _p_ work_);
727 real_4 _p_ bquad_, real_4 _p_ work_);
729 int_4 _p_ inbv_, real_4 _p_ work_);
734 y_, int_4 _p_ nz_, real_4 _p_ rl_, real_4 _p_ tol_, real_4 _p_ elim_, real_4 _p_ alim_);
736 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_);
740 ierr_);
748 cy_, int_4 _p_ nz_, int_4 _p_ ierr_);
750 nz_, int_4 _p_ ierr_);
752 nz_, int_4 _p_ ierr_);
754 nz_, int_4 _p_ ierr_);
756 nz_, complex_8 _p_ cwrk_, int_4 _p_ ierr_);
759 nz_, real_4 _p_ rl_, real_4 _p_ fnul_, real_4 _p_ tol_, real_4 _p_ elim_, real_4 _p_ alim_);
762 nz_, real_4 _p_ tol_, real_4 _p_ elim_, real_4 _p_ alim_);
765 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_);
767 y_, int_4 _p_ nz_, real_4 _p_ tol_, real_4 _p_ elim_, real_4 _p_ alim_);
776 _p_ rz_, real_4 _p_ ascle_, real_4 _p_ tol_, real_4 _p_ elim_);
782 nz_, real_4 _p_ tol_);
787 nz_, real_4 _p_ tol_, real_4 _p_ elim_, real_4 _p_ alim_);
793 nz_, int_4 _p_ nlast_, real_4 _p_ fnul_, real_4 _p_ tol_, real_4 _p_ elim_, real_4 _p_ alim_);
795 nz_, int_4 _p_ nlast_, real_4 _p_ fnul_, real_4 _p_ tol_, real_4 _p_ elim_, real_4 _p_ alim_);
797 y_, int_4 _p_ nz_, real_4 _p_ tol_, real_4 _p_ elim_, real_4 _p_ alim_);
799 y_, int_4 _p_ nz_, real_4 _p_ tol_, real_4 _p_ elim_, real_4 _p_ alim_);
801 _p_ y_, int_4 _p_ nuf_, real_4 _p_ tol_, real_4 _p_ elim_, real_4 _p_ alim_);
803 nz_, complex_8 _p_ cw_, real_4 _p_ tol_, real_4 _p_ elim_, real_4 _p_ alim_);
821 _p_ y_, real_8 _p_ wk_, int_4 _p_ iflw_);
839 real_8 _p_ x1_, real_8 _p_ x2_, real_8 _p_ tol_, real_8 _p_ quad_, int_4 _p_ ierr_, real_8 _p_ work_);
844 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_
845 );
847 real_8 _p_ q_, real_8 _p_ work_);
849 int_4 _p_ ms_, real_8 _p_ gmrn_, real_8 _p_ h_, int_4 _p_ ierr_);
857 int_4 _p_ ierr_);
860 int_4 _p_ inev_, real_8 _p_ svalue_, real_8 _p_ work_);
862 real_8 _p_ xi_, int_4 _p_ lxi_, real_8 _p_ work_);
864 ldvnik_, real_8 _p_ vnikx_, real_8 _p_ work_);
866 real_8 _p_ bquad_, real_8 _p_ work_);
869 int_4 _p_ inbv_, real_8 _p_ work_);
879 int_4 _p_ nz_, int_4 _p_ ierr_);
895 int_4 _p_ id_, real_8 _p_ x1_, real_8 _p_ x2_, real_8 _p_ tol_, real_8 _p_ quad_, int_4 _p_ ierr_);
899 real_8 _p_ x2_, real_8 _p_ pquad_);
901 ideriv_, real_8 _p_ x_, int_4 _p_ inppv_);
904 int_4 _p_ ierr_);
910 int_4 _p_ nz_, int_4 _p_ ierr_);
923 int_4 _p_ id_, real_4 _p_ x1_, real_4 _p_ x2_, real_4 _p_ tol_, real_4 _p_ quad_, int_4 _p_ ierr_);
927 real_4 _p_ x2_, real_4 _p_ pquad_);
929 , real_4 _p_ x_, int_4 _p_ inppv_);
950 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_);
952 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_,
953 real_8 _p_ alim_);
955 aii_, int_4 _p_ nz_, int_4 _p_ ierr_);
957 real_8 _p_ yi_, int_4 _p_ nz_, real_8 _p_ rl_, real_8 _p_ tol_, real_8 _p_ elim_, real_8 _p_ alim_);
959 real_8 _p_ cyr_, real_8 _p_ cyi_, int_4 _p_ nz_, int_4 _p_ ierr_);
961 , real_8 _p_ cyi_, int_4 _p_ nz_, int_4 _p_ ierr_);
963 , real_8 _p_ cyi_, int_4 _p_ nz_, int_4 _p_ ierr_);
965 , real_8 _p_ cyi_, int_4 _p_ nz_, int_4 _p_ ierr_);
967 , real_8 _p_ cyi_, int_4 _p_ nz_, real_8 _p_ cwrkr_, real_8 _p_ cwrki_, int_4 _p_ ierr_);
969 , 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_
970 );
972 bii_, int_4 _p_ ierr_);
974 real_8 _p_ yi_, int_4 _p_ nz_, real_8 _p_ tol_, real_8 _p_ elim_, real_8 _p_ alim_);
976 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_,
977 real_8 _p_ alim_);
979 real_8 _p_ yr_, real_8 _p_ yi_, int_4 _p_ nz_, real_8 _p_ tol_, real_8 _p_ elim_, real_8 _p_ alim_);
983 , int_4 _p_ nz_, real_8 _p_ rzr_, real_8 _p_ rzi_, real_8 _p_ ascle_, real_8 _p_ tol_, real_8 _p_ elim_);
986 real_8 _p_ yi_, int_4 _p_ nz_, real_8 _p_ tol_);
989 , real_8 _p_ tol_);
991 s2i_, int_4 _p_ nz_, real_8 _p_ ascle_, real_8 _p_ alim_, int_4 _p_ iuf_);
993 real_8 _p_ yi_, int_4 _p_ nz_, real_8 _p_ tol_, real_8 _p_ elim_, real_8 _p_ alim_);
995 _p_ cchi_);
999 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_
1000 , real_8 _p_ zeta2i_, real_8 _p_ asumr_, real_8 _p_ asumi_, real_8 _p_ bsumr_, real_8 _p_ bsumi_);
1002 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_)
1003 ;
1005 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_)
1006 ;
1008 _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_
1009 zeta2r_, real_8 _p_ zeta2i_, real_8 _p_ sumr_, real_8 _p_ sumi_, real_8 _p_ cwrkr_, real_8 _p_ cwrki_);
1011 real_8 _p_ yr_, real_8 _p_ yi_, int_4 _p_ nz_, real_8 _p_ tol_, real_8 _p_ elim_, real_8 _p_ alim_);
1013 real_8 _p_ yr_, real_8 _p_ yi_, int_4 _p_ nz_, real_8 _p_ tol_, real_8 _p_ elim_, real_8 _p_ alim_);
1015 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_);
1017 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_
1018 alim_);
1019 real_4 _aie (real_4 _p_ x_)
1020 { // ** body not listed **
1642 }
1643
1644 real_4 _ai (real_4 _p_ x_)
1645 { // ** body not listed **
1888 }
1889
1890 real_4 _albeta (real_4 _p_ a_, real_4 _p_ b_)
1891 { // ** body not listed **
1931 }
1932
1933 int_4 _algams (real_4 _p_ x_, real_4 _p_ algam_, real_4 _p_ sgngam_)
1934 { // ** body not listed **
1948 }
1949
1950 real_4 _ali (real_4 _p_ x_)
1951 { // ** body not listed **
1964 }
1965
1966 real_4 _alnrel (real_4 _p_ x_)
1967 { // ** body not listed **
2259 }
2260
2261 real_4 _besi0e (real_4 _p_ x_)
2262 { // ** body not listed **
2917 }
2918
2919 real_4 _besi0 (real_4 _p_ x_)
2920 { // ** body not listed **
3094 }
3095
3096 real_4 _besi1e (real_4 _p_ x_)
3097 { // ** body not listed **
3753 }
3754
3755 real_4 _besi1 (real_4 _p_ x_)
3756 { // ** body not listed **
3929 }
3930
3931 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_)
3932 { // ** body not listed **
4422 }
4423
4424 real_4 _besj0 (real_4 _p_ x_)
4425 { // ** body not listed **
5127 }
5128
5129 real_4 _besj1 (real_4 _p_ x_)
5130 { // ** body not listed **
5831 }
5832
5833 int_4 _besj (real_4 _p_ x_, real_4 _p_ alpha_, int_4 _p_ n_, real_4 _p_ y_, int_4 _p_ nz_)
5834 { // ** body not listed **
6428 }
6429
6430 real_4 _besk0e (real_4 _p_ x_)
6431 { // ** body not listed **
6946 }
6947
6948 real_4 _besk0 (real_4 _p_ x_)
6949 { // ** body not listed **
7120 }
7121
7122 real_4 _besk1e (real_4 _p_ x_)
7123 { // ** body not listed **
7642 }
7643
7644 real_4 _besk1 (real_4 _p_ x_)
7645 { // ** body not listed **
7820 }
7821
7822 int_4 _beskes (real_4 _p_ xnu_, real_4 _p_ x_, int_4 _p_ nin_, real_4 _p_ bke_)
7823 { // ** body not listed **
7885 }
7886
7887 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_)
7888 { // ** body not listed **
8154 }
8155
8156 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_)
8157 { // ** body not listed **
8604 }
8605
8606 int_4 _besks (real_4 _p_ xnu_, real_4 _p_ x_, int_4 _p_ nin_, real_4 _p_ bk_)
8607 { // ** body not listed **
8637 }
8638
8639 real_4 _besy0 (real_4 _p_ x_)
8640 { // ** body not listed **
9356 }
9357
9358 real_4 _besy1 (real_4 _p_ x_)
9359 { // ** body not listed **
10091 }
10092
10093 int_4 _besy (real_4 _p_ x_, real_4 _p_ fnu_, int_4 _p_ n_, real_4 _p_ y_)
10094 { // ** body not listed **
10272 }
10273
10274 int_4 _besynu (real_4 _p_ x_, real_4 _p_ fnu_, int_4 _p_ n_, real_4 _p_ y_)
10275 { // ** body not listed **
10685 }
10686
10687 real_4 _beta (real_4 _p_ a_, real_4 _p_ b_)
10688 { // ** body not listed **
10733 }
10734
10735 real_4 _betai (real_4 _p_ x_, real_4 _p_ pin_, real_4 _p_ qin_)
10736 { // ** body not listed **
10851 }
10852
10853 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_
10854 x1_, real_4 _p_ x2_, real_4 _p_ tol_, real_4 _p_ quad_, int_4 _p_ ierr_, real_4 _p_ work_)
10855 { // ** body not listed **
10934 }
10935
10936 real_4 _bie (real_4 _p_ x_)
10937 { // ** body not listed **
12035 }
12036
12037 real_4 _bi (real_4 _p_ x_)
12038 { // ** body not listed **
12507 }
12508
12509 real_4 _binom (int_4 _p_ n_, int_4 _p_ m_)
12510 { // ** body not listed **
12588 }
12589
12590 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_,
12591 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_)
12592 { // ** body not listed **
12742 }
12743
12744 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_
12745 , real_4 _p_ work_)
12746 { // ** body not listed **
12831 }
12832
12833 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_
12834 ms_, real_4 _p_ gmrn_, real_4 _p_ h_, int_4 _p_ ierr_)
12835 { // ** body not listed **
13718 }
13719
13720 int_4 _bkisr (real_4 _p_ x_, int_4 _p_ n_, real_4 _p_ sum_, int_4 _p_ ierr_)
13721 { // ** body not listed **
13806 }
13807
13808 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_
13809 )
13810 { // ** body not listed **
14340 }
14341
14342 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_
14343 inev_, real_4 _p_ svalue_, real_4 _p_ work_)
14344 { // ** body not listed **
14417 }
14418
14419 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_,
14420 int_4 _p_ lxi_, real_4 _p_ work_)
14421 { // ** body not listed **
14460 }
14461
14462 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_,
14463 real_4 _p_ vnikx_, real_4 _p_ work_)
14464 { // ** body not listed **
14549 }
14550
14551 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_
14552 bquad_, real_4 _p_ work_)
14553 { // ** body not listed **
14742 }
14743
14744 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_
14745 inbv_, real_4 _p_ work_)
14746 { // ** body not listed **
14848 }
14849
14850 complex_8 _c0lgmc (complex_8 _p_ z_)
14851 { // ** body not listed **
14888 }
14889
14890 complex_8 _c9lgmc (complex_8 _p_ zin_)
14891 { // ** body not listed **
15073 }
15074
15075 complex_8 _c9ln2r (complex_8 _p_ z_)
15076 { // ** body not listed **
15103 }
15104
15105 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
15106 _p_ nz_, real_4 _p_ rl_, real_4 _p_ tol_, real_4 _p_ elim_, real_4 _p_ alim_)
15107 { // ** body not listed **
15196 }
15197
15198 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
15199 _p_ nz_, real_4 _p_ rl_, real_4 _p_ fnul_, real_4 _p_ tol_, real_4 _p_ elim_, real_4 _p_ alim_)
15200 { // ** body not listed **
15379 }
15380
15381 complex_8 _cacos (complex_8 _p_ z_)
15382 { // ** body not listed **
15400 }
15401
15402 complex_8 _cacosh (complex_8 _p_ z_)
15403 { // ** body not listed **
15421 }
15422
15423 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_)
15424 { // ** body not listed **
15702 }
15703
15704 real_4 _carg (complex_8 _p_ z_)
15705 { // ** body not listed **
15713 }
15714
15715 complex_8 _casin (complex_8 _p_ zinp_)
15716 { // ** body not listed **
15811 }
15812
15813 complex_8 _casinh (complex_8 _p_ z_)
15814 { // ** body not listed **
15833 }
15834
15835 complex_8 _catan2 (complex_8 _p_ csn_, complex_8 _p_ ccs_)
15836 { // ** body not listed **
15871 }
15872
15873 complex_8 _catan (complex_8 _p_ z_)
15874 { // ** body not listed **
15956 }
15957
15958 complex_8 _catanh (complex_8 _p_ z_)
15959 { // ** body not listed **
15978 }
15979
15980 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
15981 _p_ nz_, int_4 _p_ ierr_)
15982 { // ** body not listed **
16175 }
16176
16177 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
16178 _p_ ierr_)
16179 { // ** body not listed **
16320 }
16321
16322 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
16323 _p_ ierr_)
16324 { // ** body not listed **
16451 }
16452
16453 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
16454 _p_ ierr_)
16455 { // ** body not listed **
16606 }
16607
16608 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_,
16609 complex_8 _p_ cwrk_, int_4 _p_ ierr_)
16610 { // ** body not listed **
16717 }
16718
16719 complex_8 _cbeta (complex_8 _p_ a_, complex_8 _p_ b_)
16720 { // ** body not listed **
16753 }
16754
16755 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_,
16756 real_4 _p_ rl_, real_4 _p_ fnul_, real_4 _p_ tol_, real_4 _p_ elim_, real_4 _p_ alim_)
16757 { // ** body not listed **
16884 }
16885
16886 int_4 _cbiry (complex_8 _p_ z_, int_4 _p_ id_, int_4 _p_ kode_, complex_8 _p_ bi_, int_4 _p_ ierr_)
16887 { // ** body not listed **
17130 }
17131
17132 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
17133 _p_ tol_, real_4 _p_ elim_, real_4 _p_ alim_)
17134 { // ** body not listed **
17732 }
17733
17734 real_4 _cbrt (real_4 _p_ x_)
17735 { // ** body not listed **
17826 }
17827
17828 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
17829 _p_ nui_, int_4 _p_ nlast_, real_4 _p_ fnul_, real_4 _p_ tol_, real_4 _p_ elim_, real_4 _p_ alim_)
17830 { // ** body not listed **
17988 }
17989
17990 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
17991 _p_ nz_, real_4 _p_ tol_, real_4 _p_ elim_, real_4 _p_ alim_)
17992 { // ** body not listed **
18009 }
18010
18011 complex_8 _ccbrt (complex_8 _p_ z_)
18012 { // ** body not listed **
18021 }
18022
18023 complex_8 _ccosh (complex_8 _p_ z_)
18024 { // ** body not listed **
18042 }
18043
18044 complex_8 _ccot (complex_8 _p_ z_)
18045 { // ** body not listed **
18082 }
18083
18084 complex_8 _cexprl (complex_8 _p_ z_)
18085 { // ** body not listed **
18129 }
18130
18131 complex_8 _cgamma (complex_8 _p_ z_)
18132 { // ** body not listed **
18137 }
18138
18139 complex_8 _cgamr (complex_8 _p_ z_)
18140 { // ** body not listed **
18158 }
18159
18160 real_4 _chu (real_4 _p_ a_, real_4 _p_ b_, real_4 _p_ x_)
18161 { // ** body not listed **
18307 }
18308 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_,
18309 real_4 _p_ ascle_, real_4 _p_ tol_, real_4 _p_ elim_)
18310 { // ** body not listed **
18432 }
18433
18434 complex_8 _clbeta (complex_8 _p_ a_, complex_8 _p_ b_)
18435 { // ** body not listed **
18445 }
18446
18447 complex_8 _clngam (complex_8 _p_ zin_)
18448 { // ** body not listed **
18548 }
18549
18550 complex_8 _clnrel (complex_8 _p_ z_)
18551 { // ** body not listed **
18587 }
18588
18589 complex_8 _clog10 (complex_8 _p_ z_)
18590 { // ** body not listed **
18608 }
18609
18610 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
18611 _p_ tol_)
18612 { // ** body not listed **
18780 }
18781
18782 real_4 _cosdg (real_4 _p_ x_)
18783 { // ** body not listed **
18813 }
18814
18815 real_4 _cot (real_4 _p_ x_)
18816 { // ** body not listed **
18993 }
18994
18995 complex_8 _cpsi (complex_8 _p_ zin_)
18996 { // ** body not listed **
19239 }
19240
19241 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
19242 _p_ tol_, real_4 _p_ elim_, real_4 _p_ alim_)
19243 { // ** body not listed **
19426 }
19427
19428 real_4 _csevl (real_4 _p_ x_, real_4 _p_ cs_, int_4 _p_ n_)
19429 { // ** body not listed **
19471 }
19472
19473 complex_8 _csinh (complex_8 _p_ z_)
19474 { // ** body not listed **
19492 }
19493
19494 complex_8 _ctan (complex_8 _p_ z_)
19495 { // ** body not listed **
19532 }
19533
19534 complex_8 _ctanh (complex_8 _p_ z_)
19535 { // ** body not listed **
19553 }
19554
19555 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
19556 _p_ nlast_, real_4 _p_ fnul_, real_4 _p_ tol_, real_4 _p_ elim_, real_4 _p_ alim_)
19557 { // ** body not listed **
19748 }
19749
19750 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
19751 _p_ nlast_, real_4 _p_ fnul_, real_4 _p_ tol_, real_4 _p_ elim_, real_4 _p_ alim_)
19752 { // ** body not listed **
20025 }
20026
20027 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
20028 _p_ nz_, real_4 _p_ tol_, real_4 _p_ elim_, real_4 _p_ alim_)
20029 { // ** body not listed **
20428 }
20429
20430 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
20431 _p_ nz_, real_4 _p_ tol_, real_4 _p_ elim_, real_4 _p_ alim_)
20432 { // ** body not listed **
20920 }
20921
20922 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_,
20923 int_4 _p_ nuf_, real_4 _p_ tol_, real_4 _p_ elim_, real_4 _p_ alim_)
20924 { // ** body not listed **
21118 }
21119
21120 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_,
21121 complex_8 _p_ cw_, real_4 _p_ tol_, real_4 _p_ elim_, real_4 _p_ alim_)
21122 { // ** body not listed **
21184 }
21185
21186 int_4 _d9aimp (real_8 _p_ x_, real_8 _p_ ampl_, real_8 _p_ theta_)
21187 { // ** body not listed **
25417 }
25418
25419 real_8 _d9atn1 (real_8 _p_ x_)
25420 { // ** body not listed **
25916 }
25917
25918 int_4 _d9b0mp (real_8 _p_ x_, real_8 _p_ ampl_, real_8 _p_ theta_)
25919 { // ** body not listed **
27757 }
27758
27759 int_4 _d9b1mp (real_8 _p_ x_, real_8 _p_ ampl_, real_8 _p_ theta_)
27760 { // ** body not listed **
29598 }
29599
29600 real_8 _d9chu (real_8 _p_ a_, real_8 _p_ b_, real_8 _p_ z_)
29601 { // ** body not listed **
29666 }
29667
29668 real_8 _d9gmic (real_8 _p_ a_, real_8 _p_ x_, real_8 _p_ alx_)
29669 { // ** body not listed **
29770 }
29771
29772 real_8 _d9gmit (real_8 _p_ a_, real_8 _p_ x_, real_8 _p_ algap1_, real_8 _p_ sgngam_, real_8 _p_ alx_)
29773 { // ** body not listed **
29862 }
29863
29864 int_4 _d9knus (real_8 _p_ xnu_, real_8 _p_ x_, real_8 _p_ bknu_, real_8 _p_ bknu1_, int_4 _p_ iswtch_)
29865 { // ** body not listed **
30619 }
30620
30621 real_8 _d9lgic (real_8 _p_ a_, real_8 _p_ x_, real_8 _p_ alx_)
30622 { // ** body not listed **
30662 }
30663
30664 real_8 _d9lgit (real_8 _p_ a_, real_8 _p_ x_, real_8 _p_ algap1_)
30665 { // ** body not listed **
30715 }
30716
30717 real_8 _d9lgmc (real_8 _p_ x_)
30718 { // ** body not listed **
30928 }
30929
30930 real_8 _d9ln2r (real_8 _p_ x_)
30931 { // ** body not listed **
31956 }
31957
31958 real_8 _d9pak (real_8 _p_ y_, int_4 _p_ n_)
31959 { // ** body not listed **
32032 }
32033
32034 int_4 _d9upak (real_8 _p_ x_, real_8 _p_ y_, int_4 _p_ n_)
32035 { // ** body not listed **
32060 }
32061
32062 real_8 _daie (real_8 _p_ x_)
32063 { // ** body not listed **
33465 }
33466
33467 real_8 _dai (real_8 _p_ x_)
33468 { // ** body not listed **
33812 }
33813
33814 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_,
33815 real_8 _p_ wk_, int_4 _p_ iflw_)
33816 { // ** body not listed **
35897 }
35898
35899 real_4 _daws (real_4 _p_ x_)
35900 { // ** body not listed **
36716 }
36717
36718 real_8 _dbesi0 (real_8 _p_ x_)
36719 { // ** body not listed **
36962 }
36963
36964 real_8 _dbesi1 (real_8 _p_ x_)
36965 { // ** body not listed **
37207 }
37208
37209 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_)
37210 { // ** body not listed **
37700 }
37701
37702 real_8 _dbesj0 (real_8 _p_ x_)
37703 { // ** body not listed **
37954 }
37955
37956 real_8 _dbesj1 (real_8 _p_ x_)
37957 { // ** body not listed **
38218 }
38219
38220 int_4 _dbesj (real_8 _p_ x_, real_8 _p_ alpha_, int_4 _p_ n_, real_8 _p_ y_, int_4 _p_ nz_)
38221 { // ** body not listed **
38815 }
38816
38817 real_8 _dbesk0 (real_8 _p_ x_)
38818 { // ** body not listed **
39047 }
39048
39049 real_8 _dbesk1 (real_8 _p_ x_)
39050 { // ** body not listed **
39284 }
39285
39286 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_)
39287 { // ** body not listed **
39553 }
39554
39555 int_4 _dbesks (real_8 _p_ xnu_, real_8 _p_ x_, int_4 _p_ nin_, real_8 _p_ bk_)
39556 { // ** body not listed **
39586 }
39587
39588 real_8 _dbesy0 (real_8 _p_ x_)
39589 { // ** body not listed **
39855 }
39856
39857 real_8 _dbesy1 (real_8 _p_ x_)
39858 { // ** body not listed **
40139 }
40140
40141 int_4 _dbesy (real_8 _p_ x_, real_8 _p_ fnu_, int_4 _p_ n_, real_8 _p_ y_)
40142 { // ** body not listed **
40320 }
40321
40322 real_8 _dbeta (real_8 _p_ a_, real_8 _p_ b_)
40323 { // ** body not listed **
40368 }
40369
40370 real_8 _dbetai (real_8 _p_ x_, real_8 _p_ pin_, real_8 _p_ qin_)
40371 { // ** body not listed **
40488 }
40489
40490 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_
40491 x1_, real_8 _p_ x2_, real_8 _p_ tol_, real_8 _p_ quad_, int_4 _p_ ierr_, real_8 _p_ work_)
40492 { // ** body not listed **
40571 }
40572
40573 real_8 _dbie (real_8 _p_ x_)
40574 { // ** body not listed **
42799 }
42800
42801 real_8 _dbi (real_8 _p_ x_)
42802 { // ** body not listed **
43485 }
43486
43487 real_8 _dbinom (int_4 _p_ n_, int_4 _p_ m_)
43488 { // ** body not listed **
43569 }
43570
43571 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_,
43572 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_)
43573 { // ** body not listed **
43723 }
43724
43725 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_
43726 q_, real_8 _p_ work_)
43727 { // ** body not listed **
43812 }
43813
43814 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_
43815 ms_, real_8 _p_ gmrn_, real_8 _p_ h_, int_4 _p_ ierr_)
43816 { // ** body not listed **
44699 }
44700
44701 int_4 _dbkisr (real_8 _p_ x_, int_4 _p_ n_, real_8 _p_ sum_, int_4 _p_ ierr_)
44702 { // ** body not listed **
44787 }
44788
44789 real_8 _dbsi0e (real_8 _p_ x_)
44790 { // ** body not listed **
46316 }
46317
46318 real_8 _dbsi1e (real_8 _p_ x_)
46319 { // ** body not listed **
47846 }
47847
47848 real_8 _dbsk0e (real_8 _p_ x_)
47849 { // ** body not listed **
48868 }
48869
48870 real_8 _dbsk1e (real_8 _p_ x_)
48871 { // ** body not listed **
49894 }
49895
49896 int_4 _dbskes (real_8 _p_ xnu_, real_8 _p_ x_, int_4 _p_ nin_, real_8 _p_ bke_)
49897 { // ** body not listed **
49960 }
49961
49962 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_
49963 ierr_)
49964 { // ** body not listed **
50490 }
50491
50492 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_)
50493 { // ** body not listed **
50940 }
50941
50942 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_
50943 inev_, real_8 _p_ svalue_, real_8 _p_ work_)
50944 { // ** body not listed **
51017 }
51018
51019 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_,
51020 int_4 _p_ lxi_, real_8 _p_ work_)
51021 { // ** body not listed **
51060 }
51061
51062 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_,
51063 real_8 _p_ vnikx_, real_8 _p_ work_)
51064 { // ** body not listed **
51149 }
51150
51151 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_
51152 bquad_, real_8 _p_ work_)
51153 { // ** body not listed **
51342 }
51343
51344 int_4 _dbsynu (real_8 _p_ x_, real_8 _p_ fnu_, int_4 _p_ n_, real_8 _p_ y_)
51345 { // ** body not listed **
51755 }
51756
51757 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_
51758 inbv_, real_8 _p_ work_)
51759 { // ** body not listed **
51862 }
51863
51864 real_8 _dcbrt (real_8 _p_ x_)
51865 { // ** body not listed **
51959 }
51960
51961 real_8 _dchu (real_8 _p_ a_, real_8 _p_ b_, real_8 _p_ x_)
51962 { // ** body not listed **
52111 }
52112
52113 real_8 _dcosdg (real_8 _p_ x_)
52114 { // ** body not listed **
52145 }
52146
52147 real_8 _dcot (real_8 _p_ x_)
52148 { // ** body not listed **
52405 }
52406
52407 real_8 _dcsevl (real_8 _p_ x_, real_8 _p_ cs_, int_4 _p_ n_)
52408 { // ** body not listed **
52451 }
52452
52453 real_8 _ddaws (real_8 _p_ x_)
52454 { // ** body not listed **
54085 }
54086
54087 real_8 _de1 (real_8 _p_ x_)
54088 { // ** body not listed **
57720 }
57721
57722 real_8 _dei (real_8 _p_ x_)
57723 { // ** body not listed **
57729 }
57730
57731 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_
57732 nz_, int_4 _p_ ierr_)
57733 { // ** body not listed **
58037 }
58038
58039 real_8 _dexprl (real_8 _p_ x_)
58040 { // ** body not listed **
58084 }
58085
58086 real_8 _dfac (int_4 _p_ n_)
58087 { // ** body not listed **
58482 }
58483
58484 real_8 _dgamic (real_8 _p_ a_, real_8 _p_ x_)
58485 { // ** body not listed **
58608 }
58609
58610 real_8 _dgami (real_8 _p_ a_, real_8 _p_ x_)
58611 { // ** body not listed **
58630 }
58631
58632 real_8 _dgamit (real_8 _p_ a_, real_8 _p_ x_)
58633 { // ** body not listed **
58731 }
58732
58733 int_4 _dgamlm (real_8 _p_ xmin_, real_8 _p_ xmax_)
58734 { // ** body not listed **
58770 }
58771
58772 real_8 _dgamln (real_8 _p_ z_, int_4 _p_ ierr_)
58773 { // ** body not listed **
59513 }
59514
59515 real_8 _dgamr (real_8 _p_ x_)
59516 { // ** body not listed **
59542 }
59543
59544 real_8 _dgamrn (real_8 _p_ x_)
59545 { // ** body not listed **
59668 }
59669
59670 int_4 _dhkseq (real_8 _p_ x_, int_4 _p_ m_, real_8 _p_ h_, int_4 _p_ ierr_)
59671 { // ** body not listed **
59898 }
59899
59900 real_8 _dlbeta (real_8 _p_ a_, real_8 _p_ b_)
59901 { // ** body not listed **
59942 }
59943
59944 int_4 _dlgams (real_8 _p_ x_, real_8 _p_ dlgam_, real_8 _p_ sgngam_)
59945 { // ** body not listed **
59960 }
59961
59962 real_8 _dli (real_8 _p_ x_)
59963 { // ** body not listed **
59976 }
59977
59978 real_8 _dlnrel (real_8 _p_ x_)
59979 { // ** body not listed **
60496 }
60497
60498 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_
60499 id_, real_8 _p_ x1_, real_8 _p_ x2_, real_8 _p_ tol_, real_8 _p_ quad_, int_4 _p_ ierr_)
60500 { // ** body not listed **
60573 }
60574
60575 real_8 _dpoch1 (real_8 _p_ a_, real_8 _p_ x_)
60576 { // ** body not listed **
60912 }
60913
60914 real_8 _dpoch (real_8 _p_ a_, real_8 _p_ x_)
60915 { // ** body not listed **
61005 }
61006
61007 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_
61008 x2_, real_8 _p_ pquad_)
61009 { // ** body not listed **
61080 }
61081
61082 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
61083 _p_ x_, int_4 _p_ inppv_)
61084 { // ** body not listed **
61129 }
61130
61131 real_8 _dpsi (real_8 _p_ x_)
61132 { // ** body not listed **
61865 }
61866
61867 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_
61868 ierr_)
61869 { // ** body not listed **
62276 }
62277
62278 real_8 _dsindg (real_8 _p_ x_)
62279 { // ** body not listed **
62310 }
62311
62312 real_8 _dspenc (real_8 _p_ x_)
62313 { // ** body not listed **
62820 }
62821
62822 real_4 _e1 (real_4 _p_ x_)
62823 { // ** body not listed **
64566 }
64567
64568 real_4 _ei (real_4 _p_ x_)
64569 { // ** body not listed **
64575 }
64576
64577 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_
64578 nz_, int_4 _p_ ierr_)
64579 { // ** body not listed **
64875 }
64876
64877 real_4 _exprel (real_4 _p_ x_)
64878 { // ** body not listed **
64921 }
64922
64923 real_4 _fac (int_4 _p_ n_)
64924 { // ** body not listed **
65262 }
65263
65264 int_4 _fundoc (void)
65265 { // ** body not listed **
65268 }
65269
65270 real_4 _gamic (real_4 _p_ a_, real_4 _p_ x_)
65271 { // ** body not listed **
65395 }
65396
65397 real_4 _gami (real_4 _p_ a_, real_4 _p_ x_)
65398 { // ** body not listed **
65416 }
65417
65418 real_4 _gamit (real_4 _p_ a_, real_4 _p_ x_)
65419 { // ** body not listed **
65517 }
65518
65519 int_4 _gamlim (real_4 _p_ xmin_, real_4 _p_ xmax_)
65520 { // ** body not listed **
65554 }
65555
65556 real_4 _gamln (real_4 _p_ z_, int_4 _p_ ierr_)
65557 { // ** body not listed **
66297 }
66298
66299 real_4 _gamr (real_4 _p_ x_)
66300 { // ** body not listed **
66325 }
66326
66327 int_4 _initds (real_8 _p_ os_, int_4 _p_ nos_, real_4 _p_ eta_)
66328 { // ** body not listed **
66350 }
66351
66352 int_4 _inits (real_4 _p_ os_, int_4 _p_ nos_, real_4 _p_ eta_)
66353 { // ** body not listed **
66375 }
66376
66377 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_
66378 id_, real_4 _p_ x1_, real_4 _p_ x2_, real_4 _p_ tol_, real_4 _p_ quad_, int_4 _p_ ierr_)
66379 { // ** body not listed **
66452 }
66453
66454 real_4 _poch1 (real_4 _p_ a_, real_4 _p_ x_)
66455 { // ** body not listed **
66668 }
66669
66670 real_4 _poch (real_4 _p_ a_, real_4 _p_ x_)
66671 { // ** body not listed **
66759 }
66760
66761 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_
66762 x2_, real_4 _p_ pquad_)
66763 { // ** body not listed **
66834 }
66835
66836 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
66837 _p_ x_, int_4 _p_ inppv_)
66838 { // ** body not listed **
66882 }
66883
66884 real_4 _psi (real_4 _p_ x_)
66885 { // ** body not listed **
67397 }
67398
67399 int_4 _r9aimp (real_4 _p_ x_, real_4 _p_ ampl_, real_4 _p_ theta_)
67400 { // ** body not listed **
69029 }
69030
69031 real_4 _r9atn1 (real_4 _p_ x_)
69032 { // ** body not listed **
69314 }
69315
69316 real_4 _r9chu (real_4 _p_ a_, real_4 _p_ b_, real_4 _p_ z_)
69317 { // ** body not listed **
69382 }
69383
69384 real_4 _r9gmic (real_4 _p_ a_, real_4 _p_ x_, real_4 _p_ alx_)
69385 { // ** body not listed **
69491 }
69492
69493 real_4 _r9gmit (real_4 _p_ a_, real_4 _p_ x_, real_4 _p_ algap1_, real_4 _p_ sgngam_, real_4 _p_ alx_)
69494 { // ** body not listed **
69587 }
69588
69589 int_4 _r9knus (real_4 _p_ xnu_, real_4 _p_ x_, real_4 _p_ bknu_, real_4 _p_ bknu1_, int_4 _p_ iswtch_)
69590 { // ** body not listed **
70107 }
70108
70109 real_4 _r9lgic (real_4 _p_ a_, real_4 _p_ x_, real_4 _p_ alx_)
70110 { // ** body not listed **
70149 }
70150
70151 real_4 _r9lgit (real_4 _p_ a_, real_4 _p_ x_, real_4 _p_ algap1_)
70152 { // ** body not listed **
70206 }
70207
70208 real_4 _r9lgmc (real_4 _p_ x_)
70209 { // ** body not listed **
70317 }
70318
70319 real_4 _r9ln2r (real_4 _p_ x_)
70320 { // ** body not listed **
70886 }
70887
70888 real_4 _r9pak (real_4 _p_ y_, int_4 _p_ n_)
70889 { // ** body not listed **
70961 }
70962
70963 int_4 _r9upak (real_4 _p_ x_, real_4 _p_ y_, int_4 _p_ n_)
70964 { // ** body not listed **
70989 }
70990
70991 real_4 _rand (real_4 _p_ r_)
70992 { // ** body not listed **
71068 }
71069
71070 real_4 _rgauss (real_4 _p_ xmean_, real_4 _p_ sd_)
71071 { // ** body not listed **
71082 }
71083
71084 real_4 _runif (real_4 _p_ t_, int_4 _p_ n_)
71085 { // ** body not listed **
71123 }
71124
71125 real_4 _sindg (real_4 _p_ x_)
71126 { // ** body not listed **
71156 }
71157
71158 real_4 _spenc (real_4 _p_ x_)
71159 { // ** body not listed **
71451 }
71452
71453 real_8 _zabs (real_8 _p_ zr_, real_8 _p_ zi_)
71454 { // ** body not listed **
71479 }
71480
71481 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_
71482 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_)
71483 { // ** body not listed **
71578 }
71579
71580 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_
71581 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_
71582 alim_)
71583 { // ** body not listed **
71816 }
71817
71818 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
71819 _p_ nz_, int_4 _p_ ierr_)
71820 { // ** body not listed **
72164 }
72165
72166 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
72167 _p_ yi_, int_4 _p_ nz_, real_8 _p_ rl_, real_8 _p_ tol_, real_8 _p_ elim_, real_8 _p_ alim_)
72168 { // ** body not listed **
72371 }
72372
72373 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_
72374 cyr_, real_8 _p_ cyi_, int_4 _p_ nz_, int_4 _p_ ierr_)
72375 { // ** body not listed **
72572 }
72573
72574 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
72575 _p_ cyi_, int_4 _p_ nz_, int_4 _p_ ierr_)
72576 { // ** body not listed **
72726 }
72727
72728 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
72729 _p_ cyi_, int_4 _p_ nz_, int_4 _p_ ierr_)
72730 { // ** body not listed **
72863 }
72864
72865 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
72866 _p_ cyi_, int_4 _p_ nz_, int_4 _p_ ierr_)
72867 { // ** body not listed **
73016 }
73017
73018 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
73019 _p_ cyi_, int_4 _p_ nz_, real_8 _p_ cwrkr_, real_8 _p_ cwrki_, int_4 _p_ ierr_)
73020 { // ** body not listed **
73132 }
73133
73134 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
73135 _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_)
73136 { // ** body not listed **
73268 }
73269
73270 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
73271 _p_ ierr_)
73272 { // ** body not listed **
73568 }
73569
73570 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
73571 _p_ yi_, int_4 _p_ nz_, real_8 _p_ tol_, real_8 _p_ elim_, real_8 _p_ alim_)
73572 { // ** body not listed **
74281 }
74282
74283 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
74284 _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
74285 _p_ alim_)
74286 { // ** body not listed **
74454 }
74455
74456 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_
74457 yr_, real_8 _p_ yi_, int_4 _p_ nz_, real_8 _p_ tol_, real_8 _p_ elim_, real_8 _p_ alim_)
74458 { // ** body not listed **
74473 }
74474
74475 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_)
74476 { // ** body not listed **
74487 }
74488
74489 int_4 _zexp (real_8 _p_ ar_, real_8 _p_ ai_, real_8 _p_ br_, real_8 _p_ bi_)
74490 { // ** body not listed **
74499 }
74500
74501 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
74502 _p_ nz_, real_8 _p_ rzr_, real_8 _p_ rzi_, real_8 _p_ ascle_, real_8 _p_ tol_, real_8 _p_ elim_)
74503 { // ** body not listed **
74647 }
74648
74649 int_4 _zlog (real_8 _p_ ar_, real_8 _p_ ai_, real_8 _p_ br_, real_8 _p_ bi_, int_4 _p_ ierr_)
74650 { // ** body not listed **
74719 }
74720
74721 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
74722 _p_ yi_, int_4 _p_ nz_, real_8 _p_ tol_)
74723 { // ** body not listed **
74943 }
74944
74945 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_)
74946 { // ** body not listed **
74954 }
74955
74956 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
74957 _p_ tol_)
74958 { // ** body not listed **
75112 }
75113
75114 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_,
75115 int_4 _p_ nz_, real_8 _p_ ascle_, real_8 _p_ alim_, int_4 _p_ iuf_)
75116 { // ** body not listed **
75174 }
75175
75176 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
75177 _p_ yi_, int_4 _p_ nz_, real_8 _p_ tol_, real_8 _p_ elim_, real_8 _p_ alim_)
75178 { // ** body not listed **
75406 }
75407
75408 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_)
75409 { // ** body not listed **
75421 }
75422
75423 int_4 _zsqrt (real_8 _p_ ar_, real_8 _p_ ai_, real_8 _p_ br_, real_8 _p_ bi_)
75424 { // ** body not listed **
75499 }
75500
75501 int_4 _zuchk (real_8 _p_ yr_, real_8 _p_ yi_, int_4 _p_ nz_, real_8 _p_ ascle_, real_8 _p_ tol_)
75502 { // ** body not listed **
75519 }
75520
75521 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_,
75522 real_8 _p_ phii_, real_8 _p_ argr_, real_8 _p_ argi_, real_8 _p_ zeta1r_, real_8 _p_ zeta1i_, real_8 _p_ zeta2r_,
75523 real_8 _p_ zeta2i_, real_8 _p_ asumr_, real_8 _p_ asumi_, real_8 _p_ bsumr_, real_8 _p_ bsumi_)
75524 { // ** body not listed **
78850 }
78851
78852 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
78853 _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_)
78854 { // ** body not listed **
79082 }
79083
79084 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
79085 _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_)
79086 { // ** body not listed **
79424 }
79425
79426 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_,
79427 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
79428 _p_ zeta2i_, real_8 _p_ sumr_, real_8 _p_ sumi_, real_8 _p_ cwrkr_, real_8 _p_ cwrki_)
79429 { // ** body not listed **
80213 }
80214
80215 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_
80216 yr_, real_8 _p_ yi_, int_4 _p_ nz_, real_8 _p_ tol_, real_8 _p_ elim_, real_8 _p_ alim_)
80217 { // ** body not listed **
80699 }
80700
80701 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_
80702 yr_, real_8 _p_ yi_, int_4 _p_ nz_, real_8 _p_ tol_, real_8 _p_ elim_, real_8 _p_ alim_)
80703 { // ** body not listed **
81327 }
81328
81329 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
81330 _p_ yr_, real_8 _p_ yi_, int_4 _p_ nuf_, real_8 _p_ tol_, real_8 _p_ elim_, real_8 _p_ alim_)
81331 { // ** body not listed **
81564 }
81565
81566 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
81567 _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_)
81568 { // ** body not listed **
81646 }
81647
|
© 2002-2025 J.M. van der Veer (jmvdveer@xs4all.nl)
|
