$ if( allocated(face_cntr) .or. & $ & allocated(af) .or. & $ & allocated(area)) then $ call abort_psblas $ end if
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(vertex), | intent(in), | allocatable | :: | verts(:) | ||
type(connectivity), | intent(in) | :: | v2f | |||
integer, | intent(in) | :: | ncd | |||
type(vector), | intent(out), | allocatable | :: | face_cntr(:) | ||
type(vector), | intent(out), | allocatable | :: | af(:) | ||
real(kind=psb_dpk_), | intent(out), | allocatable | :: | area(:) |