Parent Directory | Revision Log | Patch
trunk/libf/dyn3d/ener.f90 revision 3 by guez, Wed Feb 27 13:16:39 2008 UTC | trunk/dyn3d/ener.f revision 104 by guez, Thu Sep 4 10:05:52 2014 UTC | |
---|---|---|
# | Line 2 module ener | Line 2 module ener |
2 | ||
3 | ! From ener.h, v 1.1.1.1 2004/05/19 12:53:07 lmdzadmin | ! From ener.h, v 1.1.1.1 2004/05/19 12:53:07 lmdzadmin |
4 | ||
use dimens_m, only: llm | ||
5 | implicit none | implicit none |
6 | ||
7 | private llm | REAL, save:: ang0, etot0, ptot0, ztot0, stot0 |
REAL ang0, etot0, ptot0, ztot0, stot0, ang, etot, ptot, ztot, stot, rmsdpdt | ||
real rmsv, gtot(llm-1) | ||
save | ||
8 | ||
9 | end module ener | end module ener |
|
ViewVC Help | |
Powered by ViewVC 1.1.21 |