FUNCTION FFCROS(IEL,IFR,T,FR)
C     ==================================
C
C     Non-standard evaluation of free-free cross section;
C     a user supplied procedure
C
      INCLUDE 'IMPLIC.FOR'
      FFCROS=0.
      if(iel.eq.0.or.ifr.eq.0) return
      t1=t
      fr1=fr
      RETURN
      END