doc/exemples/exemple11/v1/common.f

   1       subroutine setcom(b)
   2       real b
   3 C
   4       real a
   5       common / C / a
   6 C
   7       a = b
   8 C
   9       return
  10       end
  11
  12       subroutine getcom(b)
  13       real b
  14 C
  15       real a
  16       common / C / a
  17 C
  18       b = a
  19 C
  20       return
  21       end