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