mathlib-odrpack.c
1 //! @file mathlib-odrpack.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 //! 63 subprograms from ODRPACK
24
25 // Compiled from Fortran source code by VIF.
26 // Selected subprograms are:
27 //
28 // DACCES DC_89 DHSTEP DJCKC DMPREC DODPC1 DODPE3 DODVCV DSCALE DVEVTR
29 // DC_106 DESUBI DIFIX DJCKF DODCHK DODPC2 DODPER DPACK DSCLB DWGHT
30 // DC_161 DETAF DINIWK DJCKM DODCNT DODPC3 DODPHD DPPNML DSCLD DWINF
31 // DC_179 DEVJAC DIWINF DJCKZ DODDRV DODPCR DODR DPPT DSETN DXMY
32 // DC_190 DFCTR DJACCD DLUNC DODLM DODPE1 DODRC DPVB DSOLVE DXPY
33 // DC_396 DFCTRW DJACFD DLUNO DODMN DODPE2 DODSTP DPVD DUNPAC DZERO
34 // DC_65 DFLAGS DJCK
35
36 // ODRPACK 2.01 -- Software for Weighted Orthogonal Distance Regression
37 //
38 // ODRPACK originates from the National Institute of Standards and Technology.
39 // The source code for ODRPACK was retrieved from:
40 //
41 // netlib.org/odrpack
42 //
43 // ODRPACK currently lives on for instance in Python library scipy.odr.
44 //
45 // VIF only includes the double precision version of ODRPACK.
46 //
47 // The code needed trivial adaptation for use with VIF - the only modification
48 // needed was to replace the variable name 'UNIT' that is a reserved word in VIF,
49 // with 'FILENO'.
50 //
51
52 // The license for ODRPACK Fortran source code is:
53 //
54 // NIST-developed software is provided by NIST as a public service. You may use,
55 // copy and distribute copies of the software in any medium, provided that you
56 // keep intact this entire notice. You may improve, modify and create derivative
57 // works of the software or any portion of the software, and you may copy and
58 // distribute such modifications or works. Modified works should carry a notice
59 // stating that you changed the software and should note the date and nature of
60 // any such change. Please explicitly acknowledge the National Institute of
61 // Standards and Technology as the source of the software.
62 //
63 // NIST-developed software is expressly provided "AS IS." NIST MAKES NO WARRANTY
64 // OF ANY KIND, EXPRESS, IMPLIED, IN FACT OR ARISING BY OPERATION OF LAW,
65 // INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTY OF MERCHANTABILITY, FITNESS
66 // FOR A PARTICULAR PURPOSE, NON-INFRINGEMENT AND DATA ACCURACY. NIST NEITHER
67 // REPRESENTS NOR WARRANTS THAT THE OPERATION OF THE SOFTWARE WILL BE
68 // UNINTERRUPTED OR ERROR-FREE, OR THAT ANY DEFECTS WILL BE CORRECTED. NIST DOES
69 // NOT WARRANT OR MAKE ANY REPRESENTATIONS REGARDING THE USE OF THE SOFTWARE OR
70 // THE RESULTS THEREOF, INCLUDING BUT NOT LIMITED TO THE CORRECTNESS, ACCURACY,
71 // RELIABILITY, OR USEFULNESS OF THE SOFTWARE.
72 //
73 // You are solely responsible for determining the appropriateness of using and
74 // distributing the software and you assume all risks associated with its use,
75 // including but not limited to the risks and costs of program errors, compliance
76 // with applicable laws, damage to or loss of data, programs or equipment, and the
77 // unavailability or interruption of operation. This software is not intended to
78 // be used in any situation where a failure could cause risk of injury or damage
79 // to property. The software developed by NIST employees is not subject to
80 // copyright protection within the United States.
81
82 /*
83 Generated by VIF - experimental VIntage Fortran compiler.
84 VIF release 1.2.17
85 */
86 #if defined (__GNUC__)
87 #pragma GCC diagnostic ignored "-Wimplicit-function-declaration"
88 #pragma GCC diagnostic ignored "-Wincompatible-pointer-types"
89 #if (__GNUC__ >= 14)
90 #pragma GCC diagnostic ignored "-Wdeclaration-missing-parameter-type"
91 #pragma GCC diagnostic ignored "-Wimplicit-int"
92 #pragma GCC diagnostic ignored "-Wint-conversion"
93 #pragma GCC diagnostic ignored "-Wreturn-mismatch"
94 #endif
95 #else
96 #error VIF requires GCC
97 #endif
564 static CALLS __calls[__ncalls] = {
565 {"dacces", 0}, // subroutine
566 {"desubi", 0}, // subroutine
567 {"detaf", 0}, // subroutine
568 {"devjac", 0}, // subroutine
569 {"dfctr", 0}, // subroutine
570 {"dfctrw", 0}, // subroutine
571 {"dflags", 0}, // subroutine
572 {"dhstep", 0}, // real*8 function
573 {"difix", 0}, // subroutine
574 {"diniwk", 0}, // subroutine
575 {"diwinf", 0}, // subroutine
576 {"djaccd", 0}, // subroutine
577 {"djacfd", 0}, // subroutine
578 {"djckc", 0}, // subroutine
579 {"djck", 0}, // subroutine
580 {"djckf", 0}, // subroutine
581 {"djckm", 0}, // subroutine
582 {"djckz", 0}, // subroutine
583 {"dluno", 0}, // subroutine
584 {"dlunc", 0}, // subroutine
585 {"dmprec", 0}, // real*8 function
586 {"dodchk", 0}, // subroutine
587 {"dodcnt", 0}, // subroutine
588 {"doddrv", 0}, // subroutine
589 {"dodlm", 0}, // subroutine
590 {"dodmn", 0}, // subroutine
591 {"dodpc1", 0}, // subroutine
592 {"dodpc2", 0}, // subroutine
593 {"dodpc3", 0}, // subroutine
594 {"dodpcr", 0}, // subroutine
595 {"dodpe1", 0}, // subroutine
596 {"dodpe2", 0}, // subroutine
597 {"dodpe3", 0}, // subroutine
598 {"dodper", 0}, // subroutine
599 {"dodphd", 0}, // subroutine
600 {"dodrc", 0}, // subroutine
601 {"dodr", 0}, // subroutine
602 {"dodstp", 0}, // subroutine
603 {"dodvcv", 0}, // subroutine
604 {"dpack", 0}, // subroutine
605 {"dppnml", 0}, // real*8 function
606 {"dppt", 0}, // real*8 function
607 {"dpvb", 0}, // subroutine
608 {"dpvd", 0}, // subroutine
609 {"dscale", 0}, // subroutine
610 {"dsclb", 0}, // subroutine
611 {"dscld", 0}, // subroutine
612 {"dsetn", 0}, // subroutine
613 {"dsolve", 0}, // subroutine
614 {"dunpac", 0}, // subroutine
615 {"dvevtr", 0}, // subroutine
616 {"dwght", 0}, // subroutine
617 {"dwinf", 0}, // subroutine
618 {"dxmy", 0}, // subroutine
619 {"dxpy", 0}, // subroutine
620 {"dzero", 0}, // subroutine
621 {NULL, 0}
622 };
623
625 real_8 _p_ work_, int_4 _p_ lwork_, int_4 _p_ iwork_, int_4 _p_ liwork_, logical_4 _p_ access_, logical_4 _p_ isodr_,
626 int_4 _p_ jpvt_, int_4 _p_ omega_, int_4 _p_ u_, int_4 _p_ qraux_, int_4 _p_ sd_, int_4 _p_ vcv_, int_4 _p_ wrk1_,
627 int_4 _p_ wrk2_, int_4 _p_ wrk3_, int_4 _p_ wrk4_, int_4 _p_ wrk5_, int_4 _p_ wrk6_, int_4 _p_ nnzw_, int_4 _p_ npp_,
628 int_4 _p_ job_, real_8 _p_ partol_, real_8 _p_ sstol_, int_4 _p_ maxit_, real_8 _p_ taufac_, real_8 _p_ eta_, int_4 _p_
629 neta_, int_4 _p_ lunrpt_, int_4 _p_ ipr1_, int_4 _p_ ipr2_, int_4 _p_ ipr2f_, int_4 _p_ ipr3_, real_8 _p_ wss_, real_8
630 _p_ rvar_, int_4 _p_ idf_, real_8 _p_ tau_, real_8 _p_ alpha_, int_4 _p_ niter_, int_4 _p_ nfev_, int_4 _p_ njev_,
631 int_4 _p_ int2_, real_8 _p_ olmavg_, real_8 _p_ rcond_, int_4 _p_ irank_, real_8 _p_ actrs_, real_8 _p_ pnorm_, real_8
632 _p_ prers_, real_8 _p_ rnorms_, int_4 _p_ istop_);
634 alpha_, real_8 _p_ tt_, int_4 _p_ ldtt_, int_4 _p_ i_, real_8 _p_ e_);
636 real_8 _p_ beta_, real_8 _p_ epsmac_, int_4 _p_ nrow_, real_8 _p_ partmp_, real_8 _p_ pv0_, int_4 _p_ ifixb_, int_4 _p_
637 ifixx_, int_4 _p_ ldifx_, int_4 _p_ istop_, int_4 _p_ nfev_, real_8 _p_ eta_, int_4 _p_ neta_, real_8 _p_ wrk1_, real_8
638 _p_ wrk2_, real_8 _p_ wrk6_, real_8 _p_ wrk7_);
640 int_4 _p_ np_, int_4 _p_ nq_, real_8 _p_ betac_, real_8 _p_ beta_, real_8 _p_ stpb_, int_4 _p_ ifixb_, int_4 _p_ ifixx_
641 , int_4 _p_ ldifx_, real_8 _p_ x_, int_4 _p_ ldx_, real_8 _p_ delta_, real_8 _p_ xplusd_, real_8 _p_ stpd_, int_4 _p_
642 ldstpd_, real_8 _p_ ssf_, real_8 _p_ tt_, int_4 _p_ ldtt_, int_4 _p_ neta_, real_8 _p_ fn_, real_8 _p_ stp_, real_8 _p_
643 wrk1_, real_8 _p_ wrk2_, real_8 _p_ wrk3_, real_8 _p_ wrk6_, real_8 _p_ fjacb_, logical_4 _p_ isodr_, real_8 _p_ fjacd_
644 , real_8 _p_ we1_, int_4 _p_ ldwe_, int_4 _p_ ld2we_, int_4 _p_ njev_, int_4 _p_ nfev_, int_4 _p_ istop_, int_4 _p_
645 info_);
648 we_, int_4 _p_ ldwe_, int_4 _p_ ld2we_, real_8 _p_ wd_, int_4 _p_ ldwd_, int_4 _p_ ld2wd_, real_8 _p_ wrk0_, real_8 _p_
649 wrk4_, real_8 _p_ we1_, int_4 _p_ nnzw_, int_4 _p_ info_);
651 _p_ redoj_, logical_4 _p_ anajac_, logical_4 _p_ cdjac_, logical_4 _p_ chkjac_, logical_4 _p_ isodr_, logical_4 _p_
652 implct_);
654 ldstp_);
656 real_8 _p_ tfix_, int_4 _p_ ldtfix_);
658 iwork_, int_4 _p_ liwork_, real_8 _p_ x_, int_4 _p_ ldx_, int_4 _p_ ifixx_, int_4 _p_ ldifx_, real_8 _p_ scld_, int_4
659 _p_ ldscld_, real_8 _p_ beta_, real_8 _p_ sclb_, real_8 _p_ sstol_, real_8 _p_ partol_, int_4 _p_ maxit_, real_8 _p_
660 taufac_, int_4 _p_ job_, int_4 _p_ iprint_, int_4 _p_ lunerr_, int_4 _p_ lunrpt_, int_4 _p_ epsmai_, int_4 _p_ sstoli_,
661 int_4 _p_ partli_, int_4 _p_ maxiti_, int_4 _p_ taufci_, int_4 _p_ jobi_, int_4 _p_ iprini_, int_4 _p_ luneri_, int_4
662 _p_ lunrpi_, int_4 _p_ ssfi_, int_4 _p_ tti_, int_4 _p_ ldtti_, int_4 _p_ deltai_);
664 ifix2i_, int_4 _p_ istopi_, int_4 _p_ nnzwi_, int_4 _p_ nppi_, int_4 _p_ idfi_, int_4 _p_ jobi_, int_4 _p_ iprini_,
665 int_4 _p_ luneri_, int_4 _p_ lunrpi_, int_4 _p_ nrowi_, int_4 _p_ ntoli_, int_4 _p_ netai_, int_4 _p_ maxiti_, int_4
666 _p_ niteri_, int_4 _p_ nfevi_, int_4 _p_ njevi_, int_4 _p_ int2i_, int_4 _p_ iranki_, int_4 _p_ ldtti_, int_4 _p_
667 liwkmn_);
669 real_8 _p_ x_, int_4 _p_ ldx_, real_8 _p_ delta_, real_8 _p_ xplusd_, int_4 _p_ ifixb_, int_4 _p_ ifixx_, int_4 _p_
670 ldifx_, real_8 _p_ stpb_, real_8 _p_ stpd_, int_4 _p_ ldstpd_, real_8 _p_ ssf_, real_8 _p_ tt_, int_4 _p_ ldtt_, int_4
671 _p_ neta_, real_8 _p_ stp_, real_8 _p_ wrk1_, real_8 _p_ wrk2_, real_8 _p_ wrk3_, real_8 _p_ wrk6_, real_8 _p_ fjacb_,
672 logical_4 _p_ isodr_, real_8 _p_ fjacd_, int_4 _p_ nfev_, int_4 _p_ istop_);
674 real_8 _p_ x_, int_4 _p_ ldx_, real_8 _p_ delta_, real_8 _p_ xplusd_, int_4 _p_ ifixb_, int_4 _p_ ifixx_, int_4 _p_
675 ldifx_, real_8 _p_ stpb_, real_8 _p_ stpd_, int_4 _p_ ldstpd_, real_8 _p_ ssf_, real_8 _p_ tt_, int_4 _p_ ldtt_, int_4
676 _p_ neta_, real_8 _p_ fn_, real_8 _p_ stp_, real_8 _p_ wrk1_, real_8 _p_ wrk2_, real_8 _p_ wrk3_, real_8 _p_ wrk6_,
677 real_8 _p_ fjacb_, logical_4 _p_ isodr_, real_8 _p_ fjacd_, int_4 _p_ nfev_, int_4 _p_ istop_);
679 real_8 _p_ xplusd_, int_4 _p_ ifixb_, int_4 _p_ ifixx_, int_4 _p_ ldifx_, real_8 _p_ eta_, real_8 _p_ tol_, int_4 _p_
680 nrow_, real_8 _p_ epsmac_, int_4 _p_ j_, int_4 _p_ lq_, real_8 _p_ hc_, logical_4 _p_ iswrtb_, real_8 _p_ fd_, real_8
681 _p_ typj_, real_8 _p_ pvpstp_, real_8 _p_ stp0_, real_8 _p_ pv_, real_8 _p_ d_, real_8 _p_ diffj_, int_4 _p_ msg_,
682 int_4 _p_ istop_, int_4 _p_ nfev_, real_8 _p_ wrk1_, real_8 _p_ wrk2_, real_8 _p_ wrk6_);
684 real_8 _p_ xplusd_, int_4 _p_ ifixb_, int_4 _p_ ifixx_, int_4 _p_ ldifx_, real_8 _p_ stpb_, real_8 _p_ stpd_, int_4 _p_
685 ldstpd_, real_8 _p_ ssf_, real_8 _p_ tt_, int_4 _p_ ldtt_, real_8 _p_ eta_, int_4 _p_ neta_, int_4 _p_ ntol_, int_4 _p_
686 nrow_, logical_4 _p_ isodr_, real_8 _p_ epsmac_, real_8 _p_ pv0_, real_8 _p_ fjacb_, real_8 _p_ fjacd_, int_4 _p_ msgb_
687 , int_4 _p_ msgd_, real_8 _p_ diff_, int_4 _p_ istop_, int_4 _p_ nfev_, int_4 _p_ njev_, real_8 _p_ wrk1_, real_8 _p_
688 wrk2_, real_8 _p_ wrk6_);
690 real_8 _p_ xplusd_, int_4 _p_ ifixb_, int_4 _p_ ifixx_, int_4 _p_ ldifx_, real_8 _p_ eta_, real_8 _p_ tol_, int_4 _p_
691 nrow_, int_4 _p_ j_, int_4 _p_ lq_, logical_4 _p_ iswrtb_, real_8 _p_ fd_, real_8 _p_ typj_, real_8 _p_ pvpstp_, real_8
692 _p_ stp0_, real_8 _p_ curve_, real_8 _p_ pv_, real_8 _p_ d_, real_8 _p_ diffj_, int_4 _p_ msg_, int_4 _p_ istop_, int_4
693 _p_ nfev_, real_8 _p_ wrk1_, real_8 _p_ wrk2_, real_8 _p_ wrk6_);
695 real_8 _p_ xplusd_, int_4 _p_ ifixb_, int_4 _p_ ifixx_, int_4 _p_ ldifx_, real_8 _p_ eta_, real_8 _p_ tol_, int_4 _p_
696 nrow_, real_8 _p_ epsmac_, int_4 _p_ j_, int_4 _p_ lq_, real_8 _p_ typj_, real_8 _p_ h0_, real_8 _p_ hc0_, logical_4
697 _p_ iswrtb_, real_8 _p_ pv_, real_8 _p_ d_, real_8 _p_ diffj_, int_4 _p_ msg1_, int_4 _p_ msg_, int_4 _p_ istop_, int_4
698 _p_ nfev_, real_8 _p_ wrk1_, real_8 _p_ wrk2_, real_8 _p_ wrk6_);
700 real_8 _p_ xplusd_, int_4 _p_ ifixb_, int_4 _p_ ifixx_, int_4 _p_ ldifx_, int_4 _p_ nrow_, real_8 _p_ epsmac_, int_4
701 _p_ j_, int_4 _p_ lq_, logical_4 _p_ iswrtb_, real_8 _p_ tol_, real_8 _p_ d_, real_8 _p_ fd_, real_8 _p_ typj_, real_8
702 _p_ pvpstp_, real_8 _p_ stp0_, real_8 _p_ pv_, real_8 _p_ diffj_, int_4 _p_ msg_, int_4 _p_ istop_, int_4 _p_ nfev_,
703 real_8 _p_ wrk1_, real_8 _p_ wrk2_, real_8 _p_ wrk6_);
708 anajac_, logical_4 _p_ implct_, int_4 _p_ ifixb_, int_4 _p_ ldx_, int_4 _p_ ldifx_, int_4 _p_ ldscld_, int_4 _p_
709 ldstpd_, int_4 _p_ ldwe_, int_4 _p_ ld2we_, int_4 _p_ ldwd_, int_4 _p_ ld2wd_, int_4 _p_ ldy_, int_4 _p_ lwork_, int_4
710 _p_ lwkmn_, int_4 _p_ liwork_, int_4 _p_ liwkmn_, real_8 _p_ sclb_, real_8 _p_ scld_, real_8 _p_ stpb_, real_8 _p_
711 stpd_, int_4 _p_ info_);
713 nq_, real_8 _p_ beta_, real_8 _p_ y_, int_4 _p_ ldy_, real_8 _p_ x_, int_4 _p_ ldx_, real_8 _p_ we_, int_4 _p_ ldwe_,
714 int_4 _p_ ld2we_, real_8 _p_ wd_, int_4 _p_ ldwd_, int_4 _p_ ld2wd_, int_4 _p_ ifixb_, int_4 _p_ ifixx_, int_4 _p_
715 ldifx_, int_4 _p_ job_, int_4 _p_ ndigit_, real_8 _p_ taufac_, real_8 _p_ sstol_, real_8 _p_ partol_, int_4 _p_ maxit_,
716 int_4 _p_ iprint_, int_4 _p_ lunerr_, int_4 _p_ lunrpt_, real_8 _p_ stpb_, real_8 _p_ stpd_, int_4 _p_ ldstpd_, real_8
717 _p_ sclb_, real_8 _p_ scld_, int_4 _p_ ldscld_, real_8 _p_ work_, int_4 _p_ lwork_, int_4 _p_ iwork_, int_4 _p_ liwork_
718 , int_4 _p_ info_);
720 (*_fcn)(), int_4 _p_ n_, int_4 _p_ m_, int_4 _p_ np_, int_4 _p_ nq_, real_8 _p_ beta_, real_8 _p_ y_, int_4 _p_ ldy_,
721 real_8 _p_ x_, int_4 _p_ ldx_, real_8 _p_ we_, int_4 _p_ ldwe_, int_4 _p_ ld2we_, real_8 _p_ wd_, int_4 _p_ ldwd_,
722 int_4 _p_ ld2wd_, int_4 _p_ ifixb_, int_4 _p_ ifixx_, int_4 _p_ ldifx_, int_4 _p_ job_, int_4 _p_ ndigit_, real_8 _p_
723 taufac_, real_8 _p_ sstol_, real_8 _p_ partol_, int_4 _p_ maxit_, int_4 _p_ iprint_, int_4 _p_ lunerr_, int_4 _p_
724 lunrpt_, real_8 _p_ stpb_, real_8 _p_ stpd_, int_4 _p_ ldstpd_, real_8 _p_ sclb_, real_8 _p_ scld_, int_4 _p_ ldscld_,
725 real_8 _p_ work_, int_4 _p_ lwork_, int_4 _p_ iwork_, int_4 _p_ liwork_, int_4 _p_ maxit1_, real_8 _p_ tstimp_, int_4
726 _p_ info_);
728 _p_ fjacb_, real_8 _p_ fjacd_, real_8 _p_ wd_, int_4 _p_ ldwd_, int_4 _p_ ld2wd_, real_8 _p_ ss_, real_8 _p_ tt_, int_4
729 _p_ ldtt_, real_8 _p_ delta_, real_8 _p_ alpha2_, real_8 _p_ tau_, real_8 _p_ epsfcn_, logical_4 _p_ isodr_, real_8 _p_
730 tfjacb_, real_8 _p_ omega_, real_8 _p_ u_, real_8 _p_ qraux_, int_4 _p_ jpvt_, real_8 _p_ s_, real_8 _p_ t_, int_4 _p_
731 nlms_, real_8 _p_ rcond_, int_4 _p_ irank_, real_8 _p_ wrk1_, real_8 _p_ wrk2_, real_8 _p_ wrk3_, real_8 _p_ wrk4_,
732 real_8 _p_ wrk5_, real_8 _p_ wrk_, int_4 _p_ lwrk_, int_4 _p_ istopc_);
734 n_, int_4 _p_ m_, int_4 _p_ np_, int_4 _p_ nq_, int_4 _p_ job_, real_8 _p_ beta_, real_8 _p_ y_, int_4 _p_ ldy_, real_8
735 _p_ x_, int_4 _p_ ldx_, real_8 _p_ we_, real_8 _p_ we1_, int_4 _p_ ldwe_, int_4 _p_ ld2we_, real_8 _p_ wd_, int_4 _p_
736 ldwd_, int_4 _p_ ld2wd_, int_4 _p_ ifixb_, int_4 _p_ ifixx_, int_4 _p_ ldifx_, real_8 _p_ betac_, real_8 _p_ betan_,
737 real_8 _p_ betas_, real_8 _p_ s_, real_8 _p_ delta_, real_8 _p_ deltan_, real_8 _p_ deltas_, real_8 _p_ t_, real_8 _p_
738 f_, real_8 _p_ fn_, real_8 _p_ fs_, real_8 _p_ fjacb_, int_4 _p_ msgb_, real_8 _p_ fjacd_, int_4 _p_ msgd_, real_8 _p_
739 ssf_, real_8 _p_ ss_, real_8 _p_ tt_, int_4 _p_ ldtt_, real_8 _p_ stpb_, real_8 _p_ stpd_, int_4 _p_ ldstpd_, real_8
740 _p_ xplusd_, real_8 _p_ wrk_, int_4 _p_ lwrk_, real_8 _p_ work_, int_4 _p_ lwork_, int_4 _p_ iwork_, int_4 _p_ liwork_,
741 int_4 _p_ info_);
743 chkjac_, logical_4 _p_ initd_, logical_4 _p_ restrt_, logical_4 _p_ isodr_, logical_4 _p_ implct_, logical_4 _p_ dovcv_
744 , logical_4 _p_ redoj_, int_4 _p_ msgb1_, int_4 _p_ msgb_, int_4 _p_ msgd1_, int_4 _p_ msgd_, int_4 _p_ n_, int_4 _p_
745 m_, int_4 _p_ np_, int_4 _p_ nq_, int_4 _p_ npp_, int_4 _p_ nnzw_, real_8 _p_ x_, int_4 _p_ ldx_, int_4 _p_ ifixx_,
746 int_4 _p_ ldifx_, real_8 _p_ delta_, real_8 _p_ wd_, int_4 _p_ ldwd_, int_4 _p_ ld2wd_, real_8 _p_ tt_, int_4 _p_ ldtt_
747 , real_8 _p_ stpd_, int_4 _p_ ldstpd_, real_8 _p_ y_, int_4 _p_ ldy_, real_8 _p_ we_, int_4 _p_ ldwe_, int_4 _p_ ld2we_
748 , real_8 _p_ pnlty_, real_8 _p_ beta_, int_4 _p_ ifixb_, real_8 _p_ ssf_, real_8 _p_ stpb_, int_4 _p_ job_, int_4 _p_
749 neta_, real_8 _p_ taufac_, real_8 _p_ sstol_, real_8 _p_ partol_, int_4 _p_ maxit_, real_8 _p_ wss_, real_8 _p_ wssdel_
750 , real_8 _p_ wsseps_);
752 prtpen_, real_8 _p_ pnlty_, int_4 _p_ niter_, int_4 _p_ nfev_, real_8 _p_ wss_, real_8 _p_ actred_, real_8 _p_ prered_,
753 real_8 _p_ alpha_, real_8 _p_ tau_, real_8 _p_ pnorm_, int_4 _p_ np_, real_8 _p_ beta_);
755 didvcv_, logical_4 _p_ dovcv_, logical_4 _p_ redoj_, logical_4 _p_ anajac_, int_4 _p_ n_, int_4 _p_ m_, int_4 _p_ np_,
756 int_4 _p_ nq_, int_4 _p_ npp_, int_4 _p_ info_, int_4 _p_ niter_, int_4 _p_ nfev_, int_4 _p_ njev_, int_4 _p_ irank_,
757 real_8 _p_ rcond_, int_4 _p_ istop_, real_8 _p_ wss_, real_8 _p_ wssdel_, real_8 _p_ wsseps_, real_8 _p_ pnlty_, real_8
758 _p_ rvar_, int_4 _p_ idf_, real_8 _p_ beta_, real_8 _p_ sdbeta_, int_4 _p_ ifixb2_, real_8 _p_ f_, real_8 _p_ delta_);
760 fstitr_, logical_4 _p_ didvcv_, int_4 _p_ iflag_, int_4 _p_ n_, int_4 _p_ m_, int_4 _p_ np_, int_4 _p_ nq_, int_4 _p_
761 npp_, int_4 _p_ nnzw_, int_4 _p_ msgb_, int_4 _p_ msgd_, real_8 _p_ beta_, real_8 _p_ y_, int_4 _p_ ldy_, real_8 _p_ x_
762 , int_4 _p_ ldx_, real_8 _p_ delta_, real_8 _p_ we_, int_4 _p_ ldwe_, int_4 _p_ ld2we_, real_8 _p_ wd_, int_4 _p_ ldwd_
763 , int_4 _p_ ld2wd_, int_4 _p_ ifixb_, int_4 _p_ ifixx_, int_4 _p_ ldifx_, real_8 _p_ ssf_, real_8 _p_ tt_, int_4 _p_
764 ldtt_, real_8 _p_ stpb_, real_8 _p_ stpd_, int_4 _p_ ldstpd_, int_4 _p_ job_, int_4 _p_ neta_, real_8 _p_ taufac_,
765 real_8 _p_ sstol_, real_8 _p_ partol_, int_4 _p_ maxit_, real_8 _p_ wss_, real_8 _p_ rvar_, int_4 _p_ idf_, real_8 _p_
766 sdbeta_, int_4 _p_ niter_, int_4 _p_ nfev_, int_4 _p_ njev_, real_8 _p_ actred_, real_8 _p_ prered_, real_8 _p_ tau_,
767 real_8 _p_ pnorm_, real_8 _p_ alpha_, real_8 _p_ f_, real_8 _p_ rcond_, int_4 _p_ irank_, int_4 _p_ info_, int_4 _p_
768 istop_);
770 int_4 _p_ n_, int_4 _p_ m_, int_4 _p_ nq_, int_4 _p_ ldscld_, int_4 _p_ ldstpd_, int_4 _p_ ldwe_, int_4 _p_ ld2we_,
771 int_4 _p_ ldwd_, int_4 _p_ ld2wd_, int_4 _p_ lwkmn_, int_4 _p_ liwkmn_);
773 , real_8 _p_ fjacd_, real_8 _p_ diff_, int_4 _p_ msgb1_, int_4 _p_ msgb_, logical_4 _p_ isodr_, int_4 _p_ msgd1_, int_4
774 _p_ msgd_, real_8 _p_ xplusd_, int_4 _p_ nrow_, int_4 _p_ neta_, int_4 _p_ ntol_);
777 _p_ np_, int_4 _p_ nq_, int_4 _p_ ldscld_, int_4 _p_ ldstpd_, int_4 _p_ ldwe_, int_4 _p_ ld2we_, int_4 _p_ ldwd_, int_4
778 _p_ ld2wd_, int_4 _p_ lwkmn_, int_4 _p_ liwkmn_, real_8 _p_ fjacb_, real_8 _p_ fjacd_, real_8 _p_ diff_, int_4 _p_
779 msgb_, logical_4 _p_ isodr_, int_4 _p_ msgd_, real_8 _p_ xplusd_, int_4 _p_ nrow_, int_4 _p_ neta_, int_4 _p_ ntol_);
782 real_8 _p_ y_, int_4 _p_ ldy_, real_8 _p_ x_, int_4 _p_ ldx_, real_8 _p_ we_, int_4 _p_ ldwe_, int_4 _p_ ld2we_, real_8
783 _p_ wd_, int_4 _p_ ldwd_, int_4 _p_ ld2wd_, int_4 _p_ ifixb_, int_4 _p_ ifixx_, int_4 _p_ ldifx_, int_4 _p_ job_, int_4
784 _p_ ndigit_, real_8 _p_ taufac_, real_8 _p_ sstol_, real_8 _p_ partol_, int_4 _p_ maxit_, int_4 _p_ iprint_, int_4 _p_
785 lunerr_, int_4 _p_ lunrpt_, real_8 _p_ stpb_, real_8 _p_ stpd_, int_4 _p_ ldstpd_, real_8 _p_ sclb_, real_8 _p_ scld_,
786 int_4 _p_ ldscld_, real_8 _p_ work_, int_4 _p_ lwork_, int_4 _p_ iwork_, int_4 _p_ liwork_, int_4 _p_ info_);
788 real_8 _p_ y_, int_4 _p_ ldy_, real_8 _p_ x_, int_4 _p_ ldx_, real_8 _p_ we_, int_4 _p_ ldwe_, int_4 _p_ ld2we_, real_8
789 _p_ wd_, int_4 _p_ ldwd_, int_4 _p_ ld2wd_, int_4 _p_ job_, int_4 _p_ iprint_, int_4 _p_ lunerr_, int_4 _p_ lunrpt_,
790 real_8 _p_ work_, int_4 _p_ lwork_, int_4 _p_ iwork_, int_4 _p_ liwork_, int_4 _p_ info_);
792 real_8 _p_ fjacb_, real_8 _p_ fjacd_, real_8 _p_ wd_, int_4 _p_ ldwd_, int_4 _p_ ld2wd_, real_8 _p_ ss_, real_8 _p_ tt_
793 , int_4 _p_ ldtt_, real_8 _p_ delta_, real_8 _p_ alpha_, real_8 _p_ epsfcn_, logical_4 _p_ isodr_, real_8 _p_ tfjacb_,
794 real_8 _p_ omega_, real_8 _p_ u_, real_8 _p_ qraux_, int_4 _p_ kpvt_, real_8 _p_ s_, real_8 _p_ t_, real_8 _p_ phi_,
795 int_4 _p_ irank_, real_8 _p_ rcond_, logical_4 _p_ forvcv_, real_8 _p_ wrk1_, real_8 _p_ wrk2_, real_8 _p_ wrk3_,
796 real_8 _p_ wrk4_, real_8 _p_ wrk5_, real_8 _p_ wrk_, int_4 _p_ lwrk_, int_4 _p_ istopc_);
798 real_8 _p_ fjacb_, real_8 _p_ fjacd_, real_8 _p_ wd_, int_4 _p_ ldwd_, int_4 _p_ ld2wd_, real_8 _p_ ssf_, real_8 _p_
799 ss_, real_8 _p_ tt_, int_4 _p_ ldtt_, real_8 _p_ delta_, real_8 _p_ epsfcn_, logical_4 _p_ isodr_, real_8 _p_ vcv_,
800 real_8 _p_ sd_, real_8 _p_ wrk6_, real_8 _p_ omega_, real_8 _p_ u_, real_8 _p_ qraux_, int_4 _p_ jpvt_, real_8 _p_ s_,
801 real_8 _p_ t_, int_4 _p_ irank_, real_8 _p_ rcond_, real_8 _p_ rss_, int_4 _p_ idf_, real_8 _p_ rvar_, int_4 _p_ ifixb_
802 , real_8 _p_ wrk1_, real_8 _p_ wrk2_, real_8 _p_ wrk3_, real_8 _p_ wrk4_, real_8 _p_ wrk5_, real_8 _p_ wrk_, int_4 _p_
803 lwrk_, int_4 _p_ istopc_);
808 real_8 _p_ xplusd_, int_4 _p_ ifixb_, int_4 _p_ ifixx_, int_4 _p_ ldifx_, int_4 _p_ nrow_, int_4 _p_ j_, int_4 _p_ lq_,
809 real_8 _p_ stp_, int_4 _p_ istop_, int_4 _p_ nfev_, real_8 _p_ pvb_, real_8 _p_ wrk1_, real_8 _p_ wrk2_, real_8 _p_
810 wrk6_);
812 real_8 _p_ xplusd_, int_4 _p_ ifixb_, int_4 _p_ ifixx_, int_4 _p_ ldifx_, int_4 _p_ nrow_, int_4 _p_ j_, int_4 _p_ lq_,
813 real_8 _p_ stp_, int_4 _p_ istop_, int_4 _p_ nfev_, real_8 _p_ pvd_, real_8 _p_ wrk1_, real_8 _p_ wrk2_, real_8 _p_
814 wrk6_);
816 real_8 _p_ sclt_, int_4 _p_ ldsclt_);
823 real_8 _p_ e_, int_4 _p_ lde_, real_8 _p_ ve_, int_4 _p_ ldve_, int_4 _p_ ld2ve_, real_8 _p_ vev_, int_4 _p_ ldvev_,
824 real_8 _p_ wrk5_);
826 int_4 _p_ ldt_, real_8 _p_ wtt_, int_4 _p_ ldwtt_);
828 logical_4 _p_ isodr_, int_4 _p_ deltai_, int_4 _p_ epsi_, int_4 _p_ xplusi_, int_4 _p_ fni_, int_4 _p_ sdi_, int_4 _p_
829 vcvi_, int_4 _p_ rvari_, int_4 _p_ wssi_, int_4 _p_ wssdei_, int_4 _p_ wssepi_, int_4 _p_ rcondi_, int_4 _p_ etai_,
830 int_4 _p_ olmavi_, int_4 _p_ taui_, int_4 _p_ alphai_, int_4 _p_ actrsi_, int_4 _p_ pnormi_, int_4 _p_ rnorsi_, int_4
831 _p_ prersi_, int_4 _p_ partli_, int_4 _p_ sstoli_, int_4 _p_ taufci_, int_4 _p_ epsmai_, int_4 _p_ beta0i_, int_4 _p_
832 betaci_, int_4 _p_ betasi_, int_4 _p_ betani_, int_4 _p_ si_, int_4 _p_ ssi_, int_4 _p_ ssfi_, int_4 _p_ qrauxi_, int_4
833 _p_ ui_, int_4 _p_ fsi_, int_4 _p_ fjacbi_, int_4 _p_ we1i_, int_4 _p_ diffi_, int_4 _p_ deltsi_, int_4 _p_ deltni_,
834 int_4 _p_ ti_, int_4 _p_ tti_, int_4 _p_ omegai_, int_4 _p_ fjacdi_, int_4 _p_ wrk1i_, int_4 _p_ wrk2i_, int_4 _p_
835 wrk3i_, int_4 _p_ wrk4i_, int_4 _p_ wrk5i_, int_4 _p_ wrk6i_, int_4 _p_ wrk7i_, int_4 _p_ lwkmn_);
837 _p_ xmy_, int_4 _p_ ldxmy_);
839 _p_ xpy_, int_4 _p_ ldxpy_);
841 int_4 _dacces (int_4 _p_ n_, int_4 _p_ m_, int_4 _p_ np_, int_4 _p_ nq_, int_4 _p_ ldwe_, int_4 _p_ ld2we_, real_8 _p_
842 work_, int_4 _p_ lwork_, int_4 _p_ iwork_, int_4 _p_ liwork_, logical_4 _p_ access_, logical_4 _p_ isodr_, int_4 _p_
843 jpvt_, int_4 _p_ omega_, int_4 _p_ u_, int_4 _p_ qraux_, int_4 _p_ sd_, int_4 _p_ vcv_, int_4 _p_ wrk1_, int_4 _p_
844 wrk2_, int_4 _p_ wrk3_, int_4 _p_ wrk4_, int_4 _p_ wrk5_, int_4 _p_ wrk6_, int_4 _p_ nnzw_, int_4 _p_ npp_, int_4 _p_
845 job_, real_8 _p_ partol_, real_8 _p_ sstol_, int_4 _p_ maxit_, real_8 _p_ taufac_, real_8 _p_ eta_, int_4 _p_ neta_,
846 int_4 _p_ lunrpt_, int_4 _p_ ipr1_, int_4 _p_ ipr2_, int_4 _p_ ipr2f_, int_4 _p_ ipr3_, real_8 _p_ wss_, real_8 _p_
847 rvar_, int_4 _p_ idf_, real_8 _p_ tau_, real_8 _p_ alpha_, int_4 _p_ niter_, int_4 _p_ nfev_, int_4 _p_ njev_, int_4
848 _p_ int2_, real_8 _p_ olmavg_, real_8 _p_ rcond_, int_4 _p_ irank_, real_8 _p_ actrs_, real_8 _p_ pnorm_, real_8 _p_
849 prers_, real_8 _p_ rnorms_, int_4 _p_ istop_)
850 { // ** body not listed **
936 }
937
938 int_4 _desubi (int_4 _p_ n_, int_4 _p_ m_, real_8 _p_ wd_, int_4 _p_ ldwd_, int_4 _p_ ld2wd_, real_8 _p_ alpha_, real_8
939 _p_ tt_, int_4 _p_ ldtt_, int_4 _p_ i_, real_8 _p_ e_)
940 { // ** body not listed **
1056 }
1057
1058 int_4 _detaf (int_4 (*_fcn)(), int_4 _p_ n_, int_4 _p_ m_, int_4 _p_ np_, int_4 _p_ nq_, real_8 _p_ xplusd_, real_8 _p_
1059 beta_, real_8 _p_ epsmac_, int_4 _p_ nrow_, real_8 _p_ partmp_, real_8 _p_ pv0_, int_4 _p_ ifixb_, int_4 _p_ ifixx_,
1060 int_4 _p_ ldifx_, int_4 _p_ istop_, int_4 _p_ nfev_, real_8 _p_ eta_, int_4 _p_ neta_, real_8 _p_ wrk1_, real_8 _p_
1061 wrk2_, real_8 _p_ wrk6_, real_8 _p_ wrk7_)
1062 { // ** body not listed **
1166 }
1167
1168 int_4 _devjac (int_4 (*_fcn)(), logical_4 _p_ anajac_, logical_4 _p_ cdjac_, int_4 _p_ n_, int_4 _p_ m_, int_4 _p_ np_,
1169 int_4 _p_ nq_, real_8 _p_ betac_, real_8 _p_ beta_, real_8 _p_ stpb_, int_4 _p_ ifixb_, int_4 _p_ ifixx_, int_4 _p_
1170 ldifx_, real_8 _p_ x_, int_4 _p_ ldx_, real_8 _p_ delta_, real_8 _p_ xplusd_, real_8 _p_ stpd_, int_4 _p_ ldstpd_,
1171 real_8 _p_ ssf_, real_8 _p_ tt_, int_4 _p_ ldtt_, int_4 _p_ neta_, real_8 _p_ fn_, real_8 _p_ stp_, real_8 _p_ wrk1_,
1172 real_8 _p_ wrk2_, real_8 _p_ wrk3_, real_8 _p_ wrk6_, real_8 _p_ fjacb_, logical_4 _p_ isodr_, real_8 _p_ fjacd_,
1173 real_8 _p_ we1_, int_4 _p_ ldwe_, int_4 _p_ ld2we_, int_4 _p_ njev_, int_4 _p_ nfev_, int_4 _p_ istop_, int_4 _p_ info_
1174 )
1175 { // ** body not listed **
1260 }
1261
1262 int_4 _dfctr (logical_4 _p_ oksemi_, real_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ info_)
1263 { // ** body not listed **
1323 }
1324
1325 int_4 _dfctrw (int_4 _p_ n_, int_4 _p_ m_, int_4 _p_ nq_, int_4 _p_ npp_, logical_4 _p_ isodr_, real_8 _p_ we_, int_4
1326 _p_ ldwe_, int_4 _p_ ld2we_, real_8 _p_ wd_, int_4 _p_ ldwd_, int_4 _p_ ld2wd_, real_8 _p_ wrk0_, real_8 _p_ wrk4_,
1327 real_8 _p_ we1_, int_4 _p_ nnzw_, int_4 _p_ info_)
1328 { // ** body not listed **
1498 }
1499
1500 int_4 _dflags (int_4 _p_ job_, logical_4 _p_ restrt_, logical_4 _p_ initd_, logical_4 _p_ dovcv_, logical_4 _p_ redoj_,
1501 logical_4 _p_ anajac_, logical_4 _p_ cdjac_, logical_4 _p_ chkjac_, logical_4 _p_ isodr_, logical_4 _p_ implct_)
1502 { // ** body not listed **
1568 }
1569
1570 real_8 _dhstep (int_4 _p_ itype_, int_4 _p_ neta_, int_4 _p_ i_, int_4 _p_ j_, real_8 _p_ stp_, int_4 _p_ ldstp_)
1571 { // ** body not listed **
1617 }
1618
1619 int_4 _difix (int_4 _p_ n_, int_4 _p_ m_, int_4 _p_ ifix_, int_4 _p_ ldifix_, real_8 _p_ t_, int_4 _p_ ldt_, real_8 _p_
1620 tfix_, int_4 _p_ ldtfix_)
1621 { // ** body not listed **
1670 }
1671
1672 int_4 _diniwk (int_4 _p_ n_, int_4 _p_ m_, int_4 _p_ np_, real_8 _p_ work_, int_4 _p_ lwork_, int_4 _p_ iwork_, int_4
1673 _p_ liwork_, real_8 _p_ x_, int_4 _p_ ldx_, int_4 _p_ ifixx_, int_4 _p_ ldifx_, real_8 _p_ scld_, int_4 _p_ ldscld_,
1674 real_8 _p_ beta_, real_8 _p_ sclb_, real_8 _p_ sstol_, real_8 _p_ partol_, int_4 _p_ maxit_, real_8 _p_ taufac_, int_4
1675 _p_ job_, int_4 _p_ iprint_, int_4 _p_ lunerr_, int_4 _p_ lunrpt_, int_4 _p_ epsmai_, int_4 _p_ sstoli_, int_4 _p_
1676 partli_, int_4 _p_ maxiti_, int_4 _p_ taufci_, int_4 _p_ jobi_, int_4 _p_ iprini_, int_4 _p_ luneri_, int_4 _p_ lunrpi_
1677 , int_4 _p_ ssfi_, int_4 _p_ tti_, int_4 _p_ ldtti_, int_4 _p_ deltai_)
1678 { // ** body not listed **
1815 }
1816 int_4 _diwinf (int_4 _p_ m_, int_4 _p_ np_, int_4 _p_ nq_, int_4 _p_ msgbi_, int_4 _p_ msgdi_, int_4 _p_ ifix2i_, int_4
1817 _p_ istopi_, int_4 _p_ nnzwi_, int_4 _p_ nppi_, int_4 _p_ idfi_, int_4 _p_ jobi_, int_4 _p_ iprini_, int_4 _p_ luneri_,
1818 int_4 _p_ lunrpi_, int_4 _p_ nrowi_, int_4 _p_ ntoli_, int_4 _p_ netai_, int_4 _p_ maxiti_, int_4 _p_ niteri_, int_4
1819 _p_ nfevi_, int_4 _p_ njevi_, int_4 _p_ int2i_, int_4 _p_ iranki_, int_4 _p_ ldtti_, int_4 _p_ liwkmn_)
1820 { // ** body not listed **
1871 }
1872
1873 int_4 _djaccd (int_4 (*_fcn)(), int_4 _p_ n_, int_4 _p_ m_, int_4 _p_ np_, int_4 _p_ nq_, real_8 _p_ beta_, real_8 _p_
1874 x_, int_4 _p_ ldx_, real_8 _p_ delta_, real_8 _p_ xplusd_, int_4 _p_ ifixb_, int_4 _p_ ifixx_, int_4 _p_ ldifx_, real_8
1875 _p_ stpb_, real_8 _p_ stpd_, int_4 _p_ ldstpd_, real_8 _p_ ssf_, real_8 _p_ tt_, int_4 _p_ ldtt_, int_4 _p_ neta_,
1876 real_8 _p_ stp_, real_8 _p_ wrk1_, real_8 _p_ wrk2_, real_8 _p_ wrk3_, real_8 _p_ wrk6_, real_8 _p_ fjacb_, logical_4
1877 _p_ isodr_, real_8 _p_ fjacd_, int_4 _p_ nfev_, int_4 _p_ istop_)
1878 { // ** body not listed **
2077 }
2078
2079 int_4 _djacfd (int_4 (*_fcn)(), int_4 _p_ n_, int_4 _p_ m_, int_4 _p_ np_, int_4 _p_ nq_, real_8 _p_ beta_, real_8 _p_
2080 x_, int_4 _p_ ldx_, real_8 _p_ delta_, real_8 _p_ xplusd_, int_4 _p_ ifixb_, int_4 _p_ ifixx_, int_4 _p_ ldifx_, real_8
2081 _p_ stpb_, real_8 _p_ stpd_, int_4 _p_ ldstpd_, real_8 _p_ ssf_, real_8 _p_ tt_, int_4 _p_ ldtt_, int_4 _p_ neta_,
2082 real_8 _p_ fn_, real_8 _p_ stp_, real_8 _p_ wrk1_, real_8 _p_ wrk2_, real_8 _p_ wrk3_, real_8 _p_ wrk6_, real_8 _p_
2083 fjacb_, logical_4 _p_ isodr_, real_8 _p_ fjacd_, int_4 _p_ nfev_, int_4 _p_ istop_)
2084 { // ** body not listed **
2255 }
2256
2257 int_4 _djckc (real_4 (*_fcn)(), int_4 _p_ n_, int_4 _p_ m_, int_4 _p_ np_, int_4 _p_ nq_, real_8 _p_ beta_, real_8 _p_
2258 xplusd_, int_4 _p_ ifixb_, int_4 _p_ ifixx_, int_4 _p_ ldifx_, real_8 _p_ eta_, real_8 _p_ tol_, int_4 _p_ nrow_,
2259 real_8 _p_ epsmac_, int_4 _p_ j_, int_4 _p_ lq_, real_8 _p_ hc_, logical_4 _p_ iswrtb_, real_8 _p_ fd_, real_8 _p_
2260 typj_, real_8 _p_ pvpstp_, real_8 _p_ stp0_, real_8 _p_ pv_, real_8 _p_ d_, real_8 _p_ diffj_, int_4 _p_ msg_, int_4
2261 _p_ istop_, int_4 _p_ nfev_, real_8 _p_ wrk1_, real_8 _p_ wrk2_, real_8 _p_ wrk6_)
2262 { // ** body not listed **
2362 }
2363
2364 int_4 _djck (int_4 (*_fcn)(), int_4 _p_ n_, int_4 _p_ m_, int_4 _p_ np_, int_4 _p_ nq_, real_8 _p_ beta_, real_8 _p_
2365 xplusd_, int_4 _p_ ifixb_, int_4 _p_ ifixx_, int_4 _p_ ldifx_, real_8 _p_ stpb_, real_8 _p_ stpd_, int_4 _p_ ldstpd_,
2366 real_8 _p_ ssf_, real_8 _p_ tt_, int_4 _p_ ldtt_, real_8 _p_ eta_, int_4 _p_ neta_, int_4 _p_ ntol_, int_4 _p_ nrow_,
2367 logical_4 _p_ isodr_, real_8 _p_ epsmac_, real_8 _p_ pv0_, real_8 _p_ fjacb_, real_8 _p_ fjacd_, int_4 _p_ msgb_, int_4
2368 _p_ msgd_, real_8 _p_ diff_, int_4 _p_ istop_, int_4 _p_ nfev_, int_4 _p_ njev_, real_8 _p_ wrk1_, real_8 _p_ wrk2_,
2369 real_8 _p_ wrk6_)
2370 { // ** body not listed **
2513 }
2514
2515 int_4 _djckf (real_4 (*_fcn)(), int_4 _p_ n_, int_4 _p_ m_, int_4 _p_ np_, int_4 _p_ nq_, real_8 _p_ beta_, real_8 _p_
2516 xplusd_, int_4 _p_ ifixb_, int_4 _p_ ifixx_, int_4 _p_ ldifx_, real_8 _p_ eta_, real_8 _p_ tol_, int_4 _p_ nrow_, int_4
2517 _p_ j_, int_4 _p_ lq_, logical_4 _p_ iswrtb_, real_8 _p_ fd_, real_8 _p_ typj_, real_8 _p_ pvpstp_, real_8 _p_ stp0_,
2518 real_8 _p_ curve_, real_8 _p_ pv_, real_8 _p_ d_, real_8 _p_ diffj_, int_4 _p_ msg_, int_4 _p_ istop_, int_4 _p_ nfev_,
2519 real_8 _p_ wrk1_, real_8 _p_ wrk2_, real_8 _p_ wrk6_)
2520 { // ** body not listed **
2591 }
2592
2593 int_4 _djckm (real_4 (*_fcn)(), int_4 _p_ n_, int_4 _p_ m_, int_4 _p_ np_, int_4 _p_ nq_, real_8 _p_ beta_, real_8 _p_
2594 xplusd_, int_4 _p_ ifixb_, int_4 _p_ ifixx_, int_4 _p_ ldifx_, real_8 _p_ eta_, real_8 _p_ tol_, int_4 _p_ nrow_,
2595 real_8 _p_ epsmac_, int_4 _p_ j_, int_4 _p_ lq_, real_8 _p_ typj_, real_8 _p_ h0_, real_8 _p_ hc0_, logical_4 _p_
2596 iswrtb_, real_8 _p_ pv_, real_8 _p_ d_, real_8 _p_ diffj_, int_4 _p_ msg1_, int_4 _p_ msg_, int_4 _p_ istop_, int_4 _p_
2597 nfev_, real_8 _p_ wrk1_, real_8 _p_ wrk2_, real_8 _p_ wrk6_)
2598 { // ** body not listed **
2738 }
2739
2740 int_4 _djckz (real_4 (*_fcn)(), int_4 _p_ n_, int_4 _p_ m_, int_4 _p_ np_, int_4 _p_ nq_, real_8 _p_ beta_, real_8 _p_
2741 xplusd_, int_4 _p_ ifixb_, int_4 _p_ ifixx_, int_4 _p_ ldifx_, int_4 _p_ nrow_, real_8 _p_ epsmac_, int_4 _p_ j_, int_4
2742 _p_ lq_, logical_4 _p_ iswrtb_, real_8 _p_ tol_, real_8 _p_ d_, real_8 _p_ fd_, real_8 _p_ typj_, real_8 _p_ pvpstp_,
2743 real_8 _p_ stp0_, real_8 _p_ pv_, real_8 _p_ diffj_, int_4 _p_ msg_, int_4 _p_ istop_, int_4 _p_ nfev_, real_8 _p_
2744 wrk1_, real_8 _p_ wrk2_, real_8 _p_ wrk6_)
2745 { // ** body not listed **
2805 }
2806
2807 int_4 _dluno (int_4 _p_ lun_, char _p_ fn_)
2808 { // ** body not listed **
2814 }
2815
2816 int_4 _dlunc (int_4 _p_ lun_)
2817 { // ** body not listed **
2829 }
2830
2831 real_8 _dmprec (void)
2832 { // ** body not listed **
2841 }
2842
2843 int_4 _dodchk (int_4 _p_ n_, int_4 _p_ m_, int_4 _p_ np_, int_4 _p_ nq_, logical_4 _p_ isodr_, logical_4 _p_ anajac_,
2844 logical_4 _p_ implct_, int_4 _p_ ifixb_, int_4 _p_ ldx_, int_4 _p_ ldifx_, int_4 _p_ ldscld_, int_4 _p_ ldstpd_, int_4
2845 _p_ ldwe_, int_4 _p_ ld2we_, int_4 _p_ ldwd_, int_4 _p_ ld2wd_, int_4 _p_ ldy_, int_4 _p_ lwork_, int_4 _p_ lwkmn_,
2846 int_4 _p_ liwork_, int_4 _p_ liwkmn_, real_8 _p_ sclb_, real_8 _p_ scld_, real_8 _p_ stpb_, real_8 _p_ stpd_, int_4 _p_
2847 info_)
2848 { // ** body not listed **
2982 }
2983
2984 int_4 _dodcnt (logical_4 _p_ short_, real_4 (*_fcn)(), int_4 _p_ n_, int_4 _p_ m_, int_4 _p_ np_, int_4 _p_ nq_, real_8
2985 _p_ beta_, real_8 _p_ y_, int_4 _p_ ldy_, real_8 _p_ x_, int_4 _p_ ldx_, real_8 _p_ we_, int_4 _p_ ldwe_, int_4 _p_
2986 ld2we_, real_8 _p_ wd_, int_4 _p_ ldwd_, int_4 _p_ ld2wd_, int_4 _p_ ifixb_, int_4 _p_ ifixx_, int_4 _p_ ldifx_, int_4
2987 _p_ job_, int_4 _p_ ndigit_, real_8 _p_ taufac_, real_8 _p_ sstol_, real_8 _p_ partol_, int_4 _p_ maxit_, int_4 _p_
2988 iprint_, int_4 _p_ lunerr_, int_4 _p_ lunrpt_, real_8 _p_ stpb_, real_8 _p_ stpd_, int_4 _p_ ldstpd_, real_8 _p_ sclb_,
2989 real_8 _p_ scld_, int_4 _p_ ldscld_, real_8 _p_ work_, int_4 _p_ lwork_, int_4 _p_ iwork_, int_4 _p_ liwork_, int_4 _p_
2990 info_)
2991 { // ** body not listed **
3115 }
3116
3117 int_4 _doddrv (logical_4 _p_ short_, logical_4 _p_ head_, logical_4 _p_ fstitr_, logical_4 _p_ prtpen_, int_4 (*_fcn)()
3118 , int_4 _p_ n_, int_4 _p_ m_, int_4 _p_ np_, int_4 _p_ nq_, real_8 _p_ beta_, real_8 _p_ y_, int_4 _p_ ldy_, real_8 _p_
3119 x_, int_4 _p_ ldx_, real_8 _p_ we_, int_4 _p_ ldwe_, int_4 _p_ ld2we_, real_8 _p_ wd_, int_4 _p_ ldwd_, int_4 _p_
3120 ld2wd_, int_4 _p_ ifixb_, int_4 _p_ ifixx_, int_4 _p_ ldifx_, int_4 _p_ job_, int_4 _p_ ndigit_, real_8 _p_ taufac_,
3121 real_8 _p_ sstol_, real_8 _p_ partol_, int_4 _p_ maxit_, int_4 _p_ iprint_, int_4 _p_ lunerr_, int_4 _p_ lunrpt_,
3122 real_8 _p_ stpb_, real_8 _p_ stpd_, int_4 _p_ ldstpd_, real_8 _p_ sclb_, real_8 _p_ scld_, int_4 _p_ ldscld_, real_8
3123 _p_ work_, int_4 _p_ lwork_, int_4 _p_ iwork_, int_4 _p_ liwork_, int_4 _p_ maxit1_, real_8 _p_ tstimp_, int_4 _p_
3124 info_)
3125 { // ** body not listed **
3385 }
3386
3387 int_4 _dodlm (int_4 _p_ n_, int_4 _p_ m_, int_4 _p_ np_, int_4 _p_ nq_, int_4 _p_ npp_, real_8 _p_ f_, real_8 _p_
3388 fjacb_, real_8 _p_ fjacd_, real_8 _p_ wd_, int_4 _p_ ldwd_, int_4 _p_ ld2wd_, real_8 _p_ ss_, real_8 _p_ tt_, int_4 _p_
3389 ldtt_, real_8 _p_ delta_, real_8 _p_ alpha2_, real_8 _p_ tau_, real_8 _p_ epsfcn_, logical_4 _p_ isodr_, real_8 _p_
3390 tfjacb_, real_8 _p_ omega_, real_8 _p_ u_, real_8 _p_ qraux_, int_4 _p_ jpvt_, real_8 _p_ s_, real_8 _p_ t_, int_4 _p_
3391 nlms_, real_8 _p_ rcond_, int_4 _p_ irank_, real_8 _p_ wrk1_, real_8 _p_ wrk2_, real_8 _p_ wrk3_, real_8 _p_ wrk4_,
3392 real_8 _p_ wrk5_, real_8 _p_ wrk_, int_4 _p_ lwrk_, int_4 _p_ istopc_)
3393 { // ** body not listed **
3511 }
3512
3513 int_4 _dodmn (logical_4 _p_ head_, logical_4 _p_ fstitr_, logical_4 _p_ prtpen_, int_4 (*_fcn)(), int_4 _p_ n_, int_4
3514 _p_ m_, int_4 _p_ np_, int_4 _p_ nq_, int_4 _p_ job_, real_8 _p_ beta_, real_8 _p_ y_, int_4 _p_ ldy_, real_8 _p_ x_,
3515 int_4 _p_ ldx_, real_8 _p_ we_, real_8 _p_ we1_, int_4 _p_ ldwe_, int_4 _p_ ld2we_, real_8 _p_ wd_, int_4 _p_ ldwd_,
3516 int_4 _p_ ld2wd_, int_4 _p_ ifixb_, int_4 _p_ ifixx_, int_4 _p_ ldifx_, real_8 _p_ betac_, real_8 _p_ betan_, real_8
3517 _p_ betas_, real_8 _p_ s_, real_8 _p_ delta_, real_8 _p_ deltan_, real_8 _p_ deltas_, real_8 _p_ t_, real_8 _p_ f_,
3518 real_8 _p_ fn_, real_8 _p_ fs_, real_8 _p_ fjacb_, int_4 _p_ msgb_, real_8 _p_ fjacd_, int_4 _p_ msgd_, real_8 _p_ ssf_
3519 , real_8 _p_ ss_, real_8 _p_ tt_, int_4 _p_ ldtt_, real_8 _p_ stpb_, real_8 _p_ stpd_, int_4 _p_ ldstpd_, real_8 _p_
3520 xplusd_, real_8 _p_ wrk_, int_4 _p_ lwrk_, real_8 _p_ work_, int_4 _p_ lwork_, int_4 _p_ iwork_, int_4 _p_ liwork_,
3521 int_4 _p_ info_)
3522 { // ** body not listed **
4030 }
4031
4032 int_4 _dodpc1 (int_4 _p_ ipr_, int_4 _p_ lunrpt_, logical_4 _p_ anajac_, logical_4 _p_ cdjac_, logical_4 _p_ chkjac_,
4033 logical_4 _p_ initd_, logical_4 _p_ restrt_, logical_4 _p_ isodr_, logical_4 _p_ implct_, logical_4 _p_ dovcv_,
4034 logical_4 _p_ redoj_, int_4 _p_ msgb1_, int_4 _p_ msgb_, int_4 _p_ msgd1_, int_4 _p_ msgd_, int_4 _p_ n_, int_4 _p_ m_,
4035 int_4 _p_ np_, int_4 _p_ nq_, int_4 _p_ npp_, int_4 _p_ nnzw_, real_8 _p_ x_, int_4 _p_ ldx_, int_4 _p_ ifixx_, int_4
4036 _p_ ldifx_, real_8 _p_ delta_, real_8 _p_ wd_, int_4 _p_ ldwd_, int_4 _p_ ld2wd_, real_8 _p_ tt_, int_4 _p_ ldtt_,
4037 real_8 _p_ stpd_, int_4 _p_ ldstpd_, real_8 _p_ y_, int_4 _p_ ldy_, real_8 _p_ we_, int_4 _p_ ldwe_, int_4 _p_ ld2we_,
4038 real_8 _p_ pnlty_, real_8 _p_ beta_, int_4 _p_ ifixb_, real_8 _p_ ssf_, real_8 _p_ stpb_, int_4 _p_ job_, int_4 _p_
4039 neta_, real_8 _p_ taufac_, real_8 _p_ sstol_, real_8 _p_ partol_, int_4 _p_ maxit_, real_8 _p_ wss_, real_8 _p_ wssdel_
4040 , real_8 _p_ wsseps_)
4041 { // ** body not listed **
7097 }
7098
7099 int_4 _dodpc2 (int_4 _p_ ipr_, int_4 _p_ lunrpt_, logical_4 _p_ fstitr_, logical_4 _p_ implct_, logical_4 _p_ prtpen_,
7100 real_8 _p_ pnlty_, int_4 _p_ niter_, int_4 _p_ nfev_, real_8 _p_ wss_, real_8 _p_ actred_, real_8 _p_ prered_, real_8
7101 _p_ alpha_, real_8 _p_ tau_, real_8 _p_ pnorm_, int_4 _p_ np_, real_8 _p_ beta_)
7102 { // ** body not listed **
8039 }
8040
8041 int_4 _dodpc3 (int_4 _p_ ipr_, int_4 _p_ lunrpt_, logical_4 _p_ isodr_, logical_4 _p_ implct_, logical_4 _p_ didvcv_,
8042 logical_4 _p_ dovcv_, logical_4 _p_ redoj_, logical_4 _p_ anajac_, int_4 _p_ n_, int_4 _p_ m_, int_4 _p_ np_, int_4 _p_
8043 nq_, int_4 _p_ npp_, int_4 _p_ info_, int_4 _p_ niter_, int_4 _p_ nfev_, int_4 _p_ njev_, int_4 _p_ irank_, real_8 _p_
8044 rcond_, int_4 _p_ istop_, real_8 _p_ wss_, real_8 _p_ wssdel_, real_8 _p_ wsseps_, real_8 _p_ pnlty_, real_8 _p_ rvar_,
8045 int_4 _p_ idf_, real_8 _p_ beta_, real_8 _p_ sdbeta_, int_4 _p_ ifixb2_, real_8 _p_ f_, real_8 _p_ delta_)
8046 { // ** body not listed **
10936 }
10937
10938 int_4 _dodpcr (int_4 _p_ ipr_, int_4 _p_ lunrpt_, logical_4 _p_ head_, logical_4 _p_ prtpen_, logical_4 _p_ fstitr_,
10939 logical_4 _p_ didvcv_, int_4 _p_ iflag_, int_4 _p_ n_, int_4 _p_ m_, int_4 _p_ np_, int_4 _p_ nq_, int_4 _p_ npp_,
10940 int_4 _p_ nnzw_, int_4 _p_ msgb_, int_4 _p_ msgd_, real_8 _p_ beta_, real_8 _p_ y_, int_4 _p_ ldy_, real_8 _p_ x_,
10941 int_4 _p_ ldx_, real_8 _p_ delta_, real_8 _p_ we_, int_4 _p_ ldwe_, int_4 _p_ ld2we_, real_8 _p_ wd_, int_4 _p_ ldwd_,
10942 int_4 _p_ ld2wd_, int_4 _p_ ifixb_, int_4 _p_ ifixx_, int_4 _p_ ldifx_, real_8 _p_ ssf_, real_8 _p_ tt_, int_4 _p_
10943 ldtt_, real_8 _p_ stpb_, real_8 _p_ stpd_, int_4 _p_ ldstpd_, int_4 _p_ job_, int_4 _p_ neta_, real_8 _p_ taufac_,
10944 real_8 _p_ sstol_, real_8 _p_ partol_, int_4 _p_ maxit_, real_8 _p_ wss_, real_8 _p_ rvar_, int_4 _p_ idf_, real_8 _p_
10945 sdbeta_, int_4 _p_ niter_, int_4 _p_ nfev_, int_4 _p_ njev_, real_8 _p_ actred_, real_8 _p_ prered_, real_8 _p_ tau_,
10946 real_8 _p_ pnorm_, real_8 _p_ alpha_, real_8 _p_ f_, real_8 _p_ rcond_, int_4 _p_ irank_, int_4 _p_ info_, int_4 _p_
10947 istop_)
10948 { // ** body not listed **
11096 }
11097
11098 int_4 _dodpe1 (int_4 _p_ fileno_, int_4 _p_ d1_, int_4 _p_ d2_, int_4 _p_ d3_, int_4 _p_ d4_, int_4 _p_ d5_, int_4 _p_
11099 n_, int_4 _p_ m_, int_4 _p_ nq_, int_4 _p_ ldscld_, int_4 _p_ ldstpd_, int_4 _p_ ldwe_, int_4 _p_ ld2we_, int_4 _p_
11100 ldwd_, int_4 _p_ ld2wd_, int_4 _p_ lwkmn_, int_4 _p_ liwkmn_)
11101 { // ** body not listed **
11824 }
11825
11826 int_4 _dodpe2 (int_4 _p_ fileno_, int_4 _p_ n_, int_4 _p_ m_, int_4 _p_ np_, int_4 _p_ nq_, real_8 _p_ fjacb_, real_8
11827 _p_ fjacd_, real_8 _p_ diff_, int_4 _p_ msgb1_, int_4 _p_ msgb_, logical_4 _p_ isodr_, int_4 _p_ msgd1_, int_4 _p_
11828 msgd_, real_8 _p_ xplusd_, int_4 _p_ nrow_, int_4 _p_ neta_, int_4 _p_ ntol_)
11829 { // ** body not listed **
13050 }
13051
13052 int_4 _dodpe3 (int_4 _p_ fileno_, int_4 _p_ d2_, int_4 _p_ d3_)
13053 { // ** body not listed **
13197 }
13198 int_4 _dodper (int_4 _p_ info_, int_4 _p_ lunerr_, logical_4 _p_ short_, int_4 _p_ n_, int_4 _p_ m_, int_4 _p_ np_,
13199 int_4 _p_ nq_, int_4 _p_ ldscld_, int_4 _p_ ldstpd_, int_4 _p_ ldwe_, int_4 _p_ ld2we_, int_4 _p_ ldwd_, int_4 _p_
13200 ld2wd_, int_4 _p_ lwkmn_, int_4 _p_ liwkmn_, real_8 _p_ fjacb_, real_8 _p_ fjacd_, real_8 _p_ diff_, int_4 _p_ msgb_,
13201 logical_4 _p_ isodr_, int_4 _p_ msgd_, real_8 _p_ xplusd_, int_4 _p_ nrow_, int_4 _p_ neta_, int_4 _p_ ntol_)
13202 { // ** body not listed **
13325 }
13326
13327 int_4 _dodphd (logical_4 _p_ head_, int_4 _p_ fileno_)
13328 { // ** body not listed **
13356 }
13357
13358 int_4 _dodrc (real_4 (*_fcn)(), int_4 _p_ n_, int_4 _p_ m_, int_4 _p_ np_, int_4 _p_ nq_, real_8 _p_ beta_, real_8 _p_
13359 y_, int_4 _p_ ldy_, real_8 _p_ x_, int_4 _p_ ldx_, real_8 _p_ we_, int_4 _p_ ldwe_, int_4 _p_ ld2we_, real_8 _p_ wd_,
13360 int_4 _p_ ldwd_, int_4 _p_ ld2wd_, int_4 _p_ ifixb_, int_4 _p_ ifixx_, int_4 _p_ ldifx_, int_4 _p_ job_, int_4 _p_
13361 ndigit_, real_8 _p_ taufac_, real_8 _p_ sstol_, real_8 _p_ partol_, int_4 _p_ maxit_, int_4 _p_ iprint_, int_4 _p_
13362 lunerr_, int_4 _p_ lunrpt_, real_8 _p_ stpb_, real_8 _p_ stpd_, int_4 _p_ ldstpd_, real_8 _p_ sclb_, real_8 _p_ scld_,
13363 int_4 _p_ ldscld_, real_8 _p_ work_, int_4 _p_ lwork_, int_4 _p_ iwork_, int_4 _p_ liwork_, int_4 _p_ info_)
13364 { // ** body not listed **
13398 }
13399
13400 int_4 _dodr (real_4 (*_fcn)(), int_4 _p_ n_, int_4 _p_ m_, int_4 _p_ np_, int_4 _p_ nq_, real_8 _p_ beta_, real_8 _p_
13401 y_, int_4 _p_ ldy_, real_8 _p_ x_, int_4 _p_ ldx_, real_8 _p_ we_, int_4 _p_ ldwe_, int_4 _p_ ld2we_, real_8 _p_ wd_,
13402 int_4 _p_ ldwd_, int_4 _p_ ld2wd_, int_4 _p_ job_, int_4 _p_ iprint_, int_4 _p_ lunerr_, int_4 _p_ lunrpt_, real_8 _p_
13403 work_, int_4 _p_ lwork_, int_4 _p_ iwork_, int_4 _p_ liwork_, int_4 _p_ info_)
13404 { // ** body not listed **
13453 }
13454
13455 int_4 _dodstp (int_4 _p_ n_, int_4 _p_ m_, int_4 _p_ np_, int_4 _p_ nq_, int_4 _p_ npp_, real_8 _p_ f_, real_8 _p_
13456 fjacb_, real_8 _p_ fjacd_, real_8 _p_ wd_, int_4 _p_ ldwd_, int_4 _p_ ld2wd_, real_8 _p_ ss_, real_8 _p_ tt_, int_4 _p_
13457 ldtt_, real_8 _p_ delta_, real_8 _p_ alpha_, real_8 _p_ epsfcn_, logical_4 _p_ isodr_, real_8 _p_ tfjacb_, real_8 _p_
13458 omega_, real_8 _p_ u_, real_8 _p_ qraux_, int_4 _p_ kpvt_, real_8 _p_ s_, real_8 _p_ t_, real_8 _p_ phi_, int_4 _p_
13459 irank_, real_8 _p_ rcond_, logical_4 _p_ forvcv_, real_8 _p_ wrk1_, real_8 _p_ wrk2_, real_8 _p_ wrk3_, real_8 _p_
13460 wrk4_, real_8 _p_ wrk5_, real_8 _p_ wrk_, int_4 _p_ lwrk_, int_4 _p_ istopc_)
13461 { // ** body not listed **
13719 }
13720
13721 int_4 _dodvcv (int_4 _p_ n_, int_4 _p_ m_, int_4 _p_ np_, int_4 _p_ nq_, int_4 _p_ npp_, real_8 _p_ f_, real_8 _p_
13722 fjacb_, real_8 _p_ fjacd_, real_8 _p_ wd_, int_4 _p_ ldwd_, int_4 _p_ ld2wd_, real_8 _p_ ssf_, real_8 _p_ ss_, real_8
13723 _p_ tt_, int_4 _p_ ldtt_, real_8 _p_ delta_, real_8 _p_ epsfcn_, logical_4 _p_ isodr_, real_8 _p_ vcv_, real_8 _p_ sd_,
13724 real_8 _p_ wrk6_, real_8 _p_ omega_, real_8 _p_ u_, real_8 _p_ qraux_, int_4 _p_ jpvt_, real_8 _p_ s_, real_8 _p_ t_,
13725 int_4 _p_ irank_, real_8 _p_ rcond_, real_8 _p_ rss_, int_4 _p_ idf_, real_8 _p_ rvar_, int_4 _p_ ifixb_, real_8 _p_
13726 wrk1_, real_8 _p_ wrk2_, real_8 _p_ wrk3_, real_8 _p_ wrk4_, real_8 _p_ wrk5_, real_8 _p_ wrk_, int_4 _p_ lwrk_, int_4
13727 _p_ istopc_)
13728 { // ** body not listed **
13867 }
13868 int_4 _dpack (int_4 _p_ n2_, int_4 _p_ n1_, real_8 _p_ v1_, real_8 _p_ v2_, int_4 _p_ ifix_)
13869 { // ** body not listed **
13887 }
13888
13889 real_8 _dppnml (real_8 _p_ p_)
13890 { // ** body not listed **
14000 }
14001
14002 real_8 _dppt (real_8 _p_ p_, int_4 _p_ idf_)
14003 { // ** body not listed **
14235 }
14236
14237 int_4 _dpvb (int_4 (*_fcn)(), int_4 _p_ n_, int_4 _p_ m_, int_4 _p_ np_, int_4 _p_ nq_, real_8 _p_ beta_, real_8 _p_
14238 xplusd_, int_4 _p_ ifixb_, int_4 _p_ ifixx_, int_4 _p_ ldifx_, int_4 _p_ nrow_, int_4 _p_ j_, int_4 _p_ lq_, real_8 _p_
14239 stp_, int_4 _p_ istop_, int_4 _p_ nfev_, real_8 _p_ pvb_, real_8 _p_ wrk1_, real_8 _p_ wrk2_, real_8 _p_ wrk6_)
14240 { // ** body not listed **
14259 }
14260
14261 int_4 _dpvd (int_4 (*_fcn)(), int_4 _p_ n_, int_4 _p_ m_, int_4 _p_ np_, int_4 _p_ nq_, real_8 _p_ beta_, real_8 _p_
14262 xplusd_, int_4 _p_ ifixb_, int_4 _p_ ifixx_, int_4 _p_ ldifx_, int_4 _p_ nrow_, int_4 _p_ j_, int_4 _p_ lq_, real_8 _p_
14263 stp_, int_4 _p_ istop_, int_4 _p_ nfev_, real_8 _p_ pvd_, real_8 _p_ wrk1_, real_8 _p_ wrk2_, real_8 _p_ wrk6_)
14264 { // ** body not listed **
14283 }
14284
14285 int_4 _dscale (int_4 _p_ n_, int_4 _p_ m_, real_8 _p_ scl_, int_4 _p_ ldscl_, real_8 _p_ t_, int_4 _p_ ldt_, real_8 _p_
14286 sclt_, int_4 _p_ ldsclt_)
14287 { // ** body not listed **
14339 }
14340
14341 int_4 _dsclb (int_4 _p_ np_, real_8 _p_ beta_, real_8 _p_ ssf_)
14342 { // ** body not listed **
14401 }
14402
14403 int_4 _dscld (int_4 _p_ n_, int_4 _p_ m_, real_8 _p_ x_, int_4 _p_ ldx_, real_8 _p_ tt_, int_4 _p_ ldtt_)
14404 { // ** body not listed **
14465 }
14466
14467 int_4 _dsetn (int_4 _p_ n_, int_4 _p_ m_, real_8 _p_ x_, int_4 _p_ ldx_, int_4 _p_ nrow_)
14468 { // ** body not listed **
14487 }
14488
14489 int_4 _dsolve (int_4 _p_ n_, real_8 _p_ t_, int_4 _p_ ldt_, real_8 _p_ b_, int_4 _p_ ldb_, int_4 _p_ job_)
14490 { // ** body not listed **
14584 }
14585
14586 int_4 _dunpac (int_4 _p_ n2_, real_8 _p_ v1_, real_8 _p_ v2_, int_4 _p_ ifix_)
14587 { // ** body not listed **
14605 }
14606
14607 int_4 _dvevtr (int_4 _p_ m_, int_4 _p_ nq_, int_4 _p_ indx_, real_8 _p_ v_, int_4 _p_ ldv_, int_4 _p_ ld2v_, real_8 _p_
14608 e_, int_4 _p_ lde_, real_8 _p_ ve_, int_4 _p_ ldve_, int_4 _p_ ld2ve_, real_8 _p_ vev_, int_4 _p_ ldvev_, real_8 _p_
14609 wrk5_)
14610 { // ** body not listed **
14650 }
14651
14652 int_4 _dwght (int_4 _p_ n_, int_4 _p_ m_, real_8 _p_ wt_, int_4 _p_ ldwt_, int_4 _p_ ld2wt_, real_8 _p_ t_, int_4 _p_
14653 ldt_, real_8 _p_ wtt_, int_4 _p_ ldwtt_)
14654 { // ** body not listed **
14728 }
14729
14730 int_4 _dwinf (int_4 _p_ n_, int_4 _p_ m_, int_4 _p_ np_, int_4 _p_ nq_, int_4 _p_ ldwe_, int_4 _p_ ld2we_, logical_4
14731 _p_ isodr_, int_4 _p_ deltai_, int_4 _p_ epsi_, int_4 _p_ xplusi_, int_4 _p_ fni_, int_4 _p_ sdi_, int_4 _p_ vcvi_,
14732 int_4 _p_ rvari_, int_4 _p_ wssi_, int_4 _p_ wssdei_, int_4 _p_ wssepi_, int_4 _p_ rcondi_, int_4 _p_ etai_, int_4 _p_
14733 olmavi_, int_4 _p_ taui_, int_4 _p_ alphai_, int_4 _p_ actrsi_, int_4 _p_ pnormi_, int_4 _p_ rnorsi_, int_4 _p_ prersi_
14734 , int_4 _p_ partli_, int_4 _p_ sstoli_, int_4 _p_ taufci_, int_4 _p_ epsmai_, int_4 _p_ beta0i_, int_4 _p_ betaci_,
14735 int_4 _p_ betasi_, int_4 _p_ betani_, int_4 _p_ si_, int_4 _p_ ssi_, int_4 _p_ ssfi_, int_4 _p_ qrauxi_, int_4 _p_ ui_,
14736 int_4 _p_ fsi_, int_4 _p_ fjacbi_, int_4 _p_ we1i_, int_4 _p_ diffi_, int_4 _p_ deltsi_, int_4 _p_ deltni_, int_4 _p_
14737 ti_, int_4 _p_ tti_, int_4 _p_ omegai_, int_4 _p_ fjacdi_, int_4 _p_ wrk1i_, int_4 _p_ wrk2i_, int_4 _p_ wrk3i_, int_4
14738 _p_ wrk4i_, int_4 _p_ wrk5i_, int_4 _p_ wrk6i_, int_4 _p_ wrk7i_, int_4 _p_ lwkmn_)
14739 { // ** body not listed **
14861 }
14862
14863 int_4 _dxmy (int_4 _p_ n_, int_4 _p_ m_, real_8 _p_ x_, int_4 _p_ ldx_, real_8 _p_ y_, int_4 _p_ ldy_, real_8 _p_ xmy_,
14864 int_4 _p_ ldxmy_)
14865 { // ** body not listed **
14874 }
14875
14876 int_4 _dxpy (int_4 _p_ n_, int_4 _p_ m_, real_8 _p_ x_, int_4 _p_ ldx_, real_8 _p_ y_, int_4 _p_ ldy_, real_8 _p_ xpy_,
14877 int_4 _p_ ldxpy_)
14878 { // ** body not listed **
14887 }
14888
14889 int_4 _dzero (int_4 _p_ n_, int_4 _p_ m_, real_8 _p_ a_, int_4 _p_ lda_)
14890 { // ** body not listed **
14912 }
14913
|
© 2002-2025 J.M. van der Veer (jmvdveer@xs4all.nl)
|
