--- trunk/OOPSE/libmdtools/do_Forces.F90 2003/08/26 20:37:30 726 +++ trunk/OOPSE/libmdtools/do_Forces.F90 2003/10/28 20:09:45 834 @@ -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.33 2003-10-28 20:09:38 gezelter Exp $, $Date: 2003-10-28 20:09:38 $, $Name: not supported by cvs2svn $, $Revision: 1.33 $ 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