polarization_terminate Subroutine

public subroutine polarization_terminate(eel)

Uses

  • proc~~polarization_terminate~~UsesGraph proc~polarization_terminate polarization_terminate module~mod_memory mod_memory proc~polarization_terminate->module~mod_memory module~mod_io mod_io module~mod_memory->module~mod_io module~mod_constants mod_constants module~mod_memory->module~mod_constants iso_c_binding iso_c_binding module~mod_memory->iso_c_binding module~mod_io->module~mod_constants module~mod_constants->iso_c_binding

Arguments

Type IntentOptional Attributes Name
type(ommp_electrostatics_type), intent(inout) :: eel

Calls

proc~~polarization_terminate~~CallsGraph proc~polarization_terminate polarization_terminate interface~mfree mfree proc~polarization_terminate->interface~mfree proc~r_free1 r_free1 interface~mfree->proc~r_free1 proc~i_free2 i_free2 interface~mfree->proc~i_free2 proc~i_free1 i_free1 interface~mfree->proc~i_free1 proc~r_free2 r_free2 interface~mfree->proc~r_free2 proc~r_free3 r_free3 interface~mfree->proc~r_free3 proc~i_free3 i_free3 interface~mfree->proc~i_free3 proc~l_free1 l_free1 interface~mfree->proc~l_free1 proc~l_free2 l_free2 interface~mfree->proc~l_free2 proc~chk_free chk_free proc~r_free1->proc~chk_free proc~i_free2->proc~chk_free proc~i_free1->proc~chk_free proc~r_free2->proc~chk_free proc~r_free3->proc~chk_free proc~i_free3->proc~chk_free proc~l_free1->proc~chk_free proc~l_free2->proc~chk_free proc~fatal_error fatal_error proc~chk_free->proc~fatal_error proc~ommp_message ommp_message proc~fatal_error->proc~ommp_message proc~close_output close_output proc~fatal_error->proc~close_output proc~close_output->proc~ommp_message

Contents


Source Code

    subroutine polarization_terminate(eel)
        use mod_memory, only: mfree 

        implicit none

        type(ommp_electrostatics_type), intent(inout) :: eel
        
        if(allocated(eel%TMat)) &
            call mfree('polarization [TMat]', eel%TMat)

    end subroutine polarization_terminate