Parent Directory
| 
Revision Log
| 
Patch
| trunk/libf/dyn3d/ener.f90 revision 46 by guez, Mon May 16 14:52:30 2011 UTC | trunk/Sources/dyn3d/ener.f revision 134 by guez, Wed Apr 29 15:47:56 2015 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 |