| 201 |  |  | 
| 202 |  | if ((rowp == NULL) | (n <= 0)) | 
| 203 |  | return(0); | 
| 204 | < | nread = fread(rowp, sizeof(float), n, stdin); | 
| 204 | > | nread = getbinary(rowp, sizeof(float), n, stdin); | 
| 205 |  | if (nread != n) | 
| 206 |  | error(USER, "unexpected EOF on float input"); | 
| 207 |  | return(nread); | 
| 227 |  | if (rowbuf == NULL) | 
| 228 |  | error(SYSTEM, "out of memory in read_double"); | 
| 229 |  | } | 
| 230 | < | nread = fread(rowbuf, sizeof(double), n, stdin); | 
| 230 | > | nread = getbinary(rowbuf, sizeof(double), n, stdin); | 
| 231 |  | if (nread != n) | 
| 232 |  | error(USER, "unexpected EOF on double input"); | 
| 233 |  | for (i = 0; i < nread; i++) | 
| 276 |  | error(COMMAND, "unsupported input format"); | 
| 277 |  | break; | 
| 278 |  | } | 
| 279 | < | /* XXX VC warns about 32 bit shift coerced to 64 bit */ | 
| 280 | < | datarr = (float *)calloc(1<<(log2g*ttrank), sizeof(float)); | 
| 279 | > | datarr = (float *)calloc((size_t)1<<(log2g*ttrank), sizeof(float)); | 
| 280 |  | if (datarr == NULL) | 
| 281 |  | error(SYSTEM, "out of memory in load_data"); | 
| 282 |  | if (ttrank == 3) { |