File: whatln.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 (41 lines) | stat: -rw-r--r-- 993 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
 
      subroutine whatln(lpt1,lpt2,lpt6,nct,idebut,ifin)
c!but
c     whatln permet de retrouver dans quelle ligne d'instruction 
c     se trouve le caractere designe par le pointeur lpt2 sachant 
c     que les lignes d'instructions considerees se situent entre 
c     lpt1 et lpt6 dans le tableau lin.
c
c     en retour:
c     nct : nombre de lignes qui suivent la ligne "contenant" le 
c           caractere designe par lpt2
c     idebut : pointeur sur le debut de la ligne
c     ifin   : pointeur sur la fin de la ligne
c!
c
c     Copyright INRIA
      include '../stack.h'
      integer eol
      data eol/99/
c
      nct=0
      l2=lpt2
      if(lin(l2).eq.eol) l2=l2-1
      ifin=lpt6-1
      ii=lpt6
 10   ii=ii-1
      if(ii.le.l2) goto 20
      if(lin(ii).eq.eol) then
         nct=nct+1
         ifin=ii-1
      endif
      goto 10
c
 20   continue
      idebut=lpt1
 21   ii=ii-1
      if(ii.le.lpt1) return
      if(lin(ii).ne.eol) goto 21
      idebut=ii+1
      return
c
      end