| 128 |
|
!! Result status, success = 0, error = -1 |
| 129 |
|
integer, intent(out) :: status |
| 130 |
|
integer :: i, me, thisStat |
| 131 |
< |
integer :: myNode |
| 131 |
> |
integer :: myNode, alloc_stat |
| 132 |
|
|
| 133 |
|
#ifdef IS_MPI |
| 134 |
|
integer, allocatable, dimension(:) :: c_idents_Row |
| 189 |
|
enddo |
| 190 |
|
|
| 191 |
|
!! free temporary ident arrays |
| 192 |
< |
if (allocated(identCol)) then |
| 193 |
< |
deallocate(identCol) |
| 192 |
> |
if (allocated(c_idents_Col)) then |
| 193 |
> |
deallocate(c_idents_Col) |
| 194 |
|
end if |
| 195 |
< |
if (allocated(identCol)) then |
| 196 |
< |
deallocate(identRow) |
| 195 |
> |
if (allocated(c_idents_Row)) then |
| 196 |
> |
deallocate(c_idents_Row) |
| 197 |
|
endif |
| 198 |
|
|
| 199 |
|
#else |
