/*-------------------------------------------------------------------------
* Function: main
*
* Purpose: Test links
*
* Return: Success: exit(0)
*
* Failure: exit(non-zero)
*
* Programmer: Robb Matzke
* Friday, August 14, 1998
*
* Modifications:
*
*-------------------------------------------------------------------------
*/
int
main(void)
{
int nerrors = 0;
hid_t fapl;
h5_reset();
fapl = h5_fileaccess();
/* The tests... */
nerrors += mklinks(fapl) < 0 ? 1 : 0;
nerrors += cklinks(fapl) < 0 ? 1 : 0;
nerrors += new_links(fapl) < 0 ? 1 : 0;
nerrors += ck_new_links(fapl) < 0 ? 1 : 0;
nerrors += long_links(fapl) < 0 ? 1 : 0;
nerrors += toomany(fapl) < 0 ? 1 : 0;
nerrors += ud_link_compat(fapl) < 0 ? 1 : 0;
nerrors += group_version_macros(fapl) < 0 ? 1 : 0;
/* Results */
if (nerrors) {
printf("***** %d LINK TEST%s FAILED! *****\n",
nerrors, 1 == nerrors ? "" : "S");
exit(1);
}
printf("All link tests passed.\n");
h5_cleanup(FILENAME, fapl);
return 0;
}
int
main(int argc, char *argv[])
{
if(argc != 2) {
usage(argv);
exit(1);
}
char *e;
size_t L = (int)strtoul(argv[1], &e, 10);
if(*e != '\0') {
usage(argv);
exit(2);
}
_Complex float *b = new_field(L);
_Complex float *x = new_field(L);
_Complex float *u = new_links(L);
rand_links(L, u);
rand_field(L, b);
zero_field(L, x);
cg(L, x, b, u);
free(b);
free(x);
free(u);
return 0;
}
int
main(int argc, char *argv[])
{
if(argc != 4) {
usage(argv);
exit(1);
}
char *e;
size_t L = (int)strtoul(argv[1], &e, 10);
if(*e != '\0') {
usage(argv);
exit(2);
}
size_t Sy = (int)strtoul(argv[2], &e, 10);
if(*e != '\0') {
usage(argv);
exit(2);
}
size_t Sx = (int)strtoul(argv[3], &e, 10);
if(*e != '\0') {
usage(argv);
exit(2);
}
latparams lp = init_latparams(L, Sy, Sx);
field **b = new_field(lp);
field **x = new_field(lp);
link **g = new_links(lp);
rand_links(lp, g);
rand_field(lp, b);
zero_field(lp, x);
cg(lp, x, b, g);
del_field(b);
del_field(x);
del_links(g);
return 0;
}
