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

         SUBROUTINE SETFORSURF

  SETFORSURF STORES PARAMETER CODES FOR 1. LATITUDE, 2. LONGITUDE
  AND 3. JULIAN DAY

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

int surfhead[3];

setforsurf_(

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

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

           )

{

  surfhead[*i-1]= *ival;

}