function [gfrac, gexp, gslope, lexp, xresid, yresid]=get_srf_params(module);

% function [gfrac, gexp, gslope, lexp, xresid, yresid]=get_srf_params(module);
%
% Assign the G-L SRF model parameters and look-up table residual
%
% Input:
%    module = string, name of module (no m)
%
% Output:
%    gfrac  = (1 x 1) Gauss fraction
%    gexp   = (1 x 1) Gauss exponent
%    gslope = (1 x 1) Gauss exponent slope (usually 0)
%    lexp   = (1 x 1) Lorentz exponent
%    xresid = (1 x npts) x-axis points for residual (in fwhm)
%    yresid = (1 x npts) residual to add to G-L model SRF
%
%

% Created 26 May 2000 by Scott Hannon
% Last update: 23 June 2000 by S.Hannon - smooth where resid joins shoulder
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

gslope=0; % same for all modules unless specified otherwise

switch module
  case '12'
     gfrac=9.7191054e-01;
     gexp =2.6034438e+00;
     lexp =1.8118734e+00;
xresid=[-1.4560660e+00  -1.3347272e+00  -1.2133883e+00  -1.0920495e+00  -9.7071066e-01  -8.4937182e-01  -7.2803299e-01  -6.0669416e-01  -4.8535533e-01  -3.6401650e-01  -2.4267766e-01  -1.2133883e-01   0.0000000e+00   1.2133883e-01   2.4267766e-01   3.6401650e-01   4.8535533e-01   6.0669416e-01   7.2803299e-01   8.4937182e-01   9.7071066e-01   1.0920495e+00   1.2133883e+00   1.3347272e+00   1.4560660e+00];
yresid=[0.0000000e+00   1.0218855e-03   4.3979964e-03   9.6783431e-03   1.4006774e-02   1.3707896e-02   1.1566307e-02   9.0352681e-03   6.3023550e-03   4.6198636e-03   3.1781173e-03   4.2661180e-04   1.1866108e-05  -1.2668055e-03   4.3249278e-04   2.8225747e-03   5.8065158e-03   8.4221415e-03   7.5010680e-03   3.9742980e-03  -8.3558679e-04  -3.3587583e-03  -1.2e-03  -2.e-04   0.0000000e+00];

   case '11'
      gfrac=9.7633320e-01;
      gexp =2.7079004e+00;
      lexp =1.8126007e+00;
xresid=[-1.2673941e+00  -1.1617779e+00  -1.0561617e+00  -9.5054557e-01  -8.4492940e-01  -7.3931322e-01  -6.3369705e-01  -5.2808087e-01  -4.2246470e-01  -3.1684852e-01  -2.1123235e-01  -1.0561617e-01   0.0000000e+00   1.0561617e-01   2.1123235e-01   3.1684852e-01   4.2246470e-01   5.2808087e-01   6.3369705e-01   7.3931322e-01   8.4492940e-01   9.5054557e-01   1.0561617e+00   1.1617779e+00   1.2673941e+00];
yresid=[0.0000000e+00   3.1020429e-04   4.7386003e-04   5.3113390e-05  -3.6876288e-04  -7.6183726e-05   7.0603594e-04   6.3094228e-04   5.6914329e-04   7.7247711e-04   2.5174838e-04   8.0297493e-06   8.8834442e-06   4.8894546e-04   1.8217207e-03   1.9862432e-03   9.0021764e-04  -1.0111813e-04  -2.5874384e-03  -5.1884900e-03  -6.3191906e-03  -4.5572468e-03  -2.0390770e-03  -3.1954849e-04   0.0000000e+00];

   case '10'
      gfrac=9.8200000e-01;
      gexp =2.7000000e+00;
      lexp =1.8000000e+00;
xresid=[-1.2736387e+00  -1.1826645e+00  -1.0916903e+00  -1.0007162e+00  -9.0974196e-01  -8.1876776e-01  -7.2779356e-01  -6.3681937e-01  -5.4584517e-01  -4.5487098e-01  -3.6389678e-01  -2.7292259e-01  -1.8194839e-01  -9.0974196e-02   0.0000000e+00   9.0974196e-02   1.8194839e-01   2.7292259e-01   3.6389678e-01   4.5487098e-01   5.4584517e-01   6.3681937e-01   7.2779356e-01   8.1876776e-01   9.0974196e-01   1.0007162e+00   1.0916903e+00   1.1826645e+00   1.2736387e+00];
yresid=[0.0000000e+00   2.9197621e-04   4.9292470e-04  -7.5688373e-04  -3.1839114e-03  -5.4112739e-03  -5.1187029e-03  -4.2033908e-03  -3.1422875e-03  -1.4255069e-03   1.2628409e-03   3.0630483e-03   2.9050919e-03   7.6929004e-04   3.2063155e-06   1.1399472e-03   2.3845130e-03   1.5618776e-03  -4.9696618e-04  -2.1265198e-03  -2.2632406e-03  -1.7699664e-03  -1.8717644e-03  -1.5356228e-03   1.6047314e-04   1.7207069e-03   1.9047757e-03   6.1932918e-04   0.0000000e+00];

   case '9'
      gfrac=9.8500000e-01;
      gexp =2.7500000e+00;
      lexp =1.8000000e+00;
xresid=[-1.2253628e+00  -1.1487776e+00  -1.0721924e+00  -9.9560726e-01  -9.1902209e-01  -8.4243691e-01  -7.6585174e-01  -6.8926657e-01  -6.1268139e-01  -5.3609622e-01  -4.5951104e-01  -3.8292587e-01  -3.0634070e-01  -2.2975552e-01  -1.5317035e-01  -7.6585174e-02   0.0000000e+00   7.6585174e-02   1.5317035e-01   2.2975552e-01   3.0634070e-01   3.8292587e-01   4.5951104e-01   5.3609622e-01   6.1268139e-01   6.8926657e-01   7.6585174e-01   8.4243691e-01   9.1902209e-01   9.9560726e-01   1.0721924e+00   1.1487776e+00   1.2253628e+00];
yresid=[0.0000000e+00   6.4496399e-04   7.8847280e-04  -2.2297510e-04  -1.9745813e-03  -3.0701835e-03  -1.9977131e-03   7.6468054e-05   1.3174910e-03   5.1574136e-04  -2.0379305e-03  -4.2380591e-03  -5.1442558e-03  -5.0634621e-03  -3.9360919e-03  -1.5678950e-03   2.6600912e-05   1.3148393e-04  -3.5308313e-04  -1.6822643e-03  -3.3106514e-03  -3.7409039e-03  -1.8956910e-03   5.6250529e-04   1.9271852e-03   1.7073551e-03   8.5473390e-04   9.5600332e-04   2.2751208e-03   3.4951046e-03   3.2326309e-03   1.6879354e-03   0.0000000e+00];

   case '8'
      gfrac=9.7500000e-01;
      gexp =2.8000000e+00;
      lexp =1.8000000e+00;
xresid=[-1.3038409e+00  -1.2169181e+00  -1.1299954e+00  -1.0430727e+00  -9.5614996e-01  -8.6922724e-01  -7.8230452e-01  -6.9538179e-01  -6.0845907e-01  -5.2153634e-01  -4.3461362e-01  -3.4769090e-01  -2.6076817e-01  -1.7384545e-01  -8.6922724e-02   0.0000000e+00   8.6922724e-02   1.7384545e-01   2.6076817e-01   3.4769090e-01   4.3461362e-01   5.2153634e-01   6.0845907e-01   6.9538179e-01   7.8230452e-01   8.6922724e-01   9.5614996e-01   1.0430727e+00   1.1299954e+00   1.2169181e+00   1.3038409e+00];
yresid=[0.0000000e+00   9.0e-04   4.0e-03   7.1353680e-03   5.7831592e-03   2.5732938e-03   4.8072879e-04   5.8853962e-04   9.0448366e-04  -8.7442985e-04  -4.5003618e-03  -7.3559863e-03  -8.2163164e-03  -6.7138484e-03  -3.1705890e-03   1.1904768e-04   1.5703895e-03   2.1601059e-03   1.0834413e-03  -2.4581495e-04  -9.5690377e-04  -1.9588742e-03  -4.5990824e-03  -8.3384180e-03  -1.1488041e-02  -1.0056604e-02  -4.5273525e-03   2.8549457e-04   1.5e-03   5e-04   0.0000000e+00];

   case '7'
      gfrac=9.8900000e-01;
      gexp =2.8500000e+00;
      lexp =1.4400000e+00;
xresid=[-1.2992067e+00  -1.2227827e+00  -1.1463588e+00  -1.0699349e+00  -9.9351097e-01  -9.1708705e-01  -8.4066313e-01  -7.6423921e-01  -6.8781529e-01  -6.1139137e-01  -5.3496744e-01  -4.5854352e-01  -3.8211960e-01  -3.0569568e-01  -2.2927176e-01  -1.5284784e-01  -7.6423921e-02   0.0000000e+00   7.6423921e-02   1.5284784e-01   2.2927176e-01   3.0569568e-01   3.8211960e-01   4.5854352e-01   5.3496744e-01   6.1139137e-01   6.8781529e-01   7.6423921e-01   8.4066313e-01   9.1708705e-01   9.9351097e-01   1.0699349e+00   1.1463588e+00   1.2227827e+00   1.2992067e+00];
yresid=[0.0000000e+00   5.0e-04   1.5e-03   2.4767572e-03   1.6418641e-03  -6.2291850e-04  -2.4306038e-03  -1.4150601e-03   1.3468209e-03   2.9940562e-03   1.5735782e-03  -2.9450384e-03  -8.5382296e-03  -1.2336541e-02  -1.2286786e-02  -8.6880532e-03  -3.7768987e-03   2.1933968e-04   2.0438639e-03   1.2213200e-03  -7.1019640e-04  -1.8611182e-03  -1.5563677e-03  -7.6722139e-04  -1.0214781e-03  -3.4211135e-03  -7.4749186e-03  -1.1100917e-02  -1.1550081e-02  -7.2449629e-03  -2.5762758e-03   2.2511800e-04   7.4705779e-04   3.0e-04   0.0000000e+00];

   case '6'
      gfrac=9.9500000e-01;
      gexp =3.0000000e+00;
      lexp =1.3000000e+00;
xresid=[-1.3071099e+00  -1.2417544e+00  -1.1763989e+00  -1.1110434e+00  -1.0456879e+00  -9.8033239e-01  -9.1497690e-01  -8.4962140e-01  -7.8426591e-01  -7.1891042e-01  -6.5355493e-01  -5.8819943e-01  -5.2284394e-01  -4.5748845e-01  -3.9213296e-01  -3.2677746e-01  -2.6142197e-01  -1.9606648e-01  -1.3071099e-01  -6.5355493e-02   0.0000000e+00   6.5355493e-02   1.3071099e-01   1.9606648e-01   2.6142197e-01   3.2677746e-01   3.9213296e-01   4.5748845e-01   5.2284394e-01   5.8819943e-01   6.5355493e-01   7.1891042e-01   7.8426591e-01   8.4962140e-01   9.1497690e-01   9.8033239e-01   1.0456879e+00   1.1110434e+00   1.1763989e+00   1.2417544e+00   1.3071099e+00];
yresid=[0.0000000e+00   3.0e-04   1.1417844e-03   2.2565756e-03   1.7362684e-03  -1.1583523e-03  -4.9663194e-03  -6.7325553e-03  -3.8279578e-03   1.1405397e-03   4.6343877e-03   4.6398383e-03   1.5899662e-03  -2.1357365e-03  -4.0051798e-03  -3.3283594e-03  -1.3242703e-03   3.7346783e-04   6.2474651e-04   1.3415956e-04   2.8654424e-06   4.6356612e-04   1.1062510e-03   5.8945078e-04  -1.3849670e-03  -3.4345271e-03  -3.9677364e-03  -2.0829686e-03   1.1623604e-03   3.0359627e-03   1.3769555e-03  -3.4122424e-03  -8.6192185e-03  -1.0573076e-02  -7.0776020e-03  -2.0956803e-03   1.2856356e-03   1.9267772e-03   9.2754860e-04   2.0e-04   0.0000000e+00];

   case '5'
      gfrac=9.9300000e-01;
      gexp =2.8500000e+00;
      lexp =1.4000000e+00;
xresid=[-1.2909232e+00  -1.2347961e+00  -1.1786690e+00  -1.1225419e+00  -1.0664148e+00  -1.0102877e+00  -9.5416061e-01  -8.9803351e-01  -8.4190642e-01  -7.8577932e-01  -7.2965223e-01  -6.7352514e-01  -6.1739804e-01  -5.6127095e-01  -5.0514385e-01  -4.4901676e-01  -3.9288966e-01  -3.3676257e-01  -2.8063547e-01  -2.2450838e-01  -1.6838128e-01  -1.1225419e-01  -5.6127095e-02   0.0000000e+00   5.6127095e-02   1.1225419e-01   1.6838128e-01   2.2450838e-01   2.8063547e-01   3.3676257e-01   3.9288966e-01   4.4901676e-01   5.0514385e-01   5.6127095e-01   6.1739804e-01   6.7352514e-01   7.2965223e-01   7.8577932e-01   8.4190642e-01   8.9803351e-01   9.5416061e-01   1.0102877e+00   1.0664148e+00   1.1225419e+00   1.1786690e+00   1.2347961e+00   1.2909232e+00];
yresid=[0.0000000e+00   3.0850036e-05   1.4663847e-04   4.6340586e-04   8.2721030e-04   5.7233270e-04  -1.1038352e-03  -4.2711535e-03  -7.7037031e-03  -8.1887853e-03  -5.8323378e-03  -1.8889465e-03   1.4048133e-03   2.1109189e-03   2.9612331e-04  -2.4190942e-03  -4.1246020e-03  -3.9017267e-03  -1.8224382e-03   8.5061150e-04   2.5786920e-03   2.4253846e-03   8.4206739e-04   4.0530980e-06   8.7611404e-04   2.0404138e-03   2.0334423e-03   3.4895709e-04  -2.1903727e-03  -4.0580216e-03  -4.1890451e-03  -2.3134713e-03   5.1718180e-04   2.2697831e-03   1.2311173e-03  -2.5550402e-03  -7.1870132e-03  -1.0242858e-02  -1.0359757e-02  -6.9289222e-03  -3.4192290e-03  -1.2501655e-03  -4.5422479e-04  -3.1755128e-04  -2.2517767e-04  -5.8427349e-05   0.0000000e+00];

   case '4d'
      gfrac=9.8876854e-01;
      gexp =2.8267751e+00;
      lexp =1.4299060e+00;
