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 //! 268 subprograms from FNLIB
24
25 // Compiled from Fortran source code by VIF.
26 // Selected subprograms are:
27 //
28 // ACOSH BESY0 CARG CLNGAM D9LGIT DBFQAD DDAWS DPSI R9AIMP ZBESY
29 // AI BESY1 CASIN CLNREL D9LGMC DBI DE1 DPSIFN R9ATN1 ZBINU
30 // AIE BESYNU CASINH CLOG10 D9LN2R DBIE DEI DSINDG R9CHU ZBIRY
31 // ALBETA BETA CATAN CMLRI D9PAK DBINOM DERF DSPENC R9GMIC ZBKNU
32 // ALGAMS BETAI CATAN2 COSDG D9UPAK DBINT4 DERFC E1 R9GMIT ZBUNI
33 // ALI BFQAD CATANH COT DACOSH DBINTK DEXINT EI R9KNUS ZBUNK
34 // ALNGAM BI CBESH CPSI DAI DBKIAS DEXPRL ERF R9LGIC ZDIV
35 // ALNREL BIE CBESI CSERI DAIE DBKISR DFAC ERFC R9LGIT ZEXP
36 // ASINH BINOM CBESJ CSEVL DASINH DBSI0E DGAMI EXINT R9LGMC ZKSCL
37 // ATANH BINT4 CBESK CSINH DASYJY DBSI1E DGAMIC EXPREL R9LN2R ZLOG
38 // BESI BINTK CBESY CTAN DATANH DBSK0E DGAMIT FAC R9PAK ZMLRI
39 // BESI0 BKIAS CBETA CTANH DAWS DBSK1E DGAMLM FUNDOC R9UPAK ZMLT
40 // BESI0E BKISR CBINU CUNI1 DBESI DBSKES DGAMLN GAMI RAND ZRATI
41 // BESI1 BSKIN CBIRY CUNI2 DBESI0 DBSKIN DGAMMA GAMIC RGAUSS ZS1S2
42 // BESI1E BSPEV CBKNU CUNK1 DBESI1 DBSKNU DGAMR GAMIT RUNIF ZSERI
43 // BESJ BSPPP CBRT CUNK2 DBESJ DBSPEV DGAMRN GAMLIM SINDG ZSHCH
44 // BESJ0 BSPVD CBUNI CUOIK DBESJ0 DBSPPP DHKSEQ GAMLN SPENC ZSQRT
45 // BESJ1 BSQAD CBUNK CWRSK DBESJ1 DBSPVD DLBETA GAMMA ZABS ZUCHK
46 // BESK BVALU CCBRT D9AIMP DBESK DBSQAD DLGAMS GAMR ZACAI ZUNHJ
47 // BESK0 C0LGMC CCOSH D9ATN1 DBESK0 DBSYNU DLI INITDS ZACON ZUNI1
48 // BESK0E C9LGMC CCOT D9B0MP DBESK1 DBVALU DLNGAM INITS ZAIRY ZUNI2
49 // BESK1 C9LN2R CEXPRL D9B1MP DBESKS DC_100 DLNREL PFQAD ZASYI ZUNIK
50 // BESK1E CACAI CGAMMA D9CHU DBESY DCBRT DPFQAD POCH ZBESH ZUNK1
51 // BESKES CACON CGAMR D9GMIC DBESY0 DCHU DPOCH POCH1 ZBESI ZUNK2
52 // BESKNU CACOS CHU D9GMIT DBESY1 DCOSDG DPOCH1 PPQAD ZBESJ ZUOIK
53 // BESKS CACOSH CKSCL D9KNUS DBETA DCOT DPPQAD PPVAL ZBESK ZWRSK
54 // BESY CAIRY CLBETA D9LGIC DBETAI DCSEVL DPPVAL PSI
55
56 // Routines from SLATEC's AMOSLIB and FNLIB.
57 //
58 // FNLIB is W. Fullerton's special-function package.
59 //
60 // AMOSLIB is D. E. Amos' portable package for Bessel Functions of a
61 // Complex Argument and Nonnegative Order.
62 //
63 // Functions that are already in the VIF library have been removed
64 // (acos, asin, atan, ...).
65 //
66 // Source: netlib.org/slatec/
67
68 // The license for FNLIB Fortran source code is:
69 //
70 // The SLATEC Common Mathematical Library was developed at
71 // US government research laboratories and is in the public domain.
72 //
73 // Repository: http://www.netlib.org/slatec/
74 //
75 // The SLATEC common mathematical library is issued by the following
76 //
77 // Air Force Weapons Laboratory, Albuquerque
78 // Lawrence Livermore National Laboratory, Livermore
79 // Los Alamos National Laboratory, Los Alamos
80 // National Institute of Standards and Technology, Washington
81 // National Energy Research Supercomputer Center, Livermore
82 // Oak Ridge National Laboratory, Oak Ridge
83 // Sandia National Laboratories, Albuquerque
84 // Sandia National Laboratories, Livermore
85 //
86 // All questions concerning the distribution of the library should be
87 // directed to the NATIONAL ENERGY SOFTWARE CENTER, 9700 Cass Ave.,
88 // Argonne, Illinois 60439, and not to the authors of the subprograms.
89 //
90 // * * * * * Notice * * * * *
91 //
92 // This material was prepared as an account of work sponsored by the
93 // United States Government. Neither the United States, nor the
94 // Department of Energy, nor the Department of Defense, nor any of
95 // their employees, nor any of their contractors, subcontractors, or
96 // their employees, makes any warranty, expressed or implied, or
97 // assumes any legal liability or responsibility for the accuracy,
98 // completeness, or usefulness of any information, apparatus, product,
99 // or process disclosed, or represents that its use would not infringe
100 // upon privately owned rights.
101
102 /*
103 Generated by VIF - experimental VIntage Fortran compiler.
104 VIF release 1.1.7
105 */
430 static CALLS __calls[__ncalls] = {
431 {"acosh", 0}, // function
432 {"aie", 0}, // function
433 {"ai", 0}, // function
434 {"albeta", 0}, // function
435 {"algams", 0}, // subroutine
436 {"ali", 0}, // function
437 {"alngam", 0}, // function
438 {"alnrel", 0}, // function
439 {"asinh", 0}, // function
440 {"atanh", 0}, // function
441 {"besi0e", 0}, // function
442 {"besi0", 0}, // function
443 {"besi1e", 0}, // function
444 {"besi1", 0}, // function
445 {"besi", 0}, // subroutine
446 {"besj0", 0}, // function
447 {"besj1", 0}, // function
448 {"besj", 0}, // subroutine
449 {"besk0e", 0}, // function
450 {"besk0", 0}, // function
451 {"besk1e", 0}, // function
452 {"besk1", 0}, // function
453 {"beskes", 0}, // subroutine
454 {"besk", 0}, // subroutine
455 {"besknu", 0}, // subroutine
456 {"besks", 0}, // subroutine
457 {"besy0", 0}, // function
458 {"besy1", 0}, // function
459 {"besy", 0}, // subroutine
460 {"besynu", 0}, // subroutine
461 {"beta", 0}, // function
462 {"betai", 0}, // real*4 function
463 {"bfqad", 0}, // subroutine
464 {"bie", 0}, // function
465 {"bi", 0}, // function
466 {"binom", 0}, // function
467 {"bint4", 0}, // subroutine
468 {"bintk", 0}, // subroutine
469 {"bkias", 0}, // subroutine
470 {"bkisr", 0}, // subroutine
471 {"bskin", 0}, // subroutine
472 {"bspev", 0}, // subroutine
473 {"bsppp", 0}, // subroutine
474 {"bspvd", 0}, // subroutine
475 {"bsqad", 0}, // subroutine
476 {"bvalu", 0}, // function
477 {"c0lgmc", 0}, // complex*8 function
478 {"c9lgmc", 0}, // complex*8 function
479 {"c9ln2r", 0}, // complex*8 function
480 {"cacai", 0}, // subroutine
481 {"cacon", 0}, // subroutine
482 {"cacos", 0}, // complex*8 function
483 {"cacosh", 0}, // complex*8 function
484 {"cairy", 0}, // subroutine
485 {"carg", 0}, // function
486 {"casin", 0}, // complex*8 function
487 {"casinh", 0}, // complex*8 function
488 {"catan2", 0}, // complex*8 function
489 {"catan", 0}, // complex*8 function
490 {"catanh", 0}, // complex*8 function
491 {"cbesh", 0}, // subroutine
492 {"cbesi", 0}, // subroutine
493 {"cbesj", 0}, // subroutine
494 {"cbesk", 0}, // subroutine
495 {"cbesy", 0}, // subroutine
496 {"cbeta", 0}, // complex*8 function
497 {"cbinu", 0}, // subroutine
498 {"cbiry", 0}, // subroutine
499 {"cbknu", 0}, // subroutine
500 {"cbrt", 0}, // function
501 {"cbuni", 0}, // subroutine
502 {"cbunk", 0}, // subroutine
503 {"ccbrt", 0}, // complex*8 function
504 {"ccosh", 0}, // complex*8 function
505 {"ccot", 0}, // complex*8 function
506 {"cexprl", 0}, // complex*8 function
507 {"cgamma", 0}, // complex*8 function
508 {"cgamr", 0}, // complex*8 function
509 {"chu", 0}, // function
510 {"ckscl", 0}, // subroutine
511 {"clbeta", 0}, // complex*8 function
512 {"clngam", 0}, // complex*8 function
513 {"clnrel", 0}, // complex*8 function
514 {"clog10", 0}, // complex*8 function
515 {"cmlri", 0}, // subroutine
516 {"cosdg", 0}, // function
517 {"cot", 0}, // function
518 {"cpsi", 0}, // complex*8 function
519 {"cseri", 0}, // subroutine
520 {"csevl", 0}, // function
521 {"csinh", 0}, // complex*8 function
522 {"ctan", 0}, // complex*8 function
523 {"ctanh", 0}, // complex*8 function
524 {"cuni1", 0}, // subroutine
525 {"cuni2", 0}, // subroutine
526 {"cunk1", 0}, // subroutine
527 {"cunk2", 0}, // subroutine
528 {"cuoik", 0}, // subroutine
529 {"cwrsk", 0}, // subroutine
530 {"d9aimp", 0}, // subroutine
531 {"d9atn1", 0}, // real*8 function
532 {"d9b0mp", 0}, // subroutine
533 {"d9b1mp", 0}, // subroutine
534 {"d9chu", 0}, // real*8 function
535 {"d9gmic", 0}, // real*8 function
536 {"d9gmit", 0}, // real*8 function
537 {"d9knus", 0}, // subroutine
538 {"d9lgic", 0}, // real*8 function
539 {"d9lgit", 0}, // real*8 function
540 {"d9lgmc", 0}, // real*8 function
541 {"d9ln2r", 0}, // real*8 function
542 {"d9pak", 0}, // real*8 function
543 {"d9upak", 0}, // subroutine
544 {"dacosh", 0}, // real*8 function
545 {"daie", 0}, // real*8 function
546 {"dai", 0}, // real*8 function
547 {"dasinh", 0}, // real*8 function
548 {"dasyjy", 0}, // subroutine
549 {"datanh", 0}, // real*8 function
550 {"daws", 0}, // function
551 {"dbesi0", 0}, // real*8 function
552 {"dbesi1", 0}, // real*8 function
553 {"dbesi", 0}, // subroutine
554 {"dbesj0", 0}, // real*8 function
555 {"dbesj1", 0}, // real*8 function
556 {"dbesj", 0}, // subroutine
557 {"dbesk0", 0}, // real*8 function
558 {"dbesk1", 0}, // real*8 function
559 {"dbesk", 0}, // subroutine
560 {"dbesks", 0}, // subroutine
561 {"dbesy0", 0}, // real*8 function
562 {"dbesy1", 0}, // real*8 function
563 {"dbesy", 0}, // subroutine
564 {"dbeta", 0}, // real*8 function
565 {"dbetai", 0}, // real*8 function
566 {"dbfqad", 0}, // subroutine
567 {"dbie", 0}, // real*8 function
568 {"dbi", 0}, // real*8 function
569 {"dbinom", 0}, // real*8 function
570 {"dbint4", 0}, // subroutine
571 {"dbintk", 0}, // subroutine
572 {"dbkias", 0}, // subroutine
573 {"dbkisr", 0}, // subroutine
574 {"dbsi0e", 0}, // real*8 function
575 {"dbsi1e", 0}, // real*8 function
576 {"dbsk0e", 0}, // real*8 function
577 {"dbsk1e", 0}, // real*8 function
578 {"dbskes", 0}, // subroutine
579 {"dbskin", 0}, // subroutine
580 {"dbsknu", 0}, // subroutine
581 {"dbspev", 0}, // subroutine
582 {"dbsppp", 0}, // subroutine
583 {"dbspvd", 0}, // subroutine
584 {"dbsqad", 0}, // subroutine
585 {"dbsynu", 0}, // subroutine
586 {"dbvalu", 0}, // real*8 function
587 {"dcbrt", 0}, // real*8 function
588 {"dchu", 0}, // real*8 function
589 {"dcosdg", 0}, // real*8 function
590 {"dcot", 0}, // real*8 function
591 {"dcsevl", 0}, // real*8 function
592 {"ddaws", 0}, // real*8 function
593 {"de1", 0}, // real*8 function
594 {"dei", 0}, // real*8 function
595 {"derfc", 0}, // real*8 function
596 {"derf", 0}, // real*8 function
597 {"dexint", 0}, // subroutine
598 {"dexprl", 0}, // real*8 function
599 {"dfac", 0}, // real*8 function
600 {"dgamic", 0}, // real*8 function
601 {"dgami", 0}, // real*8 function
602 {"dgamit", 0}, // real*8 function
603 {"dgamlm", 0}, // subroutine
604 {"dgamln", 0}, // real*8 function
605 {"dgamma", 0}, // real*8 function
606 {"dgamr", 0}, // real*8 function
607 {"dgamrn", 0}, // real*8 function
608 {"dhkseq", 0}, // subroutine
609 {"dlbeta", 0}, // real*8 function
610 {"dlgams", 0}, // subroutine
611 {"dli", 0}, // real*8 function
612 {"dlngam", 0}, // real*8 function
613 {"dlnrel", 0}, // real*8 function
614 {"dpfqad", 0}, // subroutine
615 {"dpoch1", 0}, // real*8 function
616 {"dpoch", 0}, // real*8 function
617 {"dppqad", 0}, // subroutine
618 {"dppval", 0}, // real*8 function
619 {"dpsi", 0}, // real*8 function
620 {"dpsifn", 0}, // subroutine
621 {"dsindg", 0}, // real*8 function
622 {"dspenc", 0}, // real*8 function
623 {"e1", 0}, // function
624 {"ei", 0}, // function
625 {"erfc", 0}, // function
626 {"erf", 0}, // function
627 {"exint", 0}, // subroutine
628 {"exprel", 0}, // function
629 {"fac", 0}, // function
630 {"fundoc", 0}, // subroutine
631 {"gamic", 0}, // real*4 function
632 {"gami", 0}, // function
633 {"gamit", 0}, // real*4 function
634 {"gamlim", 0}, // subroutine
635 {"gamln", 0}, // real*4 function
636 {"gamma", 0}, // function
637 {"gamr", 0}, // function
638 {"initds", 0}, // function
639 {"inits", 0}, // function
640 {"pfqad", 0}, // subroutine
641 {"poch1", 0}, // function
642 {"poch", 0}, // function
643 {"ppqad", 0}, // subroutine
644 {"ppval", 0}, // function
645 {"psi", 0}, // function
646 {"r9aimp", 0}, // subroutine
647 {"r9atn1", 0}, // function
648 {"r9chu", 0}, // function
649 {"r9gmic", 0}, // function
650 {"r9gmit", 0}, // function
651 {"r9knus", 0}, // subroutine
652 {"r9lgic", 0}, // function
653 {"r9lgit", 0}, // function
654 {"r9lgmc", 0}, // function
655 {"r9ln2r", 0}, // function
656 {"r9pak", 0}, // function
657 {"r9upak", 0}, // subroutine
658 {"rand", 0}, // function
659 {"rgauss", 0}, // function
660 {"runif", 0}, // function
661 {"sindg", 0}, // function
662 {"spenc", 0}, // function
663 {"zabs", 0}, // real*8 function
664 {"zacai", 0}, // subroutine
665 {"zacon", 0}, // subroutine
666 {"zairy", 0}, // subroutine
667 {"zasyi", 0}, // subroutine
668 {"zbesh", 0}, // subroutine
669 {"zbesi", 0}, // subroutine
670 {"zbesj", 0}, // subroutine
671 {"zbesk", 0}, // subroutine
672 {"zbesy", 0}, // subroutine
673 {"zbinu", 0}, // subroutine
674 {"zbiry", 0}, // subroutine
675 {"zbknu", 0}, // subroutine
676 {"zbuni", 0}, // subroutine
677 {"zbunk", 0}, // subroutine
678 {"zdiv", 0}, // subroutine
679 {"zexp", 0}, // subroutine
680 {"zkscl", 0}, // subroutine
681 {"zlog", 0}, // subroutine
682 {"zmlri", 0}, // subroutine
683 {"zmlt", 0}, // subroutine
684 {"zrati", 0}, // subroutine
685 {"zs1s2", 0}, // subroutine
686 {"zseri", 0}, // subroutine
687 {"zshch", 0}, // subroutine
688 {"zsqrt", 0}, // subroutine
689 {"zuchk", 0}, // subroutine
690 {"zunhj", 0}, // subroutine
691 {"zuni1", 0}, // subroutine
692 {"zuni2", 0}, // subroutine
693 {"zunik", 0}, // subroutine
694 {"zunk1", 0}, // subroutine
695 {"zunk2", 0}, // subroutine
696 {"zuoik", 0}, // subroutine
697 {"zwrsk", 0}, // subroutine
698 {NULL, 0}
699 };
733 real_4 _p_ x1_, real_4 _p_ x2_, real_4 _p_ tol_, real_4 _p_ quad_, int_4 _p_ ierr_, real_4 _p_ work_);
738 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_
739 );
741 real_4 _p_ q_, real_4 _p_ work_);
743 int_4 _p_ ms_, real_4 _p_ gmrn_, real_4 _p_ h_, int_4 _p_ ierr_);
746 _p_ ierr_);
748 int_4 _p_ inev_, real_4 _p_ svalue_, real_4 _p_ work_);
750 _p_ xi_, int_4 _p_ lxi_, real_4 _p_ work_);
752 ldvnik_, real_4 _p_ vnikx_, real_4 _p_ work_);
754 real_4 _p_ bquad_, real_4 _p_ work_);
756 int_4 _p_ inbv_, real_4 _p_ work_);
761 y_, int_4 _p_ nz_, real_4 _p_ rl_, real_4 _p_ tol_, real_4 _p_ elim_, real_4 _p_ alim_);
763 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_);
767 ierr_);
775 cy_, int_4 _p_ nz_, int_4 _p_ ierr_);
777 nz_, int_4 _p_ ierr_);
779 nz_, int_4 _p_ ierr_);
781 nz_, int_4 _p_ ierr_);
783 nz_, complex_8 _p_ cwrk_, int_4 _p_ ierr_);
786 nz_, real_4 _p_ rl_, real_4 _p_ fnul_, real_4 _p_ tol_, real_4 _p_ elim_, real_4 _p_ alim_);
789 nz_, real_4 _p_ tol_, real_4 _p_ elim_, real_4 _p_ alim_);
792 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_);
794 y_, int_4 _p_ nz_, real_4 _p_ tol_, real_4 _p_ elim_, real_4 _p_ alim_);
803 _p_ rz_, real_4 _p_ ascle_, real_4 _p_ tol_, real_4 _p_ elim_);
809 nz_, real_4 _p_ tol_);
814 nz_, real_4 _p_ tol_, real_4 _p_ elim_, real_4 _p_ alim_);
820 nz_, int_4 _p_ nlast_, real_4 _p_ fnul_, real_4 _p_ tol_, real_4 _p_ elim_, real_4 _p_ alim_);
822 nz_, int_4 _p_ nlast_, real_4 _p_ fnul_, real_4 _p_ tol_, real_4 _p_ elim_, real_4 _p_ alim_);
824 y_, int_4 _p_ nz_, real_4 _p_ tol_, real_4 _p_ elim_, real_4 _p_ alim_);
826 y_, int_4 _p_ nz_, real_4 _p_ tol_, real_4 _p_ elim_, real_4 _p_ alim_);
828 _p_ y_, int_4 _p_ nuf_, real_4 _p_ tol_, real_4 _p_ elim_, real_4 _p_ alim_);
830 nz_, complex_8 _p_ cw_, real_4 _p_ tol_, real_4 _p_ elim_, real_4 _p_ alim_);
850 _p_ y_, real_8 _p_ wk_, int_4 _p_ iflw_);
869 real_8 _p_ x1_, real_8 _p_ x2_, real_8 _p_ tol_, real_8 _p_ quad_, int_4 _p_ ierr_, real_8 _p_ work_);
874 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_
875 );
877 real_8 _p_ q_, real_8 _p_ work_);
879 int_4 _p_ ms_, real_8 _p_ gmrn_, real_8 _p_ h_, int_4 _p_ ierr_);
887 int_4 _p_ ierr_);
890 int_4 _p_ inev_, real_8 _p_ svalue_, real_8 _p_ work_);
892 real_8 _p_ xi_, int_4 _p_ lxi_, real_8 _p_ work_);
894 ldvnik_, real_8 _p_ vnikx_, real_8 _p_ work_);
896 real_8 _p_ bquad_, real_8 _p_ work_);
899 int_4 _p_ inbv_, real_8 _p_ work_);
911 int_4 _p_ nz_, int_4 _p_ ierr_);
929 int_4 _p_ id_, real_8 _p_ x1_, real_8 _p_ x2_, real_8 _p_ tol_, real_8 _p_ quad_, int_4 _p_ ierr_);
933 real_8 _p_ x2_, real_8 _p_ pquad_);
935 ideriv_, real_8 _p_ x_, int_4 _p_ inppv_);
938 int_4 _p_ ierr_);
946 int_4 _p_ nz_, int_4 _p_ ierr_);
960 int_4 _p_ id_, real_4 _p_ x1_, real_4 _p_ x2_, real_4 _p_ tol_, real_4 _p_ quad_, int_4 _p_ ierr_);
964 real_4 _p_ x2_, real_4 _p_ pquad_);
966 , real_4 _p_ x_, int_4 _p_ inppv_);
987 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_);
989 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_,
990 real_8 _p_ alim_);
992 aii_, int_4 _p_ nz_, int_4 _p_ ierr_);
994 real_8 _p_ yi_, int_4 _p_ nz_, real_8 _p_ rl_, real_8 _p_ tol_, real_8 _p_ elim_, real_8 _p_ alim_);
996 real_8 _p_ cyr_, real_8 _p_ cyi_, int_4 _p_ nz_, int_4 _p_ ierr_);
998 , real_8 _p_ cyi_, int_4 _p_ nz_, int_4 _p_ ierr_);
1000 , real_8 _p_ cyi_, int_4 _p_ nz_, int_4 _p_ ierr_);
1002 , real_8 _p_ cyi_, int_4 _p_ nz_, int_4 _p_ ierr_);
1004 , real_8 _p_ cyi_, int_4 _p_ nz_, real_8 _p_ cwrkr_, real_8 _p_ cwrki_, int_4 _p_ ierr_);
1006 , 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_
1007 );
1009 bii_, int_4 _p_ ierr_);
1011 real_8 _p_ yi_, int_4 _p_ nz_, real_8 _p_ tol_, real_8 _p_ elim_, real_8 _p_ alim_);
1013 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_,
1014 real_8 _p_ alim_);
1016 real_8 _p_ yr_, real_8 _p_ yi_, int_4 _p_ nz_, real_8 _p_ tol_, real_8 _p_ elim_, real_8 _p_ alim_);
1020 , int_4 _p_ nz_, real_8 _p_ rzr_, real_8 _p_ rzi_, real_8 _p_ ascle_, real_8 _p_ tol_, real_8 _p_ elim_);
1023 real_8 _p_ yi_, int_4 _p_ nz_, real_8 _p_ tol_);
1026 , real_8 _p_ tol_);
1028 s2i_, int_4 _p_ nz_, real_8 _p_ ascle_, real_8 _p_ alim_, int_4 _p_ iuf_);
1030 real_8 _p_ yi_, int_4 _p_ nz_, real_8 _p_ tol_, real_8 _p_ elim_, real_8 _p_ alim_);
1032 _p_ cchi_);
1036 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_
1037 , real_8 _p_ zeta2i_, real_8 _p_ asumr_, real_8 _p_ asumi_, real_8 _p_ bsumr_, real_8 _p_ bsumi_);
1039 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_)
1040 ;
1042 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_)
1043 ;
1045 _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_
1046 zeta2r_, real_8 _p_ zeta2i_, real_8 _p_ sumr_, real_8 _p_ sumi_, real_8 _p_ cwrkr_, real_8 _p_ cwrki_);
1048 real_8 _p_ yr_, real_8 _p_ yi_, int_4 _p_ nz_, real_8 _p_ tol_, real_8 _p_ elim_, real_8 _p_ alim_);
1050 real_8 _p_ yr_, real_8 _p_ yi_, int_4 _p_ nz_, real_8 _p_ tol_, real_8 _p_ elim_, real_8 _p_ alim_);
1052 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_);
1054 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_
1055 alim_);
1056 real_4 _acosh (real_4 _p_ x_)
1057 { // ** body not listed **
1097 }
1098 real_4 _aie (real_4 _p_ x_)
1099 { // ** body not listed **
1721 }
1722 real_4 _ai (real_4 _p_ x_)
1723 { // ** body not listed **
1966 }
1967 real_4 _albeta (real_4 _p_ a_, real_4 _p_ b_)
1968 { // ** body not listed **
2007 }
2008 int_4 _algams (real_4 _p_ x_, real_4 _p_ algam_, real_4 _p_ sgngam_)
2009 { // ** body not listed **
2023 }
2024 real_4 _ali (real_4 _p_ x_)
2025 { // ** body not listed **
2038 }
2039 real_4 _alngam (real_4 _p_ x_)
2040 { // ** body not listed **
2122 }
2123 real_4 _alnrel (real_4 _p_ x_)
2124 { // ** body not listed **
2416 }
2417 real_4 _asinh (real_4 _p_ x_)
2418 { // ** body not listed **
2695 }
2696 real_4 _atanh (real_4 _p_ x_)
2697 { // ** body not listed **
2904 }
2905 real_4 _besi0e (real_4 _p_ x_)
2906 { // ** body not listed **
3561 }
3562 real_4 _besi0 (real_4 _p_ x_)
3563 { // ** body not listed **
3737 }
3738 real_4 _besi1e (real_4 _p_ x_)
3739 { // ** body not listed **
4395 }
4396 real_4 _besi1 (real_4 _p_ x_)
4397 { // ** body not listed **
4570 }
4571 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_)
4572 { // ** body not listed **
5062 }
5063 real_4 _besj0 (real_4 _p_ x_)
5064 { // ** body not listed **
5766 }
5767 real_4 _besj1 (real_4 _p_ x_)
5768 { // ** body not listed **
6469 }
6470 int_4 _besj (real_4 _p_ x_, real_4 _p_ alpha_, int_4 _p_ n_, real_4 _p_ y_, int_4 _p_ nz_)
6471 { // ** body not listed **
7065 }
7066 real_4 _besk0e (real_4 _p_ x_)
7067 { // ** body not listed **
7582 }
7583 real_4 _besk0 (real_4 _p_ x_)
7584 { // ** body not listed **
7755 }
7756 real_4 _besk1e (real_4 _p_ x_)
7757 { // ** body not listed **
8276 }
8277 real_4 _besk1 (real_4 _p_ x_)
8278 { // ** body not listed **
8453 }
8454 int_4 _beskes (real_4 _p_ xnu_, real_4 _p_ x_, int_4 _p_ nin_, real_4 _p_ bke_)
8455 { // ** body not listed **
8517 }
8518 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_)
8519 { // ** body not listed **
8785 }
8786 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_)
8787 { // ** body not listed **
9233 }
9234 int_4 _besks (real_4 _p_ xnu_, real_4 _p_ x_, int_4 _p_ nin_, real_4 _p_ bk_)
9235 { // ** body not listed **
9265 }
9266 real_4 _besy0 (real_4 _p_ x_)
9267 { // ** body not listed **
9983 }
9984 real_4 _besy1 (real_4 _p_ x_)
9985 { // ** body not listed **
10717 }
10718 int_4 _besy (real_4 _p_ x_, real_4 _p_ fnu_, int_4 _p_ n_, real_4 _p_ y_)
10719 { // ** body not listed **
10897 }
10898 int_4 _besynu (real_4 _p_ x_, real_4 _p_ fnu_, int_4 _p_ n_, real_4 _p_ y_)
10899 { // ** body not listed **
11308 }
11309 real_4 _beta (real_4 _p_ a_, real_4 _p_ b_)
11310 { // ** body not listed **
11354 }
11355 real_4 _betai (real_4 _p_ x_, real_4 _p_ pin_, real_4 _p_ qin_)
11356 { // ** body not listed **
11471 }
11472 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_
11473 x1_, real_4 _p_ x2_, real_4 _p_ tol_, real_4 _p_ quad_, int_4 _p_ ierr_, real_4 _p_ work_)
11474 { // ** body not listed **
11553 }
11554 real_4 _bie (real_4 _p_ x_)
11555 { // ** body not listed **
12653 }
12654 real_4 _bi (real_4 _p_ x_)
12655 { // ** body not listed **
13124 }
13125 real_4 _binom (int_4 _p_ n_, int_4 _p_ m_)
13126 { // ** body not listed **
13204 }
13205 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_,
13206 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_)
13207 { // ** body not listed **
13357 }
13358 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_
13359 , real_4 _p_ work_)
13360 { // ** body not listed **
13445 }
13446 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_
13447 ms_, real_4 _p_ gmrn_, real_4 _p_ h_, int_4 _p_ ierr_)
13448 { // ** body not listed **
14331 }
14332 int_4 _bkisr (real_4 _p_ x_, int_4 _p_ n_, real_4 _p_ sum_, int_4 _p_ ierr_)
14333 { // ** body not listed **
14418 }
14419 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_
14420 )
14421 { // ** body not listed **
14951 }
14952 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_
14953 inev_, real_4 _p_ svalue_, real_4 _p_ work_)
14954 { // ** body not listed **
15027 }
15028 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_,
15029 int_4 _p_ lxi_, real_4 _p_ work_)
15030 { // ** body not listed **
15069 }
15070 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_,
15071 real_4 _p_ vnikx_, real_4 _p_ work_)
15072 { // ** body not listed **
15157 }
15158 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_
15159 bquad_, real_4 _p_ work_)
15160 { // ** body not listed **
15349 }
15350 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_
15351 inbv_, real_4 _p_ work_)
15352 { // ** body not listed **
15454 }
15455 complex_8 _c0lgmc (complex_8 _p_ z_)
15456 { // ** body not listed **
15493 }
15494 complex_8 _c9lgmc (complex_8 _p_ zin_)
15495 { // ** body not listed **
15677 }
15678 complex_8 _c9ln2r (complex_8 _p_ z_)
15679 { // ** body not listed **
15706 }
15707 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
15708 _p_ nz_, real_4 _p_ rl_, real_4 _p_ tol_, real_4 _p_ elim_, real_4 _p_ alim_)
15709 { // ** body not listed **
15798 }
15799 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
15800 _p_ nz_, real_4 _p_ rl_, real_4 _p_ fnul_, real_4 _p_ tol_, real_4 _p_ elim_, real_4 _p_ alim_)
15801 { // ** body not listed **
15980 }
15981 complex_8 _cacos (complex_8 _p_ z_)
15982 { // ** body not listed **
16000 }
16001 complex_8 _cacosh (complex_8 _p_ z_)
16002 { // ** body not listed **
16020 }
16021 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_)
16022 { // ** body not listed **
16300 }
16301 real_4 _carg (complex_8 _p_ z_)
16302 { // ** body not listed **
16310 }
16311 complex_8 _casin (complex_8 _p_ zinp_)
16312 { // ** body not listed **
16407 }
16408 complex_8 _casinh (complex_8 _p_ z_)
16409 { // ** body not listed **
16428 }
16429 complex_8 _catan2 (complex_8 _p_ csn_, complex_8 _p_ ccs_)
16430 { // ** body not listed **
16465 }
16466 complex_8 _catan (complex_8 _p_ z_)
16467 { // ** body not listed **
16549 }
16550 complex_8 _catanh (complex_8 _p_ z_)
16551 { // ** body not listed **
16570 }
16571 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
16572 _p_ nz_, int_4 _p_ ierr_)
16573 { // ** body not listed **
16766 }
16767 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
16768 _p_ ierr_)
16769 { // ** body not listed **
16910 }
16911 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
16912 _p_ ierr_)
16913 { // ** body not listed **
17040 }
17041 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
17042 _p_ ierr_)
17043 { // ** body not listed **
17194 }
17195 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_,
17196 complex_8 _p_ cwrk_, int_4 _p_ ierr_)
17197 { // ** body not listed **
17304 }
17305 complex_8 _cbeta (complex_8 _p_ a_, complex_8 _p_ b_)
17306 { // ** body not listed **
17339 }
17340 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_,
17341 real_4 _p_ rl_, real_4 _p_ fnul_, real_4 _p_ tol_, real_4 _p_ elim_, real_4 _p_ alim_)
17342 { // ** body not listed **
17469 }
17470 int_4 _cbiry (complex_8 _p_ z_, int_4 _p_ id_, int_4 _p_ kode_, complex_8 _p_ bi_, int_4 _p_ ierr_)
17471 { // ** body not listed **
17714 }
17715 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
17716 _p_ tol_, real_4 _p_ elim_, real_4 _p_ alim_)
17717 { // ** body not listed **
18315 }
18316 real_4 _cbrt (real_4 _p_ x_)
18317 { // ** body not listed **
18408 }
18409 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
18410 _p_ nui_, int_4 _p_ nlast_, real_4 _p_ fnul_, real_4 _p_ tol_, real_4 _p_ elim_, real_4 _p_ alim_)
18411 { // ** body not listed **
18569 }
18570 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
18571 _p_ nz_, real_4 _p_ tol_, real_4 _p_ elim_, real_4 _p_ alim_)
18572 { // ** body not listed **
18589 }
18590 complex_8 _ccbrt (complex_8 _p_ z_)
18591 { // ** body not listed **
18600 }
18601 complex_8 _ccosh (complex_8 _p_ z_)
18602 { // ** body not listed **
18620 }
18621 complex_8 _ccot (complex_8 _p_ z_)
18622 { // ** body not listed **
18659 }
18660 complex_8 _cexprl (complex_8 _p_ z_)
18661 { // ** body not listed **
18705 }
18706 complex_8 _cgamma (complex_8 _p_ z_)
18707 { // ** body not listed **
18712 }
18713 complex_8 _cgamr (complex_8 _p_ z_)
18714 { // ** body not listed **
18732 }
18733 real_4 _chu (real_4 _p_ a_, real_4 _p_ b_, real_4 _p_ x_)
18734 { // ** body not listed **
18879 }
18880 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_,
18881 real_4 _p_ ascle_, real_4 _p_ tol_, real_4 _p_ elim_)
18882 { // ** body not listed **
19004 }
19005 complex_8 _clbeta (complex_8 _p_ a_, complex_8 _p_ b_)
19006 { // ** body not listed **
19016 }
19017 complex_8 _clngam (complex_8 _p_ zin_)
19018 { // ** body not listed **
19118 }
19119 complex_8 _clnrel (complex_8 _p_ z_)
19120 { // ** body not listed **
19156 }
19157 complex_8 _clog10 (complex_8 _p_ z_)
19158 { // ** body not listed **
19176 }
19177 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
19178 _p_ tol_)
19179 { // ** body not listed **
19347 }
19348 real_4 _cosdg (real_4 _p_ x_)
19349 { // ** body not listed **
19379 }
19380 real_4 _cot (real_4 _p_ x_)
19381 { // ** body not listed **
19558 }
19559 complex_8 _cpsi (complex_8 _p_ zin_)
19560 { // ** body not listed **
19803 }
19804 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
19805 _p_ tol_, real_4 _p_ elim_, real_4 _p_ alim_)
19806 { // ** body not listed **
19989 }
19990 real_4 _csevl (real_4 _p_ x_, real_4 _p_ cs_, int_4 _p_ n_)
19991 { // ** body not listed **
20033 }
20034 complex_8 _csinh (complex_8 _p_ z_)
20035 { // ** body not listed **
20053 }
20054 complex_8 _ctan (complex_8 _p_ z_)
20055 { // ** body not listed **
20092 }
20093 complex_8 _ctanh (complex_8 _p_ z_)
20094 { // ** body not listed **
20112 }
20113 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
20114 _p_ nlast_, real_4 _p_ fnul_, real_4 _p_ tol_, real_4 _p_ elim_, real_4 _p_ alim_)
20115 { // ** body not listed **
20306 }
20307 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
20308 _p_ nlast_, real_4 _p_ fnul_, real_4 _p_ tol_, real_4 _p_ elim_, real_4 _p_ alim_)
20309 { // ** body not listed **
20582 }
20583 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
20584 _p_ nz_, real_4 _p_ tol_, real_4 _p_ elim_, real_4 _p_ alim_)
20585 { // ** body not listed **
20984 }
20985 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
20986 _p_ nz_, real_4 _p_ tol_, real_4 _p_ elim_, real_4 _p_ alim_)
20987 { // ** body not listed **
21475 }
21476 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_,
21477 int_4 _p_ nuf_, real_4 _p_ tol_, real_4 _p_ elim_, real_4 _p_ alim_)
21478 { // ** body not listed **
21672 }
21673 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_,
21674 complex_8 _p_ cw_, real_4 _p_ tol_, real_4 _p_ elim_, real_4 _p_ alim_)
21675 { // ** body not listed **
21737 }
21738 int_4 _d9aimp (real_8 _p_ x_, real_8 _p_ ampl_, real_8 _p_ theta_)
21739 { // ** body not listed **
25969 }
25970 real_8 _d9atn1 (real_8 _p_ x_)
25971 { // ** body not listed **
26467 }
26468 int_4 _d9b0mp (real_8 _p_ x_, real_8 _p_ ampl_, real_8 _p_ theta_)
26469 { // ** body not listed **
28307 }
28308 int_4 _d9b1mp (real_8 _p_ x_, real_8 _p_ ampl_, real_8 _p_ theta_)
28309 { // ** body not listed **
30147 }
30148 real_8 _d9chu (real_8 _p_ a_, real_8 _p_ b_, real_8 _p_ z_)
30149 { // ** body not listed **
30214 }
30215 real_8 _d9gmic (real_8 _p_ a_, real_8 _p_ x_, real_8 _p_ alx_)
30216 { // ** body not listed **
30318 }
30319 real_8 _d9gmit (real_8 _p_ a_, real_8 _p_ x_, real_8 _p_ algap1_, real_8 _p_ sgngam_, real_8 _p_ alx_)
30320 { // ** body not listed **
30410 }
30411 int_4 _d9knus (real_8 _p_ xnu_, real_8 _p_ x_, real_8 _p_ bknu_, real_8 _p_ bknu1_, int_4 _p_ iswtch_)
30412 { // ** body not listed **
31165 }
31166 real_8 _d9lgic (real_8 _p_ a_, real_8 _p_ x_, real_8 _p_ alx_)
31167 { // ** body not listed **
31207 }
31208 real_8 _d9lgit (real_8 _p_ a_, real_8 _p_ x_, real_8 _p_ algap1_)
31209 { // ** body not listed **
31259 }
31260 real_8 _d9lgmc (real_8 _p_ x_)
31261 { // ** body not listed **
31471 }
31472 real_8 _d9ln2r (real_8 _p_ x_)
31473 { // ** body not listed **
32498 }
32499 real_8 _d9pak (real_8 _p_ y_, int_4 _p_ n_)
32500 { // ** body not listed **
32573 }
32574 int_4 _d9upak (real_8 _p_ x_, real_8 _p_ y_, int_4 _p_ n_)
32575 { // ** body not listed **
32600 }
32601 real_8 _dacosh (real_8 _p_ x_)
32602 { // ** body not listed **
32643 }
32644 real_8 _daie (real_8 _p_ x_)
32645 { // ** body not listed **
34047 }
34048 real_8 _dai (real_8 _p_ x_)
34049 { // ** body not listed **
34393 }
34394 real_8 _dasinh (real_8 _p_ x_)
34395 { // ** body not listed **
34886 }
34887 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_,
34888 real_8 _p_ wk_, int_4 _p_ iflw_)
34889 { // ** body not listed **
36970 }
36971 real_8 _datanh (real_8 _p_ x_)
36972 { // ** body not listed **
37314 }
37315 real_4 _daws (real_4 _p_ x_)
37316 { // ** body not listed **
38132 }
38133 real_8 _dbesi0 (real_8 _p_ x_)
38134 { // ** body not listed **
38377 }
38378 real_8 _dbesi1 (real_8 _p_ x_)
38379 { // ** body not listed **
38621 }
38622 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_)
38623 { // ** body not listed **
39113 }
39114 real_8 _dbesj0 (real_8 _p_ x_)
39115 { // ** body not listed **
39366 }
39367 real_8 _dbesj1 (real_8 _p_ x_)
39368 { // ** body not listed **
39629 }
39630 int_4 _dbesj (real_8 _p_ x_, real_8 _p_ alpha_, int_4 _p_ n_, real_8 _p_ y_, int_4 _p_ nz_)
39631 { // ** body not listed **
40225 }
40226 real_8 _dbesk0 (real_8 _p_ x_)
40227 { // ** body not listed **
40456 }
40457 real_8 _dbesk1 (real_8 _p_ x_)
40458 { // ** body not listed **
40692 }
40693 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_)
40694 { // ** body not listed **
40960 }
40961 int_4 _dbesks (real_8 _p_ xnu_, real_8 _p_ x_, int_4 _p_ nin_, real_8 _p_ bk_)
40962 { // ** body not listed **
40992 }
40993 real_8 _dbesy0 (real_8 _p_ x_)
40994 { // ** body not listed **
41260 }
41261 real_8 _dbesy1 (real_8 _p_ x_)
41262 { // ** body not listed **
41543 }
41544 int_4 _dbesy (real_8 _p_ x_, real_8 _p_ fnu_, int_4 _p_ n_, real_8 _p_ y_)
41545 { // ** body not listed **
41723 }
41724 real_8 _dbeta (real_8 _p_ a_, real_8 _p_ b_)
41725 { // ** body not listed **
41769 }
41770 real_8 _dbetai (real_8 _p_ x_, real_8 _p_ pin_, real_8 _p_ qin_)
41771 { // ** body not listed **
41888 }
41889 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_
41890 x1_, real_8 _p_ x2_, real_8 _p_ tol_, real_8 _p_ quad_, int_4 _p_ ierr_, real_8 _p_ work_)
41891 { // ** body not listed **
41970 }
41971 real_8 _dbie (real_8 _p_ x_)
41972 { // ** body not listed **
44197 }
44198 real_8 _dbi (real_8 _p_ x_)
44199 { // ** body not listed **
44882 }
44883 real_8 _dbinom (int_4 _p_ n_, int_4 _p_ m_)
44884 { // ** body not listed **
44965 }
44966 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_,
44967 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_)
44968 { // ** body not listed **
45118 }
45119 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_
45120 q_, real_8 _p_ work_)
45121 { // ** body not listed **
45206 }
45207 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_
45208 ms_, real_8 _p_ gmrn_, real_8 _p_ h_, int_4 _p_ ierr_)
45209 { // ** body not listed **
46092 }
46093 int_4 _dbkisr (real_8 _p_ x_, int_4 _p_ n_, real_8 _p_ sum_, int_4 _p_ ierr_)
46094 { // ** body not listed **
46179 }
46180 real_8 _dbsi0e (real_8 _p_ x_)
46181 { // ** body not listed **
47707 }
47708 real_8 _dbsi1e (real_8 _p_ x_)
47709 { // ** body not listed **
49236 }
49237 real_8 _dbsk0e (real_8 _p_ x_)
49238 { // ** body not listed **
50257 }
50258 real_8 _dbsk1e (real_8 _p_ x_)
50259 { // ** body not listed **
51282 }
51283 int_4 _dbskes (real_8 _p_ xnu_, real_8 _p_ x_, int_4 _p_ nin_, real_8 _p_ bke_)
51284 { // ** body not listed **
51347 }
51348 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_
51349 ierr_)
51350 { // ** body not listed **
51876 }
51877 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_)
51878 { // ** body not listed **
52324 }
52325 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_
52326 inev_, real_8 _p_ svalue_, real_8 _p_ work_)
52327 { // ** body not listed **
52400 }
52401 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_,
52402 int_4 _p_ lxi_, real_8 _p_ work_)
52403 { // ** body not listed **
52442 }
52443 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_,
52444 real_8 _p_ vnikx_, real_8 _p_ work_)
52445 { // ** body not listed **
52530 }
52531 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_
52532 bquad_, real_8 _p_ work_)
52533 { // ** body not listed **
52722 }
52723 int_4 _dbsynu (real_8 _p_ x_, real_8 _p_ fnu_, int_4 _p_ n_, real_8 _p_ y_)
52724 { // ** body not listed **
53133 }
53134 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_
53135 inbv_, real_8 _p_ work_)
53136 { // ** body not listed **
53239 }
53240 real_8 _dcbrt (real_8 _p_ x_)
53241 { // ** body not listed **
53335 }
53336 real_8 _dchu (real_8 _p_ a_, real_8 _p_ b_, real_8 _p_ x_)
53337 { // ** body not listed **
53485 }
53486 real_8 _dcosdg (real_8 _p_ x_)
53487 { // ** body not listed **
53518 }
53519 real_8 _dcot (real_8 _p_ x_)
53520 { // ** body not listed **
53777 }
53778 real_8 _dcsevl (real_8 _p_ x_, real_8 _p_ cs_, int_4 _p_ n_)
53779 { // ** body not listed **
53822 }
53823 real_8 _ddaws (real_8 _p_ x_)
53824 { // ** body not listed **
55455 }
55456 real_8 _de1 (real_8 _p_ x_)
55457 { // ** body not listed **
59089 }
59090 real_8 _dei (real_8 _p_ x_)
59091 { // ** body not listed **
59097 }
59098 real_8 _derfc (real_8 _p_ x_)
59099 { // ** body not listed **
60614 }
60615 real_8 _derf (real_8 _p_ x_)
60616 { // ** body not listed **
60907 }
60908 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_
60909 nz_, int_4 _p_ ierr_)
60910 { // ** body not listed **
61214 }
61215 real_8 _dexprl (real_8 _p_ x_)
61216 { // ** body not listed **
61260 }
61261 real_8 _dfac (int_4 _p_ n_)
61262 { // ** body not listed **
61657 }
61658 real_8 _dgamic (real_8 _p_ a_, real_8 _p_ x_)
61659 { // ** body not listed **
61782 }
61783 real_8 _dgami (real_8 _p_ a_, real_8 _p_ x_)
61784 { // ** body not listed **
61803 }
61804 real_8 _dgamit (real_8 _p_ a_, real_8 _p_ x_)
61805 { // ** body not listed **
61903 }
61904 int_4 _dgamlm (real_8 _p_ xmin_, real_8 _p_ xmax_)
61905 { // ** body not listed **
61941 }
61942 real_8 _dgamln (real_8 _p_ z_, int_4 _p_ ierr_)
61943 { // ** body not listed **
62683 }
62684 real_8 _dgamma (real_8 _p_ x_)
62685 { // ** body not listed **
63263 }
63264 real_8 _dgamr (real_8 _p_ x_)
63265 { // ** body not listed **
63290 }
63291 real_8 _dgamrn (real_8 _p_ x_)
63292 { // ** body not listed **
63415 }
63416 int_4 _dhkseq (real_8 _p_ x_, int_4 _p_ m_, real_8 _p_ h_, int_4 _p_ ierr_)
63417 { // ** body not listed **
63644 }
63645 real_8 _dlbeta (real_8 _p_ a_, real_8 _p_ b_)
63646 { // ** body not listed **
63686 }
63687 int_4 _dlgams (real_8 _p_ x_, real_8 _p_ dlgam_, real_8 _p_ sgngam_)
63688 { // ** body not listed **
63702 }
63703 real_8 _dli (real_8 _p_ x_)
63704 { // ** body not listed **
63717 }
63718 real_8 _dlngam (real_8 _p_ x_)
63719 { // ** body not listed **
63802 }
63803 real_8 _dlnrel (real_8 _p_ x_)
63804 { // ** body not listed **
64321 }
64322 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_
64323 id_, real_8 _p_ x1_, real_8 _p_ x2_, real_8 _p_ tol_, real_8 _p_ quad_, int_4 _p_ ierr_)
64324 { // ** body not listed **
64397 }
64398 real_8 _dpoch1 (real_8 _p_ a_, real_8 _p_ x_)
64399 { // ** body not listed **
64735 }
64736 real_8 _dpoch (real_8 _p_ a_, real_8 _p_ x_)
64737 { // ** body not listed **
64826 }
64827 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_
64828 x2_, real_8 _p_ pquad_)
64829 { // ** body not listed **
64900 }
64901 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
64902 _p_ x_, int_4 _p_ inppv_)
64903 { // ** body not listed **
64948 }
64949 real_8 _dpsi (real_8 _p_ x_)
64950 { // ** body not listed **
65683 }
65684 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_
65685 ierr_)
65686 { // ** body not listed **
66093 }
66094 real_8 _dsindg (real_8 _p_ x_)
66095 { // ** body not listed **
66126 }
66127 real_8 _dspenc (real_8 _p_ x_)
66128 { // ** body not listed **
66635 }
66636 real_4 _e1 (real_4 _p_ x_)
66637 { // ** body not listed **
68380 }
68381 real_4 _ei (real_4 _p_ x_)
68382 { // ** body not listed **
68388 }
68389 real_4 _erfc (real_4 _p_ x_)
68390 { // ** body not listed **
69135 }
69136 real_4 _erf (real_4 _p_ x_)
69137 { // ** body not listed **
69337 }
69338 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_
69339 nz_, int_4 _p_ ierr_)
69340 { // ** body not listed **
69636 }
69637 real_4 _exprel (real_4 _p_ x_)
69638 { // ** body not listed **
69681 }
69682 real_4 _fac (int_4 _p_ n_)
69683 { // ** body not listed **
70021 }
70022 int_4 _fundoc (void)
70023 { // ** body not listed **
70026 }
70027 real_4 _gamic (real_4 _p_ a_, real_4 _p_ x_)
70028 { // ** body not listed **
70152 }
70153 real_4 _gami (real_4 _p_ a_, real_4 _p_ x_)
70154 { // ** body not listed **
70172 }
70173 real_4 _gamit (real_4 _p_ a_, real_4 _p_ x_)
70174 { // ** body not listed **
70272 }
70273 int_4 _gamlim (real_4 _p_ xmin_, real_4 _p_ xmax_)
70274 { // ** body not listed **
70308 }
70309 real_4 _gamln (real_4 _p_ z_, int_4 _p_ ierr_)
70310 { // ** body not listed **
71050 }
71051 real_4 _gamma (real_4 _p_ x_)
71052 { // ** body not listed **
71416 }
71417 real_4 _gamr (real_4 _p_ x_)
71418 { // ** body not listed **
71442 }
71443 int_4 _initds (real_8 _p_ os_, int_4 _p_ nos_, real_4 _p_ eta_)
71444 { // ** body not listed **
71466 }
71467 int_4 _inits (real_4 _p_ os_, int_4 _p_ nos_, real_4 _p_ eta_)
71468 { // ** body not listed **
71490 }
71491 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_
71492 id_, real_4 _p_ x1_, real_4 _p_ x2_, real_4 _p_ tol_, real_4 _p_ quad_, int_4 _p_ ierr_)
71493 { // ** body not listed **
71566 }
71567 real_4 _poch1 (real_4 _p_ a_, real_4 _p_ x_)
71568 { // ** body not listed **
71781 }
71782 real_4 _poch (real_4 _p_ a_, real_4 _p_ x_)
71783 { // ** body not listed **
71870 }
71871 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_
71872 x2_, real_4 _p_ pquad_)
71873 { // ** body not listed **
71944 }
71945 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
71946 _p_ x_, int_4 _p_ inppv_)
71947 { // ** body not listed **
71991 }
71992 real_4 _psi (real_4 _p_ x_)
71993 { // ** body not listed **
72505 }
72506 int_4 _r9aimp (real_4 _p_ x_, real_4 _p_ ampl_, real_4 _p_ theta_)
72507 { // ** body not listed **
74136 }
74137 real_4 _r9atn1 (real_4 _p_ x_)
74138 { // ** body not listed **
74420 }
74421 real_4 _r9chu (real_4 _p_ a_, real_4 _p_ b_, real_4 _p_ z_)
74422 { // ** body not listed **
74487 }
74488 real_4 _r9gmic (real_4 _p_ a_, real_4 _p_ x_, real_4 _p_ alx_)
74489 { // ** body not listed **
74596 }
74597 real_4 _r9gmit (real_4 _p_ a_, real_4 _p_ x_, real_4 _p_ algap1_, real_4 _p_ sgngam_, real_4 _p_ alx_)
74598 { // ** body not listed **
74692 }
74693 int_4 _r9knus (real_4 _p_ xnu_, real_4 _p_ x_, real_4 _p_ bknu_, real_4 _p_ bknu1_, int_4 _p_ iswtch_)
74694 { // ** body not listed **
75210 }
75211 real_4 _r9lgic (real_4 _p_ a_, real_4 _p_ x_, real_4 _p_ alx_)
75212 { // ** body not listed **
75251 }
75252 real_4 _r9lgit (real_4 _p_ a_, real_4 _p_ x_, real_4 _p_ algap1_)
75253 { // ** body not listed **
75307 }
75308 real_4 _r9lgmc (real_4 _p_ x_)
75309 { // ** body not listed **
75417 }
75418 real_4 _r9ln2r (real_4 _p_ x_)
75419 { // ** body not listed **
75985 }
75986 real_4 _r9pak (real_4 _p_ y_, int_4 _p_ n_)
75987 { // ** body not listed **
76059 }
76060 int_4 _r9upak (real_4 _p_ x_, real_4 _p_ y_, int_4 _p_ n_)
76061 { // ** body not listed **
76086 }
76087 real_4 _rand (real_4 _p_ r_)
76088 { // ** body not listed **
76164 }
76165 real_4 _rgauss (real_4 _p_ xmean_, real_4 _p_ sd_)
76166 { // ** body not listed **
76177 }
76178 real_4 _runif (real_4 _p_ t_, int_4 _p_ n_)
76179 { // ** body not listed **
76217 }
76218 real_4 _sindg (real_4 _p_ x_)
76219 { // ** body not listed **
76249 }
76250 real_4 _spenc (real_4 _p_ x_)
76251 { // ** body not listed **
76543 }
76544 real_8 _zabs (real_8 _p_ zr_, real_8 _p_ zi_)
76545 { // ** body not listed **
76570 }
76571 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_
76572 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_)
76573 { // ** body not listed **
76668 }
76669 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_
76670 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_
76671 alim_)
76672 { // ** body not listed **
76905 }
76906 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
76907 _p_ nz_, int_4 _p_ ierr_)
76908 { // ** body not listed **
77252 }
77253 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
77254 _p_ yi_, int_4 _p_ nz_, real_8 _p_ rl_, real_8 _p_ tol_, real_8 _p_ elim_, real_8 _p_ alim_)
77255 { // ** body not listed **
77458 }
77459 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_
77460 cyr_, real_8 _p_ cyi_, int_4 _p_ nz_, int_4 _p_ ierr_)
77461 { // ** body not listed **
77658 }
77659 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
77660 _p_ cyi_, int_4 _p_ nz_, int_4 _p_ ierr_)
77661 { // ** body not listed **
77811 }
77812 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
77813 _p_ cyi_, int_4 _p_ nz_, int_4 _p_ ierr_)
77814 { // ** body not listed **
77947 }
77948 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
77949 _p_ cyi_, int_4 _p_ nz_, int_4 _p_ ierr_)
77950 { // ** body not listed **
78099 }
78100 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
78101 _p_ cyi_, int_4 _p_ nz_, real_8 _p_ cwrkr_, real_8 _p_ cwrki_, int_4 _p_ ierr_)
78102 { // ** body not listed **
78214 }
78215 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
78216 _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_)
78217 { // ** body not listed **
78349 }
78350 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
78351 _p_ ierr_)
78352 { // ** body not listed **
78648 }
78649 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
78650 _p_ yi_, int_4 _p_ nz_, real_8 _p_ tol_, real_8 _p_ elim_, real_8 _p_ alim_)
78651 { // ** body not listed **
79360 }
79361 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
79362 _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
79363 _p_ alim_)
79364 { // ** body not listed **
79532 }
79533 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_
79534 yr_, real_8 _p_ yi_, int_4 _p_ nz_, real_8 _p_ tol_, real_8 _p_ elim_, real_8 _p_ alim_)
79535 { // ** body not listed **
79550 }
79551 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_)
79552 { // ** body not listed **
79563 }
79564 int_4 _zexp (real_8 _p_ ar_, real_8 _p_ ai_, real_8 _p_ br_, real_8 _p_ bi_)
79565 { // ** body not listed **
79574 }
79575 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
79576 _p_ nz_, real_8 _p_ rzr_, real_8 _p_ rzi_, real_8 _p_ ascle_, real_8 _p_ tol_, real_8 _p_ elim_)
79577 { // ** body not listed **
79721 }
79722 int_4 _zlog (real_8 _p_ ar_, real_8 _p_ ai_, real_8 _p_ br_, real_8 _p_ bi_, int_4 _p_ ierr_)
79723 { // ** body not listed **
79792 }
79793 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
79794 _p_ yi_, int_4 _p_ nz_, real_8 _p_ tol_)
79795 { // ** body not listed **
80015 }
80016 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_)
80017 { // ** body not listed **
80025 }
80026 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
80027 _p_ tol_)
80028 { // ** body not listed **
80182 }
80183 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_,
80184 int_4 _p_ nz_, real_8 _p_ ascle_, real_8 _p_ alim_, int_4 _p_ iuf_)
80185 { // ** body not listed **
80243 }
80244 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
80245 _p_ yi_, int_4 _p_ nz_, real_8 _p_ tol_, real_8 _p_ elim_, real_8 _p_ alim_)
80246 { // ** body not listed **
80474 }
80475 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_)
80476 { // ** body not listed **
80488 }
80489 int_4 _zsqrt (real_8 _p_ ar_, real_8 _p_ ai_, real_8 _p_ br_, real_8 _p_ bi_)
80490 { // ** body not listed **
80565 }
80566 int_4 _zuchk (real_8 _p_ yr_, real_8 _p_ yi_, int_4 _p_ nz_, real_8 _p_ ascle_, real_8 _p_ tol_)
80567 { // ** body not listed **
80584 }
80585 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_,
80586 real_8 _p_ phii_, real_8 _p_ argr_, real_8 _p_ argi_, real_8 _p_ zeta1r_, real_8 _p_ zeta1i_, real_8 _p_ zeta2r_,
80587 real_8 _p_ zeta2i_, real_8 _p_ asumr_, real_8 _p_ asumi_, real_8 _p_ bsumr_, real_8 _p_ bsumi_)
80588 { // ** body not listed **
83914 }
83915 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
83916 _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_)
83917 { // ** body not listed **
84145 }
84146 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
84147 _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_)
84148 { // ** body not listed **
84486 }
84487 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_,
84488 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
84489 _p_ zeta2i_, real_8 _p_ sumr_, real_8 _p_ sumi_, real_8 _p_ cwrkr_, real_8 _p_ cwrki_)
84490 { // ** body not listed **
85274 }
85275 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_
85276 yr_, real_8 _p_ yi_, int_4 _p_ nz_, real_8 _p_ tol_, real_8 _p_ elim_, real_8 _p_ alim_)
85277 { // ** body not listed **
85759 }
85760 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_
85761 yr_, real_8 _p_ yi_, int_4 _p_ nz_, real_8 _p_ tol_, real_8 _p_ elim_, real_8 _p_ alim_)
85762 { // ** body not listed **
86386 }
86387 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
86388 _p_ yr_, real_8 _p_ yi_, int_4 _p_ nuf_, real_8 _p_ tol_, real_8 _p_ elim_, real_8 _p_ alim_)
86389 { // ** body not listed **
86622 }
86623 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
86624 _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_)
86625 { // ** body not listed **
86703 }
|
© 2002-2025 J.M. van der Veer (jmvdveer@xs4all.nl)
|
