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