Logo Search packages:      
Sourcecode: r-cran-vgam version File versions  Download package

vcall2.f

      subroutine vcall2(onemor,w,y,eta,beta,u)
      logical onemor
      double precision w(1), y(1), eta(1), beta(1), u(1)
      onemor = .true.
      w(1) = 1.0d0
      y(1) = 1.0d0
      eta(1) = 1.0d0
      beta(1) = 1.0d0
      u(1) = 1.0d0
      return
      end
      subroutine vcall1(onemor,y,eta,beta,u,xbig,cpxbig)
      logical onemor, cpxbig
      double precision y(1), eta(1), beta(1), u(1), xbig(1)
      onemor = .true.
      y(1) = 1.0d0
      eta(1) = 1.0d0
      beta(1) = 1.0d0
      u(1) = 1.0d0
      xbig(1) = 1.0d0
      cpxbig = .true.
      return
      end

Generated by  Doxygen 1.6.0   Back to index