Commit | Line | Data |
---|---|---|
618f726f | 1 | c Copyright (C) 1999-2016 Free Software Foundation, Inc. |
31886ea6 JB |
2 | |
3 | c This program is free software; you can redistribute it and/or modify | |
4 | c it under the terms of the GNU General Public License as published by | |
5 | c the Free Software Foundation; either version 3 of the License, or | |
6 | c (at your option) any later version. | |
7 | c | |
8 | c This program is distributed in the hope that it will be useful, | |
9 | c but WITHOUT ANY WARRANTY; without even the implied warranty of | |
10 | c MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
11 | c GNU General Public License for more details. | |
12 | c | |
13 | c You should have received a copy of the GNU General Public License | |
14 | c along with this program. If not, see <http://www.gnu.org/licenses/>. | |
15 | ||
c906108c SS |
16 | c I am not sure whether there is a way to have a fortran program without |
17 | c a MAIN, but it does not really harm us to have one. | |
18 | end | |
19 | subroutine fsub | |
20 | integer*4 cppsub | |
21 | return (cppsub (10000)) | |
22 | end |