      REAL*8 FUNCTION SCTDIFF(SCMODE)
C
C RETURN DOUBLE PRECISION TIME PERIOD OF SCIENCE BLOCK FOR MODE = SCMODE
C
      INTEGER*4 SCMODE
C
      IF ( SCMODE.EQ.3 ) THEN
       SCTDIFF = 96.0D0
      ELSE IF ( SCMODE.EQ.4 ) THEN
       SCTDIFF = 192.0D0
      ELSE IF ( SCMODE.EQ.5 ) THEN
       SCTDIFF = 576.0D0
      ELSE IF ( SCMODE.EQ.6 ) THEN
       SCTDIFF = 1440.0D0
      ELSE IF ( SCMODE.EQ.13 ) THEN
       SCTDIFF = 192.0D0
      ELSE
       SCTDIFF = 48.0D0
      END IF
C
      RETURN
      END
