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