C 'A FUNCTION SUBPROGRAM NAME MUST ALSO BE A VARIABLE NAME
C  IN THE FUNCTION SUBPROGRAM'. (SEE (F),PAGE 12)
C      SEE ALSO PAGE 7 BIS.
C
      Y=FF(3.0)
      WRITE (3,100) Y
100   FORMAT(1H ,F8.2)
      END
      FUNCTION FF(X)
      FF=X
      FF=FF+1.0
C        --
      RETURN
      END
