1! Bug reported by Brian Helinski <bjh@absoft.com> on 4 Feb 2003
2      module numerical_libraries
3      interface
4
5      subroutine a2ald (nf, nl, y, nrf, indrf, nef, nfef, indef, conper, iprint&
6         , model, aov, ems, vc, ldvc, ymeans, wk, iwk, c13ksp)
7      integer, intent(in) :: nf
8      integer, dimension(*), intent(in) :: nl
9      real(kind(1e0)), dimension(*) :: y
10      integer, intent(in) :: nrf
11      integer, dimension(*), intent(in) :: indrf
12      integer, intent(in) :: nef
13      integer, dimension(*), intent(in) :: nfef
14      integer, dimension(*), intent(in) :: indef
15      real(kind(1e0)), intent(in) :: conper
16      integer, intent(in) :: iprint
17      integer, intent(in) :: model
18      real(kind(1e0)), dimension(*), intent(in) :: aov
19      real(kind(1e0)), dimension(*), intent(inout) :: ems
20      real(kind(1e0)), dimension(ldvc,*), intent(inout) :: vc
21      integer, intent(in) :: ldvc
22      real(kind(1e0)), dimension(*), intent(in) :: ymeans
23      real(kind(1e0)), dimension(*), intent(inout) :: wk
24      integer, dimension(*), intent(in) :: iwk
25      character (len = 13), dimension(*), intent(out) :: c13ksp
26      end subroutine
27
28
29      subroutine b2lsf (fcn, m, n, xguess, ibtype, xlb, xub, xscale, fscale&
30         , iparam, rparam, x, fvec, fjac, ldfjac, wk, iwk)
31      integer, intent(in) :: m
32      integer, intent(in) :: n
33      real(kind(1e0)), dimension(*) :: xguess
34      integer, intent(in) :: ibtype
35      real(kind(1e0)), dimension(*), intent(inout) :: xlb
36      real(kind(1e0)), dimension(*), intent(inout) :: xub
37      real(kind(1e0)), dimension(*) :: xscale
38      real(kind(1e0)), dimension(*) :: fscale
39      integer, dimension(*) :: iparam
40      real(kind(1e0)), dimension(*) :: rparam
41      real(kind(1e0)), dimension(*) :: x
42      real(kind(1e0)), dimension(*) :: fvec
43      real(kind(1e0)), dimension(*) :: fjac
44      integer, intent(in) :: ldfjac
45      real(kind(1e0)), dimension(*) :: wk
46      integer, dimension(*) :: iwk
47      interface
48         subroutine fcn(m, n, x, f)
49         integer, intent(in) :: m, n
50         real(kind(1e0)), intent(in) :: x(*)
51         real(kind(1e0)), intent(out) :: f(*)
52         end subroutine
53      end interface
54      end subroutine
55
56      END INTERFACE
57      end module
58