FUNCTION FLOAT U_film (TAir, TSurf, SurfSlope)

/* Calculate film coefficient for room surfaces */

LANGUAGE F77

INPUT
       FLOAT TAir, TSurf, SurfSlope;


EXTERNAL U_film (TAir, TSurf, SurfSlope)
EXTENSIONS
  JACOBIAN U_filmJ;
  JACOBIAN_UNDER TAir, TSurf;
END_EXTENSIONS

END_FUNCTION