mergefrom branch BR_V511_PR tag mergeto_trunk_03feb09

[modules/yacs.git] / doc / exemples / exemple11 / v1 / f1.f

      real function f1(x)\r
      real x\r
C\r
      real a\r
      common / C / a\r
C\r
      f1 = x / a\r
      return\r
      end\r