mathlib-slatec.c

     1  //! @file mathlib-slatec.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  //! 391 subprograms from SLATEC
    24  
    25  // Compiled from Fortran source code by VIF.
    26  // Selected subprograms are:
    27  //
    28  // AAAAAA COSGEN DC_9   DMPAR  DQDOTA DX     ISORT  PGSF   RPQR79 SPLPUP
    29  // ASYIK  CPADD  DCFOD  DNBCO  DQDOTI DX4    JAIRY  PIMACH RPZERO SPOFS
    30  // ASYJY  CPEVL  DCKDER DNBDI  DQFORM DXADJ  LLSIA  PINITM S1MERG SPOIR
    31  // AVINT  CPEVLR DCOEF  DNBFA  DQRFAC DXC210 LPDP   PNNZRS SBOCLS SPOPT
    32  // BCRH   CPOFS  DCOV   DNBFS  DQRSLV DXPSI  LSEI   POISD2 SBOLS  SPPERM
    33  // BDIFF  CPOIR  DCSCAL DNBSL  DRC    DXRED  LSI    POISN2 SBOLSM SPSORT
    34  // BKSOL  CPQR79 DCV    DNLS1  DRC3JJ DY     LSSODS POISP2 SCLOSM SREADP
    35  // BLKTR1 CPROC  DDES   DNLS1E DRC3JM DY4    LSSUDS POLCOF SCOEF  SSIEV
    36  // BNDACC CPROCP DDOGLG DNSQ   DRC6J  DYAIRY MACON  POLFIT SCOV   SSORT
    37  // BNDSOL CPROD  DEFCMN DNSQE  DRD    EFCMN  MGSBV  POLINT SGEEV  STOR1
    38  // BSGQ8  CPRODP DEFE4  DOHTRL DREADP FCMN   MINSO4 POLYVL SGEFS  STWAY
    39  // BSPLVD CPZERO DEFEHL DORTHR DREORT FDJAC3 MINSOL POS3D1 SGEIR  SUDS
    40  // BSPLVN CRATI  DEFER  DP1VLU DRF    FDUMP  MPADD  POSTG2 SGLSS  SVECS
    41  // BSRH   CS1S2  DENORM DPCHNG DRJ    FFTDOC MPADD2 PPADD  SNBCO  SWRITP
    42  // C1MERG CSCALE DERKFS DPCOEF DRKFS  FULMAT MPADD3 PPGQ8  SNBDI  TEVLC
    43  // CASYI  CSHCH  DES    DPINCW DSORT  FZERO  MPBLAS PPGSF  SNBFA  TEVLS
    44  // CBLKT1 CUCHK  DFCMN  DPINIT DSOS   GAMRN  MPCDM  PPPSF  SNBFS  TRI3
    45  // CCMPB  CUNHJ  DFDJC1 DPINTM DSOSEQ GAUS8  MPCHK  PPSGF  SNBIR  TRIDQ
    46  // CFOD   CUNIK  DFDJC3 DPLINT DSOSSL H12    MPCMD  PPSPF  SNBSL  TRIS4
    47  // CGEEV  CV     DFEHL  DPLPCE DSPLP  HFTI   MPDIVI PROC   SNLS1  TRISP
    48  // CGEFS  D1MERG DFSPVD DPLPDM DSTOR1 HKSEQ  MPERR  PROCP  SNLS1E TRIX
    49  // CGEIR  D1MPYQ DFSPVN DPLPFE DSTWAY HPPERM MPMAXR PROD   SNSQ   U11LS
    50  // CHIEV  D1UPDT DFULMT DPLPFL DSUDS  HPSORT MPMLP  PRODP  SNSQE  U11US
    51  // CHKPR4 DASYIK DFZERO DPLPMN DU11LS HSTART MPMUL  PRVEC  SODS   U12LS
    52  // CHKPRM DAVINT DGAUS8 DPLPMU DU11US HSTCS1 MPMUL2 PRWPGE SOPENM U12US
    53  // CHKSN4 DBDIFF DGEFS  DPLPUP DU12LS HVNRM  MPMULI PRWVIR SOS    ULSIA
    54  // CHKSNG DBKSOL DGLSS  DPNNZR DU12US HWSCS1 MPNZR  PSGF   SOSEQS USRMAT
    55  // CMPCSG DBNDAC DH12   DPOFS  DULSIA HWSSS1 MPOVFL PSIFN  SOSSOL VNWRMS
    56  // CMPOSD DBNDSL DHFTI  DPOLCF DUSRMT I1MERG MPSTR  PSIXN  SPELI4 WNLIT
    57  // CMPOSN DBOCLS DHSTRT DPOLFT DVECS  IDLOC  MPUNFL PVALUE SPELIP WNLSM
    58  // CMPOSP DBOLS  DHVNRM DPOLVL DVNRMS INDXA  NUMXER PYTHAG SPINCW WNLT1
    59  // CMPTR3 DBOLSM DJAIRY DPOPT  DWNLIT INDXB  OHTROL RC     SPINIT WNLT2
    60  // CMPTRX DBSGQ8 DLLSIA DPPERM DWNLSM INDXC  OHTROR RC3JJ  SPLP   WNLT3
    61  // CNBCO  DC_336 DLPDP  DPPGQ8 DWNLT1 INXCA  ORTHO4 RC3JM  SPLPCE WNNLS
    62  // CNBDI  DC_339 DLSEI  DPRVEC DWNLT2 INXCB  ORTHOG RC6J   SPLPDM XADJ
    63  // CNBFA  DC_341 DLSI   DPRWPG DWNLT3 INXCC  ORTHOL RD     SPLPFE XC210
    64  // CNBFS  DC_408 DLSSUD DPRWVR DWNNLS IPLOC  ORTHOR REORT  SPLPFL XPSI
    65  // CNBIR  DC_5   DMACON DPSIXN DWRITP IPPERM PCHNGS RF     SPLPMN XRED
    66  // CNBSL  DC_50  DMGSBV DPSORT DWUPDT IPSORT PCOEF  RJ     SPLPMU YAIRY
    67  // COMPB
    68  
    69  // Miscellaneous routines from SLATEC, not in other packages as BLAS,
    70  // EISPACK, FISHPACK, FFTPACK, FNLIB, LINPACK etcetera.
    71  // 
    72  // Source: netlib.org/slatec/
    73  
    74  // The license for SLATEC Fortran source code is:
    75  //
    76  // The SLATEC Common Mathematical Library was developed at
    77  // US government research laboratories and is in the public domain.
    78  // 
    79  // Repository: http://www.netlib.org/slatec/
    80  // 
    81  // The SLATEC common mathematical library is issued by the following
    82  // 
    83  //         Air Force Weapons Laboratory, Albuquerque
    84  //         Lawrence Livermore National Laboratory, Livermore
    85  //         Los Alamos National Laboratory, Los Alamos
    86  //         National Institute of Standards and Technology, Washington
    87  //         National Energy Research Supercomputer Center, Livermore
    88  //         Oak Ridge National Laboratory, Oak Ridge
    89  //         Sandia National Laboratories, Albuquerque
    90  //         Sandia National Laboratories, Livermore
    91  // 
    92  // All questions concerning the distribution of the library should be
    93  // directed to the NATIONAL ENERGY SOFTWARE CENTER, 9700 Cass Ave.,
    94  // Argonne, Illinois  60439, and not to the authors of the subprograms.
    95  // 
    96  //                  * * * * * Notice * * * * *
    97  // 
    98  // This material was prepared as an account of work sponsored by the
    99  // United States Government.  Neither the United States, nor the
   100  // Department of Energy, nor the Department of Defense, nor any of
   101  // their employees, nor any of their contractors, subcontractors, or
   102  // their employees, makes any warranty, expressed or implied, or
   103  // assumes any legal liability or responsibility for the accuracy,
   104  // completeness, or usefulness of any information, apparatus, product,
   105  // or process disclosed, or represents that its use would not infringe
   106  // upon privately owned rights.
   107  
   108  /*
   109  Generated by VIF - experimental VIntage Fortran compiler.
   110  VIF release 1.2.12
   111  */
   891  static CALLS __calls[__ncalls] = {
   892    {"aaaaaa", 0}, // subroutine
   893    {"asyik", 0}, // subroutine
   894    {"asyjy", 0}, // subroutine
   895    {"avint", 0}, // subroutine
   896    {"bcrh", 0}, // function
   897    {"bdiff", 0}, // subroutine
   898    {"bksol", 0}, // subroutine
   899    {"blktr1", 0}, // subroutine
   900    {"bndacc", 0}, // subroutine
   901    {"bndsol", 0}, // subroutine
   902    {"bsgq8", 0}, // subroutine
   903    {"bsplvd", 0}, // subroutine
   904    {"bsplvn", 0}, // subroutine
   905    {"bsrh", 0}, // function
   906    {"c1merg", 0}, // subroutine
   907    {"casyi", 0}, // subroutine
   908    {"cblkt1", 0}, // subroutine
   909    {"ccmpb", 0}, // subroutine
   910    {"cfod", 0}, // subroutine
   911    {"cgeev", 0}, // subroutine
   912    {"cgefs", 0}, // subroutine
   913    {"cgeir", 0}, // subroutine
   914    {"chiev", 0}, // subroutine
   915    {"chkpr4", 0}, // subroutine
   916    {"chkprm", 0}, // subroutine
   917    {"chksn4", 0}, // subroutine
   918    {"chksng", 0}, // subroutine
   919    {"cmpcsg", 0}, // subroutine
   920    {"cmposd", 0}, // subroutine
   921    {"cmposn", 0}, // subroutine
   922    {"cmposp", 0}, // subroutine
   923    {"cmptr3", 0}, // subroutine
   924    {"cmptrx", 0}, // subroutine
   925    {"cnbco", 0}, // subroutine
   926    {"cnbdi", 0}, // subroutine
   927    {"cnbfa", 0}, // subroutine
   928    {"cnbfs", 0}, // subroutine
   929    {"cnbir", 0}, // subroutine
   930    {"cnbsl", 0}, // subroutine
   931    {"compb", 0}, // subroutine
   932    {"cosgen", 0}, // subroutine
   933    {"cpadd", 0}, // subroutine
   934    {"cpevl", 0}, // subroutine
   935    {"cpevlr", 0}, // subroutine
   936    {"cpofs", 0}, // subroutine
   937    {"cpoir", 0}, // subroutine
   938    {"cpqr79", 0}, // subroutine
   939    {"cproc", 0}, // subroutine
   940    {"cprocp", 0}, // subroutine
   941    {"cprod", 0}, // subroutine
   942    {"cprodp", 0}, // subroutine
   943    {"cpzero", 0}, // subroutine
   944    {"crati", 0}, // subroutine
   945    {"cs1s2", 0}, // subroutine
   946    {"cscale", 0}, // subroutine
   947    {"cshch", 0}, // subroutine
   948    {"cuchk", 0}, // subroutine
   949    {"cunhj", 0}, // subroutine
   950    {"cunik", 0}, // subroutine
   951    {"cv", 0}, // real*4 function
   952    {"d1merg", 0}, // subroutine
   953    {"d1mpyq", 0}, // subroutine
   954    {"d1updt", 0}, // subroutine
   955    {"dasyik", 0}, // subroutine
   956    {"davint", 0}, // subroutine
   957    {"dbdiff", 0}, // subroutine
   958    {"dbksol", 0}, // subroutine
   959    {"dbndac", 0}, // subroutine
   960    {"dbndsl", 0}, // subroutine
   961    {"dbocls", 0}, // subroutine
   962    {"dbols", 0}, // subroutine
   963    {"dbolsm", 0}, // subroutine
   964    {"dbsgq8", 0}, // subroutine
   965    {"dcfod", 0}, // subroutine
   966    {"dckder", 0}, // subroutine
   967    {"dcoef", 0}, // subroutine
   968    {"dcov", 0}, // subroutine
   969    {"dcscal", 0}, // subroutine
   970    {"dcv", 0}, // real*8 function
   971    {"ddes", 0}, // subroutine
   972    {"ddoglg", 0}, // subroutine
   973    {"defcmn", 0}, // subroutine
   974    {"defe4", 0}, // subroutine
   975    {"defehl", 0}, // subroutine
   976    {"defer", 0}, // subroutine
   977    {"denorm", 0}, // real*8 function
   978    {"derkfs", 0}, // subroutine
   979    {"des", 0}, // subroutine
   980    {"dfcmn", 0}, // subroutine
   981    {"dfdjc1", 0}, // subroutine
   982    {"dfdjc3", 0}, // subroutine
   983    {"dfehl", 0}, // subroutine
   984    {"dfspvd", 0}, // subroutine
   985    {"dfspvn", 0}, // subroutine
   986    {"dfulmt", 0}, // subroutine
   987    {"dfzero", 0}, // subroutine
   988    {"dgaus8", 0}, // subroutine
   989    {"dgefs", 0}, // subroutine
   990    {"dglss", 0}, // subroutine
   991    {"dh12", 0}, // subroutine
   992    {"dhfti", 0}, // subroutine
   993    {"dhstrt", 0}, // subroutine
   994    {"dhvnrm", 0}, // real*8 function
   995    {"djairy", 0}, // subroutine
   996    {"dllsia", 0}, // subroutine
   997    {"dlpdp", 0}, // subroutine
   998    {"dlsei", 0}, // subroutine
   999    {"dlsi", 0}, // subroutine
  1000    {"dlssud", 0}, // subroutine
  1001    {"dmacon", 0}, // subroutine
  1002    {"dmgsbv", 0}, // subroutine
  1003    {"dmpar", 0}, // subroutine
  1004    {"dnbco", 0}, // subroutine
  1005    {"dnbdi", 0}, // subroutine
  1006    {"dnbfa", 0}, // subroutine
  1007    {"dnbfs", 0}, // subroutine
  1008    {"dnbsl", 0}, // subroutine
  1009    {"dnls1e", 0}, // subroutine
  1010    {"dnls1", 0}, // subroutine
  1011    {"dnsqe", 0}, // subroutine
  1012    {"dnsq", 0}, // subroutine
  1013    {"dohtrl", 0}, // subroutine
  1014    {"dorthr", 0}, // subroutine
  1015    {"dp1vlu", 0}, // subroutine
  1016    {"dpchng", 0}, // subroutine
  1017    {"dpcoef", 0}, // subroutine
  1018    {"dpincw", 0}, // subroutine
  1019    {"dpinit", 0}, // subroutine
  1020    {"dpintm", 0}, // subroutine
  1021    {"dplint", 0}, // subroutine
  1022    {"dplpce", 0}, // subroutine
  1023    {"dplpdm", 0}, // subroutine
  1024    {"dplpfe", 0}, // subroutine
  1025    {"dplpfl", 0}, // subroutine
  1026    {"dplpmn", 0}, // subroutine
  1027    {"dplpmu", 0}, // subroutine
  1028    {"dplpup", 0}, // subroutine
  1029    {"dpnnzr", 0}, // subroutine
  1030    {"dpofs", 0}, // subroutine
  1031    {"dpolcf", 0}, // subroutine
  1032    {"dpolft", 0}, // subroutine
  1033    {"dpolvl", 0}, // subroutine
  1034    {"dpopt", 0}, // subroutine
  1035    {"dpperm", 0}, // subroutine
  1036    {"dppgq8", 0}, // subroutine
  1037    {"dprvec", 0}, // real*8 function
  1038    {"dprwpg", 0}, // subroutine
  1039    {"dprwvr", 0}, // subroutine
  1040    {"dpsixn", 0}, // real*8 function
  1041    {"dpsort", 0}, // subroutine
  1042    {"dqdota", 0}, // real*8 function
  1043    {"dqdoti", 0}, // real*8 function
  1044    {"dqform", 0}, // subroutine
  1045    {"dqrfac", 0}, // subroutine
  1046    {"dqrslv", 0}, // subroutine
  1047    {"drc3jj", 0}, // subroutine
  1048    {"drc3jm", 0}, // subroutine
  1049    {"drc6j", 0}, // subroutine
  1050    {"drc", 0}, // real*8 function
  1051    {"drd", 0}, // real*8 function
  1052    {"dreadp", 0}, // subroutine
  1053    {"dreort", 0}, // subroutine
  1054    {"drf", 0}, // real*8 function
  1055    {"drj", 0}, // real*8 function
  1056    {"drkfs", 0}, // subroutine
  1057    {"dsort", 0}, // subroutine
  1058    {"dsoseq", 0}, // subroutine
  1059    {"dsos", 0}, // subroutine
  1060    {"dsossl", 0}, // subroutine
  1061    {"dsplp", 0}, // subroutine
  1062    {"dstor1", 0}, // subroutine
  1063    {"dstway", 0}, // subroutine
  1064    {"dsuds", 0}, // subroutine
  1065    {"du11ls", 0}, // subroutine
  1066    {"du11us", 0}, // subroutine
  1067    {"du12ls", 0}, // subroutine
  1068    {"du12us", 0}, // subroutine
  1069    {"dulsia", 0}, // subroutine
  1070    {"dusrmt", 0}, // subroutine
  1071    {"dvecs", 0}, // subroutine
  1072    {"dvnrms", 0}, // real*8 function
  1073    {"dwnlit", 0}, // subroutine
  1074    {"dwnlsm", 0}, // subroutine
  1075    {"dwnlt1", 0}, // subroutine
  1076    {"dwnlt2", 0}, // logical*4 function
  1077    {"dwnlt3", 0}, // subroutine
  1078    {"dwnnls", 0}, // subroutine
  1079    {"dwritp", 0}, // subroutine
  1080    {"dwupdt", 0}, // subroutine
  1081    {"dx4", 0}, // subroutine
  1082    {"dxadj", 0}, // subroutine
  1083    {"dxc210", 0}, // subroutine
  1084    {"dx", 0}, // subroutine
  1085    {"dxpsi", 0}, // real*8 function
  1086    {"dxred", 0}, // subroutine
  1087    {"dy4", 0}, // subroutine
  1088    {"dyairy", 0}, // subroutine
  1089    {"dy", 0}, // subroutine
  1090    {"efcmn", 0}, // subroutine
  1091    {"fcmn", 0}, // subroutine
  1092    {"fdjac3", 0}, // subroutine
  1093    {"fdump", 0}, // subroutine
  1094    {"fftdoc", 0}, // subroutine
  1095    {"fulmat", 0}, // subroutine
  1096    {"fzero", 0}, // subroutine
  1097    {"gamrn", 0}, // real*4 function
  1098    {"gaus8", 0}, // subroutine
  1099    {"h12", 0}, // subroutine
  1100    {"hfti", 0}, // subroutine
  1101    {"hkseq", 0}, // subroutine
  1102    {"hpperm", 0}, // subroutine
  1103    {"hpsort", 0}, // subroutine
  1104    {"hstart", 0}, // subroutine
  1105    {"hstcs1", 0}, // subroutine
  1106    {"hvnrm", 0}, // function
  1107    {"hwscs1", 0}, // subroutine
  1108    {"hwsss1", 0}, // subroutine
  1109    {"i1merg", 0}, // subroutine
  1110    {"idloc", 0}, // integer*4 function
  1111    {"indxa", 0}, // subroutine
  1112    {"indxb", 0}, // subroutine
  1113    {"indxc", 0}, // subroutine
  1114    {"inxca", 0}, // subroutine
  1115    {"inxcb", 0}, // subroutine
  1116    {"inxcc", 0}, // subroutine
  1117    {"iploc", 0}, // integer*4 function
  1118    {"ipperm", 0}, // subroutine
  1119    {"ipsort", 0}, // subroutine
  1120    {"isort", 0}, // subroutine
  1121    {"jairy", 0}, // subroutine
  1122    {"llsia", 0}, // subroutine
  1123    {"lpdp", 0}, // subroutine
  1124    {"lsei", 0}, // subroutine
  1125    {"lsi", 0}, // subroutine
  1126    {"lssods", 0}, // subroutine
  1127    {"lssuds", 0}, // subroutine
  1128    {"macon", 0}, // subroutine
  1129    {"mgsbv", 0}, // subroutine
  1130    {"minso4", 0}, // subroutine
  1131    {"minsol", 0}, // subroutine
  1132    {"mpadd2", 0}, // subroutine
  1133    {"mpadd3", 0}, // subroutine
  1134    {"mpadd", 0}, // subroutine
  1135    {"mpblas", 0}, // subroutine
  1136    {"mpcdm", 0}, // subroutine
  1137    {"mpchk", 0}, // subroutine
  1138    {"mpcmd", 0}, // subroutine
  1139    {"mpdivi", 0}, // subroutine
  1140    {"mperr", 0}, // subroutine
  1141    {"mpmaxr", 0}, // subroutine
  1142    {"mpmlp", 0}, // subroutine
  1143    {"mpmul2", 0}, // subroutine
  1144    {"mpmul", 0}, // subroutine
  1145    {"mpmuli", 0}, // subroutine
  1146    {"mpnzr", 0}, // subroutine
  1147    {"mpovfl", 0}, // subroutine
  1148    {"mpstr", 0}, // subroutine
  1149    {"mpunfl", 0}, // subroutine
  1150    {"numxer", 0}, // function
  1151    {"ohtrol", 0}, // subroutine
  1152    {"ohtror", 0}, // subroutine
  1153    {"ortho4", 0}, // subroutine
  1154    {"orthog", 0}, // subroutine
  1155    {"orthol", 0}, // subroutine
  1156    {"orthor", 0}, // subroutine
  1157    {"pchngs", 0}, // subroutine
  1158    {"pcoef", 0}, // subroutine
  1159    {"pgsf", 0}, // function
  1160    {"pimach", 0}, // function
  1161    {"pinitm", 0}, // subroutine
  1162    {"pnnzrs", 0}, // subroutine
  1163    {"poisd2", 0}, // subroutine
  1164    {"poisn2", 0}, // subroutine
  1165    {"poisp2", 0}, // subroutine
  1166    {"polcof", 0}, // subroutine
  1167    {"polfit", 0}, // subroutine
  1168    {"polint", 0}, // subroutine
  1169    {"polyvl", 0}, // subroutine
  1170    {"pos3d1", 0}, // subroutine
  1171    {"postg2", 0}, // subroutine
  1172    {"ppadd", 0}, // subroutine
  1173    {"ppgq8", 0}, // subroutine
  1174    {"ppgsf", 0}, // function
  1175    {"pppsf", 0}, // function
  1176    {"ppsgf", 0}, // function
  1177    {"ppspf", 0}, // function
  1178    {"proc", 0}, // subroutine
  1179    {"procp", 0}, // subroutine
  1180    {"prod", 0}, // subroutine
  1181    {"prodp", 0}, // subroutine
  1182    {"prvec", 0}, // function
  1183    {"prwpge", 0}, // subroutine
  1184    {"prwvir", 0}, // subroutine
  1185    {"psgf", 0}, // function
  1186    {"psifn", 0}, // subroutine
  1187    {"psixn", 0}, // function
  1188    {"pvalue", 0}, // subroutine
  1189    {"pythag", 0}, // real*4 function
  1190    {"rc3jj", 0}, // subroutine
  1191    {"rc3jm", 0}, // subroutine
  1192    {"rc6j", 0}, // subroutine
  1193    {"rc", 0}, // real*4 function
  1194    {"rd", 0}, // real*4 function
  1195    {"reort", 0}, // subroutine
  1196    {"rf", 0}, // real*4 function
  1197    {"rj", 0}, // real*4 function
  1198    {"rpqr79", 0}, // subroutine
  1199    {"rpzero", 0}, // subroutine
  1200    {"s1merg", 0}, // subroutine
  1201    {"sbocls", 0}, // subroutine
  1202    {"sbols", 0}, // subroutine
  1203    {"sbolsm", 0}, // subroutine
  1204    {"sclosm", 0}, // subroutine
  1205    {"scoef", 0}, // subroutine
  1206    {"scov", 0}, // subroutine
  1207    {"sgeev", 0}, // subroutine
  1208    {"sgefs", 0}, // subroutine
  1209    {"sgeir", 0}, // subroutine
  1210    {"sglss", 0}, // subroutine
  1211    {"snbco", 0}, // subroutine
  1212    {"snbdi", 0}, // subroutine
  1213    {"snbfa", 0}, // subroutine
  1214    {"snbfs", 0}, // subroutine
  1215    {"snbir", 0}, // subroutine
  1216    {"snbsl", 0}, // subroutine
  1217    {"snls1e", 0}, // subroutine
  1218    {"snls1", 0}, // subroutine
  1219    {"snsqe", 0}, // subroutine
  1220    {"snsq", 0}, // subroutine
  1221    {"sods", 0}, // subroutine
  1222    {"sopenm", 0}, // subroutine
  1223    {"soseqs", 0}, // subroutine
  1224    {"sos", 0}, // subroutine
  1225    {"sossol", 0}, // subroutine
  1226    {"speli4", 0}, // subroutine
  1227    {"spelip", 0}, // subroutine
  1228    {"spincw", 0}, // subroutine
  1229    {"spinit", 0}, // subroutine
  1230    {"splpce", 0}, // subroutine
  1231    {"splpdm", 0}, // subroutine
  1232    {"splp", 0}, // subroutine
  1233    {"splpfe", 0}, // subroutine
  1234    {"splpfl", 0}, // subroutine
  1235    {"splpmn", 0}, // subroutine
  1236    {"splpmu", 0}, // subroutine
  1237    {"splpup", 0}, // subroutine
  1238    {"spofs", 0}, // subroutine
  1239    {"spoir", 0}, // subroutine
  1240    {"spopt", 0}, // subroutine
  1241    {"spperm", 0}, // subroutine
  1242    {"spsort", 0}, // subroutine
  1243    {"sreadp", 0}, // subroutine
  1244    {"ssiev", 0}, // subroutine
  1245    {"ssort", 0}, // subroutine
  1246    {"stor1", 0}, // subroutine
  1247    {"stway", 0}, // subroutine
  1248    {"suds", 0}, // subroutine
  1249    {"svecs", 0}, // subroutine
  1250    {"swritp", 0}, // subroutine
  1251    {"tevlc", 0}, // subroutine
  1252    {"tevls", 0}, // subroutine
  1253    {"tri3", 0}, // subroutine
  1254    {"tridq", 0}, // subroutine
  1255    {"tris4", 0}, // subroutine
  1256    {"trisp", 0}, // subroutine
  1257    {"trix", 0}, // subroutine
  1258    {"u11ls", 0}, // subroutine
  1259    {"u11us", 0}, // subroutine
  1260    {"u12ls", 0}, // subroutine
  1261    {"u12us", 0}, // subroutine
  1262    {"ulsia", 0}, // subroutine
  1263    {"usrmat", 0}, // subroutine
  1264    {"vnwrms", 0}, // real*4 function
  1265    {"wnlit", 0}, // subroutine
  1266    {"wnlsm", 0}, // subroutine
  1267    {"wnlt1", 0}, // subroutine
  1268    {"wnlt2", 0}, // logical*4 function
  1269    {"wnlt3", 0}, // subroutine
  1270    {"wnnls", 0}, // subroutine
  1271    {"xadj", 0}, // subroutine
  1272    {"xc210", 0}, // subroutine
  1273    {"xpsi", 0}, // real*4 function
  1274    {"xred", 0}, // subroutine
  1275    {"yairy", 0}, // subroutine
  1276    {NULL, 0}
  1277  };
  1278  
  1279  static struct {
  1280    int_4 npp_, k_, nm_, ncmplx_, ik_;
  1281    real_4 eps_, cnv_, machep_;
  1282  } ccblk_;
  1283  static struct {
  1284    int_4 npp_, k_, nm_, ncmplx_, ik_;
  1285    real_4 eps_, cnv_, machep_;
  1286  } cblkt_;
  1287  static struct {
  1288    int_4 kswx_, kswy_, k_, l_, mit_, nit_, is_, ms_, js_, ns_;
  1289    real_4 ait_, bit_, cit_, dit_, dlx_, dly_, tdlx3_, tdly3_, dlx4_, dly4_;
  1290  } spl4_;
  1291  static struct {
  1292    int_4 kswx_, kswy_, k_, l_, mit_, nit_, is_, ms_, js_, ns_;
  1293    real_4 ait_, bit_, cit_, dit_, dlx_, dly_, tdlx3_, tdly3_, dlx4_, dly4_;
  1294  } splpcm_;
  1295  static struct {
  1296    int_4 lpar_;
  1297    real_8 eps_, fouru_, sqovfl_, sru_, twou_, uro_;
  1298  } dml5mc_;
  1299  static struct {
  1300    int_4 icoco_, indpvt_, integ_, mxnon_, ndisk_, neq_, neqivp_, nfcc_, nic_, nopg_, nps_, ntape_, ntp_, numort_, nxpts_, 
  1301    lnfcc_;
  1302    real_8 ae_, re_, tol_;
  1303  } dml18j_;
  1304  static struct {
  1305    int_4 lp_, lenl_, lenu_, ncp_, lrow_, lcol_;
  1306    real_8 small_;
  1307  } la05dd_;
  1308  static struct {
  1309    int_4 mpb_, mpt_, mpm_, mplun_, mpmxr_, mpr_[30], b_, t_, m_, lun_, mxr_, r_[30];
  1310  } mpcom_;
  1311  static struct {
  1312    int_4 igofx_, inhomo_, ivp_, ncompd_, nfc_, ncomp_;
  1313    real_8 c_, xsav_;
  1314  } dml8sz_;
  1315  static struct {
  1316    int_4 info_[15], istkop_, knswot_, kop_, lotjp_, mnswot_, nswot_;
  1317    real_8 pwcnd_, px_, tnd_, x_, xbeg_, xend_, xop_, xot_;
  1318  } dml15t_;
  1319  static struct {
  1320    int_4 l_, l2_, kmax_;
  1321    real_8 radix_, radixl_, rad2l_, dlg10r_;
  1322  } dxblk2_;
  1323  static struct {
  1324    int_4 nlg102_, mlg102_, lg102_[21];
  1325  } dxblk3_;
  1326  static struct {
  1327    int_4 lpar_;
  1328    real_4 uro_, sru_, eps_, sqovfl_, twou_, fouru_;
  1329  } ml5mco_;
  1330  static struct {
  1331    int_4 nxpts_, nic_, nopg_, mxnon_, ndisk_, ntape_, neq_, indpvt_, integ_, nps_, ntp_, neqivp_, numort_, nfcc_, icoco_, 
  1332    lnfcc_;
  1333    real_4 ae_, re_, tol_;
  1334  } ml18jr_;
  1335  static struct {
  1336    int_4 igofx_, inhomo_, ivp_, ncompd_, nfc_, ncomp_;
  1337    real_4 c_, xsav_;
  1338  } ml8sz_;
  1339  static struct {
  1340    int_4 info_[15], istkop_, knswot_, kop_, lotjp_, mnswot_, nswot_;
  1341    real_4 px_, pwcnd_, tnd_, x_, xbeg_, xend_, xot_, xop_;
  1342  } ml15to_;
  1343  static struct {
  1344    int_4 lp_, lenl_, lenu_, ncp_, lrow_, lcol_;
  1345    real_4 small_;
  1346  } la05ds_;
  1347  static struct {
  1348    int_4 l_, l2_, kmax_;
  1349    real_4 radix_, radixl_, rad2l_, dlg10r_;
  1350  } xblk2_;
  1351  static struct {
  1352    int_4 nlg102_, mlg102_, lg102_[21];
  1353  } xblk3_;
  1356  arg_, int_4 _p_ in_, real_4 _p_ y_);
  1358  y_, real_4 _p_ wk_, int_4 _p_ iflw_);
  1360  int_4 _p_ ierr_);
  1362  real_4 (*_f)(), real_4 _p_ sgn_);
  1366  real_4 _p_ bm_, real_4 _p_ cm_, int_4 _p_ idimy_, real_4 _p_ y_, real_4 _p_ b_, real_4 _p_ w1_, real_4 _p_ w2_, real_4 
  1367  _p_ w3_, real_4 _p_ wd_, real_4 _p_ ww_, real_4 _p_ wu_, int_4 (*_prdct)(), int_4 (*_cprdct)());
  1369  int_4 _p_ jt_);
  1371  real_4 _p_ x_, int_4 _p_ n_, real_4 _p_ rnorm_);
  1373  real_4 _p_ a_, real_4 _p_ b_, int_4 _p_ inbv_, real_4 _p_ err_, real_4 _p_ ans_, int_4 _p_ ierr_, real_4 _p_ work_);
  1375  nderiv_);
  1377  vnikx_);
  1379  real_4 (*_f)(), real_4 _p_ sgn_);
  1381  );
  1383  nz_, real_4 _p_ rl_, real_4 _p_ tol_, real_4 _p_ elim_, real_4 _p_ alim_);
  1385  complex_8 _p_ bm_, complex_8 _p_ cm_, int_4 _p_ idimy_, complex_8 _p_ y_, real_4 _p_ b_, complex_8 _p_ w1_, complex_8 
  1386  _p_ w2_, complex_8 _p_ w3_, complex_8 _p_ wd_, complex_8 _p_ ww_, complex_8 _p_ wu_, int_4 (*_prdct)(), int_4 
  1387  (*_cprdct)());
  1389  real_4 _p_ ah_, real_4 _p_ bh_);
  1392  real_4 _p_ work_, int_4 _p_ job_, int_4 _p_ info_);
  1394  ind_, complex_8 _p_ work_, int_4 _p_ iwork_);
  1396  ind_, complex_8 _p_ work_, int_4 _p_ iwork_);
  1398  real_4 _p_ work_, int_4 _p_ job_, int_4 _p_ info_);
  1400  c_, real_4 _p_ d_, int_4 _p_ n_, int_4 _p_ nbdcnd_, int_4 (*_cofx)(), int_4 _p_ idmn_, int_4 _p_ ierror_);
  1402  mbdcnd_, real_4 _p_ c_, real_4 _p_ d_, int_4 _p_ n_, int_4 _p_ nbdcnd_, int_4 (*_cofx)(), int_4 (*_cofy)(), int_4 _p_ 
  1403  idmn_, int_4 _p_ ierror_);
  1405  logical_4 _p_ singlr_);
  1407  real_4 _p_ xnu_, int_4 (*_cofx)(), int_4 (*_cofy)(), logical_4 _p_ singlr_);
  1410  complex_8 _p_ bc_, complex_8 _p_ q_, int_4 _p_ idimq_, complex_8 _p_ b_, complex_8 _p_ w_, complex_8 _p_ d_, complex_8 
  1411  _p_ tcos_, complex_8 _p_ p_);
  1413  _p_ bb_, complex_8 _p_ c_, complex_8 _p_ q_, int_4 _p_ idimq_, complex_8 _p_ b_, complex_8 _p_ b2_, complex_8 _p_ b3_, 
  1414  complex_8 _p_ w_, complex_8 _p_ w2_, complex_8 _p_ w3_, complex_8 _p_ d_, complex_8 _p_ tcos_, complex_8 _p_ p_);
  1416  _p_ q_, int_4 _p_ idimq_, complex_8 _p_ b_, complex_8 _p_ b2_, complex_8 _p_ b3_, complex_8 _p_ w_, complex_8 _p_ w2_, 
  1417  complex_8 _p_ w3_, complex_8 _p_ d_, complex_8 _p_ tcos_, complex_8 _p_ p_);
  1419  _p_ y1_, complex_8 _p_ y2_, complex_8 _p_ y3_, complex_8 _p_ tcos_, complex_8 _p_ d_, complex_8 _p_ w1_, complex_8 _p_ 
  1420  w2_, complex_8 _p_ w3_);
  1422  complex_8 _p_ c_, complex_8 _p_ y_, complex_8 _p_ tcos_, complex_8 _p_ d_, complex_8 _p_ w_);
  1424  , real_4 _p_ rcond_, complex_8 _p_ z_);
  1426  , complex_8 _p_ det_);
  1428  , int_4 _p_ info_);
  1430  v_, int_4 _p_ itask_, int_4 _p_ ind_, complex_8 _p_ work_, int_4 _p_ iwork_);
  1432  v_, int_4 _p_ itask_, int_4 _p_ ind_, complex_8 _p_ work_, int_4 _p_ iwork_);
  1434  , complex_8 _p_ b_, int_4 _p_ job_);
  1436  real_4 _p_ ah_, real_4 _p_ bh_);
  1439  bp_, real_4 _p_ bh_);
  1441  b_, logical_4 _p_ kbd_);
  1444  ind_, complex_8 _p_ work_);
  1446  ind_, complex_8 _p_ work_);
  1448  ;
  1450  bm2_, int_4 _p_ na_, real_4 _p_ aa_, complex_8 _p_ x_, complex_8 _p_ y_, int_4 _p_ m_, complex_8 _p_ a_, complex_8 _p_ 
  1451  b_, complex_8 _p_ c_, complex_8 _p_ d_, complex_8 _p_ w_, real_4 _p_ yy_);
  1453  bm2_, int_4 _p_ na_, real_4 _p_ aa_, complex_8 _p_ x_, complex_8 _p_ y_, int_4 _p_ m_, complex_8 _p_ a_, complex_8 _p_ 
  1454  b_, complex_8 _p_ c_, complex_8 _p_ d_, complex_8 _p_ u_, real_4 _p_ yy_);
  1456  bm2_, int_4 _p_ na_, real_4 _p_ aa_, real_4 _p_ x_, real_4 _p_ yy_, int_4 _p_ m_, real_4 _p_ a_, real_4 _p_ b_, real_4 
  1457  _p_ c_, complex_8 _p_ d_, complex_8 _p_ w_, complex_8 _p_ y_);
  1459  bm2_, int_4 _p_ na_, real_4 _p_ aa_, real_4 _p_ x_, real_4 _p_ yy_, int_4 _p_ m_, real_4 _p_ a_, real_4 _p_ b_, real_4 
  1460  _p_ c_, complex_8 _p_ d_, complex_8 _p_ u_, complex_8 _p_ y_);
  1462  _p_ s_);
  1465  real_4 _p_ alim_, int_4 _p_ iuf_);
  1467  colsav_, real_4 _p_ rows_, real_4 _p_ rowsav_, real_4 _p_ anorm_, real_4 _p_ scales_, int_4 _p_ iscale_, int_4 _p_ ic_)
  1468  ;
  1472  complex_8 _p_ arg_, complex_8 _p_ zeta1_, complex_8 _p_ zeta2_, complex_8 _p_ asum_, complex_8 _p_ bsum_);
  1474  _p_ init_, complex_8 _p_ phi_, complex_8 _p_ zeta1_, complex_8 _p_ zeta2_, complex_8 _p_ sum_, complex_8 _p_ cwrk_);
  1476  _p_ bkpt_, real_4 _p_ w_);
  1480  _p_ w_, logical_4 _p_ sing_);
  1482  arg_, int_4 _p_ in_, real_8 _p_ y_);
  1484  int_4 _p_ ierr_);
  1488  int_4 _p_ jt_);
  1490  real_8 _p_ x_, int_4 _p_ n_, real_8 _p_ rnorm_);
  1492  bl_, real_8 _p_ bu_, int_4 _p_ ind_, int_4 _p_ iopt_, real_8 _p_ x_, real_8 _p_ rnormc_, real_8 _p_ rnorm_, int_4 _p_ 
  1493  mode_, real_8 _p_ rw_, int_4 _p_ iw_);
  1495  bu_, int_4 _p_ ind_, int_4 _p_ iopt_, real_8 _p_ x_, real_8 _p_ rnorm_, int_4 _p_ mode_, real_8 _p_ rw_, int_4 _p_ iw_)
  1496  ;
  1498  bu_, int_4 _p_ ind_, int_4 _p_ iopt_, real_8 _p_ x_, real_8 _p_ rnorm_, int_4 _p_ mode_, real_8 _p_ rw_, real_8 _p_ ww_
  1499  , real_8 _p_ scl_, int_4 _p_ ibasis_, int_4 _p_ ibb_);
  1501  real_8 _p_ a_, real_8 _p_ b_, int_4 _p_ inbv_, real_8 _p_ err_, real_8 _p_ ans_, int_4 _p_ ierr_, real_8 _p_ work_);
  1504  ldfjac_, real_8 _p_ xp_, real_8 _p_ fvecp_, int_4 _p_ mode_, real_8 _p_ err_);
  1506  nic_, real_8 _p_ b_, real_8 _p_ beta_, real_8 _p_ coef_, int_4 _p_ inhomo_, real_8 _p_ re_, real_8 _p_ ae_, real_8 _p_ 
  1507  by_, real_8 _p_ cvec_, real_8 _p_ work_, int_4 _p_ iwork_, int_4 _p_ iflag_, int_4 _p_ nfcc_);
  1509  real_8 _p_ r_, int_4 _p_ ldr_, int_4 _p_ info_, real_8 _p_ wa1_, real_8 _p_ wa2_, real_8 _p_ wa3_, real_8 _p_ wa4_);
  1511  colsav_, real_8 _p_ rows_, real_8 _p_ rowsav_, real_8 _p_ anorm_, real_8 _p_ scales_, int_4 _p_ iscale_, int_4 _p_ ic_)
  1512  ;
  1514  _p_ bkpt_, real_8 _p_ w_);
  1516  real_8 _p_ rtol_, real_8 _p_ atol_, int_4 _p_ idid_, real_8 _p_ ypout_, real_8 _p_ yp_, real_8 _p_ yy_, real_8 _p_ wt_, 
  1517  real_8 _p_ p_, real_8 _p_ phi_, real_8 _p_ alpha_, real_8 _p_ beta_, real_8 _p_ psi_, real_8 _p_ v_, real_8 _p_ w_, 
  1518  real_8 _p_ sig_, real_8 _p_ g_, real_8 _p_ gi_, real_8 _p_ h_, real_8 _p_ eps_, real_8 _p_ x_, real_8 _p_ xold_, real_8 
  1519  _p_ hold_, real_8 _p_ told_, real_8 _p_ delsgn_, real_8 _p_ tstop_, real_8 _p_ twou_, real_8 _p_ fouru_, logical_4 _p_ 
  1520  start_, logical_4 _p_ phase1_, logical_4 _p_ nornd_, logical_4 _p_ stiff_, logical_4 _p_ intout_, int_4 _p_ ns_, int_4 
  1521  _p_ kord_, int_4 _p_ kold_, int_4 _p_ init_, int_4 _p_ ksteps_, int_4 _p_ kle4_, int_4 _p_ iquit_, int_4 _p_ kprev_, 
  1522  int_4 _p_ ivc_, int_4 _p_ iv_, int_4 _p_ kgi_, real_8 _p_ rpar_, int_4 _p_ ipar_);
  1524  delta_, real_8 _p_ x_, real_8 _p_ wa1_, real_8 _p_ wa2_);
  1526  int_4 _p_ nbkpt_, real_8 _p_ bkptin_, int_4 _p_ mdein_, int_4 _p_ mdeout_, real_8 _p_ coeff_, real_8 _p_ bf_, real_8 
  1527  _p_ xtemp_, real_8 _p_ ptemp_, real_8 _p_ bkpt_, real_8 _p_ g_, int_4 _p_ mdg_, real_8 _p_ w_, int_4 _p_ mdw_, int_4 
  1528  _p_ lw_);
  1531  real_4 _p_ f1_, real_4 _p_ f2_, real_4 _p_ f3_, real_4 _p_ f4_, real_4 _p_ f5_, real_4 _p_ ys_, real_4 _p_ rpar_, int_4 
  1532  _p_ ipar_);
  1536  , real_4 _p_ rtol_, real_4 _p_ atol_, int_4 _p_ idid_, real_4 _p_ h_, real_4 _p_ tolfac_, real_4 _p_ yp_, real_4 _p_ 
  1537  f1_, real_4 _p_ f2_, real_4 _p_ f3_, real_4 _p_ f4_, real_4 _p_ f5_, real_4 _p_ ys_, real_4 _p_ told_, real_4 _p_ 
  1538  dtsign_, real_4 _p_ u26_, real_4 _p_ rer_, int_4 _p_ init_, int_4 _p_ ksteps_, int_4 _p_ kop_, int_4 _p_ iquit_, 
  1539  logical_4 _p_ stiff_, logical_4 _p_ nonstf_, int_4 _p_ ntstep_, int_4 _p_ nstifs_, real_4 _p_ rpar_, int_4 _p_ ipar_);
  1541  real_4 _p_ rtol_, real_4 _p_ atol_, int_4 _p_ idid_, real_4 _p_ ypout_, real_4 _p_ yp_, real_4 _p_ yy_, real_4 _p_ wt_, 
  1542  real_4 _p_ p_, real_4 _p_ phi_, real_4 _p_ alpha_, real_4 _p_ beta_, real_4 _p_ psi_, real_4 _p_ v_, real_4 _p_ w_, 
  1543  real_4 _p_ sig_, real_4 _p_ g_, real_4 _p_ gi_, real_4 _p_ h_, real_4 _p_ eps_, real_4 _p_ x_, real_4 _p_ xold_, real_4 
  1544  _p_ hold_, real_4 _p_ told_, real_4 _p_ delsgn_, real_4 _p_ tstop_, real_4 _p_ twou_, real_4 _p_ fouru_, logical_4 _p_ 
  1545  start_, logical_4 _p_ phase1_, logical_4 _p_ nornd_, logical_4 _p_ stiff_, logical_4 _p_ intout_, int_4 _p_ ns_, int_4 
  1546  _p_ kord_, int_4 _p_ kold_, int_4 _p_ init_, int_4 _p_ ksteps_, int_4 _p_ kle4_, int_4 _p_ iquit_, int_4 _p_ kprev_, 
  1547  int_4 _p_ ivc_, int_4 _p_ iv_, int_4 _p_ kgi_, real_4 _p_ rpar_, int_4 _p_ ipar_);
  1549  int_4 _p_ nbkpt_, real_8 _p_ bkptin_, int_4 _p_ nconst_, real_8 _p_ xconst_, real_8 _p_ yconst_, int_4 _p_ nderiv_, 
  1550  int_4 _p_ mode_, real_8 _p_ coeff_, real_8 _p_ bf_, real_8 _p_ xtemp_, real_8 _p_ ptemp_, real_8 _p_ bkpt_, real_8 _p_ 
  1551  g_, int_4 _p_ mdg_, real_8 _p_ w_, int_4 _p_ mdw_, real_8 _p_ work_, int_4 _p_ iwork_);
  1553  ldfjac_, int_4 _p_ iflag_, int_4 _p_ ml_, int_4 _p_ mu_, real_8 _p_ epsfcn_, real_8 _p_ wa1_, real_8 _p_ wa2_);
  1555  , int_4 _p_ ldfjac_, int_4 _p_ iflag_, real_8 _p_ epsfcn_, real_8 _p_ wa_);
  1557  real_8 _p_ f1_, real_8 _p_ f2_, real_8 _p_ f3_, real_8 _p_ f4_, real_8 _p_ f5_, real_8 _p_ ys_, real_8 _p_ rpar_, int_4 
  1558  _p_ ipar_);
  1560  nderiv_);
  1562  vnikx_);
  1564  dattrv_, int_4 _p_ iflag_);
  1566  int_4 _p_ iflag_);
  1568  ierr_);
  1570  real_8 _p_ work_, int_4 _p_ iwork_);
  1572  _p_ nb_, real_8 _p_ rnorm_, real_8 _p_ work_, int_4 _p_ lw_, int_4 _p_ iwork_, int_4 _p_ liw_, int_4 _p_ info_);
  1574  real_8 _p_ up_, real_8 _p_ c_, int_4 _p_ ice_, int_4 _p_ icv_, int_4 _p_ ncv_);
  1576  _p_ nb_, real_8 _p_ tau_, int_4 _p_ krank_, real_8 _p_ rnorm_, real_8 _p_ h_, real_8 _p_ g_, int_4 _p_ ip_);
  1578  yprime_, real_8 _p_ etol_, int_4 _p_ morder_, real_8 _p_ small_, real_8 _p_ big_, real_8 _p_ spy_, real_8 _p_ pv_, 
  1579  real_8 _p_ yp_, real_8 _p_ sf_, real_8 _p_ rpar_, int_4 _p_ ipar_, real_8 _p_ h_);
  1583  int_4 _p_ nb_, real_8 _p_ re_, real_8 _p_ ae_, int_4 _p_ key_, int_4 _p_ mode_, int_4 _p_ np_, int_4 _p_ krank_, int_4 
  1584  _p_ ksure_, real_8 _p_ rnorm_, real_8 _p_ w_, int_4 _p_ lw_, int_4 _p_ iwork_, int_4 _p_ liw_, int_4 _p_ info_);
  1586  real_8 _p_ x_, real_8 _p_ wnorm_, int_4 _p_ mode_, real_8 _p_ ws_, int_4 _p_ is_);
  1588  real_8 _p_ prgopt_, real_8 _p_ x_, real_8 _p_ rnorme_, real_8 _p_ rnorml_, int_4 _p_ mode_, real_8 _p_ ws_, int_4 _p_ 
  1589  ip_);
  1591  real_8 _p_ x_, real_8 _p_ rnorm_, int_4 _p_ mode_, real_8 _p_ ws_, int_4 _p_ ip_);
  1593  real_8 _p_ u_, int_4 _p_ nrdu_, int_4 _p_ iflag_, int_4 _p_ mlso_, int_4 _p_ irank_, int_4 _p_ iscale_, real_8 _p_ q_, 
  1594  real_8 _p_ diag_, int_4 _p_ kpivot_, real_8 _p_ s_, real_8 _p_ div_, real_8 _p_ td_, int_4 _p_ isflg_, real_8 _p_ 
  1595  scales_);
  1598  real_8 _p_ s_, real_8 _p_ p_, int_4 _p_ ip_, int_4 _p_ inhomo_, real_8 _p_ v_, real_8 _p_ w_, real_8 _p_ wcnd_);
  1600  , real_8 _p_ delta_, real_8 _p_ par_, real_8 _p_ x_, real_8 _p_ sigma_, real_8 _p_ wa1_, real_8 _p_ wa2_);
  1602  real_8 _p_ rcond_, real_8 _p_ z_);
  1604  real_8 _p_ det_);
  1606  int_4 _p_ info_);
  1608  int_4 _p_ itask_, int_4 _p_ ind_, real_8 _p_ work_, int_4 _p_ iwork_);
  1610  real_8 _p_ b_, int_4 _p_ job_);
  1612  , real_8 _p_ tol_, int_4 _p_ nprint_, int_4 _p_ info_, int_4 _p_ iw_, real_8 _p_ wa_, int_4 _p_ lwa_);
  1614  real_8 _p_ fjac_, int_4 _p_ ldfjac_, real_8 _p_ ftol_, real_8 _p_ xtol_, real_8 _p_ gtol_, int_4 _p_ maxfev_, real_8 
  1615  _p_ epsfcn_, real_8 _p_ diag_, int_4 _p_ mode_, real_8 _p_ factor_, int_4 _p_ nprint_, int_4 _p_ info_, int_4 _p_ nfev_
  1616  , int_4 _p_ njev_, int_4 _p_ ipvt_, real_8 _p_ qtf_, real_8 _p_ wa1_, real_8 _p_ wa2_, real_8 _p_ wa3_, real_8 _p_ wa4_
  1617  );
  1619  fvec_, real_8 _p_ tol_, int_4 _p_ nprint_, int_4 _p_ info_, real_8 _p_ wa_, int_4 _p_ lwa_);
  1621  , real_8 _p_ fjac_, int_4 _p_ ldfjac_, real_8 _p_ xtol_, int_4 _p_ maxfev_, int_4 _p_ ml_, int_4 _p_ mu_, real_8 _p_ 
  1622  epsfcn_, real_8 _p_ diag_, int_4 _p_ mode_, real_8 _p_ factor_, int_4 _p_ nprint_, int_4 _p_ info_, int_4 _p_ nfev_, 
  1623  int_4 _p_ njev_, real_8 _p_ r_, int_4 _p_ lr_, real_8 _p_ qtf_, real_8 _p_ wa1_, real_8 _p_ wa2_, real_8 _p_ wa3_, 
  1624  real_8 _p_ wa4_);
  1626  div_, real_8 _p_ td_);
  1628  , int_4 _p_ iscale_, real_8 _p_ diag_, int_4 _p_ kpivot_, real_8 _p_ scales_, real_8 _p_ rows_, real_8 _p_ rs_);
  1630  ;
  1632  ircx_);
  1635  jstrt_, int_4 _p_ ibasis_, int_4 _p_ imat_, int_4 _p_ ibrc_, int_4 _p_ ipr_, int_4 _p_ iwr_, int_4 _p_ ind_, int_4 _p_ 
  1636  ibb_, real_8 _p_ costsc_, real_8 _p_ gg_, real_8 _p_ erdnrm_, real_8 _p_ dulnrm_, real_8 _p_ amat_, real_8 _p_ basmat_, 
  1637  real_8 _p_ csc_, real_8 _p_ wr_, real_8 _p_ ww_, real_8 _p_ rz_, real_8 _p_ rg_, real_8 _p_ costs_, real_8 _p_ colnrm_, 
  1638  real_8 _p_ duals_, logical_4 _p_ stpedg_);
  1640  _p_ ind_, real_8 _p_ primal_, int_4 _p_ info_, real_8 _p_ amat_, real_8 _p_ csc_, real_8 _p_ costsc_, real_8 _p_ 
  1641  colnrm_, real_8 _p_ xlamda_, real_8 _p_ anorm_, real_8 _p_ rhs_, real_8 _p_ rhsnrm_, int_4 _p_ ibasis_, int_4 _p_ ibb_, 
  1642  int_4 _p_ imat_, logical_4 _p_ lopt_);
  1646  _p_ itbrc_, int_4 _p_ ibasis_, int_4 _p_ imat_, int_4 _p_ ibrc_, int_4 _p_ ipr_, int_4 _p_ iwr_, int_4 _p_ ind_, int_4 
  1647  _p_ ibb_, real_8 _p_ erdnrm_, real_8 _p_ eps_, real_8 _p_ tune_, real_8 _p_ gg_, real_8 _p_ amat_, real_8 _p_ basmat_, 
  1648  real_8 _p_ csc_, real_8 _p_ wr_, real_8 _p_ ww_, real_8 _p_ primal_, real_8 _p_ erd_, real_8 _p_ erp_, logical_4 _p_ 
  1649  singlr_, logical_4 _p_ redbas_);
  1651  _p_ info_, int_4 _p_ iopt_, int_4 _p_ ibasis_, int_4 _p_ imat_, int_4 _p_ ibrc_, int_4 _p_ ipr_, int_4 _p_ iwr_, int_4 
  1652  _p_ ind_, int_4 _p_ ibb_, real_8 _p_ anorm_, real_8 _p_ eps_, real_8 _p_ uu_, real_8 _p_ gg_, real_8 _p_ amat_, real_8 
  1653  _p_ basmat_, real_8 _p_ csc_, real_8 _p_ wr_, logical_4 _p_ singlr_, logical_4 _p_ redbas_);
  1655  _p_ ibasis_, int_4 _p_ imat_, int_4 _p_ ibrc_, int_4 _p_ ipr_, int_4 _p_ iwr_, int_4 _p_ ind_, int_4 _p_ ibb_, real_8 
  1656  _p_ erdnrm_, real_8 _p_ eps_, real_8 _p_ gg_, real_8 _p_ dulnrm_, real_8 _p_ dirnrm_, real_8 _p_ amat_, real_8 _p_ 
  1657  basmat_, real_8 _p_ csc_, real_8 _p_ wr_, real_8 _p_ ww_, real_8 _p_ bl_, real_8 _p_ bu_, real_8 _p_ rz_, real_8 _p_ 
  1658  rg_, real_8 _p_ colnrm_, real_8 _p_ duals_, logical_4 _p_ found_);
  1660  int_4 _p_ ind_, int_4 _p_ ibb_, real_8 _p_ theta_, real_8 _p_ dirnrm_, real_8 _p_ rprnrm_, real_8 _p_ csc_, real_8 _p_ 
  1661  ww_, real_8 _p_ bl_, real_8 _p_ bu_, real_8 _p_ erp_, real_8 _p_ rprim_, real_8 _p_ primal_, logical_4 _p_ finite_, 
  1662  logical_4 _p_ zerolv_);
  1664  prgopt_, real_8 _p_ dattrv_, real_8 _p_ bl_, real_8 _p_ bu_, int_4 _p_ ind_, int_4 _p_ info_, real_8 _p_ primal_, 
  1665  real_8 _p_ duals_, real_8 _p_ amat_, real_8 _p_ csc_, real_8 _p_ colnrm_, real_8 _p_ erd_, real_8 _p_ erp_, real_8 _p_ 
  1666  basmat_, real_8 _p_ wr_, real_8 _p_ rz_, real_8 _p_ rg_, real_8 _p_ rprim_, real_8 _p_ rhs_, real_8 _p_ ww_, int_4 _p_ 
  1667  lmx_, int_4 _p_ lbm_, int_4 _p_ ibasis_, int_4 _p_ ibb_, int_4 _p_ imat_, int_4 _p_ ibrc_, int_4 _p_ ipr_, int_4 _p_ 
  1668  iwr_);
  1670  _p_ info_, int_4 _p_ ienter_, int_4 _p_ ileave_, int_4 _p_ iopt_, int_4 _p_ npp_, int_4 _p_ jstrt_, int_4 _p_ ibasis_, 
  1671  int_4 _p_ imat_, int_4 _p_ ibrc_, int_4 _p_ ipr_, int_4 _p_ iwr_, int_4 _p_ ind_, int_4 _p_ ibb_, real_8 _p_ anorm_, 
  1672  real_8 _p_ eps_, real_8 _p_ uu_, real_8 _p_ gg_, real_8 _p_ rprnrm_, real_8 _p_ erdnrm_, real_8 _p_ dulnrm_, real_8 _p_ 
  1673  theta_, real_8 _p_ costsc_, real_8 _p_ xlamda_, real_8 _p_ rhsnrm_, real_8 _p_ amat_, real_8 _p_ basmat_, real_8 _p_ 
  1674  csc_, real_8 _p_ wr_, real_8 _p_ rprim_, real_8 _p_ ww_, real_8 _p_ bu_, real_8 _p_ bl_, real_8 _p_ rhs_, real_8 _p_ 
  1675  erd_, real_8 _p_ erp_, real_8 _p_ rz_, real_8 _p_ rg_, real_8 _p_ colnrm_, real_8 _p_ costs_, real_8 _p_ primal_, 
  1676  real_8 _p_ duals_, logical_4 _p_ singlr_, logical_4 _p_ redbas_, logical_4 _p_ zerolv_, logical_4 _p_ stpedg_);
  1678  dattrv_, real_8 _p_ bl_, real_8 _p_ bu_, int_4 _p_ ind_, int_4 _p_ info_, real_8 _p_ amat_, int_4 _p_ imat_, logical_4 
  1679  _p_ sizeup_, real_8 _p_ asmall_, real_8 _p_ abig_);
  1681  ircx_);
  1683  real_8 _p_ work_);
  1686  real_8 _p_ eps_, real_8 _p_ r_, int_4 _p_ ierr_, real_8 _p_ a_);
  1688  , real_8 _p_ c_, real_8 _p_ work_, int_4 _p_ ierr_);
  1690  int_4 _p_ ibasis_, real_8 _p_ ropt_, int_4 _p_ intopt_, logical_4 _p_ lopt_);
  1693  , int_4 _p_ id_, real_8 _p_ a_, real_8 _p_ b_, int_4 _p_ inppv_, real_8 _p_ err_, real_8 _p_ ans_, int_4 _p_ ierr_);
  1700  int_4 _p_ incy_);
  1702  int_4 _p_ incy_);
  1705  ipvt_, int_4 _p_ lipvt_, real_8 _p_ sigma_, real_8 _p_ acnorm_, real_8 _p_ wa_);
  1707  qtb_, real_8 _p_ x_, real_8 _p_ sigma_, real_8 _p_ wa_);
  1709  l1max_, real_8 _p_ thrcof_, int_4 _p_ ndim_, int_4 _p_ ier_);
  1711  m2max_, real_8 _p_ thrcof_, int_4 _p_ ndim_, int_4 _p_ ier_);
  1713  l1min_, real_8 _p_ l1max_, real_8 _p_ sixcof_, int_4 _p_ ndim_, int_4 _p_ ier_);
  1718  w_, real_8 _p_ s_, real_8 _p_ p_, int_4 _p_ ip_, real_8 _p_ stowa_, int_4 _p_ iflag_);
  1722  , real_8 _p_ rtol_, real_8 _p_ atol_, int_4 _p_ idid_, real_8 _p_ h_, real_8 _p_ tolfac_, real_8 _p_ yp_, real_8 _p_ 
  1723  f1_, real_8 _p_ f2_, real_8 _p_ f3_, real_8 _p_ f4_, real_8 _p_ f5_, real_8 _p_ ys_, real_8 _p_ told_, real_8 _p_ 
  1724  dtsign_, real_8 _p_ u26_, real_8 _p_ rer_, int_4 _p_ init_, int_4 _p_ ksteps_, int_4 _p_ kop_, int_4 _p_ iquit_, 
  1725  logical_4 _p_ stiff_, logical_4 _p_ nonstf_, int_4 _p_ ntstep_, int_4 _p_ nstifs_, real_8 _p_ rpar_, int_4 _p_ ipar_);
  1728  _p_ tolf_, int_4 _p_ iflag_, int_4 _p_ mxit_, int_4 _p_ ncjs_, int_4 _p_ nsrrc_, int_4 _p_ nsri_, int_4 _p_ iprint_, 
  1729  real_8 _p_ fmax_, real_8 _p_ c_, int_4 _p_ nc_, real_8 _p_ b_, real_8 _p_ p_, real_8 _p_ temp_, real_8 _p_ x_, real_8 
  1730  _p_ y_, real_8 _p_ fac_, int_4 _p_ is_);
  1732  _p_ tolf_, int_4 _p_ iflag_, real_8 _p_ rw_, int_4 _p_ lrw_, int_4 _p_ iw_, int_4 _p_ liw_);
  1734  _p_ m_);
  1736  , real_8 _p_ dattrv_, real_8 _p_ bl_, real_8 _p_ bu_, int_4 _p_ ind_, int_4 _p_ info_, real_8 _p_ primal_, real_8 _p_ 
  1737  duals_, int_4 _p_ ibasis_, real_8 _p_ work_, int_4 _p_ lw_, int_4 _p_ iwork_, int_4 _p_ liw_);
  1739  ndisk_, int_4 _p_ ntape_);
  1742  int_4 _p_ iflag_, int_4 _p_ mlso_, real_8 _p_ work_, int_4 _p_ iwork_);
  1744  int_4 _p_ mode_, int_4 _p_ np_, int_4 _p_ krank_, int_4 _p_ ksure_, real_8 _p_ h_, real_8 _p_ w_, real_8 _p_ eb_, int_4 
  1745  _p_ ic_, int_4 _p_ ir_);
  1747  int_4 _p_ mode_, int_4 _p_ np_, int_4 _p_ krank_, int_4 _p_ ksure_, real_8 _p_ h_, real_8 _p_ w_, real_8 _p_ eb_, int_4 
  1748  _p_ ir_, int_4 _p_ ic_);
  1750  int_4 _p_ nb_, int_4 _p_ mode_, int_4 _p_ krank_, real_8 _p_ rnorm_, real_8 _p_ h_, real_8 _p_ w_, int_4 _p_ ic_, int_4 
  1751  _p_ ir_);
  1753  int_4 _p_ nb_, int_4 _p_ mode_, int_4 _p_ krank_, real_8 _p_ rnorm_, real_8 _p_ h_, real_8 _p_ w_, int_4 _p_ ir_, int_4 
  1754  _p_ ic_);
  1756  int_4 _p_ nb_, real_8 _p_ re_, real_8 _p_ ae_, int_4 _p_ key_, int_4 _p_ mode_, int_4 _p_ np_, int_4 _p_ krank_, int_4 
  1757  _p_ ksure_, real_8 _p_ rnorm_, real_8 _p_ w_, int_4 _p_ lw_, int_4 _p_ iwork_, int_4 _p_ liw_, int_4 _p_ info_);
  1759  dattrv_, int_4 _p_ iflag_);
  1761  _p_ inhomo_, int_4 _p_ iflag_);
  1764  int_4 _p_ itype_, real_8 _p_ h_, real_8 _p_ scale_, real_8 _p_ rnorm_, int_4 _p_ idope_, real_8 _p_ dope_, logical_4 
  1765  _p_ done_);
  1767  real_8 _p_ prgopt_, real_8 _p_ x_, real_8 _p_ rnorm_, int_4 _p_ mode_, int_4 _p_ ipivot_, int_4 _p_ itype_, real_8 _p_ 
  1768  wd_, real_8 _p_ h_, real_8 _p_ scale_, real_8 _p_ z_, real_8 _p_ temp_, real_8 _p_ d_);
  1770  recalc_, int_4 _p_ imax_, real_8 _p_ hbar_, real_8 _p_ h_, real_8 _p_ scale_, real_8 _p_ w_);
  1772  _p_ scale_, real_8 _p_ wic_);
  1774  real_8 _p_ w_);
  1776  real_8 _p_ prgopt_, real_8 _p_ x_, real_8 _p_ rnorm_, int_4 _p_ mode_, int_4 _p_ iwork_, real_8 _p_ work_);
  1779  real_8 _p_ cos_, real_8 _p_ sin_);
  1790  int_4 _p_ nbkpt_, real_4 _p_ bkptin_, int_4 _p_ mdein_, int_4 _p_ mdeout_, real_4 _p_ coeff_, real_4 _p_ bf_, real_4 
  1791  _p_ xtemp_, real_4 _p_ ptemp_, real_4 _p_ bkpt_, real_4 _p_ g_, int_4 _p_ mdg_, real_4 _p_ w_, int_4 _p_ mdw_, int_4 
  1792  _p_ lw_);
  1794  int_4 _p_ nbkpt_, real_4 _p_ bkptin_, int_4 _p_ nconst_, real_4 _p_ xconst_, real_4 _p_ yconst_, int_4 _p_ nderiv_, 
  1795  int_4 _p_ mode_, real_4 _p_ coeff_, real_4 _p_ bf_, real_4 _p_ xtemp_, real_4 _p_ ptemp_, real_4 _p_ bkpt_, real_4 _p_ 
  1796  g_, int_4 _p_ mdg_, real_4 _p_ w_, int_4 _p_ mdw_, real_4 _p_ work_, int_4 _p_ iwork_);
  1798  , int_4 _p_ ldfjac_, int_4 _p_ iflag_, real_4 _p_ epsfcn_, real_4 _p_ wa_);
  1802  dattrv_, int_4 _p_ iflag_);
  1804  int_4 _p_ iflag_);
  1807  ierr_);
  1809  real_4 _p_ up_, real_4 _p_ c_, int_4 _p_ ice_, int_4 _p_ icv_, int_4 _p_ ncv_);
  1811  _p_ nb_, real_4 _p_ tau_, int_4 _p_ krank_, real_4 _p_ rnorm_, real_4 _p_ h_, real_4 _p_ g_, int_4 _p_ ip_);
  1815  _p_ kflag_, char _p_ work_, int_4 _p_ ier_);
  1817  , real_4 _p_ etol_, int_4 _p_ morder_, real_4 _p_ small_, real_4 _p_ big_, real_4 _p_ spy_, real_4 _p_ pv_, real_4 _p_ 
  1818  yp_, real_4 _p_ sf_, real_4 _p_ rpar_, int_4 _p_ ipar_, real_4 _p_ h_);
  1820  bda_, real_4 _p_ bdb_, real_4 _p_ c_, real_4 _p_ d_, int_4 _p_ n_, int_4 _p_ nbdcnd_, real_4 _p_ bdc_, real_4 _p_ bdd_, 
  1821  real_4 _p_ elmbda_, real_4 _p_ f_, int_4 _p_ idimf_, real_4 _p_ pertrb_, int_4 _p_ ierr1_, real_4 _p_ am_, real_4 _p_ 
  1822  bm_, real_4 _p_ cm_, real_4 _p_ an_, real_4 _p_ bn_, real_4 _p_ cn_, real_4 _p_ snth_, real_4 _p_ rsq_, real_4 _p_ wrk_
  1823  );
  1826  bdts_, real_4 _p_ bdtf_, real_4 _p_ rs_, real_4 _p_ rf_, int_4 _p_ n_, int_4 _p_ nbdcnd_, real_4 _p_ bdrs_, real_4 _p_ 
  1827  bdrf_, real_4 _p_ elmbda_, real_4 _p_ f_, int_4 _p_ idimf_, real_4 _p_ pertrb_, real_4 _p_ w_, real_4 _p_ s_, real_4 
  1828  _p_ an_, real_4 _p_ bn_, real_4 _p_ cn_, real_4 _p_ r_, real_4 _p_ am_, real_4 _p_ bm_, real_4 _p_ cm_, real_4 _p_ 
  1829  sint_, real_4 _p_ bmh_);
  1831  bdtf_, real_4 _p_ ps_, real_4 _p_ pf_, int_4 _p_ n_, int_4 _p_ nbdcnd_, real_4 _p_ bdps_, real_4 _p_ bdpf_, real_4 _p_ 
  1832  elmbda_, real_4 _p_ f_, int_4 _p_ idimf_, real_4 _p_ pertrb_, real_4 _p_ am_, real_4 _p_ bm_, real_4 _p_ cm_, real_4 
  1833  _p_ sn_, real_4 _p_ ss_, real_4 _p_ sint_, real_4 _p_ d_);
  1848  _p_ nb_, real_4 _p_ re_, real_4 _p_ ae_, int_4 _p_ key_, int_4 _p_ mode_, int_4 _p_ np_, int_4 _p_ krank_, int_4 _p_ 
  1849  ksure_, real_4 _p_ rnorm_, real_4 _p_ w_, int_4 _p_ lw_, int_4 _p_ iwork_, int_4 _p_ liw_, int_4 _p_ info_);
  1851  real_4 _p_ x_, real_4 _p_ wnorm_, int_4 _p_ mode_, real_4 _p_ ws_, int_4 _p_ is_);
  1853  _p_ prgopt_, real_4 _p_ x_, real_4 _p_ rnorme_, real_4 _p_ rnorml_, int_4 _p_ mode_, real_4 _p_ ws_, int_4 _p_ ip_);
  1855  real_4 _p_ x_, real_4 _p_ rnorm_, int_4 _p_ mode_, real_4 _p_ ws_, int_4 _p_ ip_);
  1857  int_4 _p_ iflag_, int_4 _p_ irank_, int_4 _p_ iscale_, real_4 _p_ q_, real_4 _p_ diag_, int_4 _p_ kpivot_, int_4 _p_ 
  1858  iter_, real_4 _p_ resnrm_, real_4 _p_ xnorm_, real_4 _p_ z_, real_4 _p_ r_, real_4 _p_ div_, real_4 _p_ td_, real_4 _p_ 
  1859  scales_);
  1861  real_4 _p_ u_, int_4 _p_ nrdu_, int_4 _p_ iflag_, int_4 _p_ mlso_, int_4 _p_ irank_, int_4 _p_ iscale_, real_4 _p_ q_, 
  1862  real_4 _p_ diag_, int_4 _p_ kpivot_, real_4 _p_ s_, real_4 _p_ div_, real_4 _p_ td_, int_4 _p_ isflg_, real_4 _p_ 
  1863  scales_);
  1866  real_4 _p_ s_, real_4 _p_ p_, int_4 _p_ ip_, int_4 _p_ inhomo_, real_4 _p_ v_, real_4 _p_ w_, real_4 _p_ wcnd_);
  1889  div_, real_4 _p_ td_);
  1891  div_, real_4 _p_ td_);
  1895  , int_4 _p_ iscale_, real_4 _p_ diag_, int_4 _p_ kpivot_, real_4 _p_ scales_, real_4 _p_ cols_, real_4 _p_ cs_);
  1897  , int_4 _p_ iscale_, real_4 _p_ diag_, int_4 _p_ kpivot_, real_4 _p_ scales_, real_4 _p_ rows_, real_4 _p_ rs_);
  1899  ircx_);
  1905  ircx_);
  1907  , real_4 _p_ q_, int_4 _p_ idimq_, real_4 _p_ b_, real_4 _p_ w_, real_4 _p_ d_, real_4 _p_ tcos_, real_4 _p_ p_);
  1909  , real_4 _p_ c_, real_4 _p_ q_, int_4 _p_ idimq_, real_4 _p_ b_, real_4 _p_ b2_, real_4 _p_ b3_, real_4 _p_ w_, real_4 
  1910  _p_ w2_, real_4 _p_ w3_, real_4 _p_ d_, real_4 _p_ tcos_, real_4 _p_ p_);
  1912  _p_ idimq_, real_4 _p_ b_, real_4 _p_ b2_, real_4 _p_ b3_, real_4 _p_ w_, real_4 _p_ w2_, real_4 _p_ w3_, real_4 _p_ d_
  1913  , real_4 _p_ tcos_, real_4 _p_ p_);
  1916  real_4 _p_ eps_, real_4 _p_ r_, int_4 _p_ ierr_, real_4 _p_ a_);
  1919  , real_4 _p_ c_, real_4 _p_ work_, int_4 _p_ ierr_);
  1921  _p_ b_, real_4 _p_ c_, int_4 _p_ ldimf_, int_4 _p_ mdimf_, real_4 _p_ f_, real_4 _p_ xrt_, real_4 _p_ yrt_, real_4 _p_ 
  1922  t_, real_4 _p_ d_, real_4 _p_ wx_, real_4 _p_ wy_, real_4 _p_ c1_, real_4 _p_ c2_, real_4 _p_ bb_);
  1924  int_4 _p_ idimq_, real_4 _p_ q_, real_4 _p_ b_, real_4 _p_ b2_, real_4 _p_ b3_, real_4 _p_ w_, real_4 _p_ w2_, real_4 
  1925  _p_ w3_, real_4 _p_ d_, real_4 _p_ tcos_, real_4 _p_ p_);
  1927  bp_, real_4 _p_ bh_);
  1929  int_4 _p_ id_, real_4 _p_ a_, real_4 _p_ b_, int_4 _p_ inppv_, real_4 _p_ err_, real_4 _p_ ans_, int_4 _p_ ierr_);
  1935  int_4 _p_ na_, real_4 _p_ aa_, complex_8 _p_ x_, complex_8 _p_ y_, int_4 _p_ m_, complex_8 _p_ a_, complex_8 _p_ b_, 
  1936  complex_8 _p_ c_, complex_8 _p_ d_, complex_8 _p_ w_, complex_8 _p_ u_);
  1938  , int_4 _p_ na_, real_4 _p_ aa_, complex_8 _p_ x_, complex_8 _p_ y_, int_4 _p_ m_, complex_8 _p_ a_, complex_8 _p_ b_, 
  1939  complex_8 _p_ c_, complex_8 _p_ d_, complex_8 _p_ u_, complex_8 _p_ w_);
  1941  int_4 _p_ na_, real_4 _p_ aa_, real_4 _p_ x_, real_4 _p_ y_, int_4 _p_ m_, real_4 _p_ a_, real_4 _p_ b_, real_4 _p_ c_, 
  1942  real_4 _p_ d_, real_4 _p_ w_, real_4 _p_ u_);
  1944  , int_4 _p_ na_, real_4 _p_ aa_, real_4 _p_ x_, real_4 _p_ y_, int_4 _p_ m_, real_4 _p_ a_, real_4 _p_ b_, real_4 _p_ 
  1945  c_, real_4 _p_ d_, real_4 _p_ u_, real_4 _p_ w_);
  1951  int_4 _p_ ierr_);
  1954  ;
  1957  l1max_, real_4 _p_ thrcof_, int_4 _p_ ndim_, int_4 _p_ ier_);
  1959  m2max_, real_4 _p_ thrcof_, int_4 _p_ ndim_, int_4 _p_ ier_);
  1961  l1min_, real_4 _p_ l1max_, real_4 _p_ sixcof_, int_4 _p_ ndim_, int_4 _p_ ier_);
  1965  , real_4 _p_ s_, real_4 _p_ p_, int_4 _p_ ip_, real_4 _p_ stowa_, int_4 _p_ iflag_);
  1970  s_);
  1973  bl_, real_4 _p_ bu_, int_4 _p_ ind_, int_4 _p_ iopt_, real_4 _p_ x_, real_4 _p_ rnormc_, real_4 _p_ rnorm_, int_4 _p_ 
  1974  mode_, real_4 _p_ rw_, int_4 _p_ iw_);
  1976  bu_, int_4 _p_ ind_, int_4 _p_ iopt_, real_4 _p_ x_, real_4 _p_ rnorm_, int_4 _p_ mode_, real_4 _p_ rw_, int_4 _p_ iw_)
  1977  ;
  1979  bu_, int_4 _p_ ind_, int_4 _p_ iopt_, real_4 _p_ x_, real_4 _p_ rnorm_, int_4 _p_ mode_, real_4 _p_ rw_, real_4 _p_ ww_
  1980  , real_4 _p_ scl_, int_4 _p_ ibasis_, int_4 _p_ ibb_);
  1983  nic_, real_4 _p_ b_, real_4 _p_ beta_, real_4 _p_ coef_, int_4 _p_ inhomo_, real_4 _p_ re_, real_4 _p_ ae_, real_4 _p_ 
  1984  by_, real_4 _p_ cvec_, real_4 _p_ work_, int_4 _p_ iwork_, int_4 _p_ iflag_, int_4 _p_ nfcc_);
  1986  real_4 _p_ r_, int_4 _p_ ldr_, int_4 _p_ info_, real_4 _p_ wa1_, real_4 _p_ wa2_, real_4 _p_ wa3_, real_4 _p_ wa4_);
  1988  real_4 _p_ work_, int_4 _p_ job_, int_4 _p_ info_);
  1990  real_4 _p_ work_, int_4 _p_ iwork_);
  1992  real_4 _p_ work_, int_4 _p_ iwork_);
  1994  _p_ nb_, real_4 _p_ rnorm_, real_4 _p_ work_, int_4 _p_ lw_, int_4 _p_ iwork_, int_4 _p_ liw_, int_4 _p_ info_);
  1996  real_4 _p_ rcond_, real_4 _p_ z_);
  1998  real_4 _p_ det_);
  2000  int_4 _p_ info_);
  2002  int_4 _p_ itask_, int_4 _p_ ind_, real_4 _p_ work_, int_4 _p_ iwork_);
  2004  int_4 _p_ itask_, int_4 _p_ ind_, real_4 _p_ work_, int_4 _p_ iwork_);
  2006  real_4 _p_ b_, int_4 _p_ job_);
  2008  , real_4 _p_ tol_, int_4 _p_ nprint_, int_4 _p_ info_, int_4 _p_ iw_, real_4 _p_ wa_, int_4 _p_ lwa_);
  2010  real_4 _p_ fjac_, int_4 _p_ ldfjac_, real_4 _p_ ftol_, real_4 _p_ xtol_, real_4 _p_ gtol_, int_4 _p_ maxfev_, real_4 
  2011  _p_ epsfcn_, real_4 _p_ diag_, int_4 _p_ mode_, real_4 _p_ factor_, int_4 _p_ nprint_, int_4 _p_ info_, int_4 _p_ nfev_
  2012  , int_4 _p_ njev_, int_4 _p_ ipvt_, real_4 _p_ qtf_, real_4 _p_ wa1_, real_4 _p_ wa2_, real_4 _p_ wa3_, real_4 _p_ wa4_
  2013  );
  2015  fvec_, real_4 _p_ tol_, int_4 _p_ nprint_, int_4 _p_ info_, real_4 _p_ wa_, int_4 _p_ lwa_);
  2017  , real_4 _p_ fjac_, int_4 _p_ ldfjac_, real_4 _p_ xtol_, int_4 _p_ maxfev_, int_4 _p_ ml_, int_4 _p_ mu_, real_4 _p_ 
  2018  epsfcn_, real_4 _p_ diag_, int_4 _p_ mode_, real_4 _p_ factor_, int_4 _p_ nprint_, int_4 _p_ info_, int_4 _p_ nfev_, 
  2019  int_4 _p_ njev_, real_4 _p_ r_, int_4 _p_ lr_, real_4 _p_ qtf_, real_4 _p_ wa1_, real_4 _p_ wa2_, real_4 _p_ wa3_, 
  2020  real_4 _p_ wa4_);
  2022  int_4 _p_ iflag_, real_4 _p_ work_, int_4 _p_ iwork_);
  2025  _p_ tolf_, int_4 _p_ iflag_, int_4 _p_ mxit_, int_4 _p_ ncjs_, int_4 _p_ nsrrc_, int_4 _p_ nsri_, int_4 _p_ iprint_, 
  2026  real_4 _p_ fmax_, real_4 _p_ c_, int_4 _p_ nc_, real_4 _p_ b_, real_4 _p_ p_, real_4 _p_ temp_, real_4 _p_ x_, real_4 
  2027  _p_ y_, real_4 _p_ fac_, int_4 _p_ is_);
  2029  tolf_, int_4 _p_ iflag_, real_4 _p_ rw_, int_4 _p_ lrw_, int_4 _p_ iw_, int_4 _p_ liw_);
  2031  _p_ m_);
  2033  bda_, real_4 _p_ alpha_, real_4 _p_ bdb_, real_4 _p_ beta_, real_4 _p_ c_, real_4 _p_ d_, int_4 _p_ n_, int_4 _p_ 
  2034  nbdcnd_, real_4 _p_ bdc_, real_4 _p_ bdd_, int_4 (*_cofx)(), real_4 _p_ an_, real_4 _p_ bn_, real_4 _p_ cn_, real_4 _p_ 
  2035  dn_, real_4 _p_ un_, real_4 _p_ zn_, real_4 _p_ am_, real_4 _p_ bm_, real_4 _p_ cm_, real_4 _p_ dm_, real_4 _p_ um_, 
  2036  real_4 _p_ zm_, real_4 _p_ grhs_, real_4 _p_ usol_, int_4 _p_ idmn_, real_4 _p_ w_, real_4 _p_ pertrb_, int_4 _p_ 
  2037  ierror_);
  2039  mbdcnd_, real_4 _p_ bda_, real_4 _p_ alpha_, real_4 _p_ bdb_, real_4 _p_ beta_, real_4 _p_ c_, real_4 _p_ d_, int_4 _p_ 
  2040  n_, int_4 _p_ nbdcnd_, real_4 _p_ bdc_, real_4 _p_ gama_, real_4 _p_ bdd_, real_4 _p_ xnu_, int_4 (*_cofx)(), int_4 
  2041  (*_cofy)(), real_4 _p_ an_, real_4 _p_ bn_, real_4 _p_ cn_, real_4 _p_ dn_, real_4 _p_ un_, real_4 _p_ zn_, real_4 _p_ 
  2042  am_, real_4 _p_ bm_, real_4 _p_ cm_, real_4 _p_ dm_, real_4 _p_ um_, real_4 _p_ zm_, real_4 _p_ grhs_, real_4 _p_ usol_
  2043  , int_4 _p_ idmn_, real_4 _p_ w_, real_4 _p_ pertrb_, int_4 _p_ ierror_);
  2045  jstrt_, int_4 _p_ ibasis_, int_4 _p_ imat_, int_4 _p_ ibrc_, int_4 _p_ ipr_, int_4 _p_ iwr_, int_4 _p_ ind_, int_4 _p_ 
  2046  ibb_, real_4 _p_ costsc_, real_4 _p_ gg_, real_4 _p_ erdnrm_, real_4 _p_ dulnrm_, real_4 _p_ amat_, real_4 _p_ basmat_, 
  2047  real_4 _p_ csc_, real_4 _p_ wr_, real_4 _p_ ww_, real_4 _p_ rz_, real_4 _p_ rg_, real_4 _p_ costs_, real_4 _p_ colnrm_, 
  2048  real_4 _p_ duals_, logical_4 _p_ stpedg_);
  2050  _p_ ind_, real_4 _p_ primal_, int_4 _p_ info_, real_4 _p_ amat_, real_4 _p_ csc_, real_4 _p_ costsc_, real_4 _p_ 
  2051  colnrm_, real_4 _p_ xlamda_, real_4 _p_ anorm_, real_4 _p_ rhs_, real_4 _p_ rhsnrm_, int_4 _p_ ibasis_, int_4 _p_ ibb_, 
  2052  int_4 _p_ imat_, logical_4 _p_ lopt_);
  2054  _p_ itbrc_, int_4 _p_ ibasis_, int_4 _p_ imat_, int_4 _p_ ibrc_, int_4 _p_ ipr_, int_4 _p_ iwr_, int_4 _p_ ind_, int_4 
  2055  _p_ ibb_, real_4 _p_ erdnrm_, real_4 _p_ eps_, real_4 _p_ tune_, real_4 _p_ gg_, real_4 _p_ amat_, real_4 _p_ basmat_, 
  2056  real_4 _p_ csc_, real_4 _p_ wr_, real_4 _p_ ww_, real_4 _p_ primal_, real_4 _p_ erd_, real_4 _p_ erp_, logical_4 _p_ 
  2057  singlr_, logical_4 _p_ redbas_);
  2059  _p_ info_, int_4 _p_ iopt_, int_4 _p_ ibasis_, int_4 _p_ imat_, int_4 _p_ ibrc_, int_4 _p_ ipr_, int_4 _p_ iwr_, int_4 
  2060  _p_ ind_, int_4 _p_ ibb_, real_4 _p_ anorm_, real_4 _p_ eps_, real_4 _p_ uu_, real_4 _p_ gg_, real_4 _p_ amat_, real_4 
  2061  _p_ basmat_, real_4 _p_ csc_, real_4 _p_ wr_, logical_4 _p_ singlr_, logical_4 _p_ redbas_);
  2063  real_4 _p_ dattrv_, real_4 _p_ bl_, real_4 _p_ bu_, int_4 _p_ ind_, int_4 _p_ info_, real_4 _p_ primal_, real_4 _p_ 
  2064  duals_, int_4 _p_ ibasis_, real_4 _p_ work_, int_4 _p_ lw_, int_4 _p_ iwork_, int_4 _p_ liw_);
  2066  _p_ ibasis_, int_4 _p_ imat_, int_4 _p_ ibrc_, int_4 _p_ ipr_, int_4 _p_ iwr_, int_4 _p_ ind_, int_4 _p_ ibb_, real_4 
  2067  _p_ erdnrm_, real_4 _p_ eps_, real_4 _p_ gg_, real_4 _p_ dulnrm_, real_4 _p_ dirnrm_, real_4 _p_ amat_, real_4 _p_ 
  2068  basmat_, real_4 _p_ csc_, real_4 _p_ wr_, real_4 _p_ ww_, real_4 _p_ bl_, real_4 _p_ bu_, real_4 _p_ rz_, real_4 _p_ 
  2069  rg_, real_4 _p_ colnrm_, real_4 _p_ duals_, logical_4 _p_ found_);
  2071  int_4 _p_ ind_, int_4 _p_ ibb_, real_4 _p_ theta_, real_4 _p_ dirnrm_, real_4 _p_ rprnrm_, real_4 _p_ csc_, real_4 _p_ 
  2072  ww_, real_4 _p_ bl_, real_4 _p_ bu_, real_4 _p_ erp_, real_4 _p_ rprim_, real_4 _p_ primal_, logical_4 _p_ finite_, 
  2073  logical_4 _p_ zerolv_);
  2075  prgopt_, real_4 _p_ dattrv_, real_4 _p_ bl_, real_4 _p_ bu_, int_4 _p_ ind_, int_4 _p_ info_, real_4 _p_ primal_, 
  2076  real_4 _p_ duals_, real_4 _p_ amat_, real_4 _p_ csc_, real_4 _p_ colnrm_, real_4 _p_ erd_, real_4 _p_ erp_, real_4 _p_ 
  2077  basmat_, real_4 _p_ wr_, real_4 _p_ rz_, real_4 _p_ rg_, real_4 _p_ rprim_, real_4 _p_ rhs_, real_4 _p_ ww_, int_4 _p_ 
  2078  lmx_, int_4 _p_ lbm_, int_4 _p_ ibasis_, int_4 _p_ ibb_, int_4 _p_ imat_, int_4 _p_ ibrc_, int_4 _p_ ipr_, int_4 _p_ 
  2079  iwr_);
  2081  _p_ info_, int_4 _p_ ienter_, int_4 _p_ ileave_, int_4 _p_ iopt_, int_4 _p_ npp_, int_4 _p_ jstrt_, int_4 _p_ ibasis_, 
  2082  int_4 _p_ imat_, int_4 _p_ ibrc_, int_4 _p_ ipr_, int_4 _p_ iwr_, int_4 _p_ ind_, int_4 _p_ ibb_, real_4 _p_ anorm_, 
  2083  real_4 _p_ eps_, real_4 _p_ uu_, real_4 _p_ gg_, real_4 _p_ rprnrm_, real_4 _p_ erdnrm_, real_4 _p_ dulnrm_, real_4 _p_ 
  2084  theta_, real_4 _p_ costsc_, real_4 _p_ xlamda_, real_4 _p_ rhsnrm_, real_4 _p_ amat_, real_4 _p_ basmat_, real_4 _p_ 
  2085  csc_, real_4 _p_ wr_, real_4 _p_ rprim_, real_4 _p_ ww_, real_4 _p_ bu_, real_4 _p_ bl_, real_4 _p_ rhs_, real_4 _p_ 
  2086  erd_, real_4 _p_ erp_, real_4 _p_ rz_, real_4 _p_ rg_, real_4 _p_ colnrm_, real_4 _p_ costs_, real_4 _p_ primal_, 
  2087  real_4 _p_ duals_, logical_4 _p_ singlr_, logical_4 _p_ redbas_, logical_4 _p_ zerolv_, logical_4 _p_ stpedg_);
  2089  dattrv_, real_4 _p_ bl_, real_4 _p_ bu_, int_4 _p_ ind_, int_4 _p_ info_, real_4 _p_ amat_, int_4 _p_ imat_, logical_4 
  2090  _p_ sizeup_, real_4 _p_ asmall_, real_4 _p_ abig_);
  2092  real_4 _p_ work_);
  2094  real_4 _p_ work_);
  2096  int_4 _p_ ibasis_, real_4 _p_ ropt_, int_4 _p_ intopt_, logical_4 _p_ lopt_);
  2101  int_4 _p_ info_);
  2104  ndisk_, int_4 _p_ ntape_);
  2107  int_4 _p_ iflag_, int_4 _p_ mlso_, real_4 _p_ work_, int_4 _p_ iwork_);
  2109  _p_ inhomo_, int_4 _p_ iflag_);
  2114  _p_ y2_, real_4 _p_ y3_, real_4 _p_ tcos_, real_4 _p_ d_, real_4 _p_ w1_, real_4 _p_ w2_, real_4 _p_ w3_);
  2117  _p_ z_);
  2119  _p_ z_);
  2121  real_4 _p_ y_, real_4 _p_ tcos_, real_4 _p_ d_, real_4 _p_ w_);
  2123  int_4 _p_ mode_, int_4 _p_ np_, int_4 _p_ krank_, int_4 _p_ ksure_, real_4 _p_ h_, real_4 _p_ w_, real_4 _p_ eb_, int_4 
  2124  _p_ ic_, int_4 _p_ ir_);
  2126  int_4 _p_ mode_, int_4 _p_ np_, int_4 _p_ krank_, int_4 _p_ ksure_, real_4 _p_ h_, real_4 _p_ w_, real_4 _p_ eb_, int_4 
  2127  _p_ ir_, int_4 _p_ ic_);
  2129  _p_ nb_, int_4 _p_ mode_, int_4 _p_ krank_, real_4 _p_ rnorm_, real_4 _p_ h_, real_4 _p_ w_, int_4 _p_ ic_, int_4 _p_ 
  2130  ir_);
  2132  _p_ nb_, int_4 _p_ mode_, int_4 _p_ krank_, real_4 _p_ rnorm_, real_4 _p_ h_, real_4 _p_ w_, int_4 _p_ ir_, int_4 _p_ 
  2133  ic_);
  2135  _p_ nb_, real_4 _p_ re_, real_4 _p_ ae_, int_4 _p_ key_, int_4 _p_ mode_, int_4 _p_ np_, int_4 _p_ krank_, int_4 _p_ 
  2136  ksure_, real_4 _p_ rnorm_, real_4 _p_ w_, int_4 _p_ lw_, int_4 _p_ iwork_, int_4 _p_ liw_, int_4 _p_ info_);
  2138  dattrv_, int_4 _p_ iflag_);
  2141  int_4 _p_ itype_, real_4 _p_ h_, real_4 _p_ scale_, real_4 _p_ rnorm_, int_4 _p_ idope_, real_4 _p_ dope_, logical_4 
  2142  _p_ done_);
  2144  real_4 _p_ prgopt_, real_4 _p_ x_, real_4 _p_ rnorm_, int_4 _p_ mode_, int_4 _p_ ipivot_, int_4 _p_ itype_, real_4 _p_ 
  2145  wd_, real_4 _p_ h_, real_4 _p_ scale_, real_4 _p_ z_, real_4 _p_ temp_, real_4 _p_ d_);
  2147  recalc_, int_4 _p_ imax_, real_4 _p_ hbar_, real_4 _p_ h_, real_4 _p_ scale_, real_4 _p_ w_);
  2149  _p_ scale_, real_4 _p_ wic_);
  2151  real_4 _p_ w_);
  2153  _p_ prgopt_, real_4 _p_ x_, real_4 _p_ rnorm_, int_4 _p_ mode_, int_4 _p_ iwork_, real_4 _p_ work_);
  2159  int_4 _aaaaaa (char _p_ ver_)
  2160  { // ** body not listed **
  2164  }
  2165  
  2166  int_4 _asyik (real_4 _p_ x_, real_4 _p_ fnu_, int_4 _p_ kode_, real_4 _p_ flgik_, real_4 _p_ ra_, real_4 _p_ arg_, 
  2167  int_4 _p_ in_, real_4 _p_ y_)
  2168  { // ** body not listed **
  2577  }
  2578  
  2579  int_4 _asyjy (int_4 (*_funjy)(), real_4 _p_ x_, real_4 _p_ fnu_, real_4 _p_ flgjy_, int_4 _p_ in_, real_4 _p_ y_, 
  2580  real_4 _p_ wk_, int_4 _p_ iflw_)
  2581  { // ** body not listed **
  4661  }
  4662  
  4663  int_4 _avint (real_4 _p_ x_, real_4 _p_ y_, int_4 _p_ n_, real_4 _p_ xlo_, real_4 _p_ xup_, real_4 _p_ ans_, int_4 _p_ 
  4664  ierr_)
  4665  { // ** body not listed **
  4811  }
  4812  
  4813  real_4 _bcrh (real_4 _p_ xll_, real_4 _p_ xrr_, int_4 _p_ iz_, real_4 _p_ c_, real_4 _p_ a_, real_4 _p_ bh_, real_4 
  4814  (*_f)(), real_4 _p_ sgn_)
  4815  { // ** body not listed **
  4850  }
  4851  
  4852  int_4 _bdiff (int_4 _p_ l_, real_4 _p_ v_)
  4853  { // ** body not listed **
  4868  }
  4869  
  4870  int_4 _bksol (int_4 _p_ n_, real_4 _p_ a_, real_4 _p_ x_)
  4871  { // ** body not listed **
  4888  }
  4889  
  4890  int_4 _blktr1 (int_4 _p_ n_, real_4 _p_ an_, real_4 _p_ bn_, real_4 _p_ cn_, int_4 _p_ m_, real_4 _p_ am_, real_4 _p_ 
  4891  bm_, real_4 _p_ cm_, int_4 _p_ idimy_, real_4 _p_ y_, real_4 _p_ b_, real_4 _p_ w1_, real_4 _p_ w2_, real_4 _p_ w3_, 
  4892  real_4 _p_ wd_, real_4 _p_ ww_, real_4 _p_ wu_, int_4 (*_prdct)(), int_4 (*_cprdct)())
  4893  { // ** body not listed **
  5226  }
  5227  
  5228  int_4 _bndacc (real_4 _p_ g_, int_4 _p_ mdg_, int_4 _p_ nb_, int_4 _p_ ip_, int_4 _p_ ir_, int_4 _p_ mt_, int_4 _p_ jt_
  5229  )
  5230  { // ** body not listed **
  5306  }
  5307  
  5308  int_4 _bndsol (int_4 _p_ mode_, real_4 _p_ g_, int_4 _p_ mdg_, int_4 _p_ nb_, int_4 _p_ ip_, int_4 _p_ ir_, real_4 _p_ 
  5309  x_, int_4 _p_ n_, real_4 _p_ rnorm_)
  5310  { // ** body not listed **
  5398  }
  5399  
  5400  int_4 _bsgq8 (real_4 (*_fun)(), real_4 _p_ xt_, real_4 _p_ bc_, int_4 _p_ n_, int_4 _p_ kk_, int_4 _p_ id_, real_4 _p_ 
  5401  a_, real_4 _p_ b_, int_4 _p_ inbv_, real_4 _p_ err_, real_4 _p_ ans_, int_4 _p_ ierr_, real_4 _p_ work_)
  5402  { // ** body not listed **
  5671  }
  5672  
  5673  int_4 _bsplvd (real_4 _p_ t_, int_4 _p_ k_, real_4 _p_ x_, int_4 _p_ ileft_, real_4 _p_ vnikx_, int_4 _p_ nderiv_)
  5674  { // ** body not listed **
  5740  }
  5741  
  5742  int_4 _bsplvn (real_4 _p_ t_, int_4 _p_ jhigh_, int_4 _p_ index_, real_4 _p_ x_, int_4 _p_ ileft_, real_4 _p_ vnikx_)
  5743  { // ** body not listed **
  5846  }
  5847  
  5848  real_4 _bsrh (real_4 _p_ xll_, real_4 _p_ xrr_, int_4 _p_ iz_, real_4 _p_ c_, real_4 _p_ a_, real_4 _p_ bh_, real_4 
  5849  (*_f)(), real_4 _p_ sgn_)
  5850  { // ** body not listed **
  5885  }
  5886  
  5887  int_4 _c1merg (complex_8 _p_ tcos_, int_4 _p_ i1_, int_4 _p_ m1_, int_4 _p_ i2_, int_4 _p_ m2_, int_4 _p_ i3_)
  5888  { // ** body not listed **
  5927  }
  5928  
  5929  int_4 _casyi (complex_8 _p_ z_, real_4 _p_ fnu_, int_4 _p_ kode_, int_4 _p_ n_, complex_8 _p_ y_, int_4 _p_ nz_, real_4 
  5930  _p_ rl_, real_4 _p_ tol_, real_4 _p_ elim_, real_4 _p_ alim_)
  5931  { // ** body not listed **
  6086  }
  6087  
  6088  int_4 _cblkt1 (int_4 _p_ n_, real_4 _p_ an_, real_4 _p_ bn_, real_4 _p_ cn_, int_4 _p_ m_, complex_8 _p_ am_, complex_8 
  6089  _p_ bm_, complex_8 _p_ cm_, int_4 _p_ idimy_, complex_8 _p_ y_, real_4 _p_ b_, complex_8 _p_ w1_, complex_8 _p_ w2_, 
  6090  complex_8 _p_ w3_, complex_8 _p_ wd_, complex_8 _p_ ww_, complex_8 _p_ wu_, int_4 (*_prdct)(), int_4 (*_cprdct)())
  6091  { // ** body not listed **
  6424  }
  6425  
  6426  int_4 _ccmpb (int_4 _p_ n_, int_4 _p_ ierror_, real_4 _p_ an_, real_4 _p_ bn_, real_4 _p_ cn_, real_4 _p_ b_, real_4 
  6427  _p_ ah_, real_4 _p_ bh_)
  6428  { // ** body not listed **
  6586  }
  6587  
  6588  int_4 _cfod (int_4 _p_ meth_, real_4 _p_ elco_, real_4 _p_ tesco_)
  6589  { // ** body not listed **
  6664  }
  6665  
  6666  int_4 _cgeev (real_4 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, real_4 _p_ e_, real_4 _p_ v_, int_4 _p_ ldv_, real_4 _p_ 
  6667  work_, int_4 _p_ job_, int_4 _p_ info_)
  6668  { // ** body not listed **
  6763  }
  6764  
  6765  int_4 _cgefs (complex_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, complex_8 _p_ v_, int_4 _p_ itask_, int_4 _p_ ind_, 
  6766  complex_8 _p_ work_, int_4 _p_ iwork_)
  6767  { // ** body not listed **
  6958  }
  6959  
  6960  int_4 _cgeir (complex_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, complex_8 _p_ v_, int_4 _p_ itask_, int_4 _p_ ind_, 
  6961  complex_8 _p_ work_, int_4 _p_ iwork_)
  6962  { // ** body not listed **
  7172  }
  7173  
  7174  int_4 _chiev (real_4 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, real_4 _p_ e_, real_4 _p_ v_, int_4 _p_ ldv_, real_4 _p_ 
  7175  work_, int_4 _p_ job_, int_4 _p_ info_)
  7176  { // ** body not listed **
  7289  }
  7290  
  7291  int_4 _chkpr4 (int_4 _p_ iorder_, real_4 _p_ a_, real_4 _p_ b_, int_4 _p_ m_, int_4 _p_ mbdcnd_, real_4 _p_ c_, real_4 
  7292  _p_ d_, int_4 _p_ n_, int_4 _p_ nbdcnd_, int_4 (*_cofx)(), int_4 _p_ idmn_, int_4 _p_ ierror_)
  7293  { // ** body not listed **
  7339  }
  7340  
  7341  int_4 _chkprm (int_4 _p_ intl_, int_4 _p_ iorder_, real_4 _p_ a_, real_4 _p_ b_, int_4 _p_ m_, int_4 _p_ mbdcnd_, 
  7342  real_4 _p_ c_, real_4 _p_ d_, int_4 _p_ n_, int_4 _p_ nbdcnd_, int_4 (*_cofx)(), int_4 (*_cofy)(), int_4 _p_ idmn_, 
  7343  int_4 _p_ ierror_)
  7344  { // ** body not listed **
  7399  }
  7400  
  7401  int_4 _chksn4 (int_4 _p_ mbdcnd_, int_4 _p_ nbdcnd_, real_4 _p_ alpha_, real_4 _p_ beta_, int_4 (*_cofx)(), logical_4 
  7402  _p_ singlr_)
  7403  { // ** body not listed **
  7428  }
  7429  
  7430  int_4 _chksng (int_4 _p_ mbdcnd_, int_4 _p_ nbdcnd_, real_4 _p_ alpha_, real_4 _p_ beta_, real_4 _p_ gama_, real_4 _p_ 
  7431  xnu_, int_4 (*_cofx)(), int_4 (*_cofy)(), logical_4 _p_ singlr_)
  7432  { // ** body not listed **
  7471  }
  7472  
  7473  int_4 _cmpcsg (int_4 _p_ n_, int_4 _p_ ijump_, real_4 _p_ fnum_, real_4 _p_ fden_, complex_8 _p_ a_)
  7474  { // ** body not listed **
  7507  }
  7508  
  7509  int_4 _cmposd (int_4 _p_ mr_, int_4 _p_ nr_, int_4 _p_ istag_, complex_8 _p_ ba_, complex_8 _p_ bb_, complex_8 _p_ bc_, 
  7510  complex_8 _p_ q_, int_4 _p_ idimq_, complex_8 _p_ b_, complex_8 _p_ w_, complex_8 _p_ d_, complex_8 _p_ tcos_, 
  7511  complex_8 _p_ p_)
  7512  { // ** body not listed **
  7934  }
  7935  
  7936  int_4 _cmposn (int_4 _p_ m_, int_4 _p_ n_, int_4 _p_ istag_, int_4 _p_ mixbnd_, complex_8 _p_ a_, complex_8 _p_ bb_, 
  7937  complex_8 _p_ c_, complex_8 _p_ q_, int_4 _p_ idimq_, complex_8 _p_ b_, complex_8 _p_ b2_, complex_8 _p_ b3_, complex_8 
  7938  _p_ w_, complex_8 _p_ w2_, complex_8 _p_ w3_, complex_8 _p_ d_, complex_8 _p_ tcos_, complex_8 _p_ p_)
  7939  { // ** body not listed **
  8575  }
  8576  
  8577  int_4 _cmposp (int_4 _p_ m_, int_4 _p_ n_, complex_8 _p_ a_, complex_8 _p_ bb_, complex_8 _p_ c_, complex_8 _p_ q_, 
  8578  int_4 _p_ idimq_, complex_8 _p_ b_, complex_8 _p_ b2_, complex_8 _p_ b3_, complex_8 _p_ w_, complex_8 _p_ w2_, 
  8579  complex_8 _p_ w3_, complex_8 _p_ d_, complex_8 _p_ tcos_, complex_8 _p_ p_)
  8580  { // ** body not listed **
  8675  }
  8676  
  8677  int_4 _cmptr3 (int_4 _p_ m_, complex_8 _p_ a_, complex_8 _p_ b_, complex_8 _p_ c_, int_4 _p_ k_, complex_8 _p_ y1_, 
  8678  complex_8 _p_ y2_, complex_8 _p_ y3_, complex_8 _p_ tcos_, complex_8 _p_ d_, complex_8 _p_ w1_, complex_8 _p_ w2_, 
  8679  complex_8 _p_ w3_)
  8680  { // ** body not listed **
  8790  }
  8791  
  8792  int_4 _cmptrx (int_4 _p_ idegbr_, int_4 _p_ idegcr_, int_4 _p_ m_, complex_8 _p_ a_, complex_8 _p_ b_, complex_8 _p_ c_
  8793  , complex_8 _p_ y_, complex_8 _p_ tcos_, complex_8 _p_ d_, complex_8 _p_ w_)
  8794  { // ** body not listed **
  8847  }
  8848  
  8849  int_4 _cnbco (complex_8 _p_ abe_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ml_, int_4 _p_ mu_, int_4 _p_ ipvt_, real_4 
  8850  _p_ rcond_, complex_8 _p_ z_)
  8851  { // ** body not listed **
  8884  }
  8885  
  8886  s_ = ({complex_8 zdum__1_ = abe_[k_ - 1 + ((*lda_)) * ((ml1_ - 1))]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf 
  8887  (zdum__1_));}) / ({complex_8 zdum__1_ = ek_ - z_[k_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf 
  8888  (zdum__1_));});
  8889  (void) _csscal (n_, &s_, z_, &_k1);
  8890  ek_ = CMPLXF (s_, 0.0) * ek_;
  8891  _l30:;
  8892  wk_ = ek_ - z_[k_ - 1];
  8893  wkm_ = -ek_ - z_[k_ - 1];
  8894  s_ = ({complex_8 zdum__1_ = wk_; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));});
  8895  sm_ = ({complex_8 zdum__1_ = wkm_; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));});
  8896  if (({complex_8 zdum__1_ = abe_[k_ - 1 + ((*lda_)) * ((ml1_ - 1))]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf 
  8897  (zdum__1_));}) == 0.0e0) {
  8898  goto _l40;
  8899  }
  8900  wk_ = wk_ / conjf (abe_[k_ - 1 + ((*lda_)) * ((ml1_ - 1))]);
  8901  wkm_ = wkm_ / conjf (abe_[k_ - 1 + ((*lda_)) * ((ml1_ - 1))]);
  8902  goto _l50;
  8903  _l40:;
  8904  wk_ = CMPLXF (1.0, 0.0);
  8905  wkm_ = CMPLXF (1.0, 0.0);
  8906  _l50:;
  8907  kp1_ = k_ + 1;
  8908  ju_ = _min (_max (ju_, (*mu_) + ipvt_[k_ - 1]), (*n_));
  8909  mm_ = ml1_;
  8910  if (kp1_ > ju_) {
  8911    goto _l90;
  8912  }
  8913  
  8914  for (i_ = kp1_; i_ <= ju_; (i_)++) {
  8915    mm_ = mm_ + 1;
  8916    sm_ = sm_ + ({complex_8 zdum__1_ = z_[i_ - 1] + wkm_ * conjf (abe_[k_ - 1 + ((*lda_)) * ((mm_ - 1))]); _abs ((real_4) 
  8917    (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));});
  8918    z_[i_ - 1] = z_[i_ - 1] + wk_ * conjf (abe_[k_ - 1 + ((*lda_)) * ((mm_ - 1))]);
  8919    s_ = s_ + ({complex_8 zdum__1_ = z_[i_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));});
  8920  }
  8921  
  8922  if (s_ >= sm_) {
  8923    goto _l80;
  8924  }
  8925  
  8926  t_ = wkm_ - wk_;
  8927  wk_ = wkm_;
  8928  mm_ = ml1_;
  8929  for (i_ = kp1_; i_ <= ju_; (i_)++) {
  8930    mm_ = mm_ + 1;
  8931    z_[i_ - 1] = z_[i_ - 1] + t_ * conjf (abe_[k_ - 1 + ((*lda_)) * ((mm_ - 1))]);
  8932  }
  8933  
  8934  _l80:;
  8935  _l90:;
  8936  z_[k_ - 1] = wk_;
  8937  }
  8938  
  8939  s_ = 1.0e0 / _scasum (n_, z_, &_k1);
  8940  (void) _csscal (n_, &s_, z_, &_k1);
  8941  for (kb_ = 1; kb_ <= (*n_); (kb_)++) {
  8942    k_ = (*n_) + 1 - kb_;
  8943    nl_ = _min ((*ml_), (*n_) - k_);
  8944    if (k_ < (*n_)) {
  8945      z_[k_ - 1] = z_[k_ - 1] + _cdotc (&nl_, &abe_[k_ + nl_ - 1 + ((*lda_)) * ((ml1_ - nl_ - 1))], ($0_ = -ldb_, &$0_), 
  8946      &z_[k_ + 1 - 1], &_k1);
  8947    }
  8948    if (({complex_8 zdum__1_ = z_[k_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));}) <= 1.0e0) {
  8949    goto _l110;
  8950  }
  8951  
  8952  s_ = 1.0e0 / ({complex_8 zdum__1_ = z_[k_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));});
  8953  (void) _csscal (n_, &s_, z_, &_k1);
  8954  _l110:;
  8955  l_ = ipvt_[k_ - 1];
  8956  t_ = z_[l_ - 1];
  8957  z_[l_ - 1] = z_[k_ - 1];
  8958  z_[k_ - 1] = t_;
  8959  }
  8960  
  8961  s_ = 1.0e0 / _scasum (n_, z_, &_k1);
  8962  (void) _csscal (n_, &s_, z_, &_k1);
  8963  ynorm_ = 1.0;
  8964  for (k_ = 1; k_ <= (*n_); (k_)++) {
  8965    l_ = ipvt_[k_ - 1];
  8966    t_ = z_[l_ - 1];
  8967    z_[l_ - 1] = z_[k_ - 1];
  8968    z_[k_ - 1] = t_;
  8969    nl_ = _min ((*ml_), (*n_) - k_);
  8970    if (k_ < (*n_)) {
  8971      (void) _caxpy (&nl_, &t_, &abe_[k_ + nl_ - 1 + ((*lda_)) * ((ml1_ - nl_ - 1))], ($1_ = -ldb_, &$1_), &z_[k_ + 1 - 1], 
  8972      &_k1);
  8973    }
  8974    if (({complex_8 zdum__1_ = z_[k_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));}) <= 1.0e0) {
  8975    goto _l130;
  8976  }
  8977  
  8978  s_ = 1.0e0 / ({complex_8 zdum__1_ = z_[k_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));});
  8979  (void) _csscal (n_, &s_, z_, &_k1);
  8980  ynorm_ = s_ * ynorm_;
  8981  _l130:;
  8982  }
  8983  
  8984  s_ = 1.0e0 / _scasum (n_, z_, &_k1);
  8985  (void) _csscal (n_, &s_, z_, &_k1);
  8986  ynorm_ = s_ * ynorm_;
  8987  for (kb_ = 1; kb_ <= (*n_); (kb_)++) {
  8988    k_ = (*n_) + 1 - kb_;
  8989    if (({complex_8 zdum__1_ = z_[k_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));}) <= ({complex_8 
  8990    zdum__1_ = abe_[k_ - 1 + ((*lda_)) * ((ml1_ - 1))]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));})) 
  8991    {
  8992    goto _l150;
  8993  }
  8994  
  8995  s_ = ({complex_8 zdum__1_ = abe_[k_ - 1 + ((*lda_)) * ((ml1_ - 1))]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf 
  8996  (zdum__1_));}) / ({complex_8 zdum__1_ = z_[k_ - 1]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));});
  8997  (void) _csscal (n_, &s_, z_, &_k1);
  8998  ynorm_ = s_ * ynorm_;
  8999  _l150:;
  9000  if (({complex_8 zdum__1_ = abe_[k_ - 1 + ((*lda_)) * ((ml1_ - 1))]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf 
  9001  (zdum__1_));}) != 0.0e0) {
  9002  z_[k_ - 1] = z_[k_ - 1] / abe_[k_ - 1 + ((*lda_)) * ((ml1_ - 1))];
  9003  }
  9004  
  9005  if (({complex_8 zdum__1_ = abe_[k_ - 1 + ((*lda_)) * ((ml1_ - 1))]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf 
  9006  (zdum__1_));}) == 0.0e0) {
  9007  z_[k_ - 1] = 1.0;
  9008  }
  9009  
  9010  lm_ = _min (k_, m_) - 1;
  9011  lz_ = k_ - lm_;
  9012  t_ = -z_[k_ - 1];
  9013  (void) _caxpy (&lm_, &t_, &abe_[k_ - 1 - 1 + ((*lda_)) * (((*ml_) + 2 - 1))], ($2_ = -ldb_, &$2_), &z_[lz_ - 1], &_k1)
  9014  ;
  9015  }
  9016  
  9017  s_ = 1.0e0 / _scasum (n_, z_, &_k1);
  9018  (void) _csscal (n_, &s_, z_, &_k1);
  9019  ynorm_ = s_ * ynorm_;
  9020  if (anorm_ != 0.0e0) {
  9021    (*rcond_) = ynorm_ / anorm_;
  9022  }
  9023  
  9024  if (anorm_ == 0.0e0) {
  9025    (*rcond_) = 0.0;
  9026  }
  9027  
  9028  __calls[33].calls++;
  9029  return 0;
  9030  }
  9031  
  9032  int_4 _cnbdi (complex_8 _p_ abe_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ml_, int_4 _p_ mu_, int_4 _p_ ipvt_, 
  9033  complex_8 _p_ det_)
  9034  { // ** body not listed **
  9052  }
  9053  
  9054  det_[0] = CMPLXF (ten_, 0.0) * det_[0];
  9055  det_[1] = det_[1] - CMPLXF (1.0, 0.0);
  9056  goto _l10;
  9057  _l20:;
  9058  _l30:;
  9059  if (({complex_8 zdum__1_ = det_[0]; _abs ((real_4) (crealf (zdum__1_))) + _abs (cimagf (zdum__1_));}) < ten_) {
  9060  goto _l40;
  9061  }
  9062  
  9063  det_[0] = det_[0] / CMPLXF (ten_, 0.0);
  9064  det_[1] = det_[1] + CMPLXF (1.0, 0.0);
  9065  goto _l30;
  9066  _l40:;
  9067  }
  9068  
  9069  _l60:;
  9070  __calls[34].calls++;
  9071  return 0;
  9072  }
  9073  
  9074  int_4 _cnbfa (complex_8 _p_ abe_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ml_, int_4 _p_ mu_, int_4 _p_ ipvt_, int_4 
  9075  _p_ info_)
  9076  { // ** body not listed **
  9124  }
  9125  
  9126  _l50:;
  9127  ipvt_[(*n_) - 1] = (*n_);
  9128  if (({complex_8 zdum__1_ = abe_[(*n_) - 1 + ((*lda_)) * ((ml1_ - 1))]; _abs ((real_4) (crealf (zdum__1_))) + _abs 
  9129  (cimagf (zdum__1_));}) == 0.0e0) {
  9130  (*info_) = (*n_);
  9131  }
  9132  
  9133  __calls[35].calls++;
  9134  return 0;
  9135  }
  9136  
  9137  int_4 _cnbfs (complex_8 _p_ abe_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ml_, int_4 _p_ mu_, complex_8 _p_ v_, int_4 
  9138  _p_ itask_, int_4 _p_ ind_, complex_8 _p_ work_, int_4 _p_ iwork_)
  9139  { // ** body not listed **
  9416  }
  9417  
  9418  int_4 _cnbir (complex_8 _p_ abe_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ml_, int_4 _p_ mu_, complex_8 _p_ v_, int_4 
  9419  _p_ itask_, int_4 _p_ ind_, complex_8 _p_ work_, int_4 _p_ iwork_)
  9420  { // ** body not listed **
  9721  }
  9722  
  9723  int_4 _cnbsl (complex_8 _p_ abe_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ml_, int_4 _p_ mu_, int_4 _p_ ipvt_, 
  9724  complex_8 _p_ b_, int_4 _p_ job_)
  9725  { // ** body not listed **
  9795  }
  9796  
  9797  int_4 _compb (int_4 _p_ n_, int_4 _p_ ierror_, real_4 _p_ an_, real_4 _p_ bn_, real_4 _p_ cn_, real_4 _p_ b_, real_4 
  9798  _p_ ah_, real_4 _p_ bh_)
  9799  { // ** body not listed **
  9957  }
  9958  
  9959  int_4 _cosgen (int_4 _p_ n_, int_4 _p_ ijump_, real_4 _p_ fnum_, real_4 _p_ fden_, real_4 _p_ a_)
  9960  { // ** body not listed **
  9993  }
  9994  
  9995  int_4 _cpadd (int_4 _p_ n_, int_4 _p_ ierror_, real_4 _p_ a_, real_4 _p_ c_, complex_8 _p_ cbp_, real_4 _p_ bp_, real_4 
  9996  _p_ bh_)
  9997  { // ** body not listed **
 10283  }
 10284  
 10285  int_4 _cpevl (int_4 _p_ n_, int_4 _p_ m_, complex_8 _p_ a_, complex_8 _p_ z_, complex_8 _p_ c_, complex_8 _p_ b_, 
 10286  logical_4 _p_ kbd_)
 10287  { // ** body not listed **
 10346  }
 10347  
 10348  int_4 _cpevlr (int_4 _p_ n_, int_4 _p_ m_, real_4 _p_ a_, real_4 _p_ x_, real_4 _p_ c_)
 10349  { // ** body not listed **
 10369  }
 10370  
 10371  int_4 _cpofs (complex_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, complex_8 _p_ v_, int_4 _p_ itask_, int_4 _p_ ind_, 
 10372  complex_8 _p_ work_)
 10373  { // ** body not listed **
 10565  }
 10566  
 10567  int_4 _cpoir (complex_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, complex_8 _p_ v_, int_4 _p_ itask_, int_4 _p_ ind_, 
 10568  complex_8 _p_ work_)
 10569  { // ** body not listed **
 10784  }
 10785  
 10786  int_4 _cpqr79 (int_4 _p_ ndeg_, complex_8 _p_ coeff_, complex_8 _p_ root_, int_4 _p_ ierr_, real_4 _p_ work_)
 10787  { // ** body not listed **
 10838  }
 10839  
 10840  int_4 _cproc (int_4 _p_ nd_, complex_8 _p_ bd_, int_4 _p_ nm1_, real_4 _p_ bm1_, int_4 _p_ nm2_, real_4 _p_ bm2_, int_4 
 10841  _p_ na_, real_4 _p_ aa_, complex_8 _p_ x_, complex_8 _p_ y_, int_4 _p_ m_, complex_8 _p_ a_, complex_8 _p_ b_, 
 10842  complex_8 _p_ c_, complex_8 _p_ d_, complex_8 _p_ w_, real_4 _p_ yy_)
 10843  { // ** body not listed **
 10996  }
 10997  
 10998  int_4 _cprocp (int_4 _p_ nd_, complex_8 _p_ bd_, int_4 _p_ nm1_, real_4 _p_ bm1_, int_4 _p_ nm2_, real_4 _p_ bm2_, 
 10999  int_4 _p_ na_, real_4 _p_ aa_, complex_8 _p_ x_, complex_8 _p_ y_, int_4 _p_ m_, complex_8 _p_ a_, complex_8 _p_ b_, 
 11000  complex_8 _p_ c_, complex_8 _p_ d_, complex_8 _p_ u_, real_4 _p_ yy_)
 11001  { // ** body not listed **
 11183  }
 11184  
 11185  int_4 _cprod (int_4 _p_ nd_, complex_8 _p_ bd_, int_4 _p_ nm1_, real_4 _p_ bm1_, int_4 _p_ nm2_, real_4 _p_ bm2_, int_4 
 11186  _p_ na_, real_4 _p_ aa_, real_4 _p_ x_, real_4 _p_ yy_, int_4 _p_ m_, real_4 _p_ a_, real_4 _p_ b_, real_4 _p_ c_, 
 11187  complex_8 _p_ d_, complex_8 _p_ w_, complex_8 _p_ y_)
 11188  { // ** body not listed **
 11344  }
 11345  
 11346  int_4 _cprodp (int_4 _p_ nd_, complex_8 _p_ bd_, int_4 _p_ nm1_, real_4 _p_ bm1_, int_4 _p_ nm2_, real_4 _p_ bm2_, 
 11347  int_4 _p_ na_, real_4 _p_ aa_, real_4 _p_ x_, real_4 _p_ yy_, int_4 _p_ m_, real_4 _p_ a_, real_4 _p_ b_, real_4 _p_ c_
 11348  , complex_8 _p_ d_, complex_8 _p_ u_, complex_8 _p_ y_)
 11349  { // ** body not listed **
 11534  }
 11535  
 11536  int_4 _cpzero (int_4 _p_ in_, complex_8 _p_ a_, complex_8 _p_ r_, complex_8 _p_ t_, int_4 _p_ iflg_, real_4 _p_ s_)
 11537  { // ** body not listed **
 11658  }
 11659  
 11660  int_4 _crati (complex_8 _p_ z_, real_4 _p_ fnu_, int_4 _p_ n_, complex_8 _p_ cy_, real_4 _p_ tol_)
 11661  { // ** body not listed **
 11770  }
 11771  
 11772  int_4 _cs1s2 (complex_8 _p_ zr_, complex_8 _p_ s1_, complex_8 _p_ s2_, int_4 _p_ nz_, real_4 _p_ ascle_, real_4 _p_ 
 11773  alim_, int_4 _p_ iuf_)
 11774  { // ** body not listed **
 11824  }
 11825  
 11826  int_4 _cscale (real_4 _p_ a_, int_4 _p_ nrda_, int_4 _p_ nrow_, int_4 _p_ ncol_, real_4 _p_ cols_, real_4 _p_ colsav_, 
 11827  real_4 _p_ rows_, real_4 _p_ rowsav_, real_4 _p_ anorm_, real_4 _p_ scales_, int_4 _p_ iscale_, int_4 _p_ ic_)
 11828  { // ** body not listed **
 11912  }
 11913  
 11914  int_4 _cshch (complex_8 _p_ z_, complex_8 _p_ csh_, complex_8 _p_ cch_)
 11915  { // ** body not listed **
 11931  }
 11932  
 11933  int_4 _cuchk (complex_8 _p_ y_, int_4 _p_ nz_, real_4 _p_ ascle_, real_4 _p_ tol_)
 11934  { // ** body not listed **
 11953  }
 11954  
 11955  int_4 _cunhj (complex_8 _p_ z_, real_4 _p_ fnu_, int_4 _p_ ipmtr_, real_4 _p_ tol_, complex_8 _p_ phi_, complex_8 _p_ 
 11956  arg_, complex_8 _p_ zeta1_, complex_8 _p_ zeta2_, complex_8 _p_ asum_, complex_8 _p_ bsum_)
 11957  { // ** body not listed **
 15212  }
 15213  
 15214  int_4 _cunik (complex_8 _p_ zr_, real_4 _p_ fnu_, int_4 _p_ ikflg_, int_4 _p_ ipmtr_, real_4 _p_ tol_, int_4 _p_ init_, 
 15215  complex_8 _p_ phi_, complex_8 _p_ zeta1_, complex_8 _p_ zeta2_, complex_8 _p_ sum_, complex_8 _p_ cwrk_)
 15216  { // ** body not listed **
 15969  }
 15970  
 15971  real_4 _cv (real_4 _p_ xval_, int_4 _p_ ndata_, int_4 _p_ nconst_, int_4 _p_ nord_, int_4 _p_ nbkpt_, real_4 _p_ bkpt_, 
 15972  real_4 _p_ w_)
 15973  { // ** body not listed **
 16003  }
 16004  
 16005  int_4 _d1merg (real_8 _p_ tcos_, int_4 _p_ i1_, int_4 _p_ m1_, int_4 _p_ i2_, int_4 _p_ m2_, int_4 _p_ i3_)
 16006  { // ** body not listed **
 16045  }
 16046  
 16047  int_4 _d1mpyq (int_4 _p_ m_, int_4 _p_ n_, real_8 _p_ a_, int_4 _p_ lda_, real_8 _p_ v_, real_8 _p_ w_)
 16048  { // ** body not listed **
 16111  }
 16112  
 16113  int_4 _d1updt (int_4 _p_ m_, int_4 _p_ n_, real_8 _p_ s_, int_4 _p_ ls_, real_8 _p_ u_, real_8 _p_ v_, real_8 _p_ w_, 
 16114  logical_4 _p_ sing_)
 16115  { // ** body not listed **
 16246  }
 16247  
 16248  int_4 _dasyik (real_8 _p_ x_, real_8 _p_ fnu_, int_4 _p_ kode_, real_8 _p_ flgik_, real_8 _p_ ra_, real_8 _p_ arg_, 
 16249  int_4 _p_ in_, real_8 _p_ y_)
 16250  { // ** body not listed **
 16659  }
 16660  
 16661  int_4 _davint (real_8 _p_ x_, real_8 _p_ y_, int_4 _p_ n_, real_8 _p_ xlo_, real_8 _p_ xup_, real_8 _p_ ans_, int_4 _p_ 
 16662  ierr_)
 16663  { // ** body not listed **
 16807  }
 16808  
 16809  int_4 _dbdiff (int_4 _p_ l_, real_8 _p_ v_)
 16810  { // ** body not listed **
 16825  }
 16826  
 16827  int_4 _dbksol (int_4 _p_ n_, real_8 _p_ a_, real_8 _p_ x_)
 16828  { // ** body not listed **
 16845  }
 16846  
 16847  int_4 _dbndac (real_8 _p_ g_, int_4 _p_ mdg_, int_4 _p_ nb_, int_4 _p_ ip_, int_4 _p_ ir_, int_4 _p_ mt_, int_4 _p_ jt_
 16848  )
 16849  { // ** body not listed **
 16925  }
 16926  
 16927  int_4 _dbndsl (int_4 _p_ mode_, real_8 _p_ g_, int_4 _p_ mdg_, int_4 _p_ nb_, int_4 _p_ ip_, int_4 _p_ ir_, real_8 _p_ 
 16928  x_, int_4 _p_ n_, real_8 _p_ rnorm_)
 16929  { // ** body not listed **
 17017  }
 17018  
 17019  int_4 _dbocls (real_8 _p_ w_, int_4 _p_ mdw_, int_4 _p_ mcon_, int_4 _p_ mrows_, int_4 _p_ ncols_, real_8 _p_ bl_, 
 17020  real_8 _p_ bu_, int_4 _p_ ind_, int_4 _p_ iopt_, real_8 _p_ x_, real_8 _p_ rnormc_, real_8 _p_ rnorm_, int_4 _p_ mode_, 
 17021  real_8 _p_ rw_, int_4 _p_ iw_)
 17022  { // ** body not listed **
 18547  }
 18548  
 18549  int_4 _dbols (real_8 _p_ w_, int_4 _p_ mdw_, int_4 _p_ mrows_, int_4 _p_ ncols_, real_8 _p_ bl_, real_8 _p_ bu_, int_4 
 18550  _p_ ind_, int_4 _p_ iopt_, real_8 _p_ x_, real_8 _p_ rnorm_, int_4 _p_ mode_, real_8 _p_ rw_, int_4 _p_ iw_)
 18551  { // ** body not listed **
 19883  }
 19884  
 19885  int_4 _dbolsm (real_8 _p_ w_, int_4 _p_ mdw_, int_4 _p_ minput_, int_4 _p_ ncols_, real_8 _p_ bl_, real_8 _p_ bu_, 
 19886  int_4 _p_ ind_, int_4 _p_ iopt_, real_8 _p_ x_, real_8 _p_ rnorm_, int_4 _p_ mode_, real_8 _p_ rw_, real_8 _p_ ww_, 
 19887  real_8 _p_ scl_, int_4 _p_ ibasis_, int_4 _p_ ibb_)
 19888  { // ** body not listed **
 21605  }
 21606  int_4 _dbsgq8 (real_8 (*_fun)(), real_8 _p_ xt_, real_8 _p_ bc_, int_4 _p_ n_, int_4 _p_ kk_, int_4 _p_ id_, real_8 _p_ 
 21607  a_, real_8 _p_ b_, int_4 _p_ inbv_, real_8 _p_ err_, real_8 _p_ ans_, int_4 _p_ ierr_, real_8 _p_ work_)
 21608  { // ** body not listed **
 21879  }
 21880  
 21881  int_4 _dcfod (int_4 _p_ meth_, real_8 _p_ elco_, real_8 _p_ tesco_)
 21882  { // ** body not listed **
 21957  }
 21958  
 21959  int_4 _dckder (int_4 _p_ m_, int_4 _p_ n_, real_8 _p_ x_, real_8 _p_ fvec_, real_8 _p_ fjac_, int_4 _p_ ldfjac_, real_8 
 21960  _p_ xp_, real_8 _p_ fvecp_, int_4 _p_ mode_, real_8 _p_ err_)
 21961  { // ** body not listed **
 22033  }
 22034  
 22035  int_4 _dcoef (real_8 _p_ yh_, real_8 _p_ yp_, int_4 _p_ ncomp_, int_4 _p_ nrowb_, int_4 _p_ nfc_, int_4 _p_ nic_, 
 22036  real_8 _p_ b_, real_8 _p_ beta_, real_8 _p_ coef_, int_4 _p_ inhomo_, real_8 _p_ re_, real_8 _p_ ae_, real_8 _p_ by_, 
 22037  real_8 _p_ cvec_, real_8 _p_ work_, int_4 _p_ iwork_, int_4 _p_ iflag_, int_4 _p_ nfcc_)
 22038  { // ** body not listed **
 22172  }
 22173  
 22174  int_4 _dcov (int_4 (*_fcn)(), int_4 _p_ iopt_, int_4 _p_ m_, int_4 _p_ n_, real_8 _p_ x_, real_8 _p_ fvec_, real_8 _p_ 
 22175  r_, int_4 _p_ ldr_, int_4 _p_ info_, real_8 _p_ wa1_, real_8 _p_ wa2_, real_8 _p_ wa3_, real_8 _p_ wa4_)
 22176  { // ** body not listed **
 22315  }
 22316  
 22317  int_4 _dcscal (real_8 _p_ a_, int_4 _p_ nrda_, int_4 _p_ nrow_, int_4 _p_ ncol_, real_8 _p_ cols_, real_8 _p_ colsav_, 
 22318  real_8 _p_ rows_, real_8 _p_ rowsav_, real_8 _p_ anorm_, real_8 _p_ scales_, int_4 _p_ iscale_, int_4 _p_ ic_)
 22319  { // ** body not listed **
 22403  }
 22404  
 22405  real_8 _dcv (real_8 _p_ xval_, int_4 _p_ ndata_, int_4 _p_ nconst_, int_4 _p_ nord_, int_4 _p_ nbkpt_, real_8 _p_ bkpt_
 22406  , real_8 _p_ w_)
 22407  { // ** body not listed **
 22437  }
 22438  
 22439  int_4 _ddes (int_4 (*_df)(), int_4 _p_ neq_, real_8 _p_ t_, real_8 _p_ y_, real_8 _p_ tout_, int_4 _p_ info_, real_8 
 22440  _p_ rtol_, real_8 _p_ atol_, int_4 _p_ idid_, real_8 _p_ ypout_, real_8 _p_ yp_, real_8 _p_ yy_, real_8 _p_ wt_, real_8 
 22441  _p_ p_, real_8 _p_ phi_, real_8 _p_ alpha_, real_8 _p_ beta_, real_8 _p_ psi_, real_8 _p_ v_, real_8 _p_ w_, real_8 _p_ 
 22442  sig_, real_8 _p_ g_, real_8 _p_ gi_, real_8 _p_ h_, real_8 _p_ eps_, real_8 _p_ x_, real_8 _p_ xold_, real_8 _p_ hold_, 
 22443  real_8 _p_ told_, real_8 _p_ delsgn_, real_8 _p_ tstop_, real_8 _p_ twou_, real_8 _p_ fouru_, logical_4 _p_ start_, 
 22444  logical_4 _p_ phase1_, logical_4 _p_ nornd_, logical_4 _p_ stiff_, logical_4 _p_ intout_, int_4 _p_ ns_, int_4 _p_ 
 22445  kord_, int_4 _p_ kold_, int_4 _p_ init_, int_4 _p_ ksteps_, int_4 _p_ kle4_, int_4 _p_ iquit_, int_4 _p_ kprev_, int_4 
 22446  _p_ ivc_, int_4 _p_ iv_, int_4 _p_ kgi_, real_8 _p_ rpar_, int_4 _p_ ipar_)
 22447  { // ** body not listed **
 23326  }
 23327  
 23328  int_4 _ddoglg (int_4 _p_ n_, real_8 _p_ r_, int_4 _p_ lr_, real_8 _p_ diag_, real_8 _p_ qtb_, real_8 _p_ delta_, real_8 
 23329  _p_ x_, real_8 _p_ wa1_, real_8 _p_ wa2_)
 23330  { // ** body not listed **
 23439  }
 23440  
 23441  int_4 _defcmn (int_4 _p_ ndata_, real_8 _p_ xdata_, real_8 _p_ ydata_, real_8 _p_ sddata_, int_4 _p_ nord_, int_4 _p_ 
 23442  nbkpt_, real_8 _p_ bkptin_, int_4 _p_ mdein_, int_4 _p_ mdeout_, real_8 _p_ coeff_, real_8 _p_ bf_, real_8 _p_ xtemp_, 
 23443  real_8 _p_ ptemp_, real_8 _p_ bkpt_, real_8 _p_ g_, int_4 _p_ mdg_, real_8 _p_ w_, int_4 _p_ mdw_, int_4 _p_ lw_)
 23444  { // ** body not listed **
 23639  }
 23640  
 23641  int_4 _defe4 (int_4 (*_cofx)(), int_4 _p_ idmn_, real_4 _p_ usol_, real_4 _p_ grhs_)
 23642  { // ** body not listed **
 23674  }
 23675  
 23676  int_4 _defehl (int_4 (*_f)(), int_4 _p_ neq_, real_4 _p_ t_, real_4 _p_ y_, real_4 _p_ h_, real_4 _p_ yp_, real_4 _p_ 
 23677  f1_, real_4 _p_ f2_, real_4 _p_ f3_, real_4 _p_ f4_, real_4 _p_ f5_, real_4 _p_ ys_, real_4 _p_ rpar_, int_4 _p_ ipar_)
 23678  { // ** body not listed **
 23716  }
 23717  
 23718  int_4 _defer (int_4 (*_cofx)(), int_4 (*_cofy)(), int_4 _p_ idmn_, real_4 _p_ usol_, real_4 _p_ grhs_)
 23719  { // ** body not listed **
 23753  }
 23754  
 23755  real_8 _denorm (int_4 _p_ n_, real_8 _p_ x_)
 23756  { // ** body not listed **
 23853  }
 23854  
 23855  int_4 _derkfs (int_4 (*_f)(), int_4 _p_ neq_, real_4 _p_ t_, real_4 _p_ y_, real_4 _p_ tout_, int_4 _p_ info_, real_4 
 23856  _p_ rtol_, real_4 _p_ atol_, int_4 _p_ idid_, real_4 _p_ h_, real_4 _p_ tolfac_, real_4 _p_ yp_, real_4 _p_ f1_, real_4 
 23857  _p_ f2_, real_4 _p_ f3_, real_4 _p_ f4_, real_4 _p_ f5_, real_4 _p_ ys_, real_4 _p_ told_, real_4 _p_ dtsign_, real_4 
 23858  _p_ u26_, real_4 _p_ rer_, int_4 _p_ init_, int_4 _p_ ksteps_, int_4 _p_ kop_, int_4 _p_ iquit_, logical_4 _p_ stiff_, 
 23859  logical_4 _p_ nonstf_, int_4 _p_ ntstep_, int_4 _p_ nstifs_, real_4 _p_ rpar_, int_4 _p_ ipar_)
 23860  { // ** body not listed **
 24700  }
 24701  
 24702  int_4 _des (int_4 (*_f)(), int_4 _p_ neq_, real_4 _p_ t_, real_4 _p_ y_, real_4 _p_ tout_, int_4 _p_ info_, real_4 _p_ 
 24703  rtol_, real_4 _p_ atol_, int_4 _p_ idid_, real_4 _p_ ypout_, real_4 _p_ yp_, real_4 _p_ yy_, real_4 _p_ wt_, real_4 _p_ 
 24704  p_, real_4 _p_ phi_, real_4 _p_ alpha_, real_4 _p_ beta_, real_4 _p_ psi_, real_4 _p_ v_, real_4 _p_ w_, real_4 _p_ 
 24705  sig_, real_4 _p_ g_, real_4 _p_ gi_, real_4 _p_ h_, real_4 _p_ eps_, real_4 _p_ x_, real_4 _p_ xold_, real_4 _p_ hold_, 
 24706  real_4 _p_ told_, real_4 _p_ delsgn_, real_4 _p_ tstop_, real_4 _p_ twou_, real_4 _p_ fouru_, logical_4 _p_ start_, 
 24707  logical_4 _p_ phase1_, logical_4 _p_ nornd_, logical_4 _p_ stiff_, logical_4 _p_ intout_, int_4 _p_ ns_, int_4 _p_ 
 24708  kord_, int_4 _p_ kold_, int_4 _p_ init_, int_4 _p_ ksteps_, int_4 _p_ kle4_, int_4 _p_ iquit_, int_4 _p_ kprev_, int_4 
 24709  _p_ ivc_, int_4 _p_ iv_, int_4 _p_ kgi_, real_4 _p_ rpar_, int_4 _p_ ipar_)
 24710  { // ** body not listed **
 25590  }
 25591  
 25592  int_4 _dfcmn (int_4 _p_ ndata_, real_8 _p_ xdata_, real_8 _p_ ydata_, real_8 _p_ sddata_, int_4 _p_ nord_, int_4 _p_ 
 25593  nbkpt_, real_8 _p_ bkptin_, int_4 _p_ nconst_, real_8 _p_ xconst_, real_8 _p_ yconst_, int_4 _p_ nderiv_, int_4 _p_ 
 25594  mode_, real_8 _p_ coeff_, real_8 _p_ bf_, real_8 _p_ xtemp_, real_8 _p_ ptemp_, real_8 _p_ bkpt_, real_8 _p_ g_, int_4 
 25595  _p_ mdg_, real_8 _p_ w_, int_4 _p_ mdw_, real_8 _p_ work_, int_4 _p_ iwork_)
 25596  { // ** body not listed **
 25961  }
 25962  
 25963  int_4 _dfdjc1 (int_4 (*_fcn)(), int_4 _p_ n_, real_8 _p_ x_, real_8 _p_ fvec_, real_8 _p_ fjac_, int_4 _p_ ldfjac_, 
 25964  int_4 _p_ iflag_, int_4 _p_ ml_, int_4 _p_ mu_, real_8 _p_ epsfcn_, real_8 _p_ wa1_, real_8 _p_ wa2_)
 25965  { // ** body not listed **
 26037  }
 26038  
 26039  int_4 _dfdjc3 (int_4 (*_fcn)(), int_4 _p_ m_, int_4 _p_ n_, real_8 _p_ x_, real_8 _p_ fvec_, real_8 _p_ fjac_, int_4 
 26040  _p_ ldfjac_, int_4 _p_ iflag_, real_8 _p_ epsfcn_, real_8 _p_ wa_)
 26041  { // ** body not listed **
 26079  }
 26080  
 26081  int_4 _dfehl (int_4 (*_df)(), int_4 _p_ neq_, real_8 _p_ t_, real_8 _p_ y_, real_8 _p_ h_, real_8 _p_ yp_, real_8 _p_ 
 26082  f1_, real_8 _p_ f2_, real_8 _p_ f3_, real_8 _p_ f4_, real_8 _p_ f5_, real_8 _p_ ys_, real_8 _p_ rpar_, int_4 _p_ ipar_)
 26083  { // ** body not listed **
 26121  }
 26122  
 26123  int_4 _dfspvd (real_8 _p_ t_, int_4 _p_ k_, real_8 _p_ x_, int_4 _p_ ileft_, real_8 _p_ vnikx_, int_4 _p_ nderiv_)
 26124  { // ** body not listed **
 26190  }
 26191  
 26192  int_4 _dfspvn (real_8 _p_ t_, int_4 _p_ jhigh_, int_4 _p_ index_, real_8 _p_ x_, int_4 _p_ ileft_, real_8 _p_ vnikx_)
 26193  { // ** body not listed **
 26296  }
 26297  
 26298  int_4 _dfulmt (int_4 _p_ i_, int_4 _p_ j_, real_8 _p_ aij_, int_4 _p_ indcat_, real_8 _p_ prgopt_, real_8 _p_ dattrv_, 
 26299  int_4 _p_ iflag_)
 26300  { // ** body not listed **
 26371  }
 26372  
 26373  int_4 _dfzero (real_8 (*_f)(), real_8 _p_ b_, real_8 _p_ c_, real_8 _p_ r_, real_8 _p_ re_, real_8 _p_ ae_, int_4 _p_ 
 26374  iflag_)
 26375  { // ** body not listed **
 26505  }
 26506  
 26507  int_4 _dgaus8 (real_8 (*_fun)(), real_8 _p_ a_, real_8 _p_ b_, real_8 _p_ err_, real_8 _p_ ans_, int_4 _p_ ierr_)
 26508  { // ** body not listed **
 26759  }
 26760  
 26761  int_4 _dgefs (real_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, real_8 _p_ v_, int_4 _p_ itask_, int_4 _p_ ind_, real_8 _p_ 
 26762  work_, int_4 _p_ iwork_)
 26763  { // ** body not listed **
 26954  }
 26955  
 26956  int_4 _dglss (real_8 _p_ a_, int_4 _p_ mda_, int_4 _p_ m_, int_4 _p_ n_, real_8 _p_ b_, int_4 _p_ mdb_, int_4 _p_ nb_, 
 26957  real_8 _p_ rnorm_, real_8 _p_ work_, int_4 _p_ lw_, int_4 _p_ iwork_, int_4 _p_ liw_, int_4 _p_ info_)
 26958  { // ** body not listed **
 26986  }
 26987  
 26988  int_4 _dh12 (int_4 _p_ mode_, int_4 _p_ lpivot_, int_4 _p_ l1_, int_4 _p_ m_, real_8 _p_ u_, int_4 _p_ iue_, real_8 _p_ 
 26989  up_, real_8 _p_ c_, int_4 _p_ ice_, int_4 _p_ icv_, int_4 _p_ ncv_)
 26990  { // ** body not listed **
 27092  }
 27093  
 27094  int_4 _dhfti (real_8 _p_ a_, int_4 _p_ mda_, int_4 _p_ m_, int_4 _p_ n_, real_8 _p_ b_, int_4 _p_ mdb_, int_4 _p_ nb_, 
 27095  real_8 _p_ tau_, int_4 _p_ krank_, real_8 _p_ rnorm_, real_8 _p_ h_, real_8 _p_ g_, int_4 _p_ ip_)
 27096  { // ** body not listed **
 27280  }
 27281  
 27282  int_4 _dhstrt (int_4 (*_df)(), int_4 _p_ neq_, real_8 _p_ a_, real_8 _p_ b_, real_8 _p_ y_, real_8 _p_ yprime_, real_8 
 27283  _p_ etol_, int_4 _p_ morder_, real_8 _p_ small_, real_8 _p_ big_, real_8 _p_ spy_, real_8 _p_ pv_, real_8 _p_ yp_, 
 27284  real_8 _p_ sf_, real_8 _p_ rpar_, int_4 _p_ ipar_, real_8 _p_ h_)
 27285  { // ** body not listed **
 27430  }
 27431  
 27432  real_8 _dhvnrm (real_8 _p_ v_, int_4 _p_ ncomp_)
 27433  { // ** body not listed **
 27442  }
 27443  
 27444  int_4 _djairy (real_8 _p_ x_, real_8 _p_ rx_, real_8 _p_ c_, real_8 _p_ ai_, real_8 _p_ dai_)
 27445  { // ** body not listed **
 29034  }
 29035  
 29036  int_4 _dllsia (real_8 _p_ a_, int_4 _p_ mda_, int_4 _p_ m_, int_4 _p_ n_, real_8 _p_ b_, int_4 _p_ mdb_, int_4 _p_ nb_, 
 29037  real_8 _p_ re_, real_8 _p_ ae_, int_4 _p_ key_, int_4 _p_ mode_, int_4 _p_ np_, int_4 _p_ krank_, int_4 _p_ ksure_, 
 29038  real_8 _p_ rnorm_, real_8 _p_ w_, int_4 _p_ lw_, int_4 _p_ iwork_, int_4 _p_ liw_, int_4 _p_ info_)
 29039  { // ** body not listed **
 29288  }
 29289  
 29290  int_4 _dlpdp (real_8 _p_ a_, int_4 _p_ mda_, int_4 _p_ m_, int_4 _p_ n1_, int_4 _p_ n2_, real_8 _p_ prgopt_, real_8 _p_ 
 29291  x_, real_8 _p_ wnorm_, int_4 _p_ mode_, real_8 _p_ ws_, int_4 _p_ is_)
 29292  { // ** body not listed **
 29451  }
 29452  
 29453  int_4 _dlsei (real_8 _p_ w_, int_4 _p_ mdw_, int_4 _p_ me_, int_4 _p_ ma_, int_4 _p_ mg_, int_4 _p_ n_, real_8 _p_ 
 29454  prgopt_, real_8 _p_ x_, real_8 _p_ rnorme_, real_8 _p_ rnorml_, int_4 _p_ mode_, real_8 _p_ ws_, int_4 _p_ ip_)
 29455  { // ** body not listed **
 29959  }
 29960  
 29961  int_4 _dlsi (real_8 _p_ w_, int_4 _p_ mdw_, int_4 _p_ ma_, int_4 _p_ mg_, int_4 _p_ n_, real_8 _p_ prgopt_, real_8 _p_ 
 29962  x_, real_8 _p_ rnorm_, int_4 _p_ mode_, real_8 _p_ ws_, int_4 _p_ ip_)
 29963  { // ** body not listed **
 30180  }
 30181  
 30182  int_4 _dlssud (real_8 _p_ a_, real_8 _p_ x_, real_8 _p_ b_, int_4 _p_ n_, int_4 _p_ m_, int_4 _p_ nrda_, real_8 _p_ u_, 
 30183  int_4 _p_ nrdu_, int_4 _p_ iflag_, int_4 _p_ mlso_, int_4 _p_ irank_, int_4 _p_ iscale_, real_8 _p_ q_, real_8 _p_ 
 30184  diag_, int_4 _p_ kpivot_, real_8 _p_ s_, real_8 _p_ div_, real_8 _p_ td_, int_4 _p_ isflg_, real_8 _p_ scales_)
 30185  { // ** body not listed **
 30357  }
 30358  
 30359  int_4 _dmacon (void)
 30360  { // ** body not listed **
 30376  }
 30377  
 30378  int_4 _dmgsbv (int_4 _p_ m_, int_4 _p_ n_, real_8 _p_ a_, int_4 _p_ ia_, int_4 _p_ niv_, int_4 _p_ iflag_, real_8 _p_ 
 30379  s_, real_8 _p_ p_, int_4 _p_ ip_, int_4 _p_ inhomo_, real_8 _p_ v_, real_8 _p_ w_, real_8 _p_ wcnd_)
 30380  { // ** body not listed **
 30619  }
 30620  
 30621  int_4 _dmpar (int_4 _p_ n_, real_8 _p_ r_, int_4 _p_ ldr_, int_4 _p_ ipvt_, real_8 _p_ diag_, real_8 _p_ qtb_, real_8 
 30622  _p_ delta_, real_8 _p_ par_, real_8 _p_ x_, real_8 _p_ sigma_, real_8 _p_ wa1_, real_8 _p_ wa2_)
 30623  { // ** body not listed **
 30782  }
 30783  
 30784  int_4 _dnbco (real_8 _p_ abe_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ml_, int_4 _p_ mu_, int_4 _p_ ipvt_, real_8 _p_ 
 30785  rcond_, real_8 _p_ z_)
 30786  { // ** body not listed **
 30935  }
 30936  
 30937  int_4 _dnbdi (real_8 _p_ abe_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ml_, int_4 _p_ mu_, int_4 _p_ ipvt_, real_8 _p_ 
 30938  det_)
 30939  { // ** body not listed **
 30973  }
 30974  
 30975  int_4 _dnbfa (real_8 _p_ abe_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ml_, int_4 _p_ mu_, int_4 _p_ ipvt_, int_4 _p_ 
 30976  info_)
 30977  { // ** body not listed **
 31032  }
 31033  
 31034  int_4 _dnbfs (real_8 _p_ abe_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ml_, int_4 _p_ mu_, real_8 _p_ v_, int_4 _p_ 
 31035  itask_, int_4 _p_ ind_, real_8 _p_ work_, int_4 _p_ iwork_)
 31036  { // ** body not listed **
 31313  }
 31314  
 31315  int_4 _dnbsl (real_8 _p_ abe_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ml_, int_4 _p_ mu_, int_4 _p_ ipvt_, real_8 _p_ 
 31316  b_, int_4 _p_ job_)
 31317  { // ** body not listed **
 31387  }
 31388  
 31389  int_4 _dnls1e (real_8 (*_fcn)(), int_4 _p_ iopt_, int_4 _p_ m_, int_4 _p_ n_, real_8 _p_ x_, real_8 _p_ fvec_, real_8 
 31390  _p_ tol_, int_4 _p_ nprint_, int_4 _p_ info_, int_4 _p_ iw_, real_8 _p_ wa_, int_4 _p_ lwa_)
 31391  { // ** body not listed **
 31441  }
 31442  
 31443  int_4 _dnls1 (int_4 (*_fcn)(), int_4 _p_ iopt_, int_4 _p_ m_, int_4 _p_ n_, real_8 _p_ x_, real_8 _p_ fvec_, real_8 _p_ 
 31444  fjac_, int_4 _p_ ldfjac_, real_8 _p_ ftol_, real_8 _p_ xtol_, real_8 _p_ gtol_, int_4 _p_ maxfev_, real_8 _p_ epsfcn_, 
 31445  real_8 _p_ diag_, int_4 _p_ mode_, real_8 _p_ factor_, int_4 _p_ nprint_, int_4 _p_ info_, int_4 _p_ nfev_, int_4 _p_ 
 31446  njev_, int_4 _p_ ipvt_, real_8 _p_ qtf_, real_8 _p_ wa1_, real_8 _p_ wa2_, real_8 _p_ wa3_, real_8 _p_ wa4_)
 31447  { // ** body not listed **
 32020  }
 32021  
 32022  int_4 _dnsqe (real_4 (*_fcn)(), int_4 (*_jac)(), int_4 _p_ iopt_, int_4 _p_ n_, real_8 _p_ x_, real_8 _p_ fvec_, real_8 
 32023  _p_ tol_, int_4 _p_ nprint_, int_4 _p_ info_, real_8 _p_ wa_, int_4 _p_ lwa_)
 32024  { // ** body not listed **
 32080  }
 32081  
 32082  int_4 _dnsq (int_4 (*_fcn)(), int_4 (*_jac)(), int_4 _p_ iopt_, int_4 _p_ n_, real_8 _p_ x_, real_8 _p_ fvec_, real_8 
 32083  _p_ fjac_, int_4 _p_ ldfjac_, real_8 _p_ xtol_, int_4 _p_ maxfev_, int_4 _p_ ml_, int_4 _p_ mu_, real_8 _p_ epsfcn_, 
 32084  real_8 _p_ diag_, int_4 _p_ mode_, real_8 _p_ factor_, int_4 _p_ nprint_, int_4 _p_ info_, int_4 _p_ nfev_, int_4 _p_ 
 32085  njev_, real_8 _p_ r_, int_4 _p_ lr_, real_8 _p_ qtf_, real_8 _p_ wa1_, real_8 _p_ wa2_, real_8 _p_ wa3_, real_8 _p_ 
 32086  wa4_)
 32087  { // ** body not listed **
 32400  }
 32401  
 32402  int_4 _dohtrl (real_8 _p_ q_, int_4 _p_ n_, int_4 _p_ nrda_, real_8 _p_ diag_, int_4 _p_ irank_, real_8 _p_ div_, 
 32403  real_8 _p_ td_)
 32404  { // ** body not listed **
 32437  }
 32438  
 32439  int_4 _dorthr (real_8 _p_ a_, int_4 _p_ n_, int_4 _p_ m_, int_4 _p_ nrda_, int_4 _p_ iflag_, int_4 _p_ irank_, int_4 
 32440  _p_ iscale_, real_8 _p_ diag_, int_4 _p_ kpivot_, real_8 _p_ scales_, real_8 _p_ rows_, real_8 _p_ rs_)
 32441  { // ** body not listed **
 32547  }
 32548  
 32549  int_4 _dp1vlu (int_4 _p_ l_, int_4 _p_ nder_, real_8 _p_ x_, real_8 _p_ yfit_, real_8 _p_ yp_, real_8 _p_ a_)
 32550  { // ** body not listed **
 32723  }
 32724  
 32725  int_4 _dpchng (int_4 _p_ ii_, real_8 _p_ xval_, int_4 _p_ iplace_, real_8 _p_ sx_, int_4 _p_ ix_, int_4 _p_ ircx_)
 32726  { // ** body not listed **
 32936  }
 32937  
 32938  int_4 _dpcoef (int_4 _p_ l_, real_8 _p_ c_, real_8 _p_ tc_, real_8 _p_ a_)
 32939  { // ** body not listed **
 32968  }
 32969  
 32970  int_4 _dpincw (int_4 _p_ mrelas_, int_4 _p_ nvars_, int_4 _p_ lmx_, int_4 _p_ lbm_, int_4 _p_ npp_, int_4 _p_ jstrt_, 
 32971  int_4 _p_ ibasis_, int_4 _p_ imat_, int_4 _p_ ibrc_, int_4 _p_ ipr_, int_4 _p_ iwr_, int_4 _p_ ind_, int_4 _p_ ibb_, 
 32972  real_8 _p_ costsc_, real_8 _p_ gg_, real_8 _p_ erdnrm_, real_8 _p_ dulnrm_, real_8 _p_ amat_, real_8 _p_ basmat_, 
 32973  real_8 _p_ csc_, real_8 _p_ wr_, real_8 _p_ ww_, real_8 _p_ rz_, real_8 _p_ rg_, real_8 _p_ costs_, real_8 _p_ colnrm_, 
 32974  real_8 _p_ duals_, logical_4 _p_ stpedg_)
 32975  { // ** body not listed **
 33107  }
 33108  
 33109  int_4 _dpinit (int_4 _p_ mrelas_, int_4 _p_ nvars_, real_8 _p_ costs_, real_8 _p_ bl_, real_8 _p_ bu_, int_4 _p_ ind_, 
 33110  real_8 _p_ primal_, int_4 _p_ info_, real_8 _p_ amat_, real_8 _p_ csc_, real_8 _p_ costsc_, real_8 _p_ colnrm_, real_8 
 33111  _p_ xlamda_, real_8 _p_ anorm_, real_8 _p_ rhs_, real_8 _p_ rhsnrm_, int_4 _p_ ibasis_, int_4 _p_ ibb_, int_4 _p_ imat_
 33112  , logical_4 _p_ lopt_)
 33113  { // ** body not listed **
 33385  }
 33386  
 33387  int_4 _dpintm (int_4 _p_ m_, int_4 _p_ n_, real_8 _p_ sx_, int_4 _p_ ix_, int_4 _p_ lmx_, int_4 _p_ ipagef_)
 33388  { // ** body not listed **
 33461  }
 33462  
 33463  int_4 _dplint (int_4 _p_ n_, real_8 _p_ x_, real_8 _p_ y_, real_8 _p_ c_)
 33464  { // ** body not listed **
 33495  }
 33496  
 33497  int_4 _dplpce (int_4 _p_ mrelas_, int_4 _p_ nvars_, int_4 _p_ lmx_, int_4 _p_ lbm_, int_4 _p_ itlp_, int_4 _p_ itbrc_, 
 33498  int_4 _p_ ibasis_, int_4 _p_ imat_, int_4 _p_ ibrc_, int_4 _p_ ipr_, int_4 _p_ iwr_, int_4 _p_ ind_, int_4 _p_ ibb_, 
 33499  real_8 _p_ erdnrm_, real_8 _p_ eps_, real_8 _p_ tune_, real_8 _p_ gg_, real_8 _p_ amat_, real_8 _p_ basmat_, real_8 _p_ 
 33500  csc_, real_8 _p_ wr_, real_8 _p_ ww_, real_8 _p_ primal_, real_8 _p_ erd_, real_8 _p_ erp_, logical_4 _p_ singlr_, 
 33501  logical_4 _p_ redbas_)
 33502  { // ** body not listed **
 33695  }
 33696  
 33697  int_4 _dplpdm (int_4 _p_ mrelas_, int_4 _p_ nvars_, int_4 _p_ lmx_, int_4 _p_ lbm_, int_4 _p_ nredc_, int_4 _p_ info_, 
 33698  int_4 _p_ iopt_, int_4 _p_ ibasis_, int_4 _p_ imat_, int_4 _p_ ibrc_, int_4 _p_ ipr_, int_4 _p_ iwr_, int_4 _p_ ind_, 
 33699  int_4 _p_ ibb_, real_8 _p_ anorm_, real_8 _p_ eps_, real_8 _p_ uu_, real_8 _p_ gg_, real_8 _p_ amat_, real_8 _p_ 
 33700  basmat_, real_8 _p_ csc_, real_8 _p_ wr_, logical_4 _p_ singlr_, logical_4 _p_ redbas_)
 33701  { // ** body not listed **
 33798  }
 33799  
 33800  int_4 _dplpfe (int_4 _p_ mrelas_, int_4 _p_ nvars_, int_4 _p_ lmx_, int_4 _p_ lbm_, int_4 _p_ ienter_, int_4 _p_ 
 33801  ibasis_, int_4 _p_ imat_, int_4 _p_ ibrc_, int_4 _p_ ipr_, int_4 _p_ iwr_, int_4 _p_ ind_, int_4 _p_ ibb_, real_8 _p_ 
 33802  erdnrm_, real_8 _p_ eps_, real_8 _p_ gg_, real_8 _p_ dulnrm_, real_8 _p_ dirnrm_, real_8 _p_ amat_, real_8 _p_ basmat_, 
 33803  real_8 _p_ csc_, real_8 _p_ wr_, real_8 _p_ ww_, real_8 _p_ bl_, real_8 _p_ bu_, real_8 _p_ rz_, real_8 _p_ rg_, real_8 
 33804  _p_ colnrm_, real_8 _p_ duals_, logical_4 _p_ found_)
 33805  { // ** body not listed **
 33954  }
 33955  
 33956  int_4 _dplpfl (int_4 _p_ mrelas_, int_4 _p_ nvars_, int_4 _p_ ienter_, int_4 _p_ ileave_, int_4 _p_ ibasis_, int_4 _p_ 
 33957  ind_, int_4 _p_ ibb_, real_8 _p_ theta_, real_8 _p_ dirnrm_, real_8 _p_ rprnrm_, real_8 _p_ csc_, real_8 _p_ ww_, 
 33958  real_8 _p_ bl_, real_8 _p_ bu_, real_8 _p_ erp_, real_8 _p_ rprim_, real_8 _p_ primal_, logical_4 _p_ finite_, 
 33959  logical_4 _p_ zerolv_)
 33960  { // ** body not listed **
 34110  }
 34111  
 34112  int_4 _dplpmn (real_4 (*_dusrmt)(), int_4 _p_ mrelas_, int_4 _p_ nvars_, real_8 _p_ costs_, real_8 _p_ prgopt_, real_8 
 34113  _p_ dattrv_, real_8 _p_ bl_, real_8 _p_ bu_, int_4 _p_ ind_, int_4 _p_ info_, real_8 _p_ primal_, real_8 _p_ duals_, 
 34114  real_8 _p_ amat_, real_8 _p_ csc_, real_8 _p_ colnrm_, real_8 _p_ erd_, real_8 _p_ erp_, real_8 _p_ basmat_, real_8 _p_ 
 34115  wr_, real_8 _p_ rz_, real_8 _p_ rg_, real_8 _p_ rprim_, real_8 _p_ rhs_, real_8 _p_ ww_, int_4 _p_ lmx_, int_4 _p_ lbm_
 34116  , int_4 _p_ ibasis_, int_4 _p_ ibb_, int_4 _p_ imat_, int_4 _p_ ibrc_, int_4 _p_ ipr_, int_4 _p_ iwr_)
 34117  { // ** body not listed **
 35383  }
 35384  
 35385  int_4 _dplpmu (int_4 _p_ mrelas_, int_4 _p_ nvars_, int_4 _p_ lmx_, int_4 _p_ lbm_, int_4 _p_ nredc_, int_4 _p_ info_, 
 35386  int_4 _p_ ienter_, int_4 _p_ ileave_, int_4 _p_ iopt_, int_4 _p_ npp_, int_4 _p_ jstrt_, int_4 _p_ ibasis_, int_4 _p_ 
 35387  imat_, int_4 _p_ ibrc_, int_4 _p_ ipr_, int_4 _p_ iwr_, int_4 _p_ ind_, int_4 _p_ ibb_, real_8 _p_ anorm_, real_8 _p_ 
 35388  eps_, real_8 _p_ uu_, real_8 _p_ gg_, real_8 _p_ rprnrm_, real_8 _p_ erdnrm_, real_8 _p_ dulnrm_, real_8 _p_ theta_, 
 35389  real_8 _p_ costsc_, real_8 _p_ xlamda_, real_8 _p_ rhsnrm_, real_8 _p_ amat_, real_8 _p_ basmat_, real_8 _p_ csc_, 
 35390  real_8 _p_ wr_, real_8 _p_ rprim_, real_8 _p_ ww_, real_8 _p_ bu_, real_8 _p_ bl_, real_8 _p_ rhs_, real_8 _p_ erd_, 
 35391  real_8 _p_ erp_, real_8 _p_ rz_, real_8 _p_ rg_, real_8 _p_ colnrm_, real_8 _p_ costs_, real_8 _p_ primal_, real_8 _p_ 
 35392  duals_, logical_4 _p_ singlr_, logical_4 _p_ redbas_, logical_4 _p_ zerolv_, logical_4 _p_ stpedg_)
 35393  { // ** body not listed **
 35851  }
 35852  
 35853  int_4 _dplpup (int_4 (*_dusrmt)(), int_4 _p_ mrelas_, int_4 _p_ nvars_, real_8 _p_ prgopt_, real_8 _p_ dattrv_, real_8 
 35854  _p_ bl_, real_8 _p_ bu_, int_4 _p_ ind_, int_4 _p_ info_, real_8 _p_ amat_, int_4 _p_ imat_, logical_4 _p_ sizeup_, 
 35855  real_8 _p_ asmall_, real_8 _p_ abig_)
 35856  { // ** body not listed **
 36397  }
 36398  
 36399  int_4 _dpnnzr (int_4 _p_ i_, real_8 _p_ xval_, int_4 _p_ iplace_, real_8 _p_ sx_, int_4 _p_ ix_, int_4 _p_ ircx_)
 36400  { // ** body not listed **
 36604  }
 36605  
 36606  int_4 _dpofs (real_8 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, real_8 _p_ v_, int_4 _p_ itask_, int_4 _p_ ind_, real_8 _p_ 
 36607  work_)
 36608  { // ** body not listed **
 36800  }
 36801  
 36802  int_4 _dpolcf (real_8 _p_ xx_, int_4 _p_ n_, real_8 _p_ x_, real_8 _p_ c_, real_8 _p_ d_, real_8 _p_ work_)
 36803  { // ** body not listed **
 36842  }
 36843  
 36844  int_4 _dpolft (int_4 _p_ n_, real_8 _p_ x_, real_8 _p_ y_, real_8 _p_ w_, int_4 _p_ maxdeg_, int_4 _p_ ndeg_, real_8 
 36845  _p_ eps_, real_8 _p_ r_, int_4 _p_ ierr_, real_8 _p_ a_)
 36846  { // ** body not listed **
 37155  }
 37156  
 37157  int_4 _dpolvl (int_4 _p_ nder_, real_8 _p_ xx_, real_8 _p_ yfit_, real_8 _p_ yp_, int_4 _p_ n_, real_8 _p_ x_, real_8 
 37158  _p_ c_, real_8 _p_ work_, int_4 _p_ ierr_)
 37159  { // ** body not listed **
 37253  }
 37254  
 37255  int_4 _dpopt (real_8 _p_ prgopt_, int_4 _p_ mrelas_, int_4 _p_ nvars_, int_4 _p_ info_, real_8 _p_ csc_, int_4 _p_ 
 37256  ibasis_, real_8 _p_ ropt_, int_4 _p_ intopt_, logical_4 _p_ lopt_)
 37257  { // ** body not listed **
 37613  }
 37614  
 37615  int_4 _dpperm (real_8 _p_ dx_, int_4 _p_ n_, int_4 _p_ iperm_, int_4 _p_ ier_)
 37616  { // ** body not listed **
 37661  }
 37662  
 37663  int_4 _dppgq8 (real_8 (*_fun)(), int_4 _p_ ldc_, real_8 _p_ c_, real_8 _p_ xi_, int_4 _p_ lxi_, int_4 _p_ kk_, int_4 
 37664  _p_ id_, real_8 _p_ a_, real_8 _p_ b_, int_4 _p_ inppv_, real_8 _p_ err_, real_8 _p_ ans_, int_4 _p_ ierr_)
 37665  { // ** body not listed **
 37936  }
 37937  
 37938  real_8 _dprvec (int_4 _p_ m_, real_8 _p_ u_, real_8 _p_ v_)
 37939  { // ** body not listed **
 37950  }
 37951  
 37952  int_4 _dprwpg (int_4 _p_ key_, int_4 _p_ ipage_, int_4 _p_ lpg_, real_8 _p_ sx_, int_4 _p_ ix_)
 37953  { // ** body not listed **
 37973  }
 37974  
 37975  int_4 _dprwvr (int_4 _p_ key_, int_4 _p_ ipage_, int_4 _p_ lpg_, real_8 _p_ sx_, int_4 _p_ ix_)
 37976  { // ** body not listed **
 38021  }
 38022  
 38023  real_8 _dpsixn (int_4 _p_ n_)
 38024  { // ** body not listed **
 38623  }
 38624  
 38625  int_4 _dpsort (real_8 _p_ dx_, int_4 _p_ n_, int_4 _p_ iperm_, int_4 _p_ kflag_, int_4 _p_ ier_)
 38626  { // ** body not listed **
 38782  }
 38783  
 38784  real_8 _dqdota (int_4 _p_ n_, real_8 _p_ db_, int_4 _p_ qc_, real_8 _p_ dx_, int_4 _p_ incx_, real_8 _p_ dy_, int_4 _p_ 
 38785  incy_)
 38786  { // ** body not listed **
 38833  }
 38834  
 38835  real_8 _dqdoti (int_4 _p_ n_, real_8 _p_ db_, int_4 _p_ qc_, real_8 _p_ dx_, int_4 _p_ incx_, real_8 _p_ dy_, int_4 _p_ 
 38836  incy_)
 38837  { // ** body not listed **
 38885  }
 38886  
 38887  int_4 _dqform (int_4 _p_ m_, int_4 _p_ n_, real_8 _p_ q_, int_4 _p_ ldq_, real_8 _p_ wa_)
 38888  { // ** body not listed **
 38954  }
 38955  
 38956  int_4 _dqrfac (int_4 _p_ m_, int_4 _p_ n_, real_8 _p_ a_, int_4 _p_ lda_, logical_4 _p_ pivot_, int_4 _p_ ipvt_, int_4 
 38957  _p_ lipvt_, real_8 _p_ sigma_, real_8 _p_ acnorm_, real_8 _p_ wa_)
 38958  { // ** body not listed **
 39061  }
 39062  
 39063  int_4 _dqrslv (int_4 _p_ n_, real_8 _p_ r_, int_4 _p_ ldr_, int_4 _p_ ipvt_, real_8 _p_ diag_, real_8 _p_ qtb_, real_8 
 39064  _p_ x_, real_8 _p_ sigma_, real_8 _p_ wa_)
 39065  { // ** body not listed **
 39174  }
 39175  
 39176  int_4 _drc3jj (real_8 _p_ l2_, real_8 _p_ l3_, real_8 _p_ m2_, real_8 _p_ m3_, real_8 _p_ l1min_, real_8 _p_ l1max_, 
 39177  real_8 _p_ thrcof_, int_4 _p_ ndim_, int_4 _p_ ier_)
 39178  { // ** body not listed **
 39456  }
 39457  
 39458  int_4 _drc3jm (real_8 _p_ l1_, real_8 _p_ l2_, real_8 _p_ l3_, real_8 _p_ m1_, real_8 _p_ m2min_, real_8 _p_ m2max_, 
 39459  real_8 _p_ thrcof_, int_4 _p_ ndim_, int_4 _p_ ier_)
 39460  { // ** body not listed **
 39730  }
 39731  
 39732  int_4 _drc6j (real_8 _p_ l2_, real_8 _p_ l3_, real_8 _p_ l4_, real_8 _p_ l5_, real_8 _p_ l6_, real_8 _p_ l1min_, real_8 
 39733  _p_ l1max_, real_8 _p_ sixcof_, int_4 _p_ ndim_, int_4 _p_ ier_)
 39734  { // ** body not listed **
 40028  }
 40029  
 40030  real_8 _drc (real_8 _p_ x_, real_8 _p_ y_, int_4 _p_ ier_)
 40031  { // ** body not listed **
 40404  }
 40405  
 40406  real_8 _drd (real_8 _p_ x_, real_8 _p_ y_, real_8 _p_ z_, int_4 _p_ ier_)
 40407  { // ** body not listed **
 40884  }
 40885  
 40886  int_4 _dreadp (int_4 _p_ ipage_, int_4 _p_ list_, real_8 _p_ rlist_, int_4 _p_ lpage_, int_4 _p_ irec_)
 40887  { // ** body not listed **
 40992  }
 40993  
 40994  int_4 _dreort (int_4 _p_ ncomp_, real_8 _p_ y_, real_8 _p_ yp_, real_8 _p_ yhp_, int_4 _p_ niv_, real_8 _p_ w_, real_8 
 40995  _p_ s_, real_8 _p_ p_, int_4 _p_ ip_, real_8 _p_ stowa_, int_4 _p_ iflag_)
 40996  { // ** body not listed **
 41139  }
 41140  
 41141  real_8 _drf (real_8 _p_ x_, real_8 _p_ y_, real_8 _p_ z_, int_4 _p_ ier_)
 41142  { // ** body not listed **
 41646  }
 41647  
 41648  real_8 _drj (real_8 _p_ x_, real_8 _p_ y_, real_8 _p_ z_, real_8 _p_ p_, int_4 _p_ ier_)
 41649  { // ** body not listed **
 42245  }
 42246  
 42247  int_4 _drkfs (int_4 (*_df)(), int_4 _p_ neq_, real_8 _p_ t_, real_8 _p_ y_, real_8 _p_ tout_, int_4 _p_ info_, real_8 
 42248  _p_ rtol_, real_8 _p_ atol_, int_4 _p_ idid_, real_8 _p_ h_, real_8 _p_ tolfac_, real_8 _p_ yp_, real_8 _p_ f1_, real_8 
 42249  _p_ f2_, real_8 _p_ f3_, real_8 _p_ f4_, real_8 _p_ f5_, real_8 _p_ ys_, real_8 _p_ told_, real_8 _p_ dtsign_, real_8 
 42250  _p_ u26_, real_8 _p_ rer_, int_4 _p_ init_, int_4 _p_ ksteps_, int_4 _p_ kop_, int_4 _p_ iquit_, logical_4 _p_ stiff_, 
 42251  logical_4 _p_ nonstf_, int_4 _p_ ntstep_, int_4 _p_ nstifs_, real_8 _p_ rpar_, int_4 _p_ ipar_)
 42252  { // ** body not listed **
 43106  }
 43107  
 43108  int_4 _dsort (real_8 _p_ dx_, real_8 _p_ dy_, int_4 _p_ n_, int_4 _p_ kflag_)
 43109  { // ** body not listed **
 43350  }
 43351  
 43352  int_4 _dsoseq (real_8 (*_fnc)(), int_4 _p_ n_, real_8 _p_ s_, real_8 _p_ rtolx_, real_8 _p_ atolx_, real_8 _p_ tolf_, 
 43353  int_4 _p_ iflag_, int_4 _p_ mxit_, int_4 _p_ ncjs_, int_4 _p_ nsrrc_, int_4 _p_ nsri_, int_4 _p_ iprint_, real_8 _p_ 
 43354  fmax_, real_8 _p_ c_, int_4 _p_ nc_, real_8 _p_ b_, real_8 _p_ p_, real_8 _p_ temp_, real_8 _p_ x_, real_8 _p_ y_, 
 43355  real_8 _p_ fac_, int_4 _p_ is_)
 43356  { // ** body not listed **
 43734  }
 43735  
 43736  int_4 _dsos (real_8 (*_fnc)(), int_4 _p_ neq_, real_8 _p_ x_, real_8 _p_ rtolx_, real_8 _p_ atolx_, real_8 _p_ tolf_, 
 43737  int_4 _p_ iflag_, real_8 _p_ rw_, int_4 _p_ lrw_, int_4 _p_ iw_, int_4 _p_ liw_)
 43738  { // ** body not listed **
 44066  }
 44067  
 44068  int_4 _dsossl (int_4 _p_ k_, int_4 _p_ n_, int_4 _p_ l_, real_8 _p_ x_, real_8 _p_ c_, real_8 _p_ b_, int_4 _p_ m_)
 44069  { // ** body not listed **
 44103  }
 44104  
 44105  int_4 _dsplp (real_4 (*_dusrmt)(), int_4 _p_ mrelas_, int_4 _p_ nvars_, real_8 _p_ costs_, real_8 _p_ prgopt_, real_8 
 44106  _p_ dattrv_, real_8 _p_ bl_, real_8 _p_ bu_, int_4 _p_ ind_, int_4 _p_ info_, real_8 _p_ primal_, real_8 _p_ duals_, 
 44107  int_4 _p_ ibasis_, real_8 _p_ work_, int_4 _p_ lw_, int_4 _p_ iwork_, int_4 _p_ liw_)
 44108  { // ** body not listed **
 44407  }
 44408  
 44409  int_4 _dstor1 (real_8 _p_ u_, real_8 _p_ yh_, real_8 _p_ v_, real_8 _p_ yp_, int_4 _p_ ntemp_, int_4 _p_ ndisk_, int_4 
 44410  _p_ ntape_)
 44411  { // ** body not listed **
 44456  }
 44457  
 44458  int_4 _dstway (real_8 _p_ u_, real_8 _p_ v_, real_8 _p_ yhp_, int_4 _p_ inout_, real_8 _p_ stowa_)
 44459  { // ** body not listed **
 44517  }
 44518  
 44519  int_4 _dsuds (real_8 _p_ a_, real_8 _p_ x_, real_8 _p_ b_, int_4 _p_ neq_, int_4 _p_ nuk_, int_4 _p_ nrda_, int_4 _p_ 
 44520  iflag_, int_4 _p_ mlso_, real_8 _p_ work_, int_4 _p_ iwork_)
 44521  { // ** body not listed **
 44534  }
 44535  
 44536  int_4 _du11ls (real_8 _p_ a_, int_4 _p_ mda_, int_4 _p_ m_, int_4 _p_ n_, real_8 _p_ ub_, real_8 _p_ db_, int_4 _p_ 
 44537  mode_, int_4 _p_ np_, int_4 _p_ krank_, int_4 _p_ ksure_, real_8 _p_ h_, real_8 _p_ w_, real_8 _p_ eb_, int_4 _p_ ic_, 
 44538  int_4 _p_ ir_)
 44539  { // ** body not listed **
 44821  }
 44822  
 44823  int_4 _du11us (real_8 _p_ a_, int_4 _p_ mda_, int_4 _p_ m_, int_4 _p_ n_, real_8 _p_ ub_, real_8 _p_ db_, int_4 _p_ 
 44824  mode_, int_4 _p_ np_, int_4 _p_ krank_, int_4 _p_ ksure_, real_8 _p_ h_, real_8 _p_ w_, real_8 _p_ eb_, int_4 _p_ ir_, 
 44825  int_4 _p_ ic_)
 44826  { // ** body not listed **
 45108  }
 45109  
 45110  int_4 _du12ls (real_8 _p_ a_, int_4 _p_ mda_, int_4 _p_ m_, int_4 _p_ n_, real_8 _p_ b_, int_4 _p_ mdb_, int_4 _p_ nb_, 
 45111  int_4 _p_ mode_, int_4 _p_ krank_, real_8 _p_ rnorm_, real_8 _p_ h_, real_8 _p_ w_, int_4 _p_ ic_, int_4 _p_ ir_)
 45112  { // ** body not listed **
 45253  }
 45254  
 45255  int_4 _du12us (real_8 _p_ a_, int_4 _p_ mda_, int_4 _p_ m_, int_4 _p_ n_, real_8 _p_ b_, int_4 _p_ mdb_, int_4 _p_ nb_, 
 45256  int_4 _p_ mode_, int_4 _p_ krank_, real_8 _p_ rnorm_, real_8 _p_ h_, real_8 _p_ w_, int_4 _p_ ir_, int_4 _p_ ic_)
 45257  { // ** body not listed **
 45397  }
 45398  
 45399  int_4 _dulsia (real_8 _p_ a_, int_4 _p_ mda_, int_4 _p_ m_, int_4 _p_ n_, real_8 _p_ b_, int_4 _p_ mdb_, int_4 _p_ nb_, 
 45400  real_8 _p_ re_, real_8 _p_ ae_, int_4 _p_ key_, int_4 _p_ mode_, int_4 _p_ np_, int_4 _p_ krank_, int_4 _p_ ksure_, 
 45401  real_8 _p_ rnorm_, real_8 _p_ w_, int_4 _p_ lw_, int_4 _p_ iwork_, int_4 _p_ liw_, int_4 _p_ info_)
 45402  { // ** body not listed **
 45651  }
 45652  
 45653  int_4 _dusrmt (int_4 _p_ i_, int_4 _p_ j_, real_8 _p_ aij_, int_4 _p_ indcat_, real_8 _p_ prgopt_, real_8 _p_ dattrv_, 
 45654  int_4 _p_ iflag_)
 45655  { // ** body not listed **
 45693  }
 45694  
 45695  int_4 _dvecs (int_4 _p_ ncomp_, int_4 _p_ lnfc_, real_8 _p_ yhp_, real_8 _p_ work_, int_4 _p_ iwork_, int_4 _p_ inhomo_
 45696  , int_4 _p_ iflag_)
 45697  { // ** body not listed **
 45735  }
 45736  
 45737  real_8 _dvnrms (int_4 _p_ n_, real_8 _p_ v_, real_8 _p_ w_)
 45738  { // ** body not listed **
 45750  }
 45751  
 45752  int_4 _dwnlit (real_8 _p_ w_, int_4 _p_ mdw_, int_4 _p_ m_, int_4 _p_ n_, int_4 _p_ l_, int_4 _p_ ipivot_, int_4 _p_ 
 45753  itype_, real_8 _p_ h_, real_8 _p_ scale_, real_8 _p_ rnorm_, int_4 _p_ idope_, real_8 _p_ dope_, logical_4 _p_ done_)
 45754  { // ** body not listed **
 45919  }
 45920  
 45921  int_4 _dwnlsm (real_8 _p_ w_, int_4 _p_ mdw_, int_4 _p_ mme_, int_4 _p_ ma_, int_4 _p_ n_, int_4 _p_ l_, real_8 _p_ 
 45922  prgopt_, real_8 _p_ x_, real_8 _p_ rnorm_, int_4 _p_ mode_, int_4 _p_ ipivot_, int_4 _p_ itype_, real_8 _p_ wd_, real_8 
 45923  _p_ h_, real_8 _p_ scale_, real_8 _p_ z_, real_8 _p_ temp_, real_8 _p_ d_)
 45924  { // ** body not listed **
 46352  }
 46353  
 46354  int_4 _dwnlt1 (int_4 _p_ i_, int_4 _p_ lend_, int_4 _p_ mend_, int_4 _p_ ir_, int_4 _p_ mdw_, logical_4 _p_ recalc_, 
 46355  int_4 _p_ imax_, real_8 _p_ hbar_, real_8 _p_ h_, real_8 _p_ scale_, real_8 _p_ w_)
 46356  { // ** body not listed **
 46381  }
 46382  
 46383  logical_4 _dwnlt2 (int_4 _p_ me_, int_4 _p_ mend_, int_4 _p_ ir_, real_8 _p_ factor_, real_8 _p_ tau_, real_8 _p_ 
 46384  scale_, real_8 _p_ wic_)
 46385  { // ** body not listed **
 46407  }
 46408  
 46409  int_4 _dwnlt3 (int_4 _p_ i_, int_4 _p_ imax_, int_4 _p_ m_, int_4 _p_ mdw_, int_4 _p_ ipivot_, real_8 _p_ h_, real_8 
 46410  _p_ w_)
 46411  { // ** body not listed **
 46426  }
 46427  
 46428  int_4 _dwnnls (real_8 _p_ w_, int_4 _p_ mdw_, int_4 _p_ me_, int_4 _p_ ma_, int_4 _p_ n_, int_4 _p_ l_, real_8 _p_ 
 46429  prgopt_, real_8 _p_ x_, real_8 _p_ rnorm_, int_4 _p_ mode_, int_4 _p_ iwork_, real_8 _p_ work_)
 46430  { // ** body not listed **
 46552  }
 46553  
 46554  int_4 _dwritp (int_4 _p_ ipage_, int_4 _p_ list_, real_8 _p_ rlist_, int_4 _p_ lpage_, int_4 _p_ irec_)
 46555  { // ** body not listed **
 46660  }
 46661  
 46662  int_4 _dwupdt (int_4 _p_ n_, real_8 _p_ r_, int_4 _p_ ldr_, real_8 _p_ w_, real_8 _p_ b_, real_8 _p_ alpha_, real_8 _p_ 
 46663  cos_, real_8 _p_ sin_)
 46664  { // ** body not listed **
 46731  }
 46732  
 46733  int_4 _dx4 (real_4 _p_ u_, int_4 _p_ idmn_, int_4 _p_ i_, int_4 _p_ j_, real_4 _p_ uxxx_, real_4 _p_ uxxxx_)
 46734  { // ** body not listed **
 46823  }
 46824  
 46825  int_4 _dxadj (real_8 _p_ x_, int_4 _p_ ix_, int_4 _p_ ierror_)
 46826  { // ** body not listed **
 46880  }
 46881  
 46882  int_4 _dxc210 (int_4 _p_ k_, real_8 _p_ z_, int_4 _p_ j_, int_4 _p_ ierror_)
 46883  { // ** body not listed **
 46947  }
 46948  
 46949  int_4 _dx (real_4 _p_ u_, int_4 _p_ idmn_, int_4 _p_ i_, int_4 _p_ j_, real_4 _p_ uxxx_, real_4 _p_ uxxxx_)
 46950  { // ** body not listed **
 47040  }
 47041  
 47042  real_8 _dxpsi (real_8 _p_ a_, int_4 _p_ ipsik_, int_4 _p_ ipsix_)
 47043  { // ** body not listed **
 47200  }
 47201  
 47202  int_4 _dxred (real_8 _p_ x_, int_4 _p_ ix_, int_4 _p_ ierror_)
 47203  { // ** body not listed **
 47274  }
 47275  
 47276  int_4 _dy4 (real_4 _p_ u_, int_4 _p_ idmn_, int_4 _p_ i_, int_4 _p_ j_, real_4 _p_ uyyy_, real_4 _p_ uyyyy_)
 47277  { // ** body not listed **
 47365  }
 47366  
 47367  int_4 _dyairy (real_8 _p_ x_, real_8 _p_ rx_, real_8 _p_ c_, real_8 _p_ bi_, real_8 _p_ dbi_)
 47368  { // ** body not listed **
 49205  }
 49206  
 49207  int_4 _dy (real_4 _p_ u_, int_4 _p_ idmn_, int_4 _p_ i_, int_4 _p_ j_, real_4 _p_ uyyy_, real_4 _p_ uyyyy_)
 49208  { // ** body not listed **
 49298  }
 49299  
 49300  int_4 _efcmn (int_4 _p_ ndata_, real_4 _p_ xdata_, real_4 _p_ ydata_, real_4 _p_ sddata_, int_4 _p_ nord_, int_4 _p_ 
 49301  nbkpt_, real_4 _p_ bkptin_, int_4 _p_ mdein_, int_4 _p_ mdeout_, real_4 _p_ coeff_, real_4 _p_ bf_, real_4 _p_ xtemp_, 
 49302  real_4 _p_ ptemp_, real_4 _p_ bkpt_, real_4 _p_ g_, int_4 _p_ mdg_, real_4 _p_ w_, int_4 _p_ mdw_, int_4 _p_ lw_)
 49303  { // ** body not listed **
 49498  }
 49499  
 49500  int_4 _fcmn (int_4 _p_ ndata_, real_4 _p_ xdata_, real_4 _p_ ydata_, real_4 _p_ sddata_, int_4 _p_ nord_, int_4 _p_ 
 49501  nbkpt_, real_4 _p_ bkptin_, int_4 _p_ nconst_, real_4 _p_ xconst_, real_4 _p_ yconst_, int_4 _p_ nderiv_, int_4 _p_ 
 49502  mode_, real_4 _p_ coeff_, real_4 _p_ bf_, real_4 _p_ xtemp_, real_4 _p_ ptemp_, real_4 _p_ bkpt_, real_4 _p_ g_, int_4 
 49503  _p_ mdg_, real_4 _p_ w_, int_4 _p_ mdw_, real_4 _p_ work_, int_4 _p_ iwork_)
 49504  { // ** body not listed **
 49869  }
 49870  
 49871  int_4 _fdjac3 (int_4 (*_fcn)(), int_4 _p_ m_, int_4 _p_ n_, real_4 _p_ x_, real_4 _p_ fvec_, real_4 _p_ fjac_, int_4 
 49872  _p_ ldfjac_, int_4 _p_ iflag_, real_4 _p_ epsfcn_, real_4 _p_ wa_)
 49873  { // ** body not listed **
 49911  }
 49912  
 49913  int_4 _fdump (void)
 49914  { // ** body not listed **
 49917  }
 49918  
 49919  int_4 _fftdoc (void)
 49920  { // ** body not listed **
 49923  }
 49924  
 49925  int_4 _fulmat (int_4 _p_ i_, int_4 _p_ j_, real_4 _p_ aij_, int_4 _p_ indcat_, real_4 _p_ prgopt_, real_4 _p_ dattrv_, 
 49926  int_4 _p_ iflag_)
 49927  { // ** body not listed **
 49999  }
 50000  
 50001  int_4 _fzero (real_4 (*_f)(), real_4 _p_ b_, real_4 _p_ c_, real_4 _p_ r_, real_4 _p_ re_, real_4 _p_ ae_, int_4 _p_ 
 50002  iflag_)
 50003  { // ** body not listed **
 50133  }
 50134  
 50135  real_4 _gamrn (real_4 _p_ x_)
 50136  { // ** body not listed **
 50259  }
 50260  
 50261  int_4 _gaus8 (real_4 (*_fun)(), real_4 _p_ a_, real_4 _p_ b_, real_4 _p_ err_, real_4 _p_ ans_, int_4 _p_ ierr_)
 50262  { // ** body not listed **
 50513  }
 50514  
 50515  int_4 _h12 (int_4 _p_ mode_, int_4 _p_ lpivot_, int_4 _p_ l1_, int_4 _p_ m_, real_4 _p_ u_, int_4 _p_ iue_, real_4 _p_ 
 50516  up_, real_4 _p_ c_, int_4 _p_ ice_, int_4 _p_ icv_, int_4 _p_ ncv_)
 50517  { // ** body not listed **
 50647  }
 50648  
 50649  int_4 _hfti (real_4 _p_ a_, int_4 _p_ mda_, int_4 _p_ m_, int_4 _p_ n_, real_4 _p_ b_, int_4 _p_ mdb_, int_4 _p_ nb_, 
 50650  real_4 _p_ tau_, int_4 _p_ krank_, real_4 _p_ rnorm_, real_4 _p_ h_, real_4 _p_ g_, int_4 _p_ ip_)
 50651  { // ** body not listed **
 50833  }
 50834  
 50835  int_4 _hkseq (real_4 _p_ x_, int_4 _p_ m_, real_4 _p_ h_, int_4 _p_ ierr_)
 50836  { // ** body not listed **
 51063  }
 51064  
 51065  int_4 _hpperm (char _p_ _p_ hx_, int_4 _p_ n_, int_4 _p_ iperm_, char _p_ work_, int_4 _p_ ier_)
 51066  { // ** body not listed **
 51115  }
 51116  
 51117  int_4 _hpsort (char _p_ _p_ hx_, int_4 _p_ n_, int_4 _p_ strbeg_, int_4 _p_ strend_, int_4 _p_ iperm_, int_4 _p_ kflag_
 51118  , char _p_ work_, int_4 _p_ ier_)
 51119  { // ** body not listed **
 51302  }
 51303  
 51304  int_4 _hstart (int_4 (*_f)(), int_4 _p_ neq_, real_4 _p_ a_, real_4 _p_ b_, real_4 _p_ y_, real_4 _p_ yprime_, real_4 
 51305  _p_ etol_, int_4 _p_ morder_, real_4 _p_ small_, real_4 _p_ big_, real_4 _p_ spy_, real_4 _p_ pv_, real_4 _p_ yp_, 
 51306  real_4 _p_ sf_, real_4 _p_ rpar_, int_4 _p_ ipar_, real_4 _p_ h_)
 51307  { // ** body not listed **
 51487  }
 51488  
 51489  int_4 _hstcs1 (int_4 _p_ intl_, real_4 _p_ a_, real_4 _p_ b_, int_4 _p_ m_, int_4 _p_ mbdcnd_, real_4 _p_ bda_, real_4 
 51490  _p_ bdb_, real_4 _p_ c_, real_4 _p_ d_, int_4 _p_ n_, int_4 _p_ nbdcnd_, real_4 _p_ bdc_, real_4 _p_ bdd_, real_4 _p_ 
 51491  elmbda_, real_4 _p_ f_, int_4 _p_ idimf_, real_4 _p_ pertrb_, int_4 _p_ ierr1_, real_4 _p_ am_, real_4 _p_ bm_, real_4 
 51492  _p_ cm_, real_4 _p_ an_, real_4 _p_ bn_, real_4 _p_ cn_, real_4 _p_ snth_, real_4 _p_ rsq_, real_4 _p_ wrk_)
 51493  { // ** body not listed **
 51725  }
 51726  
 51727  real_4 _hvnrm (real_4 _p_ v_, int_4 _p_ ncomp_)
 51728  { // ** body not listed **
 51737  }
 51738  
 51739  int_4 _hwscs1 (int_4 _p_ intl_, real_4 _p_ ts_, real_4 _p_ tf_, int_4 _p_ m_, int_4 _p_ mbdcnd_, real_4 _p_ bdts_, 
 51740  real_4 _p_ bdtf_, real_4 _p_ rs_, real_4 _p_ rf_, int_4 _p_ n_, int_4 _p_ nbdcnd_, real_4 _p_ bdrs_, real_4 _p_ bdrf_, 
 51741  real_4 _p_ elmbda_, real_4 _p_ f_, int_4 _p_ idimf_, real_4 _p_ pertrb_, real_4 _p_ w_, real_4 _p_ s_, real_4 _p_ an_, 
 51742  real_4 _p_ bn_, real_4 _p_ cn_, real_4 _p_ r_, real_4 _p_ am_, real_4 _p_ bm_, real_4 _p_ cm_, real_4 _p_ sint_, real_4 
 51743  _p_ bmh_)
 51744  { // ** body not listed **
 52236  }
 52237  
 52238  int_4 _hwsss1 (real_4 _p_ ts_, real_4 _p_ tf_, int_4 _p_ m_, int_4 _p_ mbdcnd_, real_4 _p_ bdts_, real_4 _p_ bdtf_, 
 52239  real_4 _p_ ps_, real_4 _p_ pf_, int_4 _p_ n_, int_4 _p_ nbdcnd_, real_4 _p_ bdps_, real_4 _p_ bdpf_, real_4 _p_ elmbda_
 52240  , real_4 _p_ f_, int_4 _p_ idimf_, real_4 _p_ pertrb_, real_4 _p_ am_, real_4 _p_ bm_, real_4 _p_ cm_, real_4 _p_ sn_, 
 52241  real_4 _p_ ss_, real_4 _p_ sint_, real_4 _p_ d_)
 52242  { // ** body not listed **
 52879  }
 52880  
 52881  int_4 _i1merg (real_4 _p_ icos_, int_4 _p_ i1_, int_4 _p_ m1_, int_4 _p_ i2_, int_4 _p_ m2_, int_4 _p_ i3_)
 52882  { // ** body not listed **
 52921  }
 52922  
 52923  int_4 _idloc (int_4 _p_ loc_, real_8 _p_ sx_, int_4 _p_ ix_)
 52924  { // ** body not listed **
 52957  }
 52958  
 52959  int_4 _indxa (int_4 _p_ i_, int_4 _p_ ir_, int_4 _p_ idxa_, int_4 _p_ na_)
 52960  { // ** body not listed **
 52977  }
 52978  
 52979  int_4 _indxb (int_4 _p_ i_, int_4 _p_ ir_, int_4 _p_ idx_, int_4 _p_ idp_)
 52980  { // ** body not listed **
 53038  }
 53039  
 53040  int_4 _indxc (int_4 _p_ i_, int_4 _p_ ir_, int_4 _p_ idxc_, int_4 _p_ nc_)
 53041  { // ** body not listed **
 53058  }
 53059  
 53060  int_4 _inxca (int_4 _p_ i_, int_4 _p_ ir_, int_4 _p_ idxa_, int_4 _p_ na_)
 53061  { // ** body not listed **
 53078  }
 53079  
 53080  int_4 _inxcb (int_4 _p_ i_, int_4 _p_ ir_, int_4 _p_ idx_, int_4 _p_ idp_)
 53081  { // ** body not listed **
 53138  }
 53139  
 53140  int_4 _inxcc (int_4 _p_ i_, int_4 _p_ ir_, int_4 _p_ idxc_, int_4 _p_ nc_)
 53141  { // ** body not listed **
 53158  }
 53159  
 53160  int_4 _iploc (int_4 _p_ loc_, real_4 _p_ sx_, int_4 _p_ ix_)
 53161  { // ** body not listed **
 53194  }
 53195  
 53196  int_4 _ipperm (int_4 _p_ ix_, int_4 _p_ n_, int_4 _p_ iperm_, int_4 _p_ ier_)
 53197  { // ** body not listed **
 53241  }
 53242  
 53243  int_4 _ipsort (int_4 _p_ ix_, int_4 _p_ n_, int_4 _p_ iperm_, int_4 _p_ kflag_, int_4 _p_ ier_)
 53244  { // ** body not listed **
 53400  }
 53401  
 53402  int_4 _isort (int_4 _p_ ix_, int_4 _p_ iy_, int_4 _p_ n_, int_4 _p_ kflag_)
 53403  { // ** body not listed **
 53644  }
 53645  
 53646  int_4 _jairy (real_4 _p_ x_, real_4 _p_ rx_, real_4 _p_ c_, real_4 _p_ ai_, real_4 _p_ dai_)
 53647  { // ** body not listed **
 55236  }
 55237  
 55238  int_4 _llsia (real_4 _p_ a_, int_4 _p_ mda_, int_4 _p_ m_, int_4 _p_ n_, real_4 _p_ b_, int_4 _p_ mdb_, int_4 _p_ nb_, 
 55239  real_4 _p_ re_, real_4 _p_ ae_, int_4 _p_ key_, int_4 _p_ mode_, int_4 _p_ np_, int_4 _p_ krank_, int_4 _p_ ksure_, 
 55240  real_4 _p_ rnorm_, real_4 _p_ w_, int_4 _p_ lw_, int_4 _p_ iwork_, int_4 _p_ liw_, int_4 _p_ info_)
 55241  { // ** body not listed **
 55490  }
 55491  
 55492  int_4 _lpdp (real_4 _p_ a_, int_4 _p_ mda_, int_4 _p_ m_, int_4 _p_ n1_, int_4 _p_ n2_, real_4 _p_ prgopt_, real_4 _p_ 
 55493  x_, real_4 _p_ wnorm_, int_4 _p_ mode_, real_4 _p_ ws_, int_4 _p_ is_)
 55494  { // ** body not listed **
 55652  }
 55653  
 55654  int_4 _lsei (real_4 _p_ w_, int_4 _p_ mdw_, int_4 _p_ me_, int_4 _p_ ma_, int_4 _p_ mg_, int_4 _p_ n_, real_4 _p_ 
 55655  prgopt_, real_4 _p_ x_, real_4 _p_ rnorme_, real_4 _p_ rnorml_, int_4 _p_ mode_, real_4 _p_ ws_, int_4 _p_ ip_)
 55656  { // ** body not listed **
 56160  }
 56161  
 56162  int_4 _lsi (real_4 _p_ w_, int_4 _p_ mdw_, int_4 _p_ ma_, int_4 _p_ mg_, int_4 _p_ n_, real_4 _p_ prgopt_, real_4 _p_ 
 56163  x_, real_4 _p_ rnorm_, int_4 _p_ mode_, real_4 _p_ ws_, int_4 _p_ ip_)
 56164  { // ** body not listed **
 56381  }
 56382  
 56383  int_4 _lssods (real_4 _p_ a_, real_4 _p_ x_, real_4 _p_ b_, int_4 _p_ m_, int_4 _p_ n_, int_4 _p_ nrda_, int_4 _p_ 
 56384  iflag_, int_4 _p_ irank_, int_4 _p_ iscale_, real_4 _p_ q_, real_4 _p_ diag_, int_4 _p_ kpivot_, int_4 _p_ iter_, 
 56385  real_4 _p_ resnrm_, real_4 _p_ xnorm_, real_4 _p_ z_, real_4 _p_ r_, real_4 _p_ div_, real_4 _p_ td_, real_4 _p_ 
 56386  scales_)
 56387  { // ** body not listed **
 56556  }
 56557  
 56558  int_4 _lssuds (real_4 _p_ a_, real_4 _p_ x_, real_4 _p_ b_, int_4 _p_ n_, int_4 _p_ m_, int_4 _p_ nrda_, real_4 _p_ u_, 
 56559  int_4 _p_ nrdu_, int_4 _p_ iflag_, int_4 _p_ mlso_, int_4 _p_ irank_, int_4 _p_ iscale_, real_4 _p_ q_, real_4 _p_ 
 56560  diag_, int_4 _p_ kpivot_, real_4 _p_ s_, real_4 _p_ div_, real_4 _p_ td_, int_4 _p_ isflg_, real_4 _p_ scales_)
 56561  { // ** body not listed **
 56732  }
 56733  
 56734  int_4 _macon (void)
 56735  { // ** body not listed **
 56751  }
 56752  
 56753  int_4 _mgsbv (int_4 _p_ m_, int_4 _p_ n_, real_4 _p_ a_, int_4 _p_ ia_, int_4 _p_ niv_, int_4 _p_ iflag_, real_4 _p_ s_
 56754  , real_4 _p_ p_, int_4 _p_ ip_, int_4 _p_ inhomo_, real_4 _p_ v_, real_4 _p_ w_, real_4 _p_ wcnd_)
 56755  { // ** body not listed **
 56995  }
 56996  
 56997  int_4 _minso4 (real_4 _p_ usol_, int_4 _p_ idmn_, real_4 _p_ zn_, real_4 _p_ zm_, real_4 _p_ pertb_)
 56998  { // ** body not listed **
 57023  }
 57024  
 57025  int_4 _minsol (real_4 _p_ usol_, int_4 _p_ idmn_, real_4 _p_ zn_, real_4 _p_ zm_, real_4 _p_ pertb_)
 57026  { // ** body not listed **
 57051  }
 57052  
 57053  int_4 _mpadd2 (int_4 _p_ x_, int_4 _p_ y_, int_4 _p_ z_, int_4 _p_ y1_, int_4 _p_ trunc_)
 57054  { // ** body not listed **
 57146  }
 57147  
 57148  int_4 _mpadd3 (int_4 _p_ x_, int_4 _p_ y_, int_4 _p_ s_, int_4 _p_ med_, int_4 _p_ re_)
 57149  { // ** body not listed **
 57276  }
 57277  
 57278  int_4 _mpadd (int_4 _p_ x_, int_4 _p_ y_, int_4 _p_ z_)
 57279  { // ** body not listed **
 57283  }
 57284  
 57285  int_4 _mpblas (int_4 _p_ i1_)
 57286  { // ** body not listed **
 57305  }
 57306  
 57307  int_4 _mpcdm (real_8 _p_ dx_, int_4 _p_ z_)
 57308  { // ** body not listed **
 57394  }
 57395  
 57396  int_4 _mpchk (int_4 _p_ i_, int_4 _p_ j_)
 57397  { // ** body not listed **
 57666  }
 57667  
 57668  int_4 _mpcmd (int_4 _p_ x_, real_8 _p_ dz_)
 57669  { // ** body not listed **
 57718  }
 57719  
 57720  int_4 _mpdivi (int_4 _p_ x_, int_4 _p_ iy_, int_4 _p_ z_)
 57721  { // ** body not listed **
 57912  }
 57913  
 57914  int_4 _mperr (void)
 57915  { // ** body not listed **
 57922  }
 57923  
 57924  int_4 _mpmaxr (int_4 _p_ x_)
 57925  { // ** body not listed **
 57937  }
 57938  
 57939  int_4 _mpmlp (int_4 _p_ u_, int_4 _p_ v_, int_4 _p_ w_, int_4 _p_ j_)
 57940  { // ** body not listed **
 57947  }
 57948  
 57949  int_4 _mpmul2 (int_4 _p_ x_, int_4 _p_ iy_, int_4 _p_ z_, int_4 _p_ trunc_)
 57950  { // ** body not listed **
 58092  }
 58093  
 58094  int_4 _mpmul (int_4 _p_ x_, int_4 _p_ y_, int_4 _p_ z_)
 58095  { // ** body not listed **
 58201  }
 58202  
 58203  int_4 _mpmuli (int_4 _p_ x_, int_4 _p_ iy_, int_4 _p_ z_)
 58204  { // ** body not listed **
 58208  }
 58209  
 58210  int_4 _mpnzr (int_4 _p_ rs_, int_4 _p_ re_, int_4 _p_ z_, int_4 _p_ trunc_)
 58211  { // ** body not listed **
 58347  }
 58348  
 58349  int_4 _mpovfl (int_4 _p_ x_)
 58350  { // ** body not listed **
 58371  }
 58372  
 58373  int_4 _mpstr (int_4 _p_ x_, int_4 _p_ y_)
 58374  { // ** body not listed **
 58381  }
 58382  
 58383  int_4 _mpunfl (int_4 _p_ x_)
 58384  { // ** body not listed **
 58390  }
 58391  
 58392  int_4 _numxer (int_4 _p_ nerr_)
 58393  { // ** body not listed **
 58401  }
 58402  
 58403  int_4 _ohtrol (real_4 _p_ q_, int_4 _p_ n_, int_4 _p_ nrda_, real_4 _p_ diag_, int_4 _p_ irank_, real_4 _p_ div_, 
 58404  real_4 _p_ td_)
 58405  { // ** body not listed **
 58438  }
 58439  
 58440  int_4 _ohtror (real_4 _p_ q_, int_4 _p_ n_, int_4 _p_ nrda_, real_4 _p_ diag_, int_4 _p_ irank_, real_4 _p_ div_, 
 58441  real_4 _p_ td_)
 58442  { // ** body not listed **
 58475  }
 58476  
 58477  int_4 _ortho4 (real_4 _p_ usol_, int_4 _p_ idmn_, real_4 _p_ zn_, real_4 _p_ zm_, real_4 _p_ pertrb_)
 58478  { // ** body not listed **
 58503  }
 58504  
 58505  int_4 _orthog (real_4 _p_ usol_, int_4 _p_ idmn_, real_4 _p_ zn_, real_4 _p_ zm_, real_4 _p_ pertrb_)
 58506  { // ** body not listed **
 58531  }
 58532  
 58533  int_4 _orthol (real_4 _p_ a_, int_4 _p_ m_, int_4 _p_ n_, int_4 _p_ nrda_, int_4 _p_ iflag_, int_4 _p_ irank_, int_4 
 58534  _p_ iscale_, real_4 _p_ diag_, int_4 _p_ kpivot_, real_4 _p_ scales_, real_4 _p_ cols_, real_4 _p_ cs_)
 58535  { // ** body not listed **
 58643  }
 58644  
 58645  int_4 _orthor (real_4 _p_ a_, int_4 _p_ n_, int_4 _p_ m_, int_4 _p_ nrda_, int_4 _p_ iflag_, int_4 _p_ irank_, int_4 
 58646  _p_ iscale_, real_4 _p_ diag_, int_4 _p_ kpivot_, real_4 _p_ scales_, real_4 _p_ rows_, real_4 _p_ rs_)
 58647  { // ** body not listed **
 58752  }
 58753  
 58754  int_4 _pchngs (int_4 _p_ ii_, real_4 _p_ xval_, int_4 _p_ iplace_, real_4 _p_ sx_, int_4 _p_ ix_, int_4 _p_ ircx_)
 58755  { // ** body not listed **
 58965  }
 58966  
 58967  int_4 _pcoef (int_4 _p_ l_, real_4 _p_ c_, real_4 _p_ tc_, real_4 _p_ a_)
 58968  { // ** body not listed **
 58997  }
 58998  
 58999  real_4 _pgsf (real_4 _p_ x_, int_4 _p_ iz_, real_4 _p_ c_, real_4 _p_ a_, real_4 _p_ bh_)
 59000  { // ** body not listed **
 59027  }
 59028  
 59029  real_4 _pimach (real_4 _p_ dum_)
 59030  { // ** body not listed **
 59035  }
 59036  
 59037  int_4 _pinitm (int_4 _p_ m_, int_4 _p_ n_, real_4 _p_ sx_, int_4 _p_ ix_, int_4 _p_ lmx_, int_4 _p_ ipagef_)
 59038  { // ** body not listed **
 59111  }
 59112  
 59113  int_4 _pnnzrs (int_4 _p_ i_, real_4 _p_ xval_, int_4 _p_ iplace_, real_4 _p_ sx_, int_4 _p_ ix_, int_4 _p_ ircx_)
 59114  { // ** body not listed **
 59318  }
 59319  
 59320  int_4 _poisd2 (int_4 _p_ mr_, int_4 _p_ nr_, int_4 _p_ istag_, real_4 _p_ ba_, real_4 _p_ bb_, real_4 _p_ bc_, real_4 
 59321  _p_ q_, int_4 _p_ idimq_, real_4 _p_ b_, real_4 _p_ w_, real_4 _p_ d_, real_4 _p_ tcos_, real_4 _p_ p_)
 59322  { // ** body not listed **
 59743  }
 59744  
 59745  int_4 _poisn2 (int_4 _p_ m_, int_4 _p_ n_, int_4 _p_ istag_, int_4 _p_ mixbnd_, real_4 _p_ a_, real_4 _p_ bb_, real_4 
 59746  _p_ c_, real_4 _p_ q_, int_4 _p_ idimq_, real_4 _p_ b_, real_4 _p_ b2_, real_4 _p_ b3_, real_4 _p_ w_, real_4 _p_ w2_, 
 59747  real_4 _p_ w3_, real_4 _p_ d_, real_4 _p_ tcos_, real_4 _p_ p_)
 59748  { // ** body not listed **
 60383  }
 60384  
 60385  int_4 _poisp2 (int_4 _p_ m_, int_4 _p_ n_, real_4 _p_ a_, real_4 _p_ bb_, real_4 _p_ c_, real_4 _p_ q_, int_4 _p_ 
 60386  idimq_, real_4 _p_ b_, real_4 _p_ b2_, real_4 _p_ b3_, real_4 _p_ w_, real_4 _p_ w2_, real_4 _p_ w3_, real_4 _p_ d_, 
 60387  real_4 _p_ tcos_, real_4 _p_ p_)
 60388  { // ** body not listed **
 60483  }
 60484  
 60485  int_4 _polcof (real_4 _p_ xx_, int_4 _p_ n_, real_4 _p_ x_, real_4 _p_ c_, real_4 _p_ d_, real_4 _p_ work_)
 60486  { // ** body not listed **
 60525  }
 60526  
 60527  int_4 _polfit (int_4 _p_ n_, real_4 _p_ x_, real_4 _p_ y_, real_4 _p_ w_, int_4 _p_ maxdeg_, int_4 _p_ ndeg_, real_4 
 60528  _p_ eps_, real_4 _p_ r_, int_4 _p_ ierr_, real_4 _p_ a_)
 60529  { // ** body not listed **
 60838  }
 60839  
 60840  int_4 _polint (int_4 _p_ n_, real_4 _p_ x_, real_4 _p_ y_, real_4 _p_ c_)
 60841  { // ** body not listed **
 60872  }
 60873  
 60874  int_4 _polyvl (int_4 _p_ nder_, real_4 _p_ xx_, real_4 _p_ yfit_, real_4 _p_ yp_, int_4 _p_ n_, real_4 _p_ x_, real_4 
 60875  _p_ c_, real_4 _p_ work_, int_4 _p_ ierr_)
 60876  { // ** body not listed **
 60970  }
 60971  
 60972  int_4 _pos3d1 (int_4 _p_ lp_, int_4 _p_ l_, int_4 _p_ mp_, int_4 _p_ m_, int_4 _p_ n_, real_4 _p_ a_, real_4 _p_ b_, 
 60973  real_4 _p_ c_, int_4 _p_ ldimf_, int_4 _p_ mdimf_, real_4 _p_ f_, real_4 _p_ xrt_, real_4 _p_ yrt_, real_4 _p_ t_, 
 60974  real_4 _p_ d_, real_4 _p_ wx_, real_4 _p_ wy_, real_4 _p_ c1_, real_4 _p_ c2_, real_4 _p_ bb_)
 60975  { // ** body not listed **
 61250  }
 61251  
 61252  int_4 _postg2 (int_4 _p_ nperod_, int_4 _p_ n_, int_4 _p_ m_, real_4 _p_ a_, real_4 _p_ bb_, real_4 _p_ c_, int_4 _p_ 
 61253  idimq_, real_4 _p_ q_, real_4 _p_ b_, real_4 _p_ b2_, real_4 _p_ b3_, real_4 _p_ w_, real_4 _p_ w2_, real_4 _p_ w3_, 
 61254  real_4 _p_ d_, real_4 _p_ tcos_, real_4 _p_ p_)
 61255  { // ** body not listed **
 61889  }
 61890  
 61891  int_4 _ppadd (int_4 _p_ n_, int_4 _p_ ierror_, real_4 _p_ a_, real_4 _p_ c_, complex_8 _p_ cbp_, real_4 _p_ bp_, real_4 
 61892  _p_ bh_)
 61893  { // ** body not listed **
 62179  }
 62180  
 62181  int_4 _ppgq8 (real_4 (*_fun)(), int_4 _p_ ldc_, real_4 _p_ c_, real_4 _p_ xi_, int_4 _p_ lxi_, int_4 _p_ kk_, int_4 _p_ 
 62182  id_, real_4 _p_ a_, real_4 _p_ b_, int_4 _p_ inppv_, real_4 _p_ err_, real_4 _p_ ans_, int_4 _p_ ierr_)
 62183  { // ** body not listed **
 62454  }
 62455  
 62456  real_4 _ppgsf (real_4 _p_ x_, int_4 _p_ iz_, real_4 _p_ c_, real_4 _p_ a_, real_4 _p_ bh_)
 62457  { // ** body not listed **
 62468  }
 62469  
 62470  real_4 _pppsf (real_4 _p_ x_, int_4 _p_ iz_, real_4 _p_ c_, real_4 _p_ a_, real_4 _p_ bh_)
 62471  { // ** body not listed **
 62481  }
 62482  
 62483  real_4 _ppsgf (real_4 _p_ x_, int_4 _p_ iz_, real_4 _p_ c_, real_4 _p_ a_, real_4 _p_ bh_)
 62484  { // ** body not listed **
 62495  }
 62496  
 62497  real_4 _ppspf (real_4 _p_ x_, int_4 _p_ iz_, real_4 _p_ c_, real_4 _p_ a_, real_4 _p_ bh_)
 62498  { // ** body not listed **
 62508  }
 62509  
 62510  int_4 _proc (int_4 _p_ nd_, real_4 _p_ bd_, int_4 _p_ nm1_, real_4 _p_ bm1_, int_4 _p_ nm2_, real_4 _p_ bm2_, int_4 _p_ 
 62511  na_, real_4 _p_ aa_, complex_8 _p_ x_, complex_8 _p_ y_, int_4 _p_ m_, complex_8 _p_ a_, complex_8 _p_ b_, complex_8 
 62512  _p_ c_, complex_8 _p_ d_, complex_8 _p_ w_, complex_8 _p_ u_)
 62513  { // ** body not listed **
 62687  }
 62688  
 62689  int_4 _procp (int_4 _p_ nd_, real_4 _p_ bd_, int_4 _p_ nm1_, real_4 _p_ bm1_, int_4 _p_ nm2_, real_4 _p_ bm2_, int_4 
 62690  _p_ na_, real_4 _p_ aa_, complex_8 _p_ x_, complex_8 _p_ y_, int_4 _p_ m_, complex_8 _p_ a_, complex_8 _p_ b_, 
 62691  complex_8 _p_ c_, complex_8 _p_ d_, complex_8 _p_ u_, complex_8 _p_ w_)
 62692  { // ** body not listed **
 62895  }
 62896  
 62897  int_4 _prod (int_4 _p_ nd_, real_4 _p_ bd_, int_4 _p_ nm1_, real_4 _p_ bm1_, int_4 _p_ nm2_, real_4 _p_ bm2_, int_4 _p_ 
 62898  na_, real_4 _p_ aa_, real_4 _p_ x_, real_4 _p_ y_, int_4 _p_ m_, real_4 _p_ a_, real_4 _p_ b_, real_4 _p_ c_, real_4 
 62899  _p_ d_, real_4 _p_ w_, real_4 _p_ u_)
 62900  { // ** body not listed **
 63073  }
 63074  
 63075  int_4 _prodp (int_4 _p_ nd_, real_4 _p_ bd_, int_4 _p_ nm1_, real_4 _p_ bm1_, int_4 _p_ nm2_, real_4 _p_ bm2_, int_4 
 63076  _p_ na_, real_4 _p_ aa_, real_4 _p_ x_, real_4 _p_ y_, int_4 _p_ m_, real_4 _p_ a_, real_4 _p_ b_, real_4 _p_ c_, 
 63077  real_4 _p_ d_, real_4 _p_ u_, real_4 _p_ w_)
 63078  { // ** body not listed **
 63280  }
 63281  
 63282  real_4 _prvec (int_4 _p_ m_, real_4 _p_ u_, real_4 _p_ v_)
 63283  { // ** body not listed **
 63293  }
 63294  
 63295  int_4 _prwpge (int_4 _p_ key_, int_4 _p_ ipage_, int_4 _p_ lpg_, real_4 _p_ sx_, int_4 _p_ ix_)
 63296  { // ** body not listed **
 63316  }
 63317  
 63318  int_4 _prwvir (int_4 _p_ key_, int_4 _p_ ipage_, int_4 _p_ lpg_, real_4 _p_ sx_, int_4 _p_ ix_)
 63319  { // ** body not listed **
 63364  }
 63365  
 63366  real_4 _psgf (real_4 _p_ x_, int_4 _p_ iz_, real_4 _p_ c_, real_4 _p_ a_, real_4 _p_ bh_)
 63367  { // ** body not listed **
 63394  }
 63395  
 63396  int_4 _psifn (real_4 _p_ x_, int_4 _p_ n_, int_4 _p_ kode_, int_4 _p_ m_, real_4 _p_ ans_, int_4 _p_ nz_, int_4 _p_ 
 63397  ierr_)
 63398  { // ** body not listed **
 63809  }
 63810  
 63811  real_4 _psixn (int_4 _p_ n_)
 63812  { // ** body not listed **
 64410  }
 64411  
 64412  int_4 _pvalue (int_4 _p_ l_, int_4 _p_ nder_, real_4 _p_ x_, real_4 _p_ yfit_, real_4 _p_ yp_, real_4 _p_ a_)
 64413  { // ** body not listed **
 64586  }
 64587  
 64588  real_4 _pythag (real_4 _p_ a_, real_4 _p_ b_)
 64589  { // ** body not listed **
 64612  }
 64613  
 64614  int_4 _rc3jj (real_4 _p_ l2_, real_4 _p_ l3_, real_4 _p_ m2_, real_4 _p_ m3_, real_4 _p_ l1min_, real_4 _p_ l1max_, 
 64615  real_4 _p_ thrcof_, int_4 _p_ ndim_, int_4 _p_ ier_)
 64616  { // ** body not listed **
 64895  }
 64896  
 64897  int_4 _rc3jm (real_4 _p_ l1_, real_4 _p_ l2_, real_4 _p_ l3_, real_4 _p_ m1_, real_4 _p_ m2min_, real_4 _p_ m2max_, 
 64898  real_4 _p_ thrcof_, int_4 _p_ ndim_, int_4 _p_ ier_)
 64899  { // ** body not listed **
 65170  }
 65171  
 65172  int_4 _rc6j (real_4 _p_ l2_, real_4 _p_ l3_, real_4 _p_ l4_, real_4 _p_ l5_, real_4 _p_ l6_, real_4 _p_ l1min_, real_4 
 65173  _p_ l1max_, real_4 _p_ sixcof_, int_4 _p_ ndim_, int_4 _p_ ier_)
 65174  { // ** body not listed **
 65468  }
 65469  
 65470  real_4 _rc (real_4 _p_ x_, real_4 _p_ y_, int_4 _p_ ier_)
 65471  { // ** body not listed **
 65844  }
 65845  
 65846  real_4 _rd (real_4 _p_ x_, real_4 _p_ y_, real_4 _p_ z_, int_4 _p_ ier_)
 65847  { // ** body not listed **
 66324  }
 66325  
 66326  int_4 _reort (int_4 _p_ ncomp_, real_4 _p_ y_, real_4 _p_ yp_, real_4 _p_ yhp_, int_4 _p_ niv_, real_4 _p_ w_, real_4 
 66327  _p_ s_, real_4 _p_ p_, int_4 _p_ ip_, real_4 _p_ stowa_, int_4 _p_ iflag_)
 66328  { // ** body not listed **
 66458  }
 66459  
 66460  real_4 _rf (real_4 _p_ x_, real_4 _p_ y_, real_4 _p_ z_, int_4 _p_ ier_)
 66461  { // ** body not listed **
 66965  }
 66966  
 66967  real_4 _rj (real_4 _p_ x_, real_4 _p_ y_, real_4 _p_ z_, real_4 _p_ p_, int_4 _p_ ier_)
 66968  { // ** body not listed **
 67564  }
 67565  
 67566  int_4 _rpqr79 (int_4 _p_ ndeg_, real_4 _p_ coeff_, complex_8 _p_ root_, int_4 _p_ ierr_, real_4 _p_ work_)
 67567  { // ** body not listed **
 67614  }
 67615  
 67616  int_4 _rpzero (int_4 _p_ n_, real_4 _p_ a_, complex_8 _p_ r_, complex_8 _p_ t_, int_4 _p_ iflg_, real_4 _p_ s_)
 67617  { // ** body not listed **
 67626  }
 67627  
 67628  int_4 _s1merg (real_4 _p_ tcos_, int_4 _p_ i1_, int_4 _p_ m1_, int_4 _p_ i2_, int_4 _p_ m2_, int_4 _p_ i3_)
 67629  { // ** body not listed **
 67668  }
 67669  
 67670  int_4 _sbocls (real_4 _p_ w_, int_4 _p_ mdw_, int_4 _p_ mcon_, int_4 _p_ mrows_, int_4 _p_ ncols_, real_4 _p_ bl_, 
 67671  real_4 _p_ bu_, int_4 _p_ ind_, int_4 _p_ iopt_, real_4 _p_ x_, real_4 _p_ rnormc_, real_4 _p_ rnorm_, int_4 _p_ mode_, 
 67672  real_4 _p_ rw_, int_4 _p_ iw_)
 67673  { // ** body not listed **
 69198  }
 69199  
 69200  int_4 _sbols (real_4 _p_ w_, int_4 _p_ mdw_, int_4 _p_ mrows_, int_4 _p_ ncols_, real_4 _p_ bl_, real_4 _p_ bu_, int_4 
 69201  _p_ ind_, int_4 _p_ iopt_, real_4 _p_ x_, real_4 _p_ rnorm_, int_4 _p_ mode_, real_4 _p_ rw_, int_4 _p_ iw_)
 69202  { // ** body not listed **
 70535  }
 70536  
 70537  int_4 _sbolsm (real_4 _p_ w_, int_4 _p_ mdw_, int_4 _p_ minput_, int_4 _p_ ncols_, real_4 _p_ bl_, real_4 _p_ bu_, 
 70538  int_4 _p_ ind_, int_4 _p_ iopt_, real_4 _p_ x_, real_4 _p_ rnorm_, int_4 _p_ mode_, real_4 _p_ rw_, real_4 _p_ ww_, 
 70539  real_4 _p_ scl_, int_4 _p_ ibasis_, int_4 _p_ ibb_)
 70540  { // ** body not listed **
 72257  }
 72258  int_4 _sclosm (int_4 _p_ ipage_)
 72259  { // ** body not listed **
 72317  }
 72318  
 72319  int_4 _scoef (real_4 _p_ yh_, real_4 _p_ yp_, int_4 _p_ ncomp_, int_4 _p_ nrowb_, int_4 _p_ nfc_, int_4 _p_ nic_, 
 72320  real_4 _p_ b_, real_4 _p_ beta_, real_4 _p_ coef_, int_4 _p_ inhomo_, real_4 _p_ re_, real_4 _p_ ae_, real_4 _p_ by_, 
 72321  real_4 _p_ cvec_, real_4 _p_ work_, int_4 _p_ iwork_, int_4 _p_ iflag_, int_4 _p_ nfcc_)
 72322  { // ** body not listed **
 72453  }
 72454  
 72455  int_4 _scov (int_4 (*_fcn)(), int_4 _p_ iopt_, int_4 _p_ m_, int_4 _p_ n_, real_4 _p_ x_, real_4 _p_ fvec_, real_4 _p_ 
 72456  r_, int_4 _p_ ldr_, int_4 _p_ info_, real_4 _p_ wa1_, real_4 _p_ wa2_, real_4 _p_ wa3_, real_4 _p_ wa4_)
 72457  { // ** body not listed **
 72597  }
 72598  
 72599  int_4 _sgeev (real_4 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, real_4 _p_ e_, real_4 _p_ v_, int_4 _p_ ldv_, real_4 _p_ 
 72600  work_, int_4 _p_ job_, int_4 _p_ info_)
 72601  { // ** body not listed **
 72704  }
 72705  
 72706  int_4 _sgefs (real_4 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, real_4 _p_ v_, int_4 _p_ itask_, int_4 _p_ ind_, real_4 _p_ 
 72707  work_, int_4 _p_ iwork_)
 72708  { // ** body not listed **
 72899  }
 72900  
 72901  int_4 _sgeir (real_4 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, real_4 _p_ v_, int_4 _p_ itask_, int_4 _p_ ind_, real_4 _p_ 
 72902  work_, int_4 _p_ iwork_)
 72903  { // ** body not listed **
 73113  }
 73114  
 73115  int_4 _sglss (real_4 _p_ a_, int_4 _p_ mda_, int_4 _p_ m_, int_4 _p_ n_, real_4 _p_ b_, int_4 _p_ mdb_, int_4 _p_ nb_, 
 73116  real_4 _p_ rnorm_, real_4 _p_ work_, int_4 _p_ lw_, int_4 _p_ iwork_, int_4 _p_ liw_, int_4 _p_ info_)
 73117  { // ** body not listed **
 73145  }
 73146  
 73147  int_4 _snbco (real_4 _p_ abe_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ml_, int_4 _p_ mu_, int_4 _p_ ipvt_, real_4 _p_ 
 73148  rcond_, real_4 _p_ z_)
 73149  { // ** body not listed **
 73298  }
 73299  
 73300  int_4 _snbdi (real_4 _p_ abe_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ml_, int_4 _p_ mu_, int_4 _p_ ipvt_, real_4 _p_ 
 73301  det_)
 73302  { // ** body not listed **
 73336  }
 73337  
 73338  int_4 _snbfa (real_4 _p_ abe_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ml_, int_4 _p_ mu_, int_4 _p_ ipvt_, int_4 _p_ 
 73339  info_)
 73340  { // ** body not listed **
 73395  }
 73396  
 73397  int_4 _snbfs (real_4 _p_ abe_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ml_, int_4 _p_ mu_, real_4 _p_ v_, int_4 _p_ 
 73398  itask_, int_4 _p_ ind_, real_4 _p_ work_, int_4 _p_ iwork_)
 73399  { // ** body not listed **
 73676  }
 73677  
 73678  int_4 _snbir (real_4 _p_ abe_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ml_, int_4 _p_ mu_, real_4 _p_ v_, int_4 _p_ 
 73679  itask_, int_4 _p_ ind_, real_4 _p_ work_, int_4 _p_ iwork_)
 73680  { // ** body not listed **
 73981  }
 73982  
 73983  int_4 _snbsl (real_4 _p_ abe_, int_4 _p_ lda_, int_4 _p_ n_, int_4 _p_ ml_, int_4 _p_ mu_, int_4 _p_ ipvt_, real_4 _p_ 
 73984  b_, int_4 _p_ job_)
 73985  { // ** body not listed **
 74055  }
 74056  
 74057  int_4 _snls1e (real_4 (*_fcn)(), int_4 _p_ iopt_, int_4 _p_ m_, int_4 _p_ n_, real_4 _p_ x_, real_4 _p_ fvec_, real_4 
 74058  _p_ tol_, int_4 _p_ nprint_, int_4 _p_ info_, int_4 _p_ iw_, real_4 _p_ wa_, int_4 _p_ lwa_)
 74059  { // ** body not listed **
 74109  }
 74110  
 74111  int_4 _snls1 (int_4 (*_fcn)(), int_4 _p_ iopt_, int_4 _p_ m_, int_4 _p_ n_, real_4 _p_ x_, real_4 _p_ fvec_, real_4 _p_ 
 74112  fjac_, int_4 _p_ ldfjac_, real_4 _p_ ftol_, real_4 _p_ xtol_, real_4 _p_ gtol_, int_4 _p_ maxfev_, real_4 _p_ epsfcn_, 
 74113  real_4 _p_ diag_, int_4 _p_ mode_, real_4 _p_ factor_, int_4 _p_ nprint_, int_4 _p_ info_, int_4 _p_ nfev_, int_4 _p_ 
 74114  njev_, int_4 _p_ ipvt_, real_4 _p_ qtf_, real_4 _p_ wa1_, real_4 _p_ wa2_, real_4 _p_ wa3_, real_4 _p_ wa4_)
 74115  { // ** body not listed **
 74689  }
 74690  
 74691  int_4 _snsqe (real_4 (*_fcn)(), int_4 (*_jac)(), int_4 _p_ iopt_, int_4 _p_ n_, real_4 _p_ x_, real_4 _p_ fvec_, real_4 
 74692  _p_ tol_, int_4 _p_ nprint_, int_4 _p_ info_, real_4 _p_ wa_, int_4 _p_ lwa_)
 74693  { // ** body not listed **
 74749  }
 74750  
 74751  int_4 _snsq (int_4 (*_fcn)(), int_4 (*_jac)(), int_4 _p_ iopt_, int_4 _p_ n_, real_4 _p_ x_, real_4 _p_ fvec_, real_4 
 74752  _p_ fjac_, int_4 _p_ ldfjac_, real_4 _p_ xtol_, int_4 _p_ maxfev_, int_4 _p_ ml_, int_4 _p_ mu_, real_4 _p_ epsfcn_, 
 74753  real_4 _p_ diag_, int_4 _p_ mode_, real_4 _p_ factor_, int_4 _p_ nprint_, int_4 _p_ info_, int_4 _p_ nfev_, int_4 _p_ 
 74754  njev_, real_4 _p_ r_, int_4 _p_ lr_, real_4 _p_ qtf_, real_4 _p_ wa1_, real_4 _p_ wa2_, real_4 _p_ wa3_, real_4 _p_ 
 74755  wa4_)
 74756  { // ** body not listed **
 75070  }
 75071  
 75072  int_4 _sods (real_4 _p_ a_, real_4 _p_ x_, real_4 _p_ b_, int_4 _p_ neq_, int_4 _p_ nuk_, int_4 _p_ nrda_, int_4 _p_ 
 75073  iflag_, real_4 _p_ work_, int_4 _p_ iwork_)
 75074  { // ** body not listed **
 75089  }
 75090  
 75091  int_4 _sopenm (int_4 _p_ ipage_, int_4 _p_ lpage_)
 75092  { // ** body not listed **
 75145  }
 75146  
 75147  int_4 _soseqs (real_4 (*_fnc)(), int_4 _p_ n_, real_4 _p_ s_, real_4 _p_ rtolx_, real_4 _p_ atolx_, real_4 _p_ tolf_, 
 75148  int_4 _p_ iflag_, int_4 _p_ mxit_, int_4 _p_ ncjs_, int_4 _p_ nsrrc_, int_4 _p_ nsri_, int_4 _p_ iprint_, real_4 _p_ 
 75149  fmax_, real_4 _p_ c_, int_4 _p_ nc_, real_4 _p_ b_, real_4 _p_ p_, real_4 _p_ temp_, real_4 _p_ x_, real_4 _p_ y_, 
 75150  real_4 _p_ fac_, int_4 _p_ is_)
 75151  { // ** body not listed **
 75524  }
 75525  
 75526  int_4 _sos (real_4 (*_fnc)(), int_4 _p_ neq_, real_4 _p_ x_, real_4 _p_ rtolx_, real_4 _p_ atolx_, real_4 _p_ tolf_, 
 75527  int_4 _p_ iflag_, real_4 _p_ rw_, int_4 _p_ lrw_, int_4 _p_ iw_, int_4 _p_ liw_)
 75528  { // ** body not listed **
 75856  }
 75857  
 75858  int_4 _sossol (int_4 _p_ k_, int_4 _p_ n_, int_4 _p_ l_, real_4 _p_ x_, real_4 _p_ c_, real_4 _p_ b_, int_4 _p_ m_)
 75859  { // ** body not listed **
 75893  }
 75894  
 75895  int_4 _speli4 (int_4 _p_ iorder_, real_4 _p_ a_, real_4 _p_ b_, int_4 _p_ m_, int_4 _p_ mbdcnd_, real_4 _p_ bda_, 
 75896  real_4 _p_ alpha_, real_4 _p_ bdb_, real_4 _p_ beta_, real_4 _p_ c_, real_4 _p_ d_, int_4 _p_ n_, int_4 _p_ nbdcnd_, 
 75897  real_4 _p_ bdc_, real_4 _p_ bdd_, int_4 (*_cofx)(), real_4 _p_ an_, real_4 _p_ bn_, real_4 _p_ cn_, real_4 _p_ dn_, 
 75898  real_4 _p_ un_, real_4 _p_ zn_, real_4 _p_ am_, real_4 _p_ bm_, real_4 _p_ cm_, real_4 _p_ dm_, real_4 _p_ um_, real_4 
 75899  _p_ zm_, real_4 _p_ grhs_, real_4 _p_ usol_, int_4 _p_ idmn_, real_4 _p_ w_, real_4 _p_ pertrb_, int_4 _p_ ierror_)
 75900  { // ** body not listed **
 76204  }
 76205  
 76206  int_4 _spelip (int_4 _p_ intl_, int_4 _p_ iorder_, real_4 _p_ a_, real_4 _p_ b_, int_4 _p_ m_, int_4 _p_ mbdcnd_, 
 76207  real_4 _p_ bda_, real_4 _p_ alpha_, real_4 _p_ bdb_, real_4 _p_ beta_, real_4 _p_ c_, real_4 _p_ d_, int_4 _p_ n_, 
 76208  int_4 _p_ nbdcnd_, real_4 _p_ bdc_, real_4 _p_ gama_, real_4 _p_ bdd_, real_4 _p_ xnu_, int_4 (*_cofx)(), int_4 
 76209  (*_cofy)(), real_4 _p_ an_, real_4 _p_ bn_, real_4 _p_ cn_, real_4 _p_ dn_, real_4 _p_ un_, real_4 _p_ zn_, real_4 _p_ 
 76210  am_, real_4 _p_ bm_, real_4 _p_ cm_, real_4 _p_ dm_, real_4 _p_ um_, real_4 _p_ zm_, real_4 _p_ grhs_, real_4 _p_ usol_
 76211  , int_4 _p_ idmn_, real_4 _p_ w_, real_4 _p_ pertrb_, int_4 _p_ ierror_)
 76212  { // ** body not listed **
 76513  }
 76514  
 76515  int_4 _spincw (int_4 _p_ mrelas_, int_4 _p_ nvars_, int_4 _p_ lmx_, int_4 _p_ lbm_, int_4 _p_ npp_, int_4 _p_ jstrt_, 
 76516  int_4 _p_ ibasis_, int_4 _p_ imat_, int_4 _p_ ibrc_, int_4 _p_ ipr_, int_4 _p_ iwr_, int_4 _p_ ind_, int_4 _p_ ibb_, 
 76517  real_4 _p_ costsc_, real_4 _p_ gg_, real_4 _p_ erdnrm_, real_4 _p_ dulnrm_, real_4 _p_ amat_, real_4 _p_ basmat_, 
 76518  real_4 _p_ csc_, real_4 _p_ wr_, real_4 _p_ ww_, real_4 _p_ rz_, real_4 _p_ rg_, real_4 _p_ costs_, real_4 _p_ colnrm_, 
 76519  real_4 _p_ duals_, logical_4 _p_ stpedg_)
 76520  { // ** body not listed **
 76652  }
 76653  
 76654  int_4 _spinit (int_4 _p_ mrelas_, int_4 _p_ nvars_, real_4 _p_ costs_, real_4 _p_ bl_, real_4 _p_ bu_, int_4 _p_ ind_, 
 76655  real_4 _p_ primal_, int_4 _p_ info_, real_4 _p_ amat_, real_4 _p_ csc_, real_4 _p_ costsc_, real_4 _p_ colnrm_, real_4 
 76656  _p_ xlamda_, real_4 _p_ anorm_, real_4 _p_ rhs_, real_4 _p_ rhsnrm_, int_4 _p_ ibasis_, int_4 _p_ ibb_, int_4 _p_ imat_
 76657  , logical_4 _p_ lopt_)
 76658  { // ** body not listed **
 76930  }
 76931  
 76932  int_4 _splpce (int_4 _p_ mrelas_, int_4 _p_ nvars_, int_4 _p_ lmx_, int_4 _p_ lbm_, int_4 _p_ itlp_, int_4 _p_ itbrc_, 
 76933  int_4 _p_ ibasis_, int_4 _p_ imat_, int_4 _p_ ibrc_, int_4 _p_ ipr_, int_4 _p_ iwr_, int_4 _p_ ind_, int_4 _p_ ibb_, 
 76934  real_4 _p_ erdnrm_, real_4 _p_ eps_, real_4 _p_ tune_, real_4 _p_ gg_, real_4 _p_ amat_, real_4 _p_ basmat_, real_4 _p_ 
 76935  csc_, real_4 _p_ wr_, real_4 _p_ ww_, real_4 _p_ primal_, real_4 _p_ erd_, real_4 _p_ erp_, logical_4 _p_ singlr_, 
 76936  logical_4 _p_ redbas_)
 76937  { // ** body not listed **
 77129  }
 77130  
 77131  int_4 _splpdm (int_4 _p_ mrelas_, int_4 _p_ nvars_, int_4 _p_ lmx_, int_4 _p_ lbm_, int_4 _p_ nredc_, int_4 _p_ info_, 
 77132  int_4 _p_ iopt_, int_4 _p_ ibasis_, int_4 _p_ imat_, int_4 _p_ ibrc_, int_4 _p_ ipr_, int_4 _p_ iwr_, int_4 _p_ ind_, 
 77133  int_4 _p_ ibb_, real_4 _p_ anorm_, real_4 _p_ eps_, real_4 _p_ uu_, real_4 _p_ gg_, real_4 _p_ amat_, real_4 _p_ 
 77134  basmat_, real_4 _p_ csc_, real_4 _p_ wr_, logical_4 _p_ singlr_, logical_4 _p_ redbas_)
 77135  { // ** body not listed **
 77232  }
 77233  
 77234  int_4 _splp (real_4 (*_usrmat)(), int_4 _p_ mrelas_, int_4 _p_ nvars_, real_4 _p_ costs_, real_4 _p_ prgopt_, real_4 
 77235  _p_ dattrv_, real_4 _p_ bl_, real_4 _p_ bu_, int_4 _p_ ind_, int_4 _p_ info_, real_4 _p_ primal_, real_4 _p_ duals_, 
 77236  int_4 _p_ ibasis_, real_4 _p_ work_, int_4 _p_ lw_, int_4 _p_ iwork_, int_4 _p_ liw_)
 77237  { // ** body not listed **
 77536  }
 77537  
 77538  int_4 _splpfe (int_4 _p_ mrelas_, int_4 _p_ nvars_, int_4 _p_ lmx_, int_4 _p_ lbm_, int_4 _p_ ienter_, int_4 _p_ 
 77539  ibasis_, int_4 _p_ imat_, int_4 _p_ ibrc_, int_4 _p_ ipr_, int_4 _p_ iwr_, int_4 _p_ ind_, int_4 _p_ ibb_, real_4 _p_ 
 77540  erdnrm_, real_4 _p_ eps_, real_4 _p_ gg_, real_4 _p_ dulnrm_, real_4 _p_ dirnrm_, real_4 _p_ amat_, real_4 _p_ basmat_, 
 77541  real_4 _p_ csc_, real_4 _p_ wr_, real_4 _p_ ww_, real_4 _p_ bl_, real_4 _p_ bu_, real_4 _p_ rz_, real_4 _p_ rg_, real_4 
 77542  _p_ colnrm_, real_4 _p_ duals_, logical_4 _p_ found_)
 77543  { // ** body not listed **
 77689  }
 77690  
 77691  int_4 _splpfl (int_4 _p_ mrelas_, int_4 _p_ nvars_, int_4 _p_ ienter_, int_4 _p_ ileave_, int_4 _p_ ibasis_, int_4 _p_ 
 77692  ind_, int_4 _p_ ibb_, real_4 _p_ theta_, real_4 _p_ dirnrm_, real_4 _p_ rprnrm_, real_4 _p_ csc_, real_4 _p_ ww_, 
 77693  real_4 _p_ bl_, real_4 _p_ bu_, real_4 _p_ erp_, real_4 _p_ rprim_, real_4 _p_ primal_, logical_4 _p_ finite_, 
 77694  logical_4 _p_ zerolv_)
 77695  { // ** body not listed **
 77845  }
 77846  
 77847  int_4 _splpmn (real_4 (*_usrmat)(), int_4 _p_ mrelas_, int_4 _p_ nvars_, real_4 _p_ costs_, real_4 _p_ prgopt_, real_4 
 77848  _p_ dattrv_, real_4 _p_ bl_, real_4 _p_ bu_, int_4 _p_ ind_, int_4 _p_ info_, real_4 _p_ primal_, real_4 _p_ duals_, 
 77849  real_4 _p_ amat_, real_4 _p_ csc_, real_4 _p_ colnrm_, real_4 _p_ erd_, real_4 _p_ erp_, real_4 _p_ basmat_, real_4 _p_ 
 77850  wr_, real_4 _p_ rz_, real_4 _p_ rg_, real_4 _p_ rprim_, real_4 _p_ rhs_, real_4 _p_ ww_, int_4 _p_ lmx_, int_4 _p_ lbm_
 77851  , int_4 _p_ ibasis_, int_4 _p_ ibb_, int_4 _p_ imat_, int_4 _p_ ibrc_, int_4 _p_ ipr_, int_4 _p_ iwr_)
 77852  { // ** body not listed **
 79117  }
 79118  
 79119  int_4 _splpmu (int_4 _p_ mrelas_, int_4 _p_ nvars_, int_4 _p_ lmx_, int_4 _p_ lbm_, int_4 _p_ nredc_, int_4 _p_ info_, 
 79120  int_4 _p_ ienter_, int_4 _p_ ileave_, int_4 _p_ iopt_, int_4 _p_ npp_, int_4 _p_ jstrt_, int_4 _p_ ibasis_, int_4 _p_ 
 79121  imat_, int_4 _p_ ibrc_, int_4 _p_ ipr_, int_4 _p_ iwr_, int_4 _p_ ind_, int_4 _p_ ibb_, real_4 _p_ anorm_, real_4 _p_ 
 79122  eps_, real_4 _p_ uu_, real_4 _p_ gg_, real_4 _p_ rprnrm_, real_4 _p_ erdnrm_, real_4 _p_ dulnrm_, real_4 _p_ theta_, 
 79123  real_4 _p_ costsc_, real_4 _p_ xlamda_, real_4 _p_ rhsnrm_, real_4 _p_ amat_, real_4 _p_ basmat_, real_4 _p_ csc_, 
 79124  real_4 _p_ wr_, real_4 _p_ rprim_, real_4 _p_ ww_, real_4 _p_ bu_, real_4 _p_ bl_, real_4 _p_ rhs_, real_4 _p_ erd_, 
 79125  real_4 _p_ erp_, real_4 _p_ rz_, real_4 _p_ rg_, real_4 _p_ colnrm_, real_4 _p_ costs_, real_4 _p_ primal_, real_4 _p_ 
 79126  duals_, logical_4 _p_ singlr_, logical_4 _p_ redbas_, logical_4 _p_ zerolv_, logical_4 _p_ stpedg_)
 79127  { // ** body not listed **
 79585  }
 79586  
 79587  int_4 _splpup (int_4 (*_usrmat)(), int_4 _p_ mrelas_, int_4 _p_ nvars_, real_4 _p_ prgopt_, real_4 _p_ dattrv_, real_4 
 79588  _p_ bl_, real_4 _p_ bu_, int_4 _p_ ind_, int_4 _p_ info_, real_4 _p_ amat_, int_4 _p_ imat_, logical_4 _p_ sizeup_, 
 79589  real_4 _p_ asmall_, real_4 _p_ abig_)
 79590  { // ** body not listed **
 80131  }
 80132  
 80133  int_4 _spofs (real_4 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, real_4 _p_ v_, int_4 _p_ itask_, int_4 _p_ ind_, real_4 _p_ 
 80134  work_)
 80135  { // ** body not listed **
 80327  }
 80328  
 80329  int_4 _spoir (real_4 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, real_4 _p_ v_, int_4 _p_ itask_, int_4 _p_ ind_, real_4 _p_ 
 80330  work_)
 80331  { // ** body not listed **
 80541  }
 80542  
 80543  int_4 _spopt (real_4 _p_ prgopt_, int_4 _p_ mrelas_, int_4 _p_ nvars_, int_4 _p_ info_, real_4 _p_ csc_, int_4 _p_ 
 80544  ibasis_, real_4 _p_ ropt_, int_4 _p_ intopt_, logical_4 _p_ lopt_)
 80545  { // ** body not listed **
 80901  }
 80902  
 80903  int_4 _spperm (real_4 _p_ x_, int_4 _p_ n_, int_4 _p_ iperm_, int_4 _p_ ier_)
 80904  { // ** body not listed **
 80949  }
 80950  
 80951  int_4 _spsort (real_4 _p_ x_, int_4 _p_ n_, int_4 _p_ iperm_, int_4 _p_ kflag_, int_4 _p_ ier_)
 80952  { // ** body not listed **
 81108  }
 81109  
 81110  int_4 _sreadp (int_4 _p_ ipage_, int_4 _p_ list_, real_4 _p_ rlist_, int_4 _p_ lpage_, int_4 _p_ irec_)
 81111  { // ** body not listed **
 81216  }
 81217  
 81218  int_4 _ssiev (real_4 _p_ a_, int_4 _p_ lda_, int_4 _p_ n_, real_4 _p_ e_, real_4 _p_ work_, int_4 _p_ job_, int_4 _p_ 
 81219  info_)
 81220  { // ** body not listed **
 81257  }
 81258  
 81259  int_4 _ssort (real_4 _p_ x_, real_4 _p_ y_, int_4 _p_ n_, int_4 _p_ kflag_)
 81260  { // ** body not listed **
 81501  }
 81502  
 81503  int_4 _stor1 (real_4 _p_ u_, real_4 _p_ yh_, real_4 _p_ v_, real_4 _p_ yp_, int_4 _p_ ntemp_, int_4 _p_ ndisk_, int_4 
 81504  _p_ ntape_)
 81505  { // ** body not listed **
 81550  }
 81551  
 81552  int_4 _stway (real_4 _p_ u_, real_4 _p_ v_, real_4 _p_ yhp_, int_4 _p_ inout_, real_4 _p_ stowa_)
 81553  { // ** body not listed **
 81610  }
 81611  
 81612  int_4 _suds (real_4 _p_ a_, real_4 _p_ x_, real_4 _p_ b_, int_4 _p_ neq_, int_4 _p_ nuk_, int_4 _p_ nrda_, int_4 _p_ 
 81613  iflag_, int_4 _p_ mlso_, real_4 _p_ work_, int_4 _p_ iwork_)
 81614  { // ** body not listed **
 81627  }
 81628  
 81629  int_4 _svecs (int_4 _p_ ncomp_, int_4 _p_ lnfc_, real_4 _p_ yhp_, real_4 _p_ work_, int_4 _p_ iwork_, int_4 _p_ inhomo_
 81630  , int_4 _p_ iflag_)
 81631  { // ** body not listed **
 81661  }
 81662  
 81663  int_4 _swritp (int_4 _p_ ipage_, int_4 _p_ list_, real_4 _p_ rlist_, int_4 _p_ lpage_, int_4 _p_ irec_)
 81664  { // ** body not listed **
 81769  }
 81770  
 81771  int_4 _tevlc (int_4 _p_ n_, real_4 _p_ d_, real_4 _p_ e2_, int_4 _p_ ierr_)
 81772  { // ** body not listed **
 81884  }
 81885  
 81886  int_4 _tevls (int_4 _p_ n_, real_4 _p_ d_, real_4 _p_ e2_, int_4 _p_ ierr_)
 81887  { // ** body not listed **
 81999  }
 82000  
 82001  int_4 _tri3 (int_4 _p_ m_, real_4 _p_ a_, real_4 _p_ b_, real_4 _p_ c_, int_4 _p_ k_, real_4 _p_ y1_, real_4 _p_ y2_, 
 82002  real_4 _p_ y3_, real_4 _p_ tcos_, real_4 _p_ d_, real_4 _p_ w1_, real_4 _p_ w2_, real_4 _p_ w3_)
 82003  { // ** body not listed **
 82113  }
 82114  
 82115  int_4 _tridq (int_4 _p_ mr_, real_4 _p_ a_, real_4 _p_ b_, real_4 _p_ c_, real_4 _p_ y_, real_4 _p_ d_)
 82116  { // ** body not listed **
 82144  }
 82145  
 82146  int_4 _tris4 (int_4 _p_ n_, real_4 _p_ a_, real_4 _p_ b_, real_4 _p_ c_, real_4 _p_ d_, real_4 _p_ u_, real_4 _p_ z_)
 82147  { // ** body not listed **
 82176  }
 82177  
 82178  int_4 _trisp (int_4 _p_ n_, real_4 _p_ a_, real_4 _p_ b_, real_4 _p_ c_, real_4 _p_ d_, real_4 _p_ u_, real_4 _p_ z_)
 82179  { // ** body not listed **
 82208  }
 82209  
 82210  int_4 _trix (int_4 _p_ idegbr_, int_4 _p_ idegcr_, int_4 _p_ m_, real_4 _p_ a_, real_4 _p_ b_, real_4 _p_ c_, real_4 
 82211  _p_ y_, real_4 _p_ tcos_, real_4 _p_ d_, real_4 _p_ w_)
 82212  { // ** body not listed **
 82265  }
 82266  
 82267  int_4 _u11ls (real_4 _p_ a_, int_4 _p_ mda_, int_4 _p_ m_, int_4 _p_ n_, real_4 _p_ ub_, real_4 _p_ db_, int_4 _p_ 
 82268  mode_, int_4 _p_ np_, int_4 _p_ krank_, int_4 _p_ ksure_, real_4 _p_ h_, real_4 _p_ w_, real_4 _p_ eb_, int_4 _p_ ic_, 
 82269  int_4 _p_ ir_)
 82270  { // ** body not listed **
 82552  }
 82553  
 82554  int_4 _u11us (real_4 _p_ a_, int_4 _p_ mda_, int_4 _p_ m_, int_4 _p_ n_, real_4 _p_ ub_, real_4 _p_ db_, int_4 _p_ 
 82555  mode_, int_4 _p_ np_, int_4 _p_ krank_, int_4 _p_ ksure_, real_4 _p_ h_, real_4 _p_ w_, real_4 _p_ eb_, int_4 _p_ ir_, 
 82556  int_4 _p_ ic_)
 82557  { // ** body not listed **
 82839  }
 82840  
 82841  int_4 _u12ls (real_4 _p_ a_, int_4 _p_ mda_, int_4 _p_ m_, int_4 _p_ n_, real_4 _p_ b_, int_4 _p_ mdb_, int_4 _p_ nb_, 
 82842  int_4 _p_ mode_, int_4 _p_ krank_, real_4 _p_ rnorm_, real_4 _p_ h_, real_4 _p_ w_, int_4 _p_ ic_, int_4 _p_ ir_)
 82843  { // ** body not listed **
 82984  }
 82985  
 82986  int_4 _u12us (real_4 _p_ a_, int_4 _p_ mda_, int_4 _p_ m_, int_4 _p_ n_, real_4 _p_ b_, int_4 _p_ mdb_, int_4 _p_ nb_, 
 82987  int_4 _p_ mode_, int_4 _p_ krank_, real_4 _p_ rnorm_, real_4 _p_ h_, real_4 _p_ w_, int_4 _p_ ir_, int_4 _p_ ic_)
 82988  { // ** body not listed **
 83128  }
 83129  
 83130  int_4 _ulsia (real_4 _p_ a_, int_4 _p_ mda_, int_4 _p_ m_, int_4 _p_ n_, real_4 _p_ b_, int_4 _p_ mdb_, int_4 _p_ nb_, 
 83131  real_4 _p_ re_, real_4 _p_ ae_, int_4 _p_ key_, int_4 _p_ mode_, int_4 _p_ np_, int_4 _p_ krank_, int_4 _p_ ksure_, 
 83132  real_4 _p_ rnorm_, real_4 _p_ w_, int_4 _p_ lw_, int_4 _p_ iwork_, int_4 _p_ liw_, int_4 _p_ info_)
 83133  { // ** body not listed **
 83382  }
 83383  
 83384  int_4 _usrmat (int_4 _p_ i_, int_4 _p_ j_, real_4 _p_ aij_, int_4 _p_ indcat_, real_4 _p_ prgopt_, real_4 _p_ dattrv_, 
 83385  int_4 _p_ iflag_)
 83386  { // ** body not listed **
 83424  }
 83425  
 83426  real_4 _vnwrms (int_4 _p_ n_, real_4 _p_ v_, real_4 _p_ w_)
 83427  { // ** body not listed **
 83439  }
 83440  
 83441  int_4 _wnlit (real_4 _p_ w_, int_4 _p_ mdw_, int_4 _p_ m_, int_4 _p_ n_, int_4 _p_ l_, int_4 _p_ ipivot_, int_4 _p_ 
 83442  itype_, real_4 _p_ h_, real_4 _p_ scale_, real_4 _p_ rnorm_, int_4 _p_ idope_, real_4 _p_ dope_, logical_4 _p_ done_)
 83443  { // ** body not listed **
 83608  }
 83609  
 83610  int_4 _wnlsm (real_4 _p_ w_, int_4 _p_ mdw_, int_4 _p_ mme_, int_4 _p_ ma_, int_4 _p_ n_, int_4 _p_ l_, real_4 _p_ 
 83611  prgopt_, real_4 _p_ x_, real_4 _p_ rnorm_, int_4 _p_ mode_, int_4 _p_ ipivot_, int_4 _p_ itype_, real_4 _p_ wd_, real_4 
 83612  _p_ h_, real_4 _p_ scale_, real_4 _p_ z_, real_4 _p_ temp_, real_4 _p_ d_)
 83613  { // ** body not listed **
 84040  }
 84041  
 84042  int_4 _wnlt1 (int_4 _p_ i_, int_4 _p_ lend_, int_4 _p_ mend_, int_4 _p_ ir_, int_4 _p_ mdw_, logical_4 _p_ recalc_, 
 84043  int_4 _p_ imax_, real_4 _p_ hbar_, real_4 _p_ h_, real_4 _p_ scale_, real_4 _p_ w_)
 84044  { // ** body not listed **
 84069  }
 84070  
 84071  logical_4 _wnlt2 (int_4 _p_ me_, int_4 _p_ mend_, int_4 _p_ ir_, real_4 _p_ factor_, real_4 _p_ tau_, real_4 _p_ scale_
 84072  , real_4 _p_ wic_)
 84073  { // ** body not listed **
 84095  }
 84096  
 84097  int_4 _wnlt3 (int_4 _p_ i_, int_4 _p_ imax_, int_4 _p_ m_, int_4 _p_ mdw_, int_4 _p_ ipivot_, real_4 _p_ h_, real_4 _p_ 
 84098  w_)
 84099  { // ** body not listed **
 84114  }
 84115  
 84116  int_4 _wnnls (real_4 _p_ w_, int_4 _p_ mdw_, int_4 _p_ me_, int_4 _p_ ma_, int_4 _p_ n_, int_4 _p_ l_, real_4 _p_ 
 84117  prgopt_, real_4 _p_ x_, real_4 _p_ rnorm_, int_4 _p_ mode_, int_4 _p_ iwork_, real_4 _p_ work_)
 84118  { // ** body not listed **
 84240  }
 84241  
 84242  int_4 _xadj (real_4 _p_ x_, int_4 _p_ ix_, int_4 _p_ ierror_)
 84243  { // ** body not listed **
 84297  }
 84298  
 84299  int_4 _xc210 (int_4 _p_ k_, real_4 _p_ z_, int_4 _p_ j_, int_4 _p_ ierror_)
 84300  { // ** body not listed **
 84364  }
 84365  
 84366  real_4 _xpsi (real_4 _p_ a_, int_4 _p_ ipsik_, int_4 _p_ ipsix_)
 84367  { // ** body not listed **
 84524  }
 84525  
 84526  int_4 _xred (real_4 _p_ x_, int_4 _p_ ix_, int_4 _p_ ierror_)
 84527  { // ** body not listed **
 84598  }
 84599  
 84600  int_4 _yairy (real_4 _p_ x_, real_4 _p_ rx_, real_4 _p_ c_, real_4 _p_ bi_, real_4 _p_ dbi_)
 84601  { // ** body not listed **
 86438  }
 86439  


© 2002-2025 J.M. van der Veer (jmvdveer@xs4all.nl)