CC---USER SUBROUTINE FILM FOR XTMPCST4
C  Check that H and SINK are passed in correctly as stated in 
C  DLOAD section of the User's Manual
      SUBROUTINE FILM(H,SINK,TEMP,JSTEP,JINC,TIME,NOEL,NPT,
     1 COORDS,JLTYPE,FIELD,NFIELD,SNAME,JUSERNODE,AREA)
C
      INCLUDE 'ABA_PARAM.INC'
C
      DIMENSION COORDS(3), TIME(2), H(2), FIELD(NFIELD)
      CHARACTER*80 SNAME

C     Switch-off FILM on SPOS (test of FIELD value)

      IF (JLTYPE.EQ.12) THEN
          IF (FIELD(1).GE.0.999D0.AND.FIELD(1).LE.1.0001D0) THEN
              H(1) = 0.0D0
              H(2) = 0.0D0
          END IF
      END IF

      RETURN
      END