Searched refs:size_bcol (Results 1 – 4 of 4) sorted by relevance
224 IF (.NOT. ALLOCATED(copy%size_bcol)) THEN227 IF (SIZE(copy%size_bcol) .NE. SIZE(original%size_bcol)) THEN228 DEALLOCATE (copy%size_bcol)240 copy%size_bcol(icol) = original%size_bcol(icol)418 IF (ALLOCATED(subm%size_bcol)) THEN419 DEALLOCATE (subm%size_bcol)507 IF (ALLOCATED(C%size_bcol)) THEN508 DEALLOCATE (C%size_bcol)510 ALLOCATE (C%size_bcol(C%nbcols))518 C%size_brow(irow) = A%size_bcol(irow)[all …]
39 INTEGER, DIMENSION(:), ALLOCATABLE :: size_bcol component