! ! $Id: ener.h 1952 2014-01-28 13:05:47Z acaubel $ ! ! ATTENTION!!!!: ce fichier include est compatible format fixe/format libre ! veillez à n'utiliser que des ! pour les commentaires ! et à bien positionner les & des lignes de continuation ! (les placer en colonne 6 et en colonne 73) ! ! INCLUDE 'ener.h' COMMON/ener/ang0,etot0,ptot0,ztot0,stot0, & & ang,etot,ptot,ztot,stot,rmsdpdt , & & rmsv,gtot(llmm1) REAL ang0,etot0,ptot0,ztot0,stot0, & & ang,etot,ptot,ztot,stot,rmsdpdt,rmsv,gtot !-----------------------------------------------------------------------