File: algebre.f

package info (click to toggle)
scilab 2.4-1
  • links: PTS
  • area: non-free
  • in suites: potato, slink
  • size: 55,196 kB
  • ctags: 38,019
  • sloc: ansic: 231,970; fortran: 148,976; tcl: 7,099; makefile: 4,585; sh: 2,978; csh: 154; cpp: 101; asm: 39; sed: 5
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 algtype(m1,m2)
      integer m1,m2
      if (m1.eq.0) then
         algtype=m2
      else
         algtype=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