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.1.7
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 };
612 real_8 _p_ work_, int_4 _p_ lwork_, int_4 _p_ iwork_, int_4 _p_ liwork_, logical_4 _p_ access_, logical_4 _p_ isodr_,
613 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_,
614 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_,
615 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_
616 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
617 _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_,
618 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
619 _p_ prers_, real_8 _p_ rnorms_, int_4 _p_ istop_);
621 alpha_, real_8 _p_ tt_, int_4 _p_ ldtt_, int_4 _p_ i_, real_8 _p_ e_);
623 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_
624 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
625 _p_ wrk2_, real_8 _p_ wrk6_, real_8 _p_ wrk7_);
627 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_
628 , 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_
629 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_
630 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_
631 , 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_
632 info_);
635 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_
636 wrk4_, real_8 _p_ we1_, int_4 _p_ nnzw_, int_4 _p_ info_);
638 _p_ redoj_, logical_4 _p_ anajac_, logical_4 _p_ cdjac_, logical_4 _p_ chkjac_, logical_4 _p_ isodr_, logical_4 _p_
639 implct_);
641 ldstp_);
643 real_8 _p_ tfix_, int_4 _p_ ldtfix_);
645 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
646 _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_
647 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_,
648 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
649 _p_ lunrpi_, int_4 _p_ ssfi_, int_4 _p_ tti_, int_4 _p_ ldtti_, int_4 _p_ deltai_);
651 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_,
652 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
653 _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_
654 liwkmn_);
656 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_
657 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
658 _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_,
659 logical_4 _p_ isodr_, real_8 _p_ fjacd_, int_4 _p_ nfev_, int_4 _p_ istop_);
661 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_
662 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
663 _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_,
664 real_8 _p_ fjacb_, logical_4 _p_ isodr_, real_8 _p_ fjacd_, int_4 _p_ nfev_, int_4 _p_ istop_);
666 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_
667 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
668 _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_,
669 int_4 _p_ istop_, int_4 _p_ nfev_, real_8 _p_ wrk1_, real_8 _p_ wrk2_, real_8 _p_ wrk6_);
671 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_
672 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_
673 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_
674 , 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_
675 wrk2_, real_8 _p_ wrk6_);
677 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_
678 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
679 _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
680 _p_ nfev_, real_8 _p_ wrk1_, real_8 _p_ wrk2_, real_8 _p_ wrk6_);
682 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_
683 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
684 _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
685 _p_ nfev_, real_8 _p_ wrk1_, real_8 _p_ wrk2_, real_8 _p_ wrk6_);
687 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
688 _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
689 _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_,
690 real_8 _p_ wrk1_, real_8 _p_ wrk2_, real_8 _p_ wrk6_);
695 anajac_, logical_4 _p_ implct_, int_4 _p_ ifixb_, int_4 _p_ ldx_, int_4 _p_ ldifx_, int_4 _p_ ldscld_, int_4 _p_
696 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
697 _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_
698 stpd_, int_4 _p_ info_);
700 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_,
701 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_
702 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_,
703 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
704 _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_
705 , int_4 _p_ info_);
707 (*_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_,
708 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_,
709 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_
710 taufac_, real_8 _p_ sstol_, real_8 _p_ partol_, int_4 _p_ maxit_, int_4 _p_ iprint_, int_4 _p_ lunerr_, int_4 _p_
711 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_,
712 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
713 _p_ info_);
715 _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
716 _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_
717 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_
718 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_,
719 real_8 _p_ wrk5_, real_8 _p_ wrk_, int_4 _p_ lwrk_, int_4 _p_ istopc_);
721 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
722 _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_
723 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_,
724 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_
725 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_
726 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
727 _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_,
728 int_4 _p_ info_);
730 chkjac_, logical_4 _p_ initd_, logical_4 _p_ restrt_, logical_4 _p_ isodr_, logical_4 _p_ implct_, logical_4 _p_ dovcv_
731 , 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_
732 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_,
733 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_
734 , 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_
735 , 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_
736 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_
737 , real_8 _p_ wsseps_);
739 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_,
740 real_8 _p_ alpha_, real_8 _p_ tau_, real_8 _p_ pnorm_, int_4 _p_ np_, real_8 _p_ beta_);
742 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_,
743 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_,
744 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
745 _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_);
747 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_
748 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_
749 , 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_
750 , 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_
751 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_,
752 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_
753 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_,
754 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_
755 istop_);
757 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_,
758 int_4 _p_ ldwd_, int_4 _p_ ld2wd_, int_4 _p_ lwkmn_, int_4 _p_ liwkmn_);
760 , 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
761 _p_ msgd_, real_8 _p_ xplusd_, int_4 _p_ nrow_, int_4 _p_ neta_, int_4 _p_ ntol_);
764 _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
765 _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_
766 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_);
769 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
770 _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
771 _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_
772 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_,
773 int_4 _p_ ldscld_, real_8 _p_ work_, int_4 _p_ lwork_, int_4 _p_ iwork_, int_4 _p_ liwork_, int_4 _p_ info_);
775 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
776 _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_,
777 real_8 _p_ work_, int_4 _p_ lwork_, int_4 _p_ iwork_, int_4 _p_ liwork_, int_4 _p_ info_);
779 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_
780 , int_4 _p_ ldtt_, real_8 _p_ delta_, real_8 _p_ alpha_, real_8 _p_ epsfcn_, logical_4 _p_ isodr_, real_8 _p_ tfjacb_,
781 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_,
782 int_4 _p_ irank_, real_8 _p_ rcond_, logical_4 _p_ forvcv_, real_8 _p_ wrk1_, real_8 _p_ wrk2_, real_8 _p_ wrk3_,
783 real_8 _p_ wrk4_, real_8 _p_ wrk5_, real_8 _p_ wrk_, int_4 _p_ lwrk_, int_4 _p_ istopc_);
785 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_
786 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_,
787 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_,
788 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_
789 , 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_
790 lwrk_, int_4 _p_ istopc_);
795 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_,
796 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_
797 wrk6_);
799 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_,
800 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_
801 wrk6_);
803 real_8 _p_ sclt_, int_4 _p_ ldsclt_);
810 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_,
811 real_8 _p_ wrk5_);
813 int_4 _p_ ldt_, real_8 _p_ wtt_, int_4 _p_ ldwtt_);
815 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_
816 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_,
817 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
818 _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_
819 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
820 _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_,
821 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_
822 wrk3i_, int_4 _p_ wrk4i_, int_4 _p_ wrk5i_, int_4 _p_ wrk6i_, int_4 _p_ wrk7i_, int_4 _p_ lwkmn_);
824 _p_ xmy_, int_4 _p_ ldxmy_);
826 _p_ xpy_, int_4 _p_ ldxpy_);
828 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_
829 work_, int_4 _p_ lwork_, int_4 _p_ iwork_, int_4 _p_ liwork_, logical_4 _p_ access_, logical_4 _p_ isodr_, int_4 _p_
830 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_
831 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_
832 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_,
833 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_
834 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
835 _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_
836 prers_, real_8 _p_ rnorms_, int_4 _p_ istop_)
837 { // ** body not listed **
923 }
924 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
925 _p_ tt_, int_4 _p_ ldtt_, int_4 _p_ i_, real_8 _p_ e_)
926 { // ** body not listed **
1042 }
1043 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_
1044 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_,
1045 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_
1046 wrk2_, real_8 _p_ wrk6_, real_8 _p_ wrk7_)
1047 { // ** body not listed **
1151 }
1152 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_,
1153 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_
1154 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_,
1155 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_,
1156 real_8 _p_ wrk2_, real_8 _p_ wrk3_, real_8 _p_ wrk6_, real_8 _p_ fjacb_, logical_4 _p_ isodr_, real_8 _p_ fjacd_,
1157 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_
1158 )
1159 { // ** body not listed **
1244 }
1245 int_4 _dfctr (logical_4 _p_ oksemi_, real_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ info_)
1246 { // ** body not listed **
1306 }
1307 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
1308 _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_,
1309 real_8 _p_ we1_, int_4 _p_ nnzw_, int_4 _p_ info_)
1310 { // ** body not listed **
1480 }
1481 int_4 _dflags (int_4 _p_ job_, logical_4 _p_ restrt_, logical_4 _p_ initd_, logical_4 _p_ dovcv_, logical_4 _p_ redoj_,
1482 logical_4 _p_ anajac_, logical_4 _p_ cdjac_, logical_4 _p_ chkjac_, logical_4 _p_ isodr_, logical_4 _p_ implct_)
1483 { // ** body not listed **
1549 }
1550 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_)
1551 { // ** body not listed **
1597 }
1598 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_
1599 tfix_, int_4 _p_ ldtfix_)
1600 { // ** body not listed **
1649 }
1650 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
1651 _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_,
1652 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
1653 _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_
1654 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_
1655 , int_4 _p_ ssfi_, int_4 _p_ tti_, int_4 _p_ ldtti_, int_4 _p_ deltai_)
1656 { // ** body not listed **
1793 }
1794 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
1795 _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_,
1796 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
1797 _p_ nfevi_, int_4 _p_ njevi_, int_4 _p_ int2i_, int_4 _p_ iranki_, int_4 _p_ ldtti_, int_4 _p_ liwkmn_)
1798 { // ** body not listed **
1849 }
1850 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_
1851 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
1852 _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_,
1853 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
1854 _p_ isodr_, real_8 _p_ fjacd_, int_4 _p_ nfev_, int_4 _p_ istop_)
1855 { // ** body not listed **
2054 }
2055 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_
2056 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
2057 _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_,
2058 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_
2059 fjacb_, logical_4 _p_ isodr_, real_8 _p_ fjacd_, int_4 _p_ nfev_, int_4 _p_ istop_)
2060 { // ** body not listed **
2231 }
2232 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_
2233 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_,
2234 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_
2235 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
2236 _p_ istop_, int_4 _p_ nfev_, real_8 _p_ wrk1_, real_8 _p_ wrk2_, real_8 _p_ wrk6_)
2237 { // ** body not listed **
2337 }
2338 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_
2339 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_,
2340 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_,
2341 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
2342 _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_,
2343 real_8 _p_ wrk6_)
2344 { // ** body not listed **
2487 }
2488 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_
2489 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
2490 _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_,
2491 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_,
2492 real_8 _p_ wrk1_, real_8 _p_ wrk2_, real_8 _p_ wrk6_)
2493 { // ** body not listed **
2564 }
2565 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_
2566 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_,
2567 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_
2568 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_
2569 nfev_, real_8 _p_ wrk1_, real_8 _p_ wrk2_, real_8 _p_ wrk6_)
2570 { // ** body not listed **
2710 }
2711 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_
2712 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
2713 _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_,
2714 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_
2715 wrk1_, real_8 _p_ wrk2_, real_8 _p_ wrk6_)
2716 { // ** body not listed **
2776 }
2777 int_4 _dluno (int_4 _p_ lun_, char _p_ fn_)
2778 { // ** body not listed **
2784 }
2785 int_4 _dlunc (int_4 _p_ lun_)
2786 { // ** body not listed **
2798 }
2799 real_8 _dmprec (void)
2800 { // ** body not listed **
2809 }
2810 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_,
2811 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
2812 _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_,
2813 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_
2814 info_)
2815 { // ** body not listed **
2949 }
2950 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
2951 _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_
2952 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
2953 _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_
2954 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_,
2955 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_
2956 info_)
2957 { // ** body not listed **
3081 }
3082 int_4 _doddrv (logical_4 _p_ short_, logical_4 _p_ head_, logical_4 _p_ fstitr_, logical_4 _p_ prtpen_, int_4 (*_fcn)()
3083 , 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_
3084 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_
3085 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_,
3086 real_8 _p_ sstol_, real_8 _p_ partol_, int_4 _p_ maxit_, int_4 _p_ iprint_, int_4 _p_ lunerr_, int_4 _p_ lunrpt_,
3087 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
3088 _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_
3089 info_)
3090 { // ** body not listed **
3350 }
3351 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_
3352 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_
3353 ldtt_, real_8 _p_ delta_, real_8 _p_ alpha2_, real_8 _p_ tau_, real_8 _p_ epsfcn_, logical_4 _p_ isodr_, real_8 _p_
3354 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_
3355 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_,
3356 real_8 _p_ wrk5_, real_8 _p_ wrk_, int_4 _p_ lwrk_, int_4 _p_ istopc_)
3357 { // ** body not listed **
3475 }
3476 int_4 _dodmn (logical_4 _p_ head_, logical_4 _p_ fstitr_, logical_4 _p_ prtpen_, int_4 (*_fcn)(), int_4 _p_ n_, int_4
3477 _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_,
3478 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_,
3479 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
3480 _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_,
3481 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_
3482 , 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_
3483 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_,
3484 int_4 _p_ info_)
3485 { // ** body not listed **
3993 }
3994 int_4 _dodpc1 (int_4 _p_ ipr_, int_4 _p_ lunrpt_, logical_4 _p_ anajac_, logical_4 _p_ cdjac_, logical_4 _p_ chkjac_,
3995 logical_4 _p_ initd_, logical_4 _p_ restrt_, logical_4 _p_ isodr_, logical_4 _p_ implct_, logical_4 _p_ dovcv_,
3996 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_,
3997 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
3998 _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_,
3999 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_,
4000 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_
4001 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_
4002 , real_8 _p_ wsseps_)
4003 { // ** body not listed **
7059 }
7060 int_4 _dodpc2 (int_4 _p_ ipr_, int_4 _p_ lunrpt_, logical_4 _p_ fstitr_, logical_4 _p_ implct_, logical_4 _p_ prtpen_,
7061 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
7062 _p_ alpha_, real_8 _p_ tau_, real_8 _p_ pnorm_, int_4 _p_ np_, real_8 _p_ beta_)
7063 { // ** body not listed **
8000 }
8001 int_4 _dodpc3 (int_4 _p_ ipr_, int_4 _p_ lunrpt_, logical_4 _p_ isodr_, logical_4 _p_ implct_, logical_4 _p_ didvcv_,
8002 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_
8003 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_
8004 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_,
8005 int_4 _p_ idf_, real_8 _p_ beta_, real_8 _p_ sdbeta_, int_4 _p_ ifixb2_, real_8 _p_ f_, real_8 _p_ delta_)
8006 { // ** body not listed **
10896 }
10897 int_4 _dodpcr (int_4 _p_ ipr_, int_4 _p_ lunrpt_, logical_4 _p_ head_, logical_4 _p_ prtpen_, logical_4 _p_ fstitr_,
10898 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_,
10899 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_,
10900 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_,
10901 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_
10902 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_,
10903 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_
10904 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_,
10905 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_
10906 istop_)
10907 { // ** body not listed **
11055 }
11056 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_
11057 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_
11058 ldwd_, int_4 _p_ ld2wd_, int_4 _p_ lwkmn_, int_4 _p_ liwkmn_)
11059 { // ** body not listed **
11782 }
11783 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
11784 _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_
11785 msgd_, real_8 _p_ xplusd_, int_4 _p_ nrow_, int_4 _p_ neta_, int_4 _p_ ntol_)
11786 { // ** body not listed **
13007 }
13008 int_4 _dodpe3 (int_4 _p_ fileno_, int_4 _p_ d2_, int_4 _p_ d3_)
13009 { // ** body not listed **
13153 }
13154 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_,
13155 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_
13156 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_,
13157 logical_4 _p_ isodr_, int_4 _p_ msgd_, real_8 _p_ xplusd_, int_4 _p_ nrow_, int_4 _p_ neta_, int_4 _p_ ntol_)
13158 { // ** body not listed **
13281 }
13282 int_4 _dodphd (logical_4 _p_ head_, int_4 _p_ fileno_)
13283 { // ** body not listed **
13311 }
13312 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_
13313 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_,
13314 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_
13315 ndigit_, real_8 _p_ taufac_, real_8 _p_ sstol_, real_8 _p_ partol_, int_4 _p_ maxit_, int_4 _p_ iprint_, int_4 _p_
13316 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_,
13317 int_4 _p_ ldscld_, real_8 _p_ work_, int_4 _p_ lwork_, int_4 _p_ iwork_, int_4 _p_ liwork_, int_4 _p_ info_)
13318 { // ** body not listed **
13352 }
13353 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_
13354 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_,
13355 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_
13356 work_, int_4 _p_ lwork_, int_4 _p_ iwork_, int_4 _p_ liwork_, int_4 _p_ info_)
13357 { // ** body not listed **
13406 }
13407 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_
13408 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_
13409 ldtt_, real_8 _p_ delta_, real_8 _p_ alpha_, real_8 _p_ epsfcn_, logical_4 _p_ isodr_, real_8 _p_ tfjacb_, real_8 _p_
13410 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_
13411 irank_, real_8 _p_ rcond_, logical_4 _p_ forvcv_, real_8 _p_ wrk1_, real_8 _p_ wrk2_, real_8 _p_ wrk3_, real_8 _p_
13412 wrk4_, real_8 _p_ wrk5_, real_8 _p_ wrk_, int_4 _p_ lwrk_, int_4 _p_ istopc_)
13413 { // ** body not listed **
13671 }
13672 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_
13673 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
13674 _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_,
13675 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_,
13676 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_
13677 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
13678 _p_ istopc_)
13679 { // ** body not listed **
13818 }
13819 int_4 _dpack (int_4 _p_ n2_, int_4 _p_ n1_, real_8 _p_ v1_, real_8 _p_ v2_, int_4 _p_ ifix_)
13820 { // ** body not listed **
13838 }
13839 real_8 _dppnml (real_8 _p_ p_)
13840 { // ** body not listed **
13950 }
13951 real_8 _dppt (real_8 _p_ p_, int_4 _p_ idf_)
13952 { // ** body not listed **
14184 }
14185 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_
14186 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_
14187 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_)
14188 { // ** body not listed **
14207 }
14208 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_
14209 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_
14210 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_)
14211 { // ** body not listed **
14230 }
14231 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_
14232 sclt_, int_4 _p_ ldsclt_)
14233 { // ** body not listed **
14285 }
14286 int_4 _dsclb (int_4 _p_ np_, real_8 _p_ beta_, real_8 _p_ ssf_)
14287 { // ** body not listed **
14346 }
14347 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_)
14348 { // ** body not listed **
14409 }
14410 int_4 _dsetn (int_4 _p_ n_, int_4 _p_ m_, real_8 _p_ x_, int_4 _p_ ldx_, int_4 _p_ nrow_)
14411 { // ** body not listed **
14430 }
14431 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_)
14432 { // ** body not listed **
14526 }
14527 int_4 _dunpac (int_4 _p_ n2_, real_8 _p_ v1_, real_8 _p_ v2_, int_4 _p_ ifix_)
14528 { // ** body not listed **
14546 }
14547 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_
14548 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_
14549 wrk5_)
14550 { // ** body not listed **
14590 }
14591 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_
14592 ldt_, real_8 _p_ wtt_, int_4 _p_ ldwtt_)
14593 { // ** body not listed **
14667 }
14668 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
14669 _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_,
14670 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_
14671 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_
14672 , int_4 _p_ partli_, int_4 _p_ sstoli_, int_4 _p_ taufci_, int_4 _p_ epsmai_, int_4 _p_ beta0i_, int_4 _p_ betaci_,
14673 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_,
14674 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_
14675 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
14676 _p_ wrk4i_, int_4 _p_ wrk5i_, int_4 _p_ wrk6i_, int_4 _p_ wrk7i_, int_4 _p_ lwkmn_)
14677 { // ** body not listed **
14799 }
14800 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_,
14801 int_4 _p_ ldxmy_)
14802 { // ** body not listed **
14811 }
14812 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_,
14813 int_4 _p_ ldxpy_)
14814 { // ** body not listed **
14823 }
14824 int_4 _dzero (int_4 _p_ n_, int_4 _p_ m_, real_8 _p_ a_, int_4 _p_ lda_)
14825 { // ** body not listed **
14847 }
|
© 2002-2025 J.M. van der Veer (jmvdveer@xs4all.nl)
|
