File: iseye.f

package info (click to toggle)

scilab 2.2-4

links: PTS
area: non-free
in suites: hamm
size: 31,472 kB
ctags: 21,963
sloc: fortran: 110,983; ansic: 89,717; makefile: 3,016; sh: 1,892; csh: 150; cpp: 101

file content (11 lines) | stat: -rw-r--r-- 243 bytes

C/MEMBR ADD NAME=ISEYE,SSI=0
      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