static int bloch_jacobian(long int N, realtype t,
N_Vector M, N_Vector fM, DlsMat J, void *user_data,
N_Vector tmp1, N_Vector tmp2, N_Vector tmp3)
{
struct bloch_sim *bs = (struct bloch_sim*)user_data;
int i;
for (i=0; i < bs->num_cells; ++i)
{
realtype dw = bs->cell_frequencies[i] - bs->w_avg;
realtype w_1 = bs->rf_on ? bs->w_1 : 0.0;
XX(J,i) = -1 / bs->T_2;
XY(J,i) = dw;
XZ(J,i) = 0.0;
YX(J,i) = -dw;
YY(J,i) = -1 / bs->T_2;
YZ(J,i) = w_1;
ZX(J,i) = 0.0;
ZY(J,i) = -w_1;
ZZ(J,i) = -1 / bs->T_1;
}
return 0;
}
std::string Ioss::Full_Tensor_16::label(int which, const char) const
{
assert(which > 0 && which <= component_count());
switch(which) {
case 1: return XX();
case 2: return XY();
case 3: return YZ();
case 4: return ZX();
case 5: return YX();
case 6: return ZY();
case 7: return XZ();
default: return "";
}
}
/* Subroutine */ int zswap_(integer *n, doublecomplex *zx, integer *incx,
doublecomplex *zy, integer *incy)
{
/* System generated locals */
integer i__1, i__2, i__3;
/* Local variables */
static integer i;
static doublecomplex ztemp;
static integer ix, iy;
/* interchanges two vectors.
jack dongarra, 3/11/78.
modified 12/3/93, array(1) declarations changed to array(*)
Parameter adjustments
Function Body */
#define ZY(I) zy[(I)-1]
#define ZX(I) zx[(I)-1]
if (*n <= 0) {
return 0;
}
if (*incx == 1 && *incy == 1) {
goto L20;
}
/* code for unequal increments or equal increments not equal
to 1 */
ix = 1;
iy = 1;
if (*incx < 0) {
ix = (-(*n) + 1) * *incx + 1;
}
if (*incy < 0) {
iy = (-(*n) + 1) * *incy + 1;
}
i__1 = *n;
for (i = 1; i <= *n; ++i) {
i__2 = ix;
ztemp.r = ZX(ix).r, ztemp.i = ZX(ix).i;
i__2 = ix;
i__3 = iy;
ZX(ix).r = ZY(iy).r, ZX(ix).i = ZY(iy).i;
i__2 = iy;
ZY(iy).r = ztemp.r, ZY(iy).i = ztemp.i;
ix += *incx;
iy += *incy;
/* L10: */
}
return 0;
/* code for both increments equal to 1 */
L20:
i__1 = *n;
for (i = 1; i <= *n; ++i) {
i__2 = i;
ztemp.r = ZX(i).r, ztemp.i = ZX(i).i;
i__2 = i;
i__3 = i;
ZX(i).r = ZY(i).r, ZX(i).i = ZY(i).i;
i__2 = i;
ZY(i).r = ztemp.r, ZY(i).i = ztemp.i;
/* L30: */
}
return 0;
} /* zswap_ */
