Merge from V6_main_20120808 08Aug12

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

      real function f2(x)
      real x
C
      real a
      common / C / a
C
      f2 = x * a
      return
      end