File: icse0.f

package info (click to toggle)
scilab 4.0-12
  • links: PTS
  • area: non-free
  • in suites: etch, etch-m68k
  • size: 100,640 kB
  • ctags: 57,333
  • sloc: ansic: 377,889; fortran: 242,862; xml: 179,819; tcl: 42,062; sh: 10,593; ml: 9,441; makefile: 4,377; cpp: 1,354; java: 621; csh: 260; yacc: 247; perl: 130; lex: 126; asm: 72; lisp: 30
file content (44 lines) | stat: -rw-r--r-- 1,039 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
 
      subroutine icse0(nu,t0,tf,dti,dtf,ermx,iu,nuc,nuv,ilin,nti,ntf,
     & ny,nea,itmx,nex,nob,ntob,ntobi,nitu,ndtu,nitv,nrtv,ndtv)
c
c     programme d'initialisation appele par icse.bas
c     initialisation des commons icsez icsez0 et nird
c     Copyright INRIA
c
      implicit double precision (a-h,o-z)
      dimension iu(5),iu0(5)
      common/icsez/t00,tf0,dti0,dtf0,ermx0,iu0,nuc0,nuv0,ilin0,nti0,
     & ntf0,ny0,nea0,itmx0,nex0,nob0,ntob0,ntobi0,nitu0,ndtu0
      common/nird/nitv0,nrtv0,ndtv0
c
      t00=t0
      tf0=tf
      dti0=dti
      dtf0=dtf
      ermx0=ermx
      do 10 i=1,5
10    iu0(i)=iu(i)
      nuc0=nuc
      nuv0=nuv
      ilin0=ilin
      nti0=nti
      ntf0=ntf
      ny0=ny
      nea0=nea
      itmx0=itmx
      nex0=nex
      nob0=nob
      ntob0=ntob
      ntobi0=ntobi
      nitu0=nitu
      ndtu0=ndtu
      nitv0=0
      nrtv0=0
      ndtv0=0
      ind=0
      call icse(ind,nu,zz,zz,zz,zz,zz,zz,zz,zz,zz)
      nitv=max(1,nitv0)
      nrtv=max(1,nrtv0)
      ndtv=max(1,ndtv0)
      return
      end