xresid=[-1.3393670e+00  -1.2857923e+00  -1.2322176e+00  -1.1786430e+00  -1.1250683e+00  -1.0714936e+00  -1.0179189e+00  -9.6434424e-01  -9.1076956e-01  -8.5719488e-01  -8.0362020e-01  -7.5004552e-01  -6.9647084e-01  -6.4289616e-01  -5.8932148e-01  -5.3574680e-01  -4.8217212e-01  -4.2859744e-01  -3.7502276e-01  -3.2144808e-01  -2.6787340e-01  -2.1429872e-01  -1.6072404e-01  -1.0714936e-01  -5.3574680e-02   0.0000000e+00   5.3574680e-02   1.0714936e-01   1.6072404e-01   2.1429872e-01   2.6787340e-01   3.2144808e-01   3.7502276e-01   4.2859744e-01   4.8217212e-01   5.3574680e-01   5.8932148e-01   6.4289616e-01   6.9647084e-01   7.5004552e-01   8.0362020e-01   8.5719488e-01   9.1076956e-01   9.6434424e-01   1.0179189e+00   1.0714936e+00   1.1250683e+00   1.1786430e+00   1.2322176e+00   1.2857923e+00   1.3393670e+00];
yresid=[0.0000000e+00   2.0e-05   1.0e-04   2.3432986e-04   4.3547568e-04   5.5273106e-04  -2.2463318e-04  -3.0287935e-03  -8.3578891e-03  -1.4925035e-02  -1.7635367e-02  -1.6007725e-02  -1.0436751e-02  -3.5752425e-03   1.1353455e-03   1.7203383e-03  -1.1782276e-03  -4.8495717e-03  -6.2996044e-03  -4.2546484e-03   8.9602260e-05   3.9698012e-03   5.0817434e-03   3.2998944e-03   7.0871550e-04   7.7091653e-05   2.5716659e-03   6.6710824e-03   9.3922804e-03   8.4111231e-03   3.8750853e-03  -1.7163893e-03  -5.0980464e-03  -4.5928172e-03  -1.2113705e-03   2.0956927e-03   2.3362869e-03  -1.4298260e-03  -7.4033466e-03  -1.2320729e-02  -1.3402045e-02  -1.0142955e-02  -3.8192866e-03   9.3407829e-04   2.8785918e-03   2.6487113e-03   1.6218522e-03   7.8184330e-04   3.1873939e-04   5.0e-05   0.0000000e+00];

   case '4c'
      gfrac=9.8616166e-01;
      gexp =2.9445979e+00;
      lexp =1.5854653e+00;
xresid=[-1.3035921e+00  -1.2553109e+00  -1.2070297e+00  -1.1587485e+00  -1.1104673e+00  -1.0621861e+00  -1.0139049e+00  -9.6562375e-01  -9.1734256e-01  -8.6906138e-01  -8.2078019e-01  -7.7249900e-01  -7.2421781e-01  -6.7593663e-01  -6.2765544e-01  -5.7937425e-01  -5.3109306e-01  -4.8281188e-01  -4.3453069e-01  -3.8624950e-01  -3.3796831e-01  -2.8968713e-01  -2.4140594e-01  -1.9312475e-01  -1.4484356e-01  -9.6562375e-02  -4.8281188e-02   0.0000000e+00   4.8281188e-02   9.6562375e-02   1.4484356e-01   1.9312475e-01   2.4140594e-01   2.8968713e-01   3.3796831e-01   3.8624950e-01   4.3453069e-01   4.8281188e-01   5.3109306e-01   5.7937425e-01   6.2765544e-01   6.7593663e-01   7.2421781e-01   7.7249900e-01   8.2078019e-01   8.6906138e-01   9.1734256e-01   9.6562375e-01   1.0139049e+00   1.0621861e+00   1.1104673e+00   1.1587485e+00   1.2070297e+00   1.2553109e+00   1.3035921e+00];
yresid=[0.0000000e+00   9.0122684e-05   1.2934665e-04   1.6386205e-04   3.4928667e-04   5.9971234e-04   3.2591077e-04  -1.3861846e-03  -4.9468848e-03  -9.4861776e-03  -1.1556249e-02  -9.8453306e-03  -4.4810484e-03   2.4265134e-03   7.6887683e-03   8.5939473e-03   4.4642969e-03  -2.9206315e-03  -1.0095711e-02  -1.3785260e-02  -1.2421078e-02  -7.0747128e-03  -6.7079052e-04   3.8161473e-03   4.8662100e-03   3.1396741e-03   7.5607788e-04   2.1800408e-05   1.6402313e-03   4.5237062e-03   6.1882516e-03   4.6191320e-03  -7.2080313e-04  -8.0377910e-03  -1.3911688e-02  -1.5310875e-02  -1.1148236e-02  -3.1876759e-03   4.9364670e-03   9.4966650e-03   8.6753502e-03   3.3636616e-03  -3.3877899e-03  -8.1844615e-03  -9.0809153e-03  -6.2884163e-03  -1.6872643e-03   1.4675401e-03   2.5297122e-03   2.1443059e-03   1.3754892e-03   8.2217225e-04   5.1470168e-04   2.4867633e-04   0.0000000e+00];

   case '3'
      gfrac=9.8800000e-01;
      gexp =2.6500000e+00;
      lexp =1.6200000e+00;
xresid=[-1.3454642e+00  -1.2937155e+00  -1.2419669e+00  -1.1902183e+00  -1.1384697e+00  -1.0867211e+00  -1.0349724e+00  -9.8322382e-01  -9.3147520e-01  -8.7972657e-01  -8.2797795e-01  -7.7622933e-01  -7.2448071e-01  -6.7273209e-01  -6.2098346e-01  -5.6923484e-01  -5.1748622e-01  -4.6573760e-01  -4.1398898e-01  -3.6224035e-01  -3.1049173e-01  -2.5874311e-01  -2.0699449e-01  -1.5524587e-01  -1.0349724e-01  -5.1748622e-02   0.0000000e+00   5.1748622e-02   1.0349724e-01   1.5524587e-01   2.0699449e-01   2.5874311e-01   3.1049173e-01   3.6224035e-01   4.1398898e-01   4.6573760e-01   5.1748622e-01   5.6923484e-01   6.2098346e-01   6.7273209e-01   7.2448071e-01   7.7622933e-01   8.2797795e-01   8.7972657e-01   9.3147520e-01   9.8322382e-01   1.0349724e+00   1.0867211e+00   1.1384697e+00   1.1902183e+00   1.2419669e+00   1.2937155e+00   1.3454642e+00];
yresid=[0.0000000e+00   1.1028825e-04   5.2654568e-04   1.0003345e-03   1.5034208e-03   1.7959525e-03   1.3294621e-03  -5.4787138e-04  -4.0864919e-03  -8.5957059e-03  -1.1267501e-02  -1.1164080e-02  -8.4065551e-03  -4.1888178e-03  -4.7111777e-04   1.0704435e-03  -7.5361134e-05  -3.1048419e-03  -6.4872477e-03  -8.7992013e-03  -9.5722578e-03  -9.0325729e-03  -7.6509516e-03  -6.0924468e-03  -4.4807623e-03  -2.3810230e-03   3.7625971e-04   3.3561303e-03   5.5461398e-03   5.9460710e-03   4.0940675e-03   7.3995248e-04  -2.3678294e-03  -3.8984505e-03  -3.5481139e-03  -1.9757059e-03  -5.9204490e-04  -6.9069581e-04  -2.5789343e-03  -5.4168364e-03  -7.7130402e-03  -8.1017028e-03  -6.1808027e-03  -2.6647791e-03   8.6963516e-04   2.8157832e-03   3.1655380e-03   2.5461562e-03   1.6666274e-03   9.3307444e-04   4.2501743e-04   7.7972812e-05   0.0000000e+00];

   case '4b'
      gfrac=9.8497483e-01;
      gexp =2.7150846e+00;
      lexp =1.7313517e+00;
