C --ROUTINE ADVANCES CFILM AND PRESENTS MODULE
C --DISPLAY DATA.
      SUBROUTINE FILMER(IREFR,IREFB,IREFG,IWHT)
      LOGICAL T,F,ERROR
      DATA T,F/.TRUE.,.FALSE./
C --RED ?--
      IF(IREFR.EQ.0)GO TO 10
      CALL RED
      DO 64 K=1,5000
64    CONTINUE
      CALL DPASS(IREFR)
C  --BLUE--
10    IF(IREFB.EQ.0)GO TO 20
      CALL BLUE
      DO 65 K=1,5000
65    CONTINUE
      CALL DPASS(IREFB)
C  ---GREEN--
20    IF(IREFG.EQ.0)GO TO 30
      CALL GREEN
      DO 66 K=1,5000
66    CONTINUE
      CALL DPASS(IREFG)
C  --WHITE .... RAISE ALL FILTERS--
30    IF(IWHT.EQ.0)GO TO 40
      CALL SWITCH(1,T,2,T,3,T)
      DO 67 K=1 5000
67    CONTINUE
      CALL DPASS(IWHT)
40    CONTINUE
      RETURN
      END