modified:   iread_double.c