xresid=[-1.3375431e+00  -1.2929583e+00  -1.2483735e+00  -1.2037888e+00  -1.1592040e+00  -1.1146192e+00  -1.0700345e+00  -1.0254497e+00  -9.8086492e-01  -9.3628015e-01  -8.9169538e-01  -8.4711061e-01  -8.0252584e-01  -7.5794107e-01  -7.1335630e-01  -6.6877153e-01  -6.2418676e-01  -5.7960200e-01  -5.3501723e-01  -4.9043246e-01  -4.4584769e-01  -4.0126292e-01  -3.5667815e-01  -3.1209338e-01  -2.6750861e-01  -2.2292384e-01  -1.7833908e-01  -1.3375431e-01  -8.9169538e-02  -4.4584769e-02   0.0000000e+00   4.4584769e-02   8.9169538e-02   1.3375431e-01   1.7833908e-01   2.2292384e-01   2.6750861e-01   3.1209338e-01   3.5667815e-01   4.0126292e-01   4.4584769e-01   4.9043246e-01   5.3501723e-01   5.7960200e-01   6.2418676e-01   6.6877153e-01   7.1335630e-01   7.5794107e-01   8.0252584e-01   8.4711061e-01   8.9169538e-01   9.3628015e-01   9.8086492e-01   1.0254497e+00   1.0700345e+00   1.1146192e+00   1.1592040e+00   1.2037888e+00   1.2483735e+00   1.2929583e+00   1.3375431e+00];
yresid=[0.0000000e+00   2.7062055e-05   1.1993205e-04   1.9201200e-04   1.2940400e-04  -1.3736178e-04  -6.7315014e-04  -1.6807082e-03  -3.5615250e-03  -6.7083438e-03  -1.1052664e-02  -1.4543246e-02  -1.6030314e-02  -1.4813053e-02  -1.1007809e-02  -5.8604874e-03  -1.2781571e-03   1.1375972e-03   8.3793558e-04  -1.5193772e-03  -4.6070746e-03  -7.1584685e-03  -8.5393482e-03  -8.9588643e-03  -8.8417601e-03  -8.5992223e-03  -8.2575619e-03  -7.4927278e-03  -6.0913920e-03  -3.7391357e-03  -5.7537455e-04   2.8676702e-03   5.8887342e-03   7.7200777e-03   7.8070669e-03   6.0199810e-03   2.9529034e-03  -4.6359233e-04  -2.9798767e-03  -3.7614985e-03  -2.9219318e-03  -1.2391282e-03  -1.5815795e-04  -8.8347813e-04  -3.6554845e-03  -7.5285066e-03  -1.0872550e-02  -1.2108248e-02  -1.0627595e-02  -7.0686407e-03  -2.7090299e-03   8.1021572e-04   2.5244409e-03   2.8568583e-03   2.5011770e-03   1.9525621e-03   1.4024201e-03   8.8809599e-04   4.3957995e-04   1.2114951e-04   0.0000000e+00];

   case '4a'
      gfrac=9.8634438e-01;
      gexp =2.8184267e+00;
      lexp =1.7217690e+00;
xresid=[-1.3608790e+00  -1.3208531e+00  -1.2808273e+00  -1.2408014e+00  -1.2007756e+00  -1.1607497e+00  -1.1207239e+00  -1.0806980e+00  -1.0406722e+00  -1.0006463e+00  -9.6062046e-01  -9.2059461e-01  -8.8056876e-01  -8.4054290e-01  -8.0051705e-01  -7.6049120e-01  -7.2046535e-01  -6.8043949e-01  -6.4041364e-01  -6.0038779e-01  -5.6036194e-01  -5.2033608e-01  -4.8031023e-01  -4.4028438e-01  -4.0025853e-01  -3.6023267e-01  -3.2020682e-01  -2.8018097e-01  -2.4015512e-01  -2.0012926e-01  -1.6010341e-01  -1.2007756e-01  -8.0051705e-02  -4.0025853e-02   0.0000000e+00   4.0025853e-02   8.0051705e-02   1.2007756e-01   1.6010341e-01   2.0012926e-01   2.4015512e-01   2.8018097e-01   3.2020682e-01   3.6023267e-01   4.0025853e-01   4.4028438e-01   4.8031023e-01   5.2033608e-01   5.6036194e-01   6.0038779e-01   6.4041364e-01   6.8043949e-01   7.2046535e-01   7.6049120e-01   8.0051705e-01   8.4054290e-01   8.8056876e-01   9.2059461e-01   9.6062046e-01   1.0006463e+00   1.0406722e+00   1.0806980e+00   1.1207239e+00   1.1607497e+00   1.2007756e+00   1.2408014e+00   1.2808273e+00   1.3208531e+00   1.3608790e+00];
yresid=[0.0000000e+00  -2.8180272e-06   8.6476200e-06   5.1858935e-05   1.1826158e-04   1.5862496e-04   1.0125375e-04  -1.4528776e-04  -7.1104343e-04  -1.7895518e-03  -3.6029594e-03  -6.2497843e-03  -9.2066816e-03  -1.0938637e-02  -1.0951413e-02  -8.6343510e-03  -4.1376684e-03   1.3971201e-03   6.1310009e-03   8.3164239e-03   7.0105191e-03   2.5633527e-03  -3.4742695e-03  -9.1088240e-03  -1.2746333e-02  -1.3817934e-02  -1.2911544e-02  -1.1097298e-02  -9.3950620e-03  -8.0856462e-03  -7.1117842e-03  -5.9143536e-03  -4.2400372e-03  -2.1699063e-03   2.5450694e-05   2.0236888e-03   3.5600496e-03   4.3179032e-03   3.9220666e-03   1.9518645e-03  -1.6067249e-03  -6.1851687e-03  -1.0391187e-02  -1.2773907e-02  -1.2128664e-02  -8.4887961e-03  -3.1219081e-03   1.9212876e-03   4.7375951e-03   4.3942403e-03   1.2831821e-03  -3.1006035e-03  -6.9444061e-03  -8.9286144e-03  -8.6171333e-03  -6.5289120e-03  -3.6720528e-03  -8.8537538e-04   9.4995467e-04   1.8530474e-03   2.1098206e-03   1.9799019e-03   1.6289130e-03   1.1766904e-03   7.4039852e-04   4.0114795e-04   1.7941027e-04   3.9730646e-05   0.0000000e+00];

   case '2b'
      gfrac=9.8099116e-01;
      gexp =3.1119886e+00;
      lexp =1.7236562e+00;
xresid=[-1.5015620e+00  -1.4077144e+00  -1.3138667e+00  -1.2200191e+00  -1.1261715e+00  -1.0323239e+00  -9.3847624e-01  -8.4462862e-01  -7.5078099e-01  -6.5693337e-01  -5.6308574e-01  -4.6923812e-01  -3.7539050e-01  -2.8154287e-01  -1.8769525e-01  -9.3847624e-02   0.0000000e+00   9.3847624e-02   1.8769525e-01   2.8154287e-01   3.7539050e-01   4.6923812e-01   5.6308574e-01   6.5693337e-01   7.5078099e-01   8.4462862e-01   9.3847624e-01   1.0323239e+00   1.1261715e+00   1.2200191e+00   1.3138667e+00   1.4077144e+00   1.5015620e+00];
yresid=[0.0000000e+00  -6.1301942e-06   3.4508621e-05   2.6483726e-04   5.3363772e-04   2.8809520e-04  -2.4269222e-03  -7.2250418e-03  -2.7414937e-03   1.2686335e-02   1.2351393e-02  -5.7651838e-03  -1.3241905e-02  -3.1932490e-03   1.3304718e-03  -1.3450869e-03   7.6130669e-04   6.3526299e-03   1.3451105e-02   3.9429487e-03  -1.2531275e-02  -5.6620610e-03   1.0805211e-02   7.6015184e-03  -5.2250513e-03  -3.7491234e-03   1.9207185e-03   2.1490551e-03   1.1209671e-03   4.5894491e-04   1.6637226e-04   3.0301732e-05   0.0000000e+00];

   case '1b'
      gfrac=9.7646505e-01;
      gexp =3.1909705e+00;
      lexp =1.7675763e+00;
xresid=[-1.5027445e+00  -1.4088230e+00  -1.3149015e+00  -1.2209799e+00  -1.1270584e+00  -1.0331369e+00  -9.3921533e-01  -8.4529380e-01  -7.5137226e-01  -6.5745073e-01  -5.6352920e-01  -4.6960766e-01  -3.7568613e-01  -2.8176460e-01  -1.8784307e-01  -9.3921533e-02   0.0000000e+00   9.3921533e-02   1.8784307e-01   2.8176460e-01   3.7568613e-01   4.6960766e-01   5.6352920e-01   6.5745073e-01   7.5137226e-01   8.4529380e-01   9.3921533e-01   1.0331369e+00   1.1270584e+00   1.2209799e+00   1.3149015e+00   1.4088230e+00   1.5027445e+00];
yresid=[0.0000000e+00   2.0759051e-05   1.3454646e-04   4.1485249e-04   8.1889298e-04   1.2998900e-03   7.0327320e-04  -1.1988760e-03   3.0106709e-03   1.6162088e-02   1.4715748e-02  -7.4494905e-03  -1.8511226e-02  -5.9165835e-03   4.5791790e-03   1.0920057e-03   3.5072885e-04   5.9224972e-03   1.2539854e-02   3.8235192e-03  -1.2913082e-02  -6.2986671e-03   1.2549056e-02   1.1507012e-02  -4.4360794e-03  -7.3255617e-03  -1.2989605e-03   4.7812257e-04   2.9345029e-04   4.0317326e-05  -2.3460306e-05  -1.4716723e-05   0.0000000e+00];

   case '2a'
      gfrac=9.7631314e-01;
      gexp =3.0426722e+00;
      lexp =1.7546920e+00;
xresid=[-1.5098494e+00  -1.4259689e+00  -1.3420884e+00  -1.2582079e+00  -1.1743273e+00  -1.0904468e+00  -1.0065663e+00  -9.2268577e-01  -8.3880525e-01  -7.5492472e-01  -6.7104420e-01  -5.8716367e-01  -5.0328315e-01  -4.1940262e-01  -3.3552210e-01  -2.5164157e-01  -1.6776105e-01  -8.3880525e-02   0.0000000e+00   8.3880525e-02   1.6776105e-01   2.5164157e-01   3.3552210e-01   4.1940262e-01   5.0328315e-01   5.8716367e-01   6.7104420e-01   7.5492472e-01   8.3880525e-01   9.2268577e-01   1.0065663e+00   1.0904468e+00   1.1743273e+00   1.2582079e+00   1.3420884e+00   1.4259689e+00   1.5098494e+00];
yresid=[0.0000000e+00  -3.6845842e-05  -6.8861940e-05   1.2130736e-05   1.7262038e-04   1.6892877e-04  -9.3040756e-04  -4.3510951e-03  -8.1664054e-03  -3.7842404e-03   9.2231624e-03   1.3213732e-02   1.2273191e-03  -1.1802503e-02  -1.1744554e-02  -4.9894635e-03  -3.7382821e-03  -3.1433120e-03   9.6528926e-04   6.0562292e-03   1.1320903e-02   6.9709078e-03  -7.1606804e-03  -1.0582630e-02   1.1624590e-03   9.7375097e-03   3.3814005e-03  -5.1325813e-03  -2.6751051e-03   2.5058238e-03   3.2553121e-03   1.8114177e-03   7.7509209e-04   3.0218251e-04   1.0329681e-04   2.5235259e-05   0.0000000e+00];

   case '1a'
      gfrac=9.7619734e-01;
      gexp =3.0981538e+00;
      lexp =1.7099028e+00;
xresid=[-1.5308643e+00  -1.4458163e+00  -1.3607683e+00  -1.2757202e+00  -1.1906722e+00  -1.1056242e+00  -1.0205762e+00  -9.3552818e-01  -8.5048016e-01  -7.6543214e-01  -6.8038413e-01  -5.9533611e-01  -5.1028810e-01  -4.2524008e-01  -3.4019206e-01  -2.5514405e-01  -1.7009603e-01  -8.5048016e-02   0.0000000e+00   8.5048016e-02   1.7009603e-01   2.5514405e-01   3.4019206e-01   4.2524008e-01   5.1028810e-01   5.9533611e-01   6.8038413e-01   7.6543214e-01   8.5048016e-01   9.3552818e-01   1.0205762e+00   1.1056242e+00   1.1906722e+00   1.2757202e+00   1.3607683e+00   1.4458163e+00   1.5308643e+00];
yresid=[0.0000000e+00   2.0645890e-05   1.0986179e-04   2.6169875e-04   5.7784185e-04   1.0511310e-03   1.5480526e-03   1.2263748e-03   1.2182268e-04   1.8469196e-03   1.0152907e-02   1.4636786e-02   2.8515939e-03  -1.3791142e-02  -1.7116062e-02  -7.9962541e-03  -2.3795281e-03  -2.4750855e-03   7.5642049e-04   6.2225561e-03   1.0178717e-02   5.7856668e-03  -7.6871899e-03  -1.0948834e-02   2.6169551e-03   1.3151965e-02   6.0470566e-03  -7.4223919e-03  -8.9182239e-03  -2.7029555e-03   3.9363690e-04   6.7654345e-04   4.0293329e-04   1.7573855e-04   5.2363681e-05   8.1776298e-07   0.0000000e+00];

   otherwise
      error('Unrecognized module name')
end

%%% end of function %%%
