16 |
|
real( kind = dp ), allocatable, dimension(:,:), public :: q_Col |
17 |
|
real( kind = dp ), allocatable, dimension(:,:), public :: q_group_Row |
18 |
|
real( kind = dp ), allocatable, dimension(:,:), public :: q_group_Col |
19 |
< |
real( kind = dp ), allocatable, dimension(:,:), public :: u_l_Row |
20 |
< |
real( kind = dp ), allocatable, dimension(:,:), public :: u_l_Col |
19 |
> |
real( kind = dp ), allocatable, dimension(:,:), public :: eFrame_Row |
20 |
> |
real( kind = dp ), allocatable, dimension(:,:), public :: eFrame_Col |
21 |
|
real( kind = dp ), allocatable, dimension(:,:), public :: A_Row |
22 |
|
real( kind = dp ), allocatable, dimension(:,:), public :: A_Col |
23 |
|
|
94 |
|
return |
95 |
|
endif |
96 |
|
|
97 |
< |
allocate(u_l_Row(ndim,nAtomsInRow),stat=alloc_stat) |
97 |
> |
allocate(eFrame_Row(9,nAtomsInRow),stat=alloc_stat) |
98 |
|
if (alloc_stat /= 0 ) then |
99 |
|
thisStat = -1 |
100 |
|
return |
101 |
|
endif |
102 |
|
|
103 |
< |
allocate(u_l_Col(ndim,nAtomsInCol),stat=alloc_stat) |
103 |
> |
allocate(eFrame_Col(9,nAtomsInCol),stat=alloc_stat) |
104 |
|
if (alloc_stat /= 0 ) then |
105 |
|
thisStat = -1 |
106 |
|
return |
252 |
|
if (allocated(pot_Row)) deallocate(pot_Row) |
253 |
|
if (allocated(A_Col)) deallocate(A_Col) |
254 |
|
if (allocated(A_Row)) deallocate(A_Row) |
255 |
< |
if (allocated(u_l_Col)) deallocate(u_l_Col) |
256 |
< |
if (allocated(u_l_Row)) deallocate(u_l_Row) |
255 |
> |
if (allocated(eFrame_Col)) deallocate(eFrame_Col) |
256 |
> |
if (allocated(eFrame_Row)) deallocate(eFrame_Row) |
257 |
|
if (allocated(q_group_Col)) deallocate(q_group_Col) |
258 |
|
if (allocated(q_group_Row)) deallocate(q_group_Row) |
259 |
< |
if (allocated(q_Col)) deallocate(q_Col) |
260 |
< |
if (allocated(q_Row)) deallocate(q_Row) |
259 |
> |
if (allocated(q_Col)) deallocate(q_Col) |
260 |
> |
if (allocated(q_Row)) deallocate(q_Row) |
261 |
|
#else |
262 |
|
if (allocated(atid)) deallocate(atid) |
263 |
|
#endif |