anchor.diff:    use bl_IO_module
     use probdata_module, only: com_P, com_S, vel_P, vel_S, mass_P, mass_S
     use prob_params_module, only: center
  +  use meth_params_module, only: rot_period
   
     implicit none
   
  
positive.code:   ! called by ALL processors during restart 
  
    use bl_IO_module
    use probdata_module, only: com_P, com_S, vel_P, vel_S, mass_P, mass_S
    use prob_params_module, only: center
  
    implicit none
  
  
negative.code:   read (un,100) vel_P(3), vel_S(3)
  
    close (un)
  
  
  
    if (problem .eq. 3) then
  
       open (unit=un, file=trim(dir)//"/Rotation", status="old")
  
       read (un,100) rot_period
  
       close (un)
  
    endif
  
  end subroutine problem_restart
  
  