integer*4 function tstf( j )

      implicit none

      integer*4 j

      print *, ' F: In TSTF():  J = ', j

      tstf = -2 * j

      end