--- trunk/OOPSE-2.0/src/UseTheForce/DarkSide/atype_interface.F90 2005/04/12 21:26:42 2176 +++ trunk/OOPSE-2.0/src/UseTheForce/DarkSide/atype_interface.F90 2005/04/12 21:27:02 2177 @@ -36,8 +36,8 @@ end subroutine end subroutine -!clears memory up +! clears memory up subroutine deleteAtypes() -use atype_module,ONLY: delete_atypes -call delete_atypes() + use atype_module,ONLY: delete_atypes + call delete_atypes() end subroutine deleteatypes