$ if( allocated(cell_cntr) .or. & $ & allocated(vol)) then $ call abort_psblas $ end if
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(vertex), | intent(in), | allocatable | :: | verts(:) | ||
type(face), | intent(in), | allocatable | :: | faces(:) | ||
type(cell), | intent(in), | allocatable | :: | cells(:) | ||
type(connectivity), | intent(in) | :: | v2f | |||
type(connectivity), | intent(in) | :: | v2c | |||
type(connectivity), | intent(in) | :: | f2c | |||
integer, | intent(in) | :: | ncd | |||
type(vector), | intent(out), | allocatable | :: | cell_cntr(:) | ||
real(kind=psb_dpk_), | intent(out), | allocatable | :: | vol(:) | ||
logical, | intent(in), | optional | :: | quiet |