start_rungvec Subroutine

public subroutine start_rungvec(parameterfile, restartfile_in, comm_in)

Uses

  • proc~~start_rungvec~~UsesGraph proc~start_rungvec start_rungvec module~modgvec_globals MODgvec_Globals proc~start_rungvec->module~modgvec_globals module~modgvec_mpi MODgvec_MPI proc~start_rungvec->module~modgvec_mpi module~modgvec_rungvec MODgvec_rungvec proc~start_rungvec->module~modgvec_rungvec iso_fortran_env iso_fortran_env module~modgvec_globals->iso_fortran_env

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: parameterfile
character(len=*), intent(in), optional :: restartfile_in
integer, intent(in), optional :: comm_in

Calls

proc~~start_rungvec~~CallsGraph proc~start_rungvec start_rungvec proc~par_finalize par_Finalize proc~start_rungvec->proc~par_finalize proc~par_init par_Init proc~start_rungvec->proc~par_init proc~rungvec rungvec proc~start_rungvec->proc~rungvec mpi_finalize mpi_finalize proc~par_finalize->mpi_finalize mpi_comm_rank mpi_comm_rank proc~par_init->mpi_comm_rank mpi_comm_size mpi_comm_size proc~par_init->mpi_comm_size mpi_init_thread mpi_init_thread proc~par_init->mpi_init_thread req req proc~par_init->req req1 req1 proc~par_init->req1 req2 req2 proc~par_init->req2 req3 req3 proc~par_init->req3 __perfoff __perfoff proc~rungvec->__perfoff __perfon __perfon proc~rungvec->__perfon __perfout __perfout proc~rungvec->__perfout fillstrings fillstrings proc~rungvec->fillstrings finalizeanalyze finalizeanalyze proc~rungvec->finalizeanalyze finalizeoutput finalizeoutput proc~rungvec->finalizeoutput finalizerestart finalizerestart proc~rungvec->finalizerestart getint getint proc~rungvec->getint getlogical getlogical proc~rungvec->getlogical ignoredstrings ignoredstrings proc~rungvec->ignoredstrings initSolution initSolution proc~rungvec->initSolution initanalyze initanalyze proc~rungvec->initanalyze initoutput initoutput proc~rungvec->initoutput initrestart initrestart proc~rungvec->initrestart interface~getfreeunit GETFREEUNIT proc~rungvec->interface~getfreeunit interface~gettime GetTime proc~rungvec->interface~gettime minimize minimize proc~rungvec->minimize proc~finalizefunctional FinalizeFunctional proc~rungvec->proc~finalizefunctional proc~finalizereadin FinalizeReadIn proc~rungvec->proc~finalizereadin proc~initfunctional InitFunctional proc~rungvec->proc~initfunctional swrite swrite proc~rungvec->swrite interface~getfreeunit->interface~getfreeunit interface~gettime->interface~gettime interface~ignoredstrings IgnoredStrings proc~finalizereadin->interface~ignoredstrings init init proc~initfunctional->init interface~ignoredstrings->interface~ignoredstrings

Source Code

SUBROUTINE start_rungvec(parameterfile,restartfile_in,comm_in)
  ! MODULES
  USE MODgvec_Globals, ONLY: Unit_stdOut
  USE MODgvec_MPI    , ONLY: par_Init,par_finalize
  USE MODgvec_rungvec, ONLY: rungvec
  ! INPUT/OUTPUT VARIABLES ------------------------------------------------------------------------------------------------------!
  CHARACTER(LEN=*),INTENT(IN) :: parameterfile
  CHARACTER(LEN=*),INTENT(IN),OPTIONAL :: restartfile_in
  INTEGER,INTENT(IN),OPTIONAL :: comm_in
  ! LOCAL VARIABLES -------------------------------------------------------------------------------------------------------------!
  INTEGER :: comm
  ! CODE ------------------------------------------------------------------------------------------------------------------------!
  initialized = .TRUE.
  IF(PRESENT(comm_in)) THEN
    CALL par_init(comm_in)
  ELSE
    CALL par_init() !USE MPI_COMM_WORLD
  END IF

  IF(PRESENT(restartfile_in))THEN
    CALL rungvec(parameterfile,restartfile_in=restartfile_in)
  ELSE
    CALL rungvec(parameterfile)
  END IF

  CALL par_finalize()
  initialized = .FALSE.
END SUBROUTINE start_rungvec