$ if( allocated(df) .or. & $ & allocated(dist) .or. & $ & allocated(int_fact)) then $ call abort_psblas $ end if
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(face), | intent(in), | allocatable | :: | faces(:) | ||
type(connectivity), | intent(in) | :: | f2b | |||
type(vector), | intent(in), | allocatable | :: | face_cntr(:) | ||
type(vector), | intent(in), | allocatable | :: | af(:) | ||
type(vector), | intent(in), | allocatable | :: | cell_cntr(:) | ||
type(vector), | intent(out), | allocatable | :: | df(:) | ||
real(kind=psb_dpk_), | intent(out), | allocatable | :: | dist(:) | ||
real(kind=psb_dpk_), | intent(out), | allocatable | :: | int_fact(:) |