User Subroutine Interface
SUBROUTINE FILM(H,SINK,TEMP,KSTEP,KINC,TIME,NOEL,NPT, 1 COORDS,JLTYP,FIELD,NFIELD,SNAME,NODE,AREA) C INCLUDE 'ABA_PARAM.INC' C DIMENSION H(2),TIME(2),COORDS(3), FIELD(NFIELD) CHARACTER*80 SNAME user coding to define H(1), H(2), and SINK RETURN END