/**************************************************************

               SUBROUTINE SETSTANDEPS

  SETSTANDEPS SETS THE DEPTH WHICH CORRESPONDS TO THE 
  STANDARD LEVEL NUMBERS  THEY ARE AS FOLLOWS:

   STANDARD LEVEL             DEPTH IN METERS

      1.                             0.
      2.                            10.
      3.                            20.
      4.                            30.
      5.                            50.
      6.                            75.
      7.                           100.
      8.                           125.
      9.                           150.
     10.                           200.
     11.                           250.
     12.                           300.
     13.                           400.
     14.                           500.
     15.                           600.
     16.                           700.
     17.                           800.
     18.                           900.
     19.                          1000.
     20.                          1100.
     21.                          1200.
     22.                          1300.
     23.                          1400.
     24.                          1500.
     25.                          1750.
     26.                          2000.
     27.                          2500.
     28.                          3000.
     29.                          3500.
     30.                          4000.
     31.                          4500.
     32.                          5000.
     33.                          5500.
     34.                          6000.
     35.                          6500.
     36.                          7000.
     37.                          7500.
     38.                          8000.
     39.                          8500.
     40.                          9000.


  A STANDARD DEPTH IS SIMPLY AN AGREED UPON LEVEL AT WHICH STUDIES
  ARE MADE.  THEY ARE NECESSARY SINCE DATA COMES IN AT SO MANY 
  DIFFERENT DEPTHS AND THE ONLY WAY TO MAKE SENSE OF IT IS TO TRY
  TO EXAMINE A FEW DISCRETE LEVELS TO WHICH THE INCOMING DATA MAY
  BE INTERPOLATED.  THESE STANDARD LEVELS ARE THOSE USED BY LEVITUS
  IN HIS CLIMATOLOGICAL ATLAS (1982) AND ARE THE SAME AS THOSE USED
  AT NODC WITH THE ADDITION OF A FEW DEPTHS.

*******************************************************************/

setstandeps_(

 float *standeps  /* STANDARD DEPTH LEVELS */

            )


{

 *standeps = 0.;
 *(standeps+1) = 10.;
 *(standeps+2) = 20.;
 *(standeps+3) = 30.;
 *(standeps+4) = 50.;
 *(standeps+5) = 75.;
 *(standeps+6) = 100.;
 *(standeps+7) = 125.;
 *(standeps+8) = 150.;
 *(standeps+9) = 200.;
 *(standeps+10) = 250.;
 *(standeps+11) = 300.;
 *(standeps+12) = 400.;
 *(standeps+13) = 500.;
 *(standeps+14) = 600.;
 *(standeps+15) = 700.;
 *(standeps+16) = 800.;
 *(standeps+17) = 900.;
 *(standeps+18) = 1000.;
 *(standeps+19) = 1100.;
 *(standeps+20) = 1200.;
 *(standeps+21) = 1300.;
 *(standeps+22) = 1400.;
 *(standeps+23) = 1500.;
 *(standeps+24) = 1750.;
 *(standeps+25) = 2000.;
 *(standeps+26) = 2500.;
 *(standeps+27) = 3000.;
 *(standeps+28) = 3500.;
 *(standeps+29) = 4000.;
 *(standeps+30) = 4500.;
 *(standeps+31) = 5000.;
 *(standeps+32) = 5500.;
 *(standeps+33) = 6000.;
 *(standeps+34) = 6500.;
 *(standeps+35) = 7000.;
 *(standeps+36) = 7500.;
 *(standeps+37) = 8000.;
 *(standeps+38) = 8500.;
 *(standeps+39) = 9000.;

 }