File: iseye.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 (12 lines) | stat: -rw-r--r-- 265 bytes

C/MEMBR ADD NAME=ISEYE,SSI=0
c     Copyright INRIA
      logical function iseye(ib)
      integer ib(3),eye(3)
      data eye/14,34,14/
      iseye=.false.
      do 10 i=1,3
      if (ib(i).ne.eye(i)) return
 10   continue
      iseye=.true.
      return
      end