Refactored cocopy to coclone to reflect what is actually being done b…

…y this procedure

src/base/base_module.f90

@@ -443,90 +443,89 @@ subroutine base_cobroadcast_param(self)
          ! Internals
          integer(I4B) :: i
 
-         call cocopy(self%integrator)
-         call cocopy(self%param_file_name)
-         call cocopy(self%t0)
-         call cocopy(self%tstart)
-         call cocopy(self%tstop)
-         call cocopy(self%dt)
-         call cocopy(self%iloop)
-         call cocopy(self%nloops)
-         call cocopy(self%incbfile)
-         call cocopy(self%inplfile)
-         call cocopy(self%intpfile)
-         call cocopy(self%nc_in)
-         call cocopy(self%in_type)
-         call cocopy(self%in_form)
-         call cocopy(self%istep_out)
-         call cocopy(self%nstep_out)
-         call cocopy(self%fstep_out)
-         call cocopy(self%ltstretch)
-         call cocopy(self%outfile)
-         call cocopy(self%out_type)
-         call cocopy(self%out_form)
-         call cocopy(self%out_stat)
-         call cocopy(self%dump_cadence)
-         call cocopy(self%rmin)
-         call cocopy(self%rmax)
-         call cocopy(self%rmaxu)
-         call cocopy(self%qmin)
-         call cocopy(self%qmin_coord)
-         call cocopy(self%qmin_alo)
-         call cocopy(self%qmin_ahi)
-         call cocopy(self%MU2KG)
-         call cocopy(self%TU2S)
-         call cocopy(self%DU2M)
-         call cocopy(self%GU)
-         call cocopy(self%inv_c2)
-         call cocopy(self%GMTINY)
-         call cocopy(self%min_GMfrag)
-         call cocopy(self%nfrag_reduction)
-         call cocopy(self%lmtiny_pl)
-         call cocopy(self%collision_model)
-         call cocopy(self%encounter_save)
-         call cocopy(self%lenc_save_trajectory)
-         call cocopy(self%lenc_save_closest   )
-         call cocopy(self%interaction_loops   )
-         call cocopy(self%encounter_check_plpl)
-         call cocopy(self%encounter_check_pltp)
-         call cocopy(self%lflatten_interactions)
-         call cocopy(self%lencounter_sas_plpl)
-         call cocopy(self%lencounter_sas_pltp      )
-         call cocopy(self%lrhill_present)
-         call cocopy(self%lextra_force  )
-         call cocopy(self%lbig_discard  )
-         call cocopy(self%lclose        )
-         call cocopy(self%lenergy       )
-         call cocopy(self%loblatecb     )
-         call cocopy(self%lrotation     )
-         call cocopy(self%ltides        )
-         call cocopy(self%E_orbit_orig )
-         call cocopy(self%GMtot_orig  )
+         call coclone(self%integrator)
+         call coclone(self%param_file_name)
+         call coclone(self%t0)
+         call coclone(self%tstart)
+         call coclone(self%tstop)
+         call coclone(self%dt)
+         call coclone(self%iloop)
+         call coclone(self%nloops)
+         call coclone(self%incbfile)
+         call coclone(self%inplfile)
+         call coclone(self%intpfile)
+         call coclone(self%nc_in)
+         call coclone(self%in_type)
+         call coclone(self%in_form)
+         call coclone(self%istep_out)
+         call coclone(self%nstep_out)
+         call coclone(self%fstep_out)
+         call coclone(self%ltstretch)
+         call coclone(self%outfile)
+         call coclone(self%out_type)
+         call coclone(self%out_form)
+         call coclone(self%out_stat)
+         call coclone(self%dump_cadence)
+         call coclone(self%rmin)
+         call coclone(self%rmax)
+         call coclone(self%rmaxu)
+         call coclone(self%qmin)
+         call coclone(self%qmin_coord)
+         call coclone(self%qmin_alo)
+         call coclone(self%qmin_ahi)
+         call coclone(self%MU2KG)
+         call coclone(self%TU2S)
+         call coclone(self%DU2M)
+         call coclone(self%GU)
+         call coclone(self%inv_c2)
+         call coclone(self%GMTINY)
+         call coclone(self%min_GMfrag)
+         call coclone(self%nfrag_reduction)
+         call coclone(self%lmtiny_pl)
+         call coclone(self%collision_model)
+         call coclone(self%encounter_save)
+         call coclone(self%lenc_save_trajectory)
+         call coclone(self%lenc_save_closest   )
+         call coclone(self%interaction_loops   )
+         call coclone(self%encounter_check_plpl)
+         call coclone(self%encounter_check_pltp)
+         call coclone(self%lflatten_interactions)
+         call coclone(self%lencounter_sas_plpl)
+         call coclone(self%lencounter_sas_pltp      )
+         call coclone(self%lrhill_present)
+         call coclone(self%lextra_force  )
+         call coclone(self%lbig_discard  )
+         call coclone(self%lclose        )
+         call coclone(self%lenergy       )
+         call coclone(self%loblatecb     )
+         call coclone(self%lrotation     )
+         call coclone(self%ltides        )
+         call coclone(self%E_orbit_orig )
+         call coclone(self%GMtot_orig  )
          do i = 1, NDIM
-            call cocopy(self%L_total_orig(i))
-            call cocopy(self%L_orbit_orig(i))
-            call cocopy(self%L_spin_orig(i))
-            call cocopy(self%L_escape(i))
+            call coclone(self%L_total_orig(i))
+            call coclone(self%L_orbit_orig(i))
+            call coclone(self%L_spin_orig(i))
+            call coclone(self%L_escape(i))
          end do
-         call cocopy(self%GMescape    )
-         call cocopy(self%E_collisions )
-         call cocopy(self%E_untracked  )
-         call cocopy(self%lfirstenergy)
-         call cocopy(self%lfirstkick  )
-         call cocopy(self%lrestart    )
-         call cocopy(self%display_style)
-         call cocopy(self%display_unit )
-         call cocopy(self%log_output )
-         call cocopy(self%lgr       )
-         call cocopy(self%lyarkovsky)
-         call cocopy(self%lyorp     )
-         call cocopy(self%seed)
+         call coclone(self%GMescape    )
+         call coclone(self%E_collisions )
+         call coclone(self%E_untracked  )
+         call coclone(self%lfirstenergy)
+         call coclone(self%lfirstkick  )
+         call coclone(self%lrestart    )
+         call coclone(self%display_style)
+         call coclone(self%display_unit )
+         call coclone(self%log_output )
+         call coclone(self%lgr       )
+         call coclone(self%lyarkovsky)
+         call coclone(self%lyorp     )
+         call coclone(self%seed)
 
          return
       end subroutine base_cobroadcast_param 
 
 #endif
 
 
-
 end module base

src/coarray/coarray_module.f90

@@ -16,7 +16,7 @@ module coarray
     implicit none
     public
 
-    interface cocopy
+    interface coclone
         module procedure coarray_component_copy_char
         module procedure coarray_component_copy_DP
         module procedure coarray_component_copy_DP_arr1D