gkowal/amun-code
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

PROBLEMS: Update the initialization/finalization status flag.

Browse Source 
Signed-off-by: Grzegorz Kowal <grzegorz@amuncode.org>
This commit is contained in:
Grzegorz Kowal 2019-02-11 09:20:31 -02:00
parent 2badc8c062
commit f84250d25a
1 changed files with 18 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
sources/problems.F90
View File

@ -95,11 +95,11 @@ module problems
!
! problem - the problem name
! verbose - a logical flag turning the information printing;
! iret - an integer flag for error return value;
! status - an integer flag for error return value;
!
!===============================================================================
!
subroutine initialize_problems(problem, verbose, iret)
subroutine initialize_problems(problem, verbose, status)
! include external procedures and variables
!
@ -114,7 +114,7 @@ module problems
!
character(len=64), intent(in) :: problem
logical , intent(in) :: verbose
integer , intent(inout) :: iret
integer , intent(out) :: status
!
!-------------------------------------------------------------------------------
!
@ -129,6 +129,10 @@ module problems
call start_timer(imi)
#endif /* PROFILE */
! reset the status flag
!
status = 0
! set problem name
!
problem_name = problem
@ -185,11 +189,11 @@ module problems
!
! Arguments:
!
! iret - an integer flag for error return value;
! status - an integer flag for error return value;
!
!===============================================================================
!
subroutine finalize_problems(iret)
subroutine finalize_problems(status)
! local variables are not implicit by default
!
@ -197,7 +201,7 @@ module problems
! subroutine arguments
!
integer, intent(inout) :: iret
integer, intent(out) :: status
!
!-------------------------------------------------------------------------------
!
@ -207,6 +211,10 @@ module problems
call start_timer(imi)
#endif /* PROFILE */
! reset the status flag
!
status = 0
! nullify procedure pointers
!
nullify(setup_problem)