copy_yale_sparse Subroutine

public subroutine copy_yale_sparse(f, t)

Copy boolean sparse matrix in yale format f to t.

Arguments

Type IntentOptional Attributes Name
type(yale_sparse), intent(in) :: f

Matrix to copy
type(yale_sparse), intent(out) :: t

Destination matrix

Called by

proc~~copy_yale_sparse~~CalledByGraph proc~copy_yale_sparse copy_yale_sparse proc~check_conn_matrix check_conn_matrix proc~check_conn_matrix->proc~copy_yale_sparse proc~build_conn_upto_n build_conn_upto_n proc~check_conn_matrix->proc~build_conn_upto_n proc~build_conn_upto_n->proc~copy_yale_sparse proc~mmpol_prepare mmpol_prepare proc~mmpol_prepare->proc~copy_yale_sparse proc~mmpol_prepare->proc~build_conn_upto_n proc~init_vdw_for_link_atom init_vdw_for_link_atom proc~init_vdw_for_link_atom->proc~check_conn_matrix proc~mmpol_init_from_xyz mmpol_init_from_xyz proc~mmpol_init_from_xyz->proc~check_conn_matrix proc~mmpol_init_from_xyz->proc~build_conn_upto_n proc~mmpol_init_from_xyz->proc~mmpol_prepare proc~ommp_system_from_qm_helper ommp_system_from_qm_helper proc~ommp_system_from_qm_helper->proc~check_conn_matrix proc~ommp_system_from_qm_helper->proc~build_conn_upto_n proc~ommp_system_from_qm_helper->proc~mmpol_prepare proc~init_bonded_for_link_atom init_bonded_for_link_atom proc~init_bonded_for_link_atom->proc~check_conn_matrix proc~mmpol_init_from_mmp mmpol_init_from_mmp proc~mmpol_init_from_mmp->proc~mmpol_prepare proc~ommp_create_link_atom ommp_create_link_atom proc~ommp_create_link_atom->proc~init_vdw_for_link_atom proc~ommp_create_link_atom->proc~init_bonded_for_link_atom proc~ommp_init_mmp ommp_init_mmp proc~ommp_init_mmp->proc~mmpol_init_from_mmp proc~c_ommp_system_from_qm_helper C_ommp_system_from_qm_helper proc~c_ommp_system_from_qm_helper->proc~ommp_system_from_qm_helper proc~ommp_init_xyz ommp_init_xyz proc~ommp_init_xyz->proc~mmpol_init_from_xyz proc~c_ommp_create_link_atom C_ommp_create_link_atom proc~c_ommp_create_link_atom->proc~ommp_create_link_atom proc~c_ommp_init_xyz C_ommp_init_xyz proc~c_ommp_init_xyz->proc~ommp_init_xyz proc~c_ommp_init_mmp C_ommp_init_mmp proc~c_ommp_init_mmp->proc~ommp_init_mmp

Contents

Source Code

copy_yale_sparse

Source Code

        subroutine copy_yale_sparse(f, t)
            !! Copy boolean sparse matrix in yale format f to t.
            implicit none
            type(yale_sparse), intent(in) :: f
            !! Matrix to copy
            type(yale_sparse), intent(out) :: t
            !! Destination matrix

            allocate(t%ri(size(f%ri)))
            allocate(t%ci(size(f%ci)))
            
            t%n = f%n
            t%ri = f%ri
            t%ci = f%ci
        end subroutine copy_yale_sparse