diff --git a/src/base/base_module.f90 b/src/base/base_module.f90 index 99b0cd145..d9d456958 100644 --- a/src/base/base_module.f90 +++ b/src/base/base_module.f90 @@ -443,84 +443,84 @@ 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 @@ -528,5 +528,4 @@ end subroutine base_cobroadcast_param #endif - end module base diff --git a/src/coarray/coarray_module.f90 b/src/coarray/coarray_module.f90 index e9905b9df..a8b9f02ab 100644 --- a/src/coarray/coarray_module.f90 +++ b/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