ViewVC Help
View File | Revision Log | Show Annotations | View Changeset | Root Listing
root/group/branches/new_design/OOPSE-2.0/src/UseTheForce/DarkSide/force_globals.F90
(Generate patch)

Comparing branches/new_design/OOPSE-2.0/src/UseTheForce/DarkSide/force_globals.F90 (file contents):
Revision 1875, Thu Oct 28 22:34:02 2004 UTC vs.
Revision 1876 by gezelter, Thu Dec 9 20:43:05 2004 UTC

# Line 16 | Line 16 | module force_globals
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    
# Line 94 | Line 94 | contains
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
# Line 252 | Line 252 | contains
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

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines