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

         SUBROUTINE GETFORSURF

  GETFORSURF RETRIEVES PARAMETER CODES FOR 1. LATITUDE, 2. LONGITUDE
  AND 3. JULIAN DAY

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

getforsurf_(

 int *i,       /* TYPE OF PARAMETER CODE
                   1. LATITUDE
                   2. LONGITUDE
                   3. JULIAN DAY */

 int *ival     /* CODE NUMBER FOR GIVEN PARAMETER */

           )

{

  *ival= surfhead[*i-1];

}