/* ** -*- C -*- ** ** cfinda.c ** Made by Bruno JOFRET ** ** Started on Tue Feb 13 16:46:42 2007 jofret ** Last update Mon Oct 22 15:45:30 2007 bruno ** ** Copyright INRIA 2007 */ #include "find.h" int cfinda(floatComplex* z, int size) { int i = 0; for (i = 0; i < size ; ++i) { if (creals(z[i]) != 0 || cimags(z[i]) != 0) { return i; } } return NOT_FOUND; }