You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
|
|
|
|
|
1
|
|
|
|
|
|
nella f90_psdspmm si se work non <20> presente si alloca work1
|
|
|
|
|
|
con dimensione pari a:
|
|
|
|
|
|
|
|
|
|
|
|
llwork= 2*desc_a%matrix_data(psb_n_col_)
|
|
|
|
|
|
if (a%pr(1) /= 0) llwork = llwork + in * ik
|
|
|
|
|
|
if (a%pl(1) /= 0) llwork = llwork + im * ik
|
|
|
|
|
|
|
|
|
|
|
|
per<65>, poi, in psdspmm_.c si controlla semplicemente che la
|
|
|
|
|
|
dimensione di work si maggiore di desc_a%matrix_data(psb_n_row_).
|
|
|
|
|
|
perch<63> allocare un'area cos<6F> grande?
|
|
|
|
|
|
|
|
|
|
|
|
2
|
|
|
|
|
|
nella psdspmm_.c nella parte in cui la matrice <20> trasposta si
|
|
|
|
|
|
usa il puntatore xcopy e si passa desc_as%matrix_data(psb_n_row_)
|
|
|
|
|
|
anzich<63> lldx: perch<63>?
|
