InitOutput Subroutine

public subroutine InitOutput()

Uses

  • proc~~initoutput~~UsesGraph proc~initoutput InitOutput module~modgvec_globals MODgvec_Globals proc~initoutput->module~modgvec_globals module~modgvec_output_vars MODgvec_Output_Vars proc~initoutput->module~modgvec_output_vars module~modgvec_readintools MODgvec_ReadInTools proc~initoutput->module~modgvec_readintools iso_fortran_env iso_fortran_env module~modgvec_globals->iso_fortran_env module~modgvec_output_vars->module~modgvec_globals module~modgvec_readintools->module~modgvec_globals

Initialize Module

Arguments

None

Calls

proc~~initoutput~~CallsGraph proc~initoutput InitOutput getstr getstr proc~initoutput->getstr

Source Code

SUBROUTINE InitOutput
! MODULES
USE MODgvec_Globals, ONLY:wp,UNIT_stdOut,fmt_sep,MPIroot
USE MODgvec_Output_Vars
USE MODgvec_ReadInTools,ONLY:GETSTR
IMPLICIT NONE
!-----------------------------------------------------------------------------------------------------------------------------------
! INPUT VARIABLES
!-----------------------------------------------------------------------------------------------------------------------------------
! INPUT/OUTPUT VARIABLES
!-----------------------------------------------------------------------------------------------------------------------------------
! OUTPUT VARIABLES
!-----------------------------------------------------------------------------------------------------------------------------------
! LOCAL VARIABLES
!===================================================================================================================================
SWRITE(UNIT_stdOut,'(A)')'INIT OUTPUT ...'
ProjectName = GETSTR('ProjectName','GVEC')

OutputLevel=0
SWRITE(UNIT_stdOut,'(A)')'... DONE'
SWRITE(UNIT_stdOut,fmt_sep)
END SUBROUTINE InitOutput