$ 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(:) |