1      subroutine argos_cafe_print_energy(lfnout)
2c
3      implicit none
4c
5#include "argos_cafe_common.fh"
6#include "mafdecls.fh"
7c
8      integer lfnout
9c
10      if(numb(2).gt.0) call argos_cafe_pr_bonds(lfnout,numb(2),
11     + mbt(2),mbp(2),
12     + int_mb(i_ibnd(2)),dbl_mb(i_bnd(2)),dbl_mb(i_rbnd(2)),
13     + byte_mb(i_snam))
14c
15      if(numh(2).gt.0) call argos_cafe_pr_angles(lfnout,numh(2),
16     + mht(2),mhp(2),
17     + int_mb(i_iang(2)),dbl_mb(i_ang(2)),dbl_mb(i_rang(2)),
18     + dbl_mb(i_rub(2)),
19     + byte_mb(i_snam))
20c
21      if(numd(2).gt.0) call argos_cafe_pr_dihes(lfnout,numd(2),
22     + mdt(2),mdp(2),
23     + int_mb(i_idih(2)),dbl_mb(i_dih(2)),dbl_mb(i_rdih(2)),
24     + byte_mb(i_snam))
25c
26      if(numi(2).gt.0) call argos_cafe_pr_imprs(lfnout,numi(2),
27     + mit(2),mip(2),
28     + int_mb(i_iimp(2)),dbl_mb(i_imp(2)),dbl_mb(i_rimp(2)),
29     + byte_mb(i_snam))
30c
31      if(numpmf.gt.0) call argos_cafe_pr_pmf(lfnout,int_mb(i_ipmf),
32     + dbl_mb(i_upmf))
33c
34      return
35      end
36c $Id$
37