tests/ctags/numlib.f90

   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