Mercurial > octave-nkf
comparison examples/fortsub.f @ 7019:4270ded9ddc6
[project @ 2007-10-13 01:42:20 by jwe]
author | jwe |
---|---|
date | Sat, 13 Oct 2007 01:42:21 +0000 |
parents | 8e7148b84b59 |
children | 503001863427 |
comparison
equal
deleted
inserted
replaced
7018:fd42779a8428 | 7019:4270ded9ddc6 |
---|---|
1 c Copyright (C) 2007 John W. Eaton | |
2 c | |
3 c This file is part of Octave. | |
4 c | |
5 c Octave is free software; you can redistribute it and/or modify it | |
6 c under the terms of the GNU General Public License as published by the | |
7 c Free Software Foundation; either version 3 of the License, or (at your | |
8 c option) any later version. | |
9 c | |
10 c Octave is distributed in the hope that it will be useful, but WITHOUT | |
11 c ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or | |
12 c FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License | |
13 c for more details. | |
14 c | |
15 c You should have received a copy of the GNU General Public License | |
16 c along with Octave; see the file COPYING. If not, see | |
17 c <http://www.gnu.org/licenses/>. | |
18 | |
1 subroutine fortsub (n, a, s) | 19 subroutine fortsub (n, a, s) |
2 implicit none | 20 implicit none |
3 character*(*) s | 21 character*(*) s |
4 real*8 a(*) | 22 real*8 a(*) |
5 integer*4 i, n, ioerr | 23 integer*4 i, n, ioerr |