File: namstr.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 (48 lines) | stat: -rw-r--r-- 984 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
 
      subroutine namstr(id,str,n,job)
c     
c     converti un nom code scilab en une chaine scilab
c     
c
c     Copyright INRIA
      include '../stack.h'
      integer blank
      parameter (blank=40)
      integer id(nsiz),ch
      integer str(nlgh)
c     
      if(job.eq.0) goto 20
      i1=1
      do 15 l=1,nsiz
         idl=id(l)
         do 10 i=i1,i1+3
            k=(idl+128)/256
            if(k.lt.0) k=k-1
            ch=idl-256*k
            if(ch.eq.blank) then
               n=i-1
               return
            endif
            idl=k
            str(i)=ch
 10      continue
         i1=i1+4
 15   continue
      n=nlgh
      return
c     
 20   continue
      i1=1
      do 30 l=1,nsiz
         id(l)=0
         do 22 i=1,4
            ii=i1+4-i
            if(ii.le.n) then
               id(l)=256*id(l)+str(ii)
            else
               id(l)=256*id(l)+blank
            endif
 22      continue
         i1=i1+4
 30   continue
      return
      end