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.12
85 */
552 static CALLS __calls[__ncalls] = {
553 {"dacces", 0}, // subroutine
554 {"desubi", 0}, // subroutine
555 {"detaf", 0}, // subroutine
556 {"devjac", 0}, // subroutine
557 {"dfctr", 0}, // subroutine
558 {"dfctrw", 0}, // subroutine
559 {"dflags", 0}, // subroutine
560 {"dhstep", 0}, // real*8 function
561 {"difix", 0}, // subroutine
562 {"diniwk", 0}, // subroutine
563 {"diwinf", 0}, // subroutine
564 {"djaccd", 0}, // subroutine
565 {"djacfd", 0}, // subroutine
566 {"djckc", 0}, // subroutine
567 {"djck", 0}, // subroutine
568 {"djckf", 0}, // subroutine
569 {"djckm", 0}, // subroutine
570 {"djckz", 0}, // subroutine
571 {"dluno", 0}, // subroutine
572 {"dlunc", 0}, // subroutine
573 {"dmprec", 0}, // real*8 function
574 {"dodchk", 0}, // subroutine
575 {"dodcnt", 0}, // subroutine
576 {"doddrv", 0}, // subroutine
577 {"dodlm", 0}, // subroutine
578 {"dodmn", 0}, // subroutine
579 {"dodpc1", 0}, // subroutine
580 {"dodpc2", 0}, // subroutine
581 {"dodpc3", 0}, // subroutine
582 {"dodpcr", 0}, // subroutine
583 {"dodpe1", 0}, // subroutine
584 {"dodpe2", 0}, // subroutine
585 {"dodpe3", 0}, // subroutine
586 {"dodper", 0}, // subroutine
587 {"dodphd", 0}, // subroutine
588 {"dodrc", 0}, // subroutine
589 {"dodr", 0}, // subroutine
590 {"dodstp", 0}, // subroutine
591 {"dodvcv", 0}, // subroutine
592 {"dpack", 0}, // subroutine
593 {"dppnml", 0}, // real*8 function
594 {"dppt", 0}, // real*8 function
595 {"dpvb", 0}, // subroutine
596 {"dpvd", 0}, // subroutine
597 {"dscale", 0}, // subroutine
598 {"dsclb", 0}, // subroutine
599 {"dscld", 0}, // subroutine
600 {"dsetn", 0}, // subroutine
601 {"dsolve", 0}, // subroutine
602 {"dunpac", 0}, // subroutine
603 {"dvevtr", 0}, // subroutine
604 {"dwght", 0}, // subroutine
605 {"dwinf", 0}, // subroutine
606 {"dxmy", 0}, // subroutine
607 {"dxpy", 0}, // subroutine
608 {"dzero", 0}, // subroutine
609 {NULL, 0}
610 };
611
613 real_8 _p_ work_, int_4 _p_ lwork_, int_4 _p_ iwork_, int_4 _p_ liwork_, logical_4 _p_ access_, logical_4 _p_ isodr_,
614 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_,
615 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_,
616 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_
617 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
618 _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_,
619 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
620 _p_ prers_, real_8 _p_ rnorms_, int_4 _p_ istop_);
622 alpha_, real_8 _p_ tt_, int_4 _p_ ldtt_, int_4 _p_ i_, real_8 _p_ e_);
624 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_
625 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
626 _p_ wrk2_, real_8 _p_ wrk6_, real_8 _p_ wrk7_);
628 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_
629 , 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_
630 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_
631 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_
632 , 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_
633 info_);
636 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_
637 wrk4_, real_8 _p_ we1_, int_4 _p_ nnzw_, int_4 _p_ info_);
639 _p_ redoj_, logical_4 _p_ anajac_, logical_4 _p_ cdjac_, logical_4 _p_ chkjac_, logical_4 _p_ isodr_, logical_4 _p_
640 implct_);
642 ldstp_);
644 real_8 _p_ tfix_, int_4 _p_ ldtfix_);
646 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
647 _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_
648 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_,
649 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
650 _p_ lunrpi_, int_4 _p_ ssfi_, int_4 _p_ tti_, int_4 _p_ ldtti_, int_4 _p_ deltai_);
652 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_,
653 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
654 _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_
655 liwkmn_);
657 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_
658 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
659 _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_,
660 logical_4 _p_ isodr_, real_8 _p_ fjacd_, int_4 _p_ nfev_, int_4 _p_ istop_);
662 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_
663 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
664 _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_,
665 real_8 _p_ fjacb_, logical_4 _p_ isodr_, real_8 _p_ fjacd_, int_4 _p_ nfev_, int_4 _p_ istop_);
667 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_
668 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
669 _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_,
670 int_4 _p_ istop_, int_4 _p_ nfev_, real_8 _p_ wrk1_, real_8 _p_ wrk2_, real_8 _p_ wrk6_);
672 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_
673 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_
674 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_
675 , 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_
676 wrk2_, real_8 _p_ wrk6_);
678 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_
679 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
680 _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
681 _p_ nfev_, real_8 _p_ wrk1_, real_8 _p_ wrk2_, real_8 _p_ wrk6_);
683 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_
684 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
685 _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
686 _p_ nfev_, real_8 _p_ wrk1_, real_8 _p_ wrk2_, real_8 _p_ wrk6_);
688 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
689 _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
690 _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_,
691 real_8 _p_ wrk1_, real_8 _p_ wrk2_, real_8 _p_ wrk6_);
696 anajac_, logical_4 _p_ implct_, int_4 _p_ ifixb_, int_4 _p_ ldx_, int_4 _p_ ldifx_, int_4 _p_ ldscld_, int_4 _p_
697 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
698 _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_
699 stpd_, int_4 _p_ info_);
701 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_,
702 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_
703 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_,
704 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
705 _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_
706 , int_4 _p_ info_);
708 (*_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_,
709 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_,
710 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_
711 taufac_, real_8 _p_ sstol_, real_8 _p_ partol_, int_4 _p_ maxit_, int_4 _p_ iprint_, int_4 _p_ lunerr_, int_4 _p_
712 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_,
713 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
714 _p_ info_);
716 _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
717 _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_
718 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_
719 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_,
720 real_8 _p_ wrk5_, real_8 _p_ wrk_, int_4 _p_ lwrk_, int_4 _p_ istopc_);
722 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
723 _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_
724 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_,
725 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_
726 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_
727 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
728 _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_,
729 int_4 _p_ info_);
731 chkjac_, logical_4 _p_ initd_, logical_4 _p_ restrt_, logical_4 _p_ isodr_, logical_4 _p_ implct_, logical_4 _p_ dovcv_
732 , 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_
733 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_,
734 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_
735 , 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_
736 , 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_
737 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_
738 , real_8 _p_ wsseps_);
740 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_,
741 real_8 _p_ alpha_, real_8 _p_ tau_, real_8 _p_ pnorm_, int_4 _p_ np_, real_8 _p_ beta_);
743 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_,
744 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_,
745 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
746 _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_);
748 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_
749 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_
750 , 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_
751 , 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_
752 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_,
753 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_
754 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_,
755 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_
756 istop_);
758 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_,
759 int_4 _p_ ldwd_, int_4 _p_ ld2wd_, int_4 _p_ lwkmn_, int_4 _p_ liwkmn_);
761 , 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
762 _p_ msgd_, real_8 _p_ xplusd_, int_4 _p_ nrow_, int_4 _p_ neta_, int_4 _p_ ntol_);
765 _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
766 _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_
767 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_);
770 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
771 _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
772 _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_
773 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_,
774 int_4 _p_ ldscld_, real_8 _p_ work_, int_4 _p_ lwork_, int_4 _p_ iwork_, int_4 _p_ liwork_, int_4 _p_ info_);
776 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
777 _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_,
778 real_8 _p_ work_, int_4 _p_ lwork_, int_4 _p_ iwork_, int_4 _p_ liwork_, int_4 _p_ info_);
780 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_
781 , int_4 _p_ ldtt_, real_8 _p_ delta_, real_8 _p_ alpha_, real_8 _p_ epsfcn_, logical_4 _p_ isodr_, real_8 _p_ tfjacb_,
782 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_,
783 int_4 _p_ irank_, real_8 _p_ rcond_, logical_4 _p_ forvcv_, real_8 _p_ wrk1_, real_8 _p_ wrk2_, real_8 _p_ wrk3_,
784 real_8 _p_ wrk4_, real_8 _p_ wrk5_, real_8 _p_ wrk_, int_4 _p_ lwrk_, int_4 _p_ istopc_);
786 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_
787 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_,
788 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_,
789 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_
790 , 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_
791 lwrk_, int_4 _p_ istopc_);
796 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_,
797 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_
798 wrk6_);
800 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_,
801 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_
802 wrk6_);
804 real_8 _p_ sclt_, int_4 _p_ ldsclt_);
811 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_,
812 real_8 _p_ wrk5_);
814 int_4 _p_ ldt_, real_8 _p_ wtt_, int_4 _p_ ldwtt_);
816 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_
817 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_,
818 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
819 _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_
820 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
821 _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_,
822 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_
823 wrk3i_, int_4 _p_ wrk4i_, int_4 _p_ wrk5i_, int_4 _p_ wrk6i_, int_4 _p_ wrk7i_, int_4 _p_ lwkmn_);
825 _p_ xmy_, int_4 _p_ ldxmy_);
827 _p_ xpy_, int_4 _p_ ldxpy_);
829 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_
830 work_, int_4 _p_ lwork_, int_4 _p_ iwork_, int_4 _p_ liwork_, logical_4 _p_ access_, logical_4 _p_ isodr_, int_4 _p_
831 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_
832 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_
833 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_,
834 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_
835 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
836 _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_
837 prers_, real_8 _p_ rnorms_, int_4 _p_ istop_)
838 { // ** body not listed **
924 }
925
926 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
927 _p_ tt_, int_4 _p_ ldtt_, int_4 _p_ i_, real_8 _p_ e_)
928 { // ** body not listed **
1044 }
1045
1046 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_
1047 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_,
1048 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_
1049 wrk2_, real_8 _p_ wrk6_, real_8 _p_ wrk7_)
1050 { // ** body not listed **
1154 }
1155
1156 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_,
1157 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_
1158 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_,
1159 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_,
1160 real_8 _p_ wrk2_, real_8 _p_ wrk3_, real_8 _p_ wrk6_, real_8 _p_ fjacb_, logical_4 _p_ isodr_, real_8 _p_ fjacd_,
1161 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_
1162 )
1163 { // ** body not listed **
1248 }
1249
1250 int_4 _dfctr (logical_4 _p_ oksemi_, real_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ info_)
1251 { // ** body not listed **
1311 }
1312
1313 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
1314 _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_,
1315 real_8 _p_ we1_, int_4 _p_ nnzw_, int_4 _p_ info_)
1316 { // ** body not listed **
1486 }
1487
1488 int_4 _dflags (int_4 _p_ job_, logical_4 _p_ restrt_, logical_4 _p_ initd_, logical_4 _p_ dovcv_, logical_4 _p_ redoj_,
1489 logical_4 _p_ anajac_, logical_4 _p_ cdjac_, logical_4 _p_ chkjac_, logical_4 _p_ isodr_, logical_4 _p_ implct_)
1490 { // ** body not listed **
1556 }
1557
1558 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_)
1559 { // ** body not listed **
1605 }
1606
1607 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_
1608 tfix_, int_4 _p_ ldtfix_)
1609 { // ** body not listed **
1658 }
1659
1660 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
1661 _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_,
1662 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
1663 _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_
1664 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_
1665 , int_4 _p_ ssfi_, int_4 _p_ tti_, int_4 _p_ ldtti_, int_4 _p_ deltai_)
1666 { // ** body not listed **
1803 }
1804 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
1805 _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_,
1806 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
1807 _p_ nfevi_, int_4 _p_ njevi_, int_4 _p_ int2i_, int_4 _p_ iranki_, int_4 _p_ ldtti_, int_4 _p_ liwkmn_)
1808 { // ** body not listed **
1859 }
1860
1861 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_
1862 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
1863 _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_,
1864 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
1865 _p_ isodr_, real_8 _p_ fjacd_, int_4 _p_ nfev_, int_4 _p_ istop_)
1866 { // ** body not listed **
2065 }
2066
2067 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_
2068 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
2069 _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_,
2070 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_
2071 fjacb_, logical_4 _p_ isodr_, real_8 _p_ fjacd_, int_4 _p_ nfev_, int_4 _p_ istop_)
2072 { // ** body not listed **
2243 }
2244
2245 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_
2246 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_,
2247 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_
2248 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
2249 _p_ istop_, int_4 _p_ nfev_, real_8 _p_ wrk1_, real_8 _p_ wrk2_, real_8 _p_ wrk6_)
2250 { // ** body not listed **
2350 }
2351
2352 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_
2353 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_,
2354 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_,
2355 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
2356 _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_,
2357 real_8 _p_ wrk6_)
2358 { // ** body not listed **
2501 }
2502
2503 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_
2504 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
2505 _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_,
2506 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_,
2507 real_8 _p_ wrk1_, real_8 _p_ wrk2_, real_8 _p_ wrk6_)
2508 { // ** body not listed **
2579 }
2580
2581 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_
2582 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_,
2583 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_
2584 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_
2585 nfev_, real_8 _p_ wrk1_, real_8 _p_ wrk2_, real_8 _p_ wrk6_)
2586 { // ** body not listed **
2726 }
2727
2728 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_
2729 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
2730 _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_,
2731 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_
2732 wrk1_, real_8 _p_ wrk2_, real_8 _p_ wrk6_)
2733 { // ** body not listed **
2793 }
2794
2795 int_4 _dluno (int_4 _p_ lun_, char _p_ fn_)
2796 { // ** body not listed **
2802 }
2803
2804 int_4 _dlunc (int_4 _p_ lun_)
2805 { // ** body not listed **
2817 }
2818
2819 real_8 _dmprec (void)
2820 { // ** body not listed **
2829 }
2830
2831 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_,
2832 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
2833 _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_,
2834 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_
2835 info_)
2836 { // ** body not listed **
2970 }
2971
2972 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
2973 _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_
2974 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
2975 _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_
2976 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_,
2977 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_
2978 info_)
2979 { // ** body not listed **
3103 }
3104
3105 int_4 _doddrv (logical_4 _p_ short_, logical_4 _p_ head_, logical_4 _p_ fstitr_, logical_4 _p_ prtpen_, int_4 (*_fcn)()
3106 , 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_
3107 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_
3108 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_,
3109 real_8 _p_ sstol_, real_8 _p_ partol_, int_4 _p_ maxit_, int_4 _p_ iprint_, int_4 _p_ lunerr_, int_4 _p_ lunrpt_,
3110 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
3111 _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_
3112 info_)
3113 { // ** body not listed **
3373 }
3374
3375 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_
3376 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_
3377 ldtt_, real_8 _p_ delta_, real_8 _p_ alpha2_, real_8 _p_ tau_, real_8 _p_ epsfcn_, logical_4 _p_ isodr_, real_8 _p_
3378 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_
3379 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_,
3380 real_8 _p_ wrk5_, real_8 _p_ wrk_, int_4 _p_ lwrk_, int_4 _p_ istopc_)
3381 { // ** body not listed **
3499 }
3500
3501 int_4 _dodmn (logical_4 _p_ head_, logical_4 _p_ fstitr_, logical_4 _p_ prtpen_, int_4 (*_fcn)(), int_4 _p_ n_, int_4
3502 _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_,
3503 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_,
3504 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
3505 _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_,
3506 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_
3507 , 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_
3508 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_,
3509 int_4 _p_ info_)
3510 { // ** body not listed **
4018 }
4019
4020 int_4 _dodpc1 (int_4 _p_ ipr_, int_4 _p_ lunrpt_, logical_4 _p_ anajac_, logical_4 _p_ cdjac_, logical_4 _p_ chkjac_,
4021 logical_4 _p_ initd_, logical_4 _p_ restrt_, logical_4 _p_ isodr_, logical_4 _p_ implct_, logical_4 _p_ dovcv_,
4022 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_,
4023 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
4024 _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_,
4025 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_,
4026 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_
4027 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_
4028 , real_8 _p_ wsseps_)
4029 { // ** body not listed **
7085 }
7086
7087 int_4 _dodpc2 (int_4 _p_ ipr_, int_4 _p_ lunrpt_, logical_4 _p_ fstitr_, logical_4 _p_ implct_, logical_4 _p_ prtpen_,
7088 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
7089 _p_ alpha_, real_8 _p_ tau_, real_8 _p_ pnorm_, int_4 _p_ np_, real_8 _p_ beta_)
7090 { // ** body not listed **
8027 }
8028
8029 int_4 _dodpc3 (int_4 _p_ ipr_, int_4 _p_ lunrpt_, logical_4 _p_ isodr_, logical_4 _p_ implct_, logical_4 _p_ didvcv_,
8030 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_
8031 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_
8032 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_,
8033 int_4 _p_ idf_, real_8 _p_ beta_, real_8 _p_ sdbeta_, int_4 _p_ ifixb2_, real_8 _p_ f_, real_8 _p_ delta_)
8034 { // ** body not listed **
10924 }
10925
10926 int_4 _dodpcr (int_4 _p_ ipr_, int_4 _p_ lunrpt_, logical_4 _p_ head_, logical_4 _p_ prtpen_, logical_4 _p_ fstitr_,
10927 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_,
10928 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_,
10929 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_,
10930 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_
10931 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_,
10932 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_
10933 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_,
10934 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_
10935 istop_)
10936 { // ** body not listed **
11084 }
11085
11086 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_
11087 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_
11088 ldwd_, int_4 _p_ ld2wd_, int_4 _p_ lwkmn_, int_4 _p_ liwkmn_)
11089 { // ** body not listed **
11812 }
11813
11814 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
11815 _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_
11816 msgd_, real_8 _p_ xplusd_, int_4 _p_ nrow_, int_4 _p_ neta_, int_4 _p_ ntol_)
11817 { // ** body not listed **
13038 }
13039
13040 int_4 _dodpe3 (int_4 _p_ fileno_, int_4 _p_ d2_, int_4 _p_ d3_)
13041 { // ** body not listed **
13185 }
13186 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_,
13187 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_
13188 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_,
13189 logical_4 _p_ isodr_, int_4 _p_ msgd_, real_8 _p_ xplusd_, int_4 _p_ nrow_, int_4 _p_ neta_, int_4 _p_ ntol_)
13190 { // ** body not listed **
13313 }
13314
13315 int_4 _dodphd (logical_4 _p_ head_, int_4 _p_ fileno_)
13316 { // ** body not listed **
13344 }
13345
13346 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_
13347 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_,
13348 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_
13349 ndigit_, real_8 _p_ taufac_, real_8 _p_ sstol_, real_8 _p_ partol_, int_4 _p_ maxit_, int_4 _p_ iprint_, int_4 _p_
13350 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_,
13351 int_4 _p_ ldscld_, real_8 _p_ work_, int_4 _p_ lwork_, int_4 _p_ iwork_, int_4 _p_ liwork_, int_4 _p_ info_)
13352 { // ** body not listed **
13386 }
13387
13388 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_
13389 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_,
13390 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_
13391 work_, int_4 _p_ lwork_, int_4 _p_ iwork_, int_4 _p_ liwork_, int_4 _p_ info_)
13392 { // ** body not listed **
13441 }
13442
13443 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_
13444 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_
13445 ldtt_, real_8 _p_ delta_, real_8 _p_ alpha_, real_8 _p_ epsfcn_, logical_4 _p_ isodr_, real_8 _p_ tfjacb_, real_8 _p_
13446 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_
13447 irank_, real_8 _p_ rcond_, logical_4 _p_ forvcv_, real_8 _p_ wrk1_, real_8 _p_ wrk2_, real_8 _p_ wrk3_, real_8 _p_
13448 wrk4_, real_8 _p_ wrk5_, real_8 _p_ wrk_, int_4 _p_ lwrk_, int_4 _p_ istopc_)
13449 { // ** body not listed **
13707 }
13708
13709 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_
13710 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
13711 _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_,
13712 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_,
13713 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_
13714 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
13715 _p_ istopc_)
13716 { // ** body not listed **
13855 }
13856 int_4 _dpack (int_4 _p_ n2_, int_4 _p_ n1_, real_8 _p_ v1_, real_8 _p_ v2_, int_4 _p_ ifix_)
13857 { // ** body not listed **
13875 }
13876
13877 real_8 _dppnml (real_8 _p_ p_)
13878 { // ** body not listed **
13988 }
13989
13990 real_8 _dppt (real_8 _p_ p_, int_4 _p_ idf_)
13991 { // ** body not listed **
14223 }
14224
14225 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_
14226 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_
14227 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_)
14228 { // ** body not listed **
14247 }
14248
14249 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_
14250 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_
14251 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_)
14252 { // ** body not listed **
14271 }
14272
14273 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_
14274 sclt_, int_4 _p_ ldsclt_)
14275 { // ** body not listed **
14327 }
14328
14329 int_4 _dsclb (int_4 _p_ np_, real_8 _p_ beta_, real_8 _p_ ssf_)
14330 { // ** body not listed **
14389 }
14390
14391 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_)
14392 { // ** body not listed **
14453 }
14454
14455 int_4 _dsetn (int_4 _p_ n_, int_4 _p_ m_, real_8 _p_ x_, int_4 _p_ ldx_, int_4 _p_ nrow_)
14456 { // ** body not listed **
14475 }
14476
14477 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_)
14478 { // ** body not listed **
14572 }
14573
14574 int_4 _dunpac (int_4 _p_ n2_, real_8 _p_ v1_, real_8 _p_ v2_, int_4 _p_ ifix_)
14575 { // ** body not listed **
14593 }
14594
14595 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_
14596 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_
14597 wrk5_)
14598 { // ** body not listed **
14638 }
14639
14640 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_
14641 ldt_, real_8 _p_ wtt_, int_4 _p_ ldwtt_)
14642 { // ** body not listed **
14716 }
14717
14718 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
14719 _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_,
14720 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_
14721 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_
14722 , int_4 _p_ partli_, int_4 _p_ sstoli_, int_4 _p_ taufci_, int_4 _p_ epsmai_, int_4 _p_ beta0i_, int_4 _p_ betaci_,
14723 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_,
14724 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_
14725 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
14726 _p_ wrk4i_, int_4 _p_ wrk5i_, int_4 _p_ wrk6i_, int_4 _p_ wrk7i_, int_4 _p_ lwkmn_)
14727 { // ** body not listed **
14849 }
14850
14851 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_,
14852 int_4 _p_ ldxmy_)
14853 { // ** body not listed **
14862 }
14863
14864 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_,
14865 int_4 _p_ ldxpy_)
14866 { // ** body not listed **
14875 }
14876
14877 int_4 _dzero (int_4 _p_ n_, int_4 _p_ m_, real_8 _p_ a_, int_4 _p_ lda_)
14878 { // ** body not listed **
14900 }
14901
|
© 2002-2025 J.M. van der Veer (jmvdveer@xs4all.nl)
|
