1C
2C This program is free software; you can redistribute it and/or
3C modify it under the terms of the GNU General Public License
4C as published by the Free Software Foundation; either version 2
5C of the License, or (at your option) any later version.
6C
7
8      subroutine fsub(arg,res)
9      implicit none
10      integer*4 arg,res
11      res=arg*2
12      return
13      end
14