File: algebre.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 (50 lines) | stat: -rw-r--r-- 971 bytes parent folder | download | duplicates (2) 
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
45
46
47
48
49
50
 
c     Copyright INRIA
      integer function basetype(l)
      integer l
      basetype=mod(l,100)
      return
      end

      integer function algtyp2(m1,m2)
      integer m1,m2
      if (m1.eq.0) then
         algtyp2=m2
      else
         algtyp2=900+100*m1+m2
      endif
      return
      end

c      integer function algcode(l)
c      integer l
c      integer typecode
c      if (l.le.999) then
c         algcode=0
c      else
c         algcode=(l-900-typecode(l))/100
c      endif
c      return
c      end

      double precision function addid(l)
      integer l
      if (l.eq.1) then
         addid=-(10000.3**10000.3)
      elseif (l.eq.2) then
         addid=(10000.3**10000.3)
      else 
         addid=0.0d0
      endif
      return
      end

      double precision function peak(l)
      integer l
         if (l.eq.2) then
            peak=-(10000.3**10000.3)
         else
            peak=(10000.3**10000.3)
         endif
      return
      end