--- trunk/OOPSE/libmdtools/do_Forces.F90 2003/08/26 20:37:30 726 +++ trunk/OOPSE/libmdtools/do_Forces.F90 2003/10/04 18:46:12 801 @@ -4,7 +4,7 @@ !! @author Charles F. Vardeman II !! @author Matthew Meineke -!! @version $Id: do_Forces.F90,v 1.30 2003-08-26 20:37:30 tim Exp $, $Date: 2003-08-26 20:37:30 $, $Name: not supported by cvs2svn $, $Revision: 1.30 $ +!! @version $Id: do_Forces.F90,v 1.31 2003-10-04 18:46:12 chuckv Exp $, $Date: 2003-10-04 18:46:12 $, $Name: not supported by cvs2svn $, $Revision: 1.31 $ module do_Forces use force_globals @@ -154,8 +154,9 @@ contains if (FF_uses_EAM) then - call init_EAM_FF(my_status) + call init_EAM_FF(my_status) if (my_status /= 0) then + write(*,*) "init_EAM_FF returned a bad status" thisStat = -1 return end if