Mercurial > octave-nkf
comparison examples/myfevalf.f @ 7019:4270ded9ddc6
[project @ 2007-10-13 01:42:20 by jwe]
author | jwe |
---|---|
date | Sat, 13 Oct 2007 01:42:21 +0000 |
parents | e884ab4f29ee |
children | 4295d634797d |
comparison
equal
deleted
inserted
replaced
7018:fd42779a8428 | 7019:4270ded9ddc6 |
---|---|
1 c Copyright (C) 2006, 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 mexFunction (nlhs, plhs, nrhs, prhs) | 19 subroutine mexFunction (nlhs, plhs, nrhs, prhs) |
2 | 20 |
3 implicit none | 21 implicit none |
4 | 22 |
5 integer*4 nlhs, nrhs | 23 integer*4 nlhs, nrhs |