ViewVC Help
View File | Revision Log | Show Annotations | View Changeset | Root Listing
root/group/trunk/OOPSE-4/src/UseTheForce/DarkSide/suttonchen.F90
(Generate patch)

Comparing trunk/OOPSE-4/src/UseTheForce/DarkSide/suttonchen.F90 (file contents):
Revision 2679 by chuckv, Tue Jan 10 21:14:32 2006 UTC vs.
Revision 2680 by chuckv, Thu Mar 30 21:08:48 2006 UTC

# Line 209 | Line 209 | contains
209         deallocate(SCList%atidToSCtype)
210         SCList%atidToSCtype=>null()
211      end if
212 <
212 > ! Reset Capacity
213 >    SCList% nSCTypes = 0
214 >    SCList%currentSCtype=0
215  
216    end subroutine destroySCTypes
217  

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines