| 34 |
|
|
| 35 |
|
integer, allocatable, dimension(:), public :: atid_Row |
| 36 |
|
integer, allocatable, dimension(:), public :: atid_Col |
| 37 |
– |
#else |
| 38 |
– |
integer, allocatable, dimension(:), public :: atid |
| 37 |
|
#endif |
| 38 |
+ |
|
| 39 |
+ |
integer, allocatable, dimension(:), public :: atid |
| 40 |
+ |
|
| 41 |
|
real( kind = dp ), allocatable, dimension(:,:), public :: rf |
| 42 |
|
real(kind = dp), dimension(9), public :: tau_Temp = 0.0_dp |
| 43 |
|
real(kind = dp), public :: virial_Temp = 0.0_dp |
| 154 |
|
return |
| 155 |
|
endif |
| 156 |
|
|
| 157 |
+ |
allocate(atid(nlocal),stat=alloc_stat) |
| 158 |
+ |
if (alloc_stat /= 0 ) then |
| 159 |
+ |
thisStat = -1 |
| 160 |
+ |
return |
| 161 |
+ |
endif |
| 162 |
+ |
|
| 163 |
+ |
|
| 164 |
|
allocate(atid_Row(nrow),stat=alloc_stat) |
| 165 |
|
if (alloc_stat /= 0 ) then |
| 166 |
|
thisStat = -1 |
| 222 |
|
if (allocated(rf_Row)) deallocate(rf_Row) |
| 223 |
|
if (allocated(atid_Col)) deallocate(atid_Col) |
| 224 |
|
if (allocated(atid_Row)) deallocate(atid_Row) |
| 225 |
+ |
if (allocated(atid)) deallocate(atid) |
| 226 |
|
if (allocated(t_Temp)) deallocate(t_Temp) |
| 227 |
|
if (allocated(t_Col)) deallocate(t_Col) |
| 228 |
|
if (allocated(t_Row)) deallocate(t_Row) |
