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