print_module_info Subroutine

public subroutine print_module_info(module_title, module_info)

Uses

  • proc~~print_module_info~~UsesGraph proc~print_module_info print_module_info module~io_constants io_constants proc~print_module_info->module~io_constants

@brief Print MODULE information @detail Printout the information of each MODULES of OQP

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: module_title
character(len=*), intent(in) :: module_info

Called by

proc~~print_module_info~~CalledByGraph proc~print_module_info print_module_info proc~guess_hcore guess_hcore proc~guess_hcore->proc~print_module_info proc~guess_huckel guess_huckel proc~guess_huckel->proc~print_module_info proc~guess_json guess_json proc~guess_json->proc~print_module_info proc~hf_energy hf_energy proc~hf_energy->proc~print_module_info proc~hf_gradient hf_gradient proc~hf_gradient->proc~print_module_info proc~int1e int1e proc~int1e->proc~print_module_info proc~oqp_tdhf_z_vector oqp_tdhf_z_vector proc~oqp_tdhf_z_vector->proc~print_module_info proc~tdhf_energy tdhf_energy proc~tdhf_energy->proc~print_module_info proc~tdhf_gradient tdhf_gradient proc~tdhf_gradient->proc~print_module_info proc~tdhf_mrsf_energy tdhf_mrsf_energy proc~tdhf_mrsf_energy->proc~print_module_info proc~tdhf_sf_energy tdhf_sf_energy proc~tdhf_sf_energy->proc~print_module_info proc~guess_hcore_c guess_hcore_C proc~guess_hcore_c->proc~guess_hcore proc~guess_huckel_c guess_huckel_C proc~guess_huckel_c->proc~guess_huckel proc~guess_json_c guess_json_C proc~guess_json_c->proc~guess_json proc~tdhf_energy_c tdhf_energy_C proc~tdhf_energy_c->proc~tdhf_energy proc~tdhf_gradient_c tdhf_gradient_C proc~tdhf_gradient_c->proc~tdhf_gradient proc~tdhf_mrsf_energy_c tdhf_mrsf_energy_C proc~tdhf_mrsf_energy_c->proc~tdhf_mrsf_energy proc~tdhf_sf_energy_c tdhf_sf_energy_C proc~tdhf_sf_energy_c->proc~tdhf_sf_energy proc~tdhf_z_vector_c tdhf_z_vector_C proc~tdhf_z_vector_c->proc~oqp_tdhf_z_vector

Source Code

  subroutine print_module_info(module_title,module_info)
    use io_constants, only: iw

    implicit none

    character(len=*), intent(in) :: module_title, module_info

    write(iw,'(/20x,40("+")/&
             &23X,"MODULE: ",A/&
             &23X,A/&
             &20X,40("+"))') module_title, module_info

  end subroutine print_module_info