/*
 mat2ussmat deleteme.mat deleteme_uss.mat Steve Mann, 1990 DEC
 mat2ussmat - saves space by reading in double and writing out unsigned 16 bit
*/
#include <stdio.h>
#define DEBUG 1
main(argc,argv)
int argc;
char *argv[];
{
	FILE *fp, *fopen();
	char name[20];
	int type, mrows, ncols, imagf;
	double *xr, *xi;
 /* biggest array without core dump is 262144 bytes */
 unsigned short xrint[262144], xiint[262144]; /* malloc later */
 long MN, mn; /* prod of mcol and nrows... bightness of data */
 fprintf(stderr,"declared biggest array possible without get core\n");
 fprintf(stderr,"more than 262144 gives core dump. Try malloc?\n");
 if (argc < 3) { /* help */
 fprintf(stderr,"%s reduces storage requirement of matrices 1/4\n",
 argv[0]);
 fprintf(stderr,"use: %s deleteme.mat deleteme_new.mat\n", argv[0]);
 exit(-1); /* no error exit */
 }
	fp = fopen(argv[1],"r");
 if (fp==NULL) {perror(argv[0]); exit(-1);}
	if (loadmat(fp, &type, name, &mrows, &ncols, &imagf, &xr, &xi)) {
		printf("\nRead error\n");
	}
	fclose(fp);
 type = type + 40; /* indicate unsigned 16 bit integers */
 MN = mrows*ncols;
 for (mn =0 ; mn<mn; mn++) {
 xrint[mn] = (unsigned short) xr[mn];
 if (DEBUG) fprintf(stderr,"%d\n",xrint[mn]);
 if (imagf) xiint[mn] = (unsigned short) xi[mn];
 }
 	fp = fopen(argv[2],"w");
 	savematuss(fp, type, name, mrows, ncols, imagf, xrint, xiint);
	fclose(fp);
	free(xr);
	if (imagf) {
		free(xi);
	}
 fprintf(stdout,"Converted %d byte dbl data to quarter the data: %d byte of unsigned short\n",MN*8,MN*2);
}
</div><div class="naked_ctrl">
<form action="/index.cgi/contrast" method="get" name="gate">
<p><a href="http://altstyle.alfasado.net">AltStyle</a> によって変換されたページ <a href="http://wearcam.org/orbits/matlab/mat2ussmat_without_malloc.c">(-&gt;オリジナル)</a>
/ <label>アドレス: <input type="text" name="naked_post_url" value="http://wearcam.org/orbits/matlab/mat2ussmat_without_malloc.c" size="22" /></label> <label>モード: <select name="naked_post_mode">
<option value="default">デフォルト</option>
<option value="speech">音声ブラウザ</option>
<option value="ruby">ルビ付き</option>
<option value="contrast" selected="selected">配色反転</option>
<option value="larger-text">文字拡大</option>
<option value="mobile">モバイル</option>
</select>
<input type="submit" value="表示" />
</p>
</form>
</div>