Searched refs:size_brow (Results 1 – 4 of 4) sorted by relevance
216 IF (.NOT. ALLOCATED(copy%size_brow)) THEN219 IF (SIZE(copy%size_brow) .NE. SIZE(original%size_brow)) THEN220 DEALLOCATE (copy%size_brow)235 copy%size_brow(irow) = original%size_brow(irow)415 IF (ALLOCATED(subm%size_brow)) THEN416 DEALLOCATE (subm%size_brow)503 IF (ALLOCATED(C%size_brow)) THEN504 DEALLOCATE (C%size_brow)506 ALLOCATE (C%size_brow(C%nbrows))515 C%size_brow(irow) = A%size_brow(irow)[all …]
38 INTEGER, DIMENSION(:), ALLOCATABLE :: size_brow component