コード例 #1
0
double LisMPIDiscreteVector::getNormInf()
{
    double val = .0;
    int err = lis_vector_nrmi(_v, &val);
    CHKERR(err);
    return val;
}
コード例 #2
0
ファイル: lisf_vector.c プロジェクト: anishida/lis
void lis_vector_nrmi_f(LIS_VECTOR_F *x, LIS_REAL *value, LIS_INT *ierr)
{
	LIS_DEBUG_FUNC_IN;

	*ierr = lis_vector_nrmi((LIS_VECTOR)LIS_V2P(x),value);
	if( *ierr )	return;

	LIS_DEBUG_FUNC_OUT;
	return;
}