[Octopus-notify] svn commit: r5693 - in trunk/src: basic states by xavier

[octopus-notify at tddft.org]

      Author: xavier
        Date: Tue Jul  7 07:41:35 2009
New Revision: 5693
   Changeset: http://www.tddft.org/trac/octopus/changeset/5693

Modified:
   trunk/src/basic/units.F90
   trunk/src/states/states.F90
   trunk/src/sternheimer/em_resp.F90

Log:
Some improvements in units_m:

* Defined the units_abbrev function.
* Overloaded *, / and ** for units_t.
* Defined unit_one.

Now it is possible to write things like:

g = units_to_atomic(length/time**2, g)

or

print*, trim(units_abbrev(length/time**2))