text: /* MOCA2.f -- translated by f2c (version 19970805).
     You must link the resulting object file with the libraries:
  	-lf2c -lm   (in that order)
  */
  
  #ifdef __cplusplus
  extern "C" {
  #endif
  /* OTB patches: replace "f2c.h" by "otb_6S.h" */
  /*#include "f2c.h"*/
  #include "otb_6S.h"
  
  /*<       subroutine    moca2(a,inu) >*/
  /* Subroutine */ int moca2_(doublereal *a, integer *inu)
  {
      /* Initialized data */
  
      static doublereal acr[2048]	/* was [8][256] */ = { 0.,0.,0.,0.,0.,0.,
  	    5060.,5070.,0.,0.,0.,0.,0.,0.,5070.,5080.,0.,0.,0.,0.,0.,0.,5080.,
  	    5090.,0.,0.,0.,0.,0.,0.,5090.,5100.,0.,0.,0.,0.,0.,0.,5100.,5110.,
  	    0.,0.,0.,0.,0.,0.,5110.,5120.,0.,0.,0.,0.,0.,0.,5120.,5130.,0.,0.,
  	    0.,0.,0.,0.,5130.,5140.,0.,0.,0.,0.,0.,0.,5140.,5150.,0.,0.,0.,0.,
  	    0.,0.,5150.,5160.,0.,0.,0.,0.,0.,0.,5160.,5170.,0.,0.,0.,0.,0.,0.,
  	    5170.,5180.,0.,0.,0.,0.,0.,0.,5180.,5190.,0.,0.,0.,0.,0.,0.,5190.,
  	    5200.,0.,0.,0.,0.,0.,0.,5200.,5210.,0.,0.,0.,0.,0.,0.,5210.,5220.,
  	    0.,0.,0.,0.,0.,0.,5220.,5230.,0.,0.,0.,0.,0.,0.,5230.,5240.,0.,0.,
  	    0.,0.,0.,0.,5240.,5250.,0.,0.,0.,0.,0.,0.,5250.,5260.,0.,0.,0.,0.,
  	    0.,0.,5260.,5270.,0.,0.,0.,0.,0.,0.,5270.,5280.,0.,0.,0.,0.,0.,0.,
  	    5280.,5290.,0.,0.,0.,0.,0.,0.,5290.,5300.,0.,0.,0.,0.,0.,0.,5300.,
  	    5310.,0.,0.,0.,0.,0.,0.,5310.,5320.,0.,0.,0.,0.,0.,0.,5320.,5330.,
  	    0.,0.,0.,0.,0.,0.,5330.,5340.,0.,0.,0.,0.,0.,0.,5340.,5350.,0.,0.,
  	    0.,0.,0.,0.,5350.,5360.,0.,0.,0.,0.,0.,0.,5360.,5370.,0.,0.,0.,0.,
  	    0.,0.,5370.,5380.,0.,0.,0.,0.,0.,0.,5380.,5390.,0.,0.,0.,0.,0.,0.,
  	    5390.,5400.,0.,0.,0.,0.,0.,0.,5400.,5410.,0.,0.,0.,0.,0.,0.,5410.,
  	    5420.,0.,0.,0.,0.,0.,0.,5420.,5430.,0.,0.,0.,0.,0.,0.,5430.,5440.,
  	    0.,0.,0.,0.,0.,0.,5440.,5450.,0.,0.,0.,0.,0.,0.,5450.,5460.,0.,0.,
  	    0.,0.,0.,0.,5460.,5470.,0.,0.,0.,0.,0.,0.,5470.,5480.,0.,0.,0.,0.,
  	    0.,0.,5480.,5490.,0.,0.,0.,0.,0.,0.,5490.,5500.,0.,0.,0.,0.,0.,0.,
  	    5500.,5510.,0.,0.,0.,0.,0.,0.,5510.,5520.,0.,0.,0.,0.,0.,0.,5520.,
  	    5530.,0.,0.,0.,0.,0.,0.,5530.,5540.,0.,0.,0.,0.,0.,0.,5540.,5550.,
  	    0.,0.,0.,0.,0.,0.,5550.,5560.,0.,0.,0.,0.,0.,0.,5560.,5570.,0.,0.,
  	    0.,0.,0.,0.,5570.,5580.,0.,0.,0.,0.,0.,0.,5580.,5590.,0.,0.,0.,0.,
  	    0.,0.,5590.,5600.,0.,0.,0.,0.,0.,0.,5600.,5610.,0.,0.,0.,0.,0.,0.,
  	    5610.,5620.,0.,0.,0.,0.,0.,0.,5620.,5630.,0.,0.,0.,0.,0.,0.,5630.,
  	    5640.,0.,0.,0.,0.,0.,0.,5640.,5650.,0.,0.,0.,0.,0.,0.,5650.,5660.,
  	    0.,0.,0.,0.,0.,0.,5660.,5670.,0.,0.,0.,0.,0.,0.,5670.,5680.,0.,0.,
  	    0.,0.,0.,0.,5680.,5690.,0.,0.,0.,0.,0.,0.,5690.,5700.,4.6683e-26,
  	    3.9946e-7,.15004,-6.0825e-4,.14724,-6.0261e-4,5700.,5710.,
  	    1.2312e-25,3.9946e-7,.14595,-5.9188e-4,.14315,-5.8625e-4,5710.,
  	    5720.,1.1266e-24,7.5927e-7,.13909,-5.6295e-4,.13671,-5.5959e-4,
  	    5720.,5730.,2.0103e-24,3.9946e-7,.13415,-5.447e-4,.13135,
  	    -5.3906e-4,5730.,5740.,4.9063e-24,3.9946e-7,.13038,-5.2961e-4,
  	    .12758,-5.2397e-4,5740.,5750.,3.9255e-23,7.6518e-7,.12413,
  	    -5.0331e-4,.12169,-4.9966e-4,5750.,5760.,6.3305e-23,3.9946e-7,
  	    .11954,-4.8626e-4,.11675,-4.8063e-4,5760.,5770.,1.5847e-21,
  	    1.0092e-6,.10516,-4.1519e-4,.10467,-4.2332e-4,5770.,5780.,
  	    3.6811e-21,7.1016e-7,.09985,-3.9815e-4,.098651,-4.013e-4,5780.,
  	    5790.,3.2319e-20,1.2898e-6,.092607,-3.6764e-4,.092132,-3.7318e-4,
  	    5790.,5800.,5.6403e-20,6.4883e-7,.087374,-3.4877e-4,.086636,
  	    -3.5122e-4,5800.,5810.,1.6009e-19,9.5335e-7,.0849,-3.3381e-4,
  	    .084844,-3.4257e-4,5810.,5820.,1.0493e-18,1.0941e-6,.076482,
  	    -3.0762e-4,.080072,-2.5402e-4,5820.,5830.,1.8849e-18,2.3089e-6,
  	    .073551,-2.7995e-4,.10134,-1.0464e-4,5830.,5840.,1.2274e-17,
  	    1.8503e-6,.065955,-2.6262e-4,.08719,-6.1536e-5,5840.,5850.,
  	    1.9475e-17,2.1482e-6,.062641,-2.3947e-4,.092133,-5.5475e-5,5850.,
  	    5860.,4.2834e-17,5.2914e-6,.060443,-2.1227e-4,.10022,-9.1581e-5,
  	    5860.,5870.,2.5814e-16,2.709e-6,.053613,-2.0674e-4,.078473,
  	    -2.4556e-5,5870.,5880.,3.4582e-16,2.4018e-6,.049817,-1.8578e-4,
  	    .083893,-9.9109e-6,5880.,5890.,1.9766e-15,2.6621e-6,.044522,
  	    -1.7276e-4,.070531,1.7855e-5,5890.,5900.,7.0047e-15,5.7066e-6,
  	    .039496,-1.4181e-4,.075654,5.7712e-6,5900.,5910.,8.6757e-15,
  	    3.3052e-5,.040851,-4.9822e-5,.088823,-2.0654e-4,5910.,5920.,
  	    4.0761e-14,1.4076e-5,.033721,-8.1073e-5,.073952,-7.155e-5,5920.,
  	    5930.,1.1802e-13,1.8315e-5,.029401,-5.6811e-5,.072527,-6.1682e-5,
  	    5930.,5940.,1.2517e-13,3.208e-5,.029645,5.2262e-6,.075673,
  	    -1.605e-4,5940.,5950.,5.3299e-13,8.3885e-5,.028648,5.1037e-5,
  	    .076701,-1.1804e-4,5950.,5960.,1.2176e-12,4.3932e-5,.023072,
  	    3.9649e-5,.070157,-2.5205e-5,5960.,5970.,2.6812e-12,7.4724e-5,
  	    .021392,7.8492e-5,.0689,-5.7739e-5,5970.,5980.,5.2852e-12,
  	    8.1623e-5,.018441,9.2123e-5,.072474,3.8196e-5,5980.,5990.,
  	    1.2137e-11,2.5414e-4,.024162,1.7686e-4,.065473,-1.1219e-4,5990.,
  	    6e3,2.022e-11,1.7439e-4,.021342,1.7061e-4,.061647,-4.9481e-5,6e3,
  	    6010.,7.0256e-11,3.9013e-4,.025354,1.739e-4,.056294,-1.0119e-4,
  	    6010.,6020.,9.1715e-11,3.8456e-4,.027846,1.3835e-4,.055857,
  	    -8.5738e-5,6020.,6030.,3.5812e-10,8.9526e-4,.036811,-1.9691e-5,
  	    .060026,-5.1263e-5,6030.,6040.,5.1951e-10,6.5082e-4,.034472,
  	    -3.8106e-5,.057771,-1.7166e-5,6040.,6050.,2.3396e-9,.0012585,
  	    .037673,-1.3867e-4,.056388,-3.7053e-5,6050.,6060.,3.1627e-9,
  	    .0012183,.033941,-1.1427e-4,.058265,-1.4231e-5,6060.,6070.,
  	    1.3747e-8,.0010905,.030224,-1.1494e-4,.045888,-1.243e-5,6070.,
  	    6080.,1.6746e-8,.0011055,.0271,-9.4052e-5,.048795,1.7267e-6,6080.,
  	    6090.,6.9627e-8,.0014531,.023474,-8.7211e-5,.042687,2.9187e-5,
  	    6090.,6100.,1.789e-7,.0023713,.020122,-5.984e-5,.042924,9.3171e-6,
  	    6100.,6110.,1.6918e-7,.002373,.018564,-3.2576e-5,.047913,
  	    -5.6001e-6,6110.,6120.,6.1497e-7,.0020751,.014671,-3.6986e-5,
  	    .03447,3.2655e-5,6120.,6130.,1.3012e-6,.0059809,.014081,1.2706e-5,
  	    .041059,-1.4713e-5,6130.,6140.,2.3687e-6,.0034824,.010334,
  	    1.187e-5,.031822,2.134e-5,6140.,6150.,4.1168e-6,.0049295,.0084797,
  	    3.3745e-5,.032297,2.8091e-5,6150.,6160.,7.275e-6,.015527,.012669,
  	    9.9217e-5,.036777,-5.5634e-5,6160.,6170.,9.7222e-6,.0091547,
  	    .010267,9.5535e-5,.030194,-2.5674e-5,6170.,6180.,1.7703e-5,
  	    .012682,.0090194,1.0461e-4,.028528,-8.8439e-6,6180.,6190.,
  	    3.2557e-5,.038848,.022453,5.1526e-5,.032595,-1.0114e-4,6190.,
  	    6200.,3.6378e-5,.026446,.022869,1.5344e-5,.029472,-7.8062e-5,
  	    6200.,6210.,1.5091e-4,.045107,.027472,-9.5379e-5,.027231,
  	    -1.0428e-4,6210.,6220.,4.4635e-4,.044617,.022992,-8.3379e-5,
  	    .022135,-8.6546e-5,6220.,6230.,4.645e-4,.025101,.020065,
  	    -7.4635e-5,.019585,-7.1162e-5,6230.,6240.,.0018567,.045449,
  	    .017769,-7.6382e-5,.015878,-6.8709e-5,6240.,6250.,.0042909,
  	    .047419,.01417,-6.399e-5,.012295,-5.5119e-5,6250.,6260.,.0037371,
  	    .024446,.011714,-5.4834e-5,.0096092,-4.6244e-5,6260.,6270.,
  	    .012658,.047613,.0091389,-4.4311e-5,.006717,-3.7584e-5,6270.,
  	    6280.,.022981,.050782,.0062294,-3.2686e-5,.0039945,-2.4418e-5,
  	    6280.,6290.,.03751,.052128,.0036805,-2.2546e-5,.0014034,
  	    -1.3971e-5,6290.,6300.,.054636,.053047,.0014952,-1.3854e-5,
  	    -7.4579e-4,-4.3465e-6,6300.,6310.,.070262,.053883,-3.2751e-4,
  	    -6.6345e-6,-.0026603,2.8956e-6,6310.,6320.,.078204,.055207,
  	    -.0017859,-8.6799e-7,-.0043181,7.5236e-6,6320.,6330.,.10057,
  	    .088588,-.0030519,4.1846e-6,-.0057894,1.0937e-5,6330.,6340.,
  	    .031333,.065185,-.0038296,7.2424e-6,-.006643,1.2937e-5,6340.,
  	    6350.,.033845,.06492,-.0039811,7.8455e-6,-.0067871,1.3512e-5,
  	    6350.,6360.,.12178,.088198,-.0034193,5.6304e-6,-.0062387,
  	    1.1334e-5,6360.,6370.,.15914,.081345,-.0020733,3.2783e-7,
  	    -.0048764,5.9258e-6,6370.,6380.,.17605,.10382,4.7396e-4,
  	    -9.4825e-6,-.0022623,-4.3366e-6,6380.,6390.,.10257,.11943,
  	    .0050797,-2.6879e-5,.002564,-2.3075e-5,6390.,6400.,.025341,.11996,
  	    .012613,-5.5092e-5,.010613,-5.3927e-5,6400.,6410.,.0020638,.13697,
  	    .024524,-9.7954e-5,.025258,-9.9948e-5,6410.,6420.,0.,0.,0.,0.,0.,
  	    0.,6420.,6430.,0.,0.,0.,0.,0.,0.,6430.,6440.,0.,0.,0.,0.,0.,0.,
  	    6440.,6450.,0.,0.,0.,0.,0.,0.,6450.,6460.,0.,0.,0.,0.,0.,0.,6460.,
  	    6470.,0.,0.,0.,0.,0.,0.,6470.,6480.,0.,0.,0.,0.,0.,0.,6480.,6490.,
  	    0.,0.,0.,0.,0.,0.,6490.,6500.,0.,0.,0.,0.,0.,0.,6500.,6510.,0.,0.,
  	    0.,0.,0.,0.,6510.,6520.,0.,0.,0.,0.,0.,0.,6520.,6530.,0.,0.,0.,0.,
  	    0.,0.,6530.,6540.,0.,0.,0.,0.,0.,0.,6540.,6550.,0.,0.,0.,0.,0.,0.,
  	    6550.,6560.,0.,0.,0.,0.,0.,0.,6560.,6570.,0.,0.,0.,0.,0.,0.,6570.,
  	    6580.,0.,0.,0.,0.,0.,0.,6580.,6590.,0.,0.,0.,0.,0.,0.,6590.,6600.,
  	    0.,0.,0.,0.,0.,0.,6600.,6610.,0.,0.,0.,0.,0.,0.,6610.,6620.,0.,0.,
  	    0.,0.,0.,0.,6620.,6630.,0.,0.,0.,0.,0.,0.,6630.,6640.,0.,0.,0.,0.,
  	    0.,0.,6640.,6650.,0.,0.,0.,0.,0.,0.,6650.,6660.,0.,0.,0.,0.,0.,0.,
  	    6660.,6670.,0.,0.,0.,0.,0.,0.,6670.,6680.,0.,0.,0.,0.,0.,0.,6680.,
  	    6690.,0.,0.,0.,0.,0.,0.,6690.,6700.,0.,0.,0.,0.,0.,0.,6700.,6710.,
  	    0.,0.,0.,0.,0.,0.,6710.,6720.,0.,0.,0.,0.,0.,0.,6720.,6730.,0.,0.,
  	    0.,0.,0.,0.,6730.,6740.,0.,0.,0.,0.,0.,0.,6740.,6750.,0.,0.,0.,0.,
  	    0.,0.,6750.,6760.,0.,0.,0.,0.,0.,0.,6760.,6770.,0.,0.,0.,0.,0.,0.,
  	    6770.,6780.,0.,0.,0.,0.,0.,0.,6780.,6790.,0.,0.,0.,0.,0.,0.,6790.,
  	    6800.,0.,0.,0.,0.,0.,0.,6800.,6810.,0.,0.,0.,0.,0.,0.,6810.,6820.,
  	    0.,0.,0.,0.,0.,0.,6820.,6830.,0.,0.,0.,0.,0.,0.,6830.,6840.,0.,0.,
  	    0.,0.,0.,0.,6840.,6850.,0.,0.,0.,0.,0.,0.,6850.,6860.,0.,0.,0.,0.,
  	    0.,0.,6860.,6870.,0.,0.,0.,0.,0.,0.,6870.,6880.,0.,0.,0.,0.,0.,0.,
  	    6880.,6890.,0.,0.,0.,0.,0.,0.,6890.,6900.,0.,0.,0.,0.,0.,0.,6900.,
  	    6910.,0.,0.,0.,0.,0.,0.,6910.,6920.,0.,0.,0.,0.,0.,0.,6920.,6930.,
  	    0.,0.,0.,0.,0.,0.,6930.,6940.,0.,0.,0.,0.,0.,0.,6940.,6950.,0.,0.,
  	    0.,0.,0.,0.,6950.,6960.,0.,0.,0.,0.,0.,0.,6960.,6970.,0.,0.,0.,0.,
  	    0.,0.,6970.,6980.,0.,0.,0.,0.,0.,0.,6980.,6990.,0.,0.,0.,0.,0.,0.,
  	    6990.,7e3,0.,0.,0.,0.,0.,0.,7e3,7010.,0.,0.,0.,0.,0.,0.,7010.,
  	    7020.,0.,0.,0.,0.,0.,0.,7020.,7030.,0.,0.,0.,0.,0.,0.,7030.,7040.,
  	    0.,0.,0.,0.,0.,0.,7040.,7050.,0.,0.,0.,0.,0.,0.,7050.,7060.,0.,0.,
  	    0.,0.,0.,0.,7060.,7070.,0.,0.,0.,0.,0.,0.,7070.,7080.,0.,0.,0.,0.,
  	    0.,0.,7080.,7090.,0.,0.,0.,0.,0.,0.,7090.,7100.,0.,0.,0.,0.,0.,0.,
  	    7100.,7110.,0.,0.,0.,0.,0.,0.,7110.,7120.,0.,0.,0.,0.,0.,0.,7120.,
  	    7130.,0.,0.,0.,0.,0.,0.,7130.,7140.,0.,0.,0.,0.,0.,0.,7140.,7150.,
  	    0.,0.,0.,0.,0.,0.,7150.,7160.,0.,0.,0.,0.,0.,0.,7160.,7170.,0.,0.,
  	    0.,0.,0.,0.,7170.,7180.,0.,0.,0.,0.,0.,0.,7180.,7190.,0.,0.,0.,0.,
  	    0.,0.,7190.,7200.,0.,0.,0.,0.,0.,0.,7200.,7210.,0.,0.,0.,0.,0.,0.,
  	    7210.,7220.,0.,0.,0.,0.,0.,0.,7220.,7230.,0.,0.,0.,0.,0.,0.,7230.,
  	    7240.,0.,0.,0.,0.,0.,0.,7240.,7250.,0.,0.,0.,0.,0.,0.,7250.,7260.,
  	    0.,0.,0.,0.,0.,0.,7260.,7270.,0.,0.,0.,0.,0.,0.,7270.,7280.,0.,0.,
  	    0.,0.,0.,0.,7280.,7290.,0.,0.,0.,0.,0.,0.,7290.,7300.,0.,0.,0.,0.,
  	    0.,0.,7300.,7310.,0.,0.,0.,0.,0.,0.,7310.,7320.,0.,0.,0.,0.,0.,0.,
  	    7320.,7330.,0.,0.,0.,0.,0.,0.,7330.,7340.,0.,0.,0.,0.,0.,0.,7340.,
  	    7350.,0.,0.,0.,0.,0.,0.,7350.,7360.,0.,0.,0.,0.,0.,0.,7360.,7370.,
  	    0.,0.,0.,0.,0.,0.,7370.,7380.,0.,0.,0.,0.,0.,0.,7380.,7390.,0.,0.,
  	    0.,0.,0.,0.,7390.,7400.,0.,0.,0.,0.,0.,0.,7400.,7410.,0.,0.,0.,0.,
  	    0.,0.,7410.,7420.,0.,0.,0.,0.,0.,0.,7420.,7430.,0.,0.,0.,0.,0.,0.,
  	    7430.,7440.,0.,0.,0.,0.,0.,0.,7440.,7450.,0.,0.,0.,0.,0.,0.,7450.,
  	    7460.,0.,0.,0.,0.,0.,0.,7460.,7470.,0.,0.,0.,0.,0.,0.,7470.,7480.,
  	    0.,0.,0.,0.,0.,0.,7480.,7490.,0.,0.,0.,0.,0.,0.,7490.,7500.,0.,0.,
  	    0.,0.,0.,0.,7500.,7510.,0.,0.,0.,0.,0.,0.,7510.,7520.,0.,0.,0.,0.,
  	    0.,0.,7520.,7530.,0.,0.,0.,0.,0.,0.,7530.,7540.,0.,0.,0.,0.,0.,0.,
  	    7540.,7550.,0.,0.,0.,0.,0.,0.,7550.,7560.,0.,0.,0.,0.,0.,0.,7560.,
  	    7570.,0.,0.,0.,0.,0.,0.,7570.,7580.,0.,0.,0.,0.,0.,0.,7580.,7590.,
  	    0.,0.,0.,0.,0.,0.,7590.,7600.,0.,0.,0.,0.,0.,0.,7600.,7610.,0.,0.,
  	    0.,0.,0.,0.,7610.,7620. };
  
      integer i__;
  
  /*<        real a(8) >*/
  /*<        real acr(8,256) >*/
  /*<        integer inu,j,k,i >*/
  /*     carbon monoxide (5060 - 7610 cm-1) */
  
  /*<    >*/
      /* Parameter adjustments */
      --a;
  
      /* Function Body */
  /*<    >*/
  /*<    >*/
  /*<    >*/
  /*<    >*/
  /*<    >*/
  /*<    >*/
  /*<    >*/
  /*<    >*/
  /*<    >*/
  /*<    >*/
  /*<    >*/
  /*<    >*/
  /*<    >*/
  /*<    >*/
  /*<    >*/
  /*<    >*/
  /*<    >*/
  /*<    >*/
  /*<    >*/
  /*<    >*/
  /*<    >*/
  /*<    >*/
  /*<    >*/
  /*<    >*/
  /*<    >*/
  /*<    >*/
  /*<    >*/
  /*<    >*/
  /*<    >*/
  /*<    >*/
  /*<    >*/
  
  /*<       do i=1,8 >*/
      for (i__ = 1; i__ <= 8; ++i__) {
  /*<       a(i)=acr(i,inu) >*/
  	a[i__] = acr[i__ + (*inu << 3) - 9];
  /*<       enddo >*/
      }
  
  /*<       return >*/
      return 0;
  /*<       end >*/
  } /* moca2_ */
  
  #ifdef __cplusplus
  	}
  #endif
  