Fix module imports in binary

This should stop ifort complaining about importing names from another
module. As these are the null routines people should not need to copy them
so we don't need to worry about the import list being edited by someone.

Author: rjfarmer

binary/other/mod_other_binary_extras.f90

@@ -34,7 +34,8 @@ module mod_other_binary_extras
       contains
 
       integer function null_extras_binary_startup(binary_id,restart,ierr)
-         use binary_def
+         use binary_def, only : binary_info, binary_ptr
+         use star_def, only : keep_going
          use const_def
          type (binary_info), pointer :: b
          integer, intent(in) :: binary_id
@@ -50,7 +51,8 @@ integer function null_extras_binary_startup(binary_id,restart,ierr)
       end function  null_extras_binary_startup
 
       integer function null_extras_binary_start_step(binary_id,ierr)
-         use binary_def
+         use binary_def, only : binary_info, binary_ptr
+         use star_def, only : keep_going
          use const_def
          type (binary_info), pointer :: b
          integer, intent(in) :: binary_id
@@ -66,7 +68,8 @@ end function  null_extras_binary_start_step
 
       !Return either keep_going, retry or terminate
       integer function null_extras_binary_check_model(binary_id)
-         use binary_def
+         use binary_def, only : binary_info, binary_ptr
+         use star_def, only : keep_going
          use const_def
          type (binary_info), pointer :: b
          integer, intent(in) :: binary_id
@@ -83,7 +86,8 @@ end function null_extras_binary_check_model
       ! returns either keep_going or terminate.
       ! note: cannot request retry; extras_binary_check_model can do that.
       integer function null_extras_binary_finish_step(binary_id)
-         use binary_def
+         use binary_def, only : binary_info, binary_ptr
+         use star_def, only : keep_going
          use const_def
          type (binary_info), pointer :: b
          integer, intent(in) :: binary_id
@@ -99,7 +103,7 @@ end function null_extras_binary_finish_step
 
 
       subroutine null_extras_binary_after_evolve(binary_id, ierr)
-         use binary_def
+         use binary_def, only : binary_info, binary_ptr
          use const_def
          type (binary_info), pointer :: b
          integer, intent(in) :: binary_id
@@ -112,7 +116,7 @@ subroutine null_extras_binary_after_evolve(binary_id, ierr)
       end subroutine null_extras_binary_after_evolve
 
       integer function null_how_many_extra_binary_history_columns(binary_id)
-         use binary_def
+         use binary_def, only : binary_info, binary_ptr
          use const_def
          integer, intent(in) :: binary_id
          type (binary_info), pointer :: b
@@ -128,7 +132,7 @@ integer function null_how_many_extra_binary_history_columns(binary_id)
       end function null_how_many_extra_binary_history_columns
 
       subroutine null_data_for_extra_binary_history_columns(binary_id, n, names, vals, ierr)
-         use binary_def
+         use binary_def, only : binary_info, binary_ptr, maxlen_binary_history_column_name
          use const_def
          integer, intent(in) :: binary_id
          integer, intent(in) :: n
@@ -147,16 +151,14 @@ end subroutine null_data_for_extra_binary_history_columns
 
 
       integer function null_how_many_extra_binary_history_header_items(binary_id)
-         use binary_def
          use const_def
-         use binary_def, only: binary_info
          integer, intent(in) :: binary_id
          null_how_many_extra_binary_history_header_items = 0
       end function null_how_many_extra_binary_history_header_items
 
       subroutine null_data_for_extra_binary_history_header_items( &
            binary_id, n, names, vals, ierr)
-         use binary_def
+         use binary_def, only : binary_info, binary_ptr, maxlen_binary_history_column_name
          use const_def
          type (binary_info), pointer :: b
          integer, intent(in) :: binary_id, n