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) |