From d2f3429faf3d1435fa26415d3891adfe6ef25aa1 Mon Sep 17 00:00:00 2001 From: Gloria Tabacchi Date: Sun, 1 Jul 2001 17:42:00 +0000 Subject: [PATCH] small chenges for addition of empirical parameters svn-origin-rev: 30 --- src/force_control.F | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/force_control.F b/src/force_control.F index b03690ae40..c71a4ca3ad 100644 --- a/src/force_control.F +++ b/src/force_control.F @@ -99,8 +99,8 @@ SUBROUTINE force_1 ( struc, inter, thermo, simpar, ewald_param, box_change, & CALL pol_force_control ( struc % molecule, struc % pnode, struc % part, & struc % box, struc % box_ref, struc % drho_basis_info, & struc % rho0_basis_info, struc % coef_pos (1), struc % coef_vel (1), & - struc % coef_force (1), thermo, inter%potparm, ewald_param, & - simpar % ensemble, globenv, struc%ll_data ) + struc % coef_force (1), thermo, inter%potparm, inter%empparm, & + ewald_param, simpar % ensemble, globenv, struc%ll_data ) CASE ( 'TBMD' ) CALL tbmd_force_control ( struc % molecule, struc % pnode, struc % part, &