long isamax(long,float[],long);