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

Comparing trunk/OOPSE-2.0/src/UseTheForce/DarkSide/atype.F90 (file contents):
Revision 2204 by gezelter, Fri Apr 15 22:04:00 2005 UTC vs.
Revision 2211 by chrisfen, Thu Apr 21 14:12:19 2005 UTC

# Line 80 | Line 80 | contains
80  
81      me = addElement(atypes)
82  
83 +    write(*,*) 'setting c_ident = ', ident
84      call setElementProperty(atypes, me, "c_ident", ident)
85  
86      call setElementProperty(atypes, me, "is_Directional", is_Directional)

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines