!copyright (C) 2001  MSC-RPN COMM  %%%RPNPHY%%%
C       FMROFT      TEMPERATURE FUNCTION TO MULTIPLY MR WITH
C                   FOR T<273 
!
!  internal function definition
!

       REAL FUNCTION fmroft(F_xt) 2
       REAL F_xt

       if (F_XT.GT.250.) then
          FMROFT = Z1(F_XT)
       else
          FMROFT = Z5(F_XT)
       endif

       END FUNCTION fmroft