Finalize Subroutine

public subroutine Finalize()

Uses

  • proc~~finalize~~UsesGraph proc~finalize Finalize module~modgvec_analyze MODgvec_Analyze proc~finalize->module~modgvec_analyze module~modgvec_mpi MODgvec_MPI proc~finalize->module~modgvec_mpi module~modgvec_output MODgvec_Output proc~finalize->module~modgvec_output module~modgvec_readintools MODgvec_ReadInTools proc~finalize->module~modgvec_readintools module~modgvec_restart MODgvec_Restart proc~finalize->module~modgvec_restart module~modgvec_globals MODgvec_Globals module~modgvec_analyze->module~modgvec_globals module~modgvec_readintools->module~modgvec_globals module~modgvec_restart->module~modgvec_globals iso_fortran_env iso_fortran_env module~modgvec_globals->iso_fortran_env

Arguments

None

Calls

proc~~finalize~~CallsGraph proc~finalize Finalize finalizeanalyze finalizeanalyze proc~finalize->finalizeanalyze finalizeoutput finalizeoutput proc~finalize->finalizeoutput finalizerestart finalizerestart proc~finalize->finalizerestart proc~finalizereadin FinalizeReadIn proc~finalize->proc~finalizereadin proc~par_finalize par_Finalize proc~finalize->proc~par_finalize interface~ignoredstrings IgnoredStrings proc~finalizereadin->interface~ignoredstrings interface~ignoredstrings->interface~ignoredstrings

Source Code

SUBROUTINE Finalize()
  ! MODULES
  USE MODgvec_Analyze,        ONLY: FinalizeAnalyze
  USE MODgvec_Output,         ONLY: FinalizeOutput
  USE MODgvec_Restart,        ONLY: FinalizeRestart
  USE MODgvec_ReadInTools,    ONLY: FinalizeReadIn
  USE MODgvec_MPI,            ONLY: par_Finalize
  ! CODE ========================================================================================================================!

  IF(ALLOCATED(functional)) THEN
    CALL functional%free()
    DEALLOCATE(functional)
  END IF
  CALL FinalizeAnalyze()
  CALL FinalizeOutput()
  CALL FinalizeRestart()
  CALL FinalizeReadIn()
  CALL par_Finalize()
  initialized = .FALSE.

  SWRITE(Unit_stdOut,'(132("="))')
  SWRITE(UNIT_stdOut,'(A)') "GVEC POST FINISHED !"
  SWRITE(Unit_stdOut,'(132("="))')
  FLUSH(Unit_stdOut)
END SUBROUTINE Finalize