File: lsplit.f

package info (click to toggle)

scilab 2.2-4

links: PTS
area: non-free
in suites: hamm
size: 31,472 kB
ctags: 21,963
sloc: fortran: 110,983; ansic: 89,717; makefile: 3,016; sh: 1,892; csh: 150; cpp: 101

file content (17 lines) | stat: -rw-r--r-- 433 bytes

      subroutine lsplit(t,x,nx,z,nz,u,nu,rpar,nrpar,ipar,nipar,nclock,
     &     out,nout,flag)
      double precision t,x(*),z(*),u(*),rpar(*),out(*)
      integer ipar(*),flag,i
c     splitting signals
c     no parameter
      common /dbcos/ idb
c
      if(idb.eq.1) then
         write(6,'(''Split     t='',e10.3,'' flag='',i1)') t,flag
      endif

      do 1 i=1,nout
         out(i)=u(1)
 1    continue
      return
      end