free_yale_sparse Subroutine

public subroutine free_yale_sparse(m)

Deallocate a boolean sparse matrix (in Yale format)

Arguments

Type IntentOptional Attributes Name
type(yale_sparse), intent(inout) :: m

Matrix to free

Called by

proc~~free_yale_sparse~~CalledByGraph proc~free_yale_sparse free_yale_sparse proc~nl_terminate nl_terminate proc~nl_terminate->proc~free_yale_sparse proc~check_conn_matrix check_conn_matrix proc~check_conn_matrix->proc~free_yale_sparse proc~build_conn_upto_n build_conn_upto_n proc~check_conn_matrix->proc~build_conn_upto_n proc~make_screening_lists make_screening_lists proc~make_screening_lists->proc~free_yale_sparse proc~build_conn_upto_n->proc~free_yale_sparse proc~free_tree free_tree proc~free_tree->proc~free_yale_sparse proc~qm_helper_update_coord qm_helper_update_coord proc~qm_helper_update_coord->proc~free_yale_sparse proc~electrostatics_terminate electrostatics_terminate proc~electrostatics_terminate->proc~free_yale_sparse proc~electrostatics_terminate->proc~free_tree proc~topology_terminate topology_terminate proc~topology_terminate->proc~free_yale_sparse proc~qm_helper_terminate qm_helper_terminate proc~qm_helper_terminate->proc~topology_terminate proc~vdw_terminate vdw_terminate proc~qm_helper_terminate->proc~vdw_terminate proc~mmpol_terminate mmpol_terminate proc~mmpol_terminate->proc~electrostatics_terminate proc~mmpol_terminate->proc~topology_terminate proc~mmpol_terminate->proc~vdw_terminate proc~vdw_set_cutoff vdw_set_cutoff proc~vdw_set_cutoff->proc~nl_terminate proc~vdw_terminate->proc~nl_terminate 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~mmpol_prepare mmpol_prepare proc~ommp_system_from_qm_helper->proc~mmpol_prepare 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~init_bonded_for_link_atom init_bonded_for_link_atom proc~init_bonded_for_link_atom->proc~check_conn_matrix proc~mmpol_prepare->proc~make_screening_lists proc~mmpol_prepare->proc~build_conn_upto_n proc~fmm_coordinates_update fmm_coordinates_update proc~mmpol_prepare->proc~fmm_coordinates_update proc~fmm_coordinates_update->proc~free_tree proc~ommp_create_link_atom ommp_create_link_atom proc~ommp_create_link_atom->proc~qm_helper_update_coord proc~ommp_create_link_atom->proc~init_vdw_for_link_atom proc~ommp_create_link_atom->proc~init_bonded_for_link_atom proc~ommp_update_link_atoms_position ommp_update_link_atoms_position proc~ommp_update_link_atoms_position->proc~qm_helper_update_coord proc~ommp_qm_helper_update_coord ommp_qm_helper_update_coord proc~ommp_qm_helper_update_coord->proc~qm_helper_update_coord proc~c_ommp_update_link_atoms_position C_ommp_update_link_atoms_position proc~c_ommp_update_link_atoms_position->proc~ommp_update_link_atoms_position proc~ommp_terminate_qm_helper ommp_terminate_qm_helper proc~ommp_terminate_qm_helper->proc~qm_helper_terminate proc~c_ommp_terminate_qm_helper C_ommp_terminate_qm_helper proc~c_ommp_terminate_qm_helper->proc~qm_helper_terminate proc~ommp_set_vdw_cutoff ommp_set_vdw_cutoff proc~ommp_set_vdw_cutoff->proc~vdw_set_cutoff 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_terminate ommp_terminate proc~ommp_terminate->proc~mmpol_terminate proc~ommp_init_xyz ommp_init_xyz proc~ommp_init_xyz->proc~mmpol_init_from_xyz proc~mmpol_init_from_mmp mmpol_init_from_mmp proc~mmpol_init_from_mmp->proc~mmpol_prepare proc~c_ommp_set_fmm_distance C_ommp_set_fmm_distance proc~c_ommp_set_fmm_distance->proc~fmm_coordinates_update proc~update_coordinates update_coordinates proc~update_coordinates->proc~fmm_coordinates_update proc~c_ommp_set_fmm_min_cell_size C_ommp_set_fmm_min_cell_size proc~c_ommp_set_fmm_min_cell_size->proc~fmm_coordinates_update proc~c_ommp_qm_helper_update_coord C_ommp_qm_helper_update_coord proc~c_ommp_qm_helper_update_coord->proc~ommp_qm_helper_update_coord 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_set_vdw_cutoff C_ommp_set_vdw_cutoff proc~c_ommp_set_vdw_cutoff->proc~ommp_set_vdw_cutoff proc~c_ommp_init_xyz C_ommp_init_xyz proc~c_ommp_init_xyz->proc~ommp_init_xyz proc~c_ommp_terminate C_ommp_terminate proc~c_ommp_terminate->proc~ommp_terminate proc~c_ommp_update_coordinates C_ommp_update_coordinates proc~c_ommp_update_coordinates->proc~update_coordinates proc~ommp_init_mmp ommp_init_mmp proc~ommp_init_mmp->proc~mmpol_init_from_mmp proc~c_ommp_init_mmp C_ommp_init_mmp proc~c_ommp_init_mmp->proc~ommp_init_mmp

Contents

Source Code

free_yale_sparse

Source Code

        subroutine free_yale_sparse(m)
            !! Deallocate a boolean sparse matrix (in Yale format) 
            implicit none
            
            type(yale_sparse), intent(inout) :: m !! Matrix to free

            if(allocated(m%ri)) deallocate(m%ri)
            if(allocated(m%ci)) deallocate(m%ci)
            m%n=0_ip
        end subroutine free_yale_sparse