
      subroutine fortran1(x, result)

      include 'includedf.for'
      
      double precision x(1), result(1)

      result(1) = one*x(1)*x(1)

      end
      
