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

OPERATORS: 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:21:55 -02:00
parent f84250d25a
commit 1b2251f7fc
1 changed files with 15 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
sources/operators.F90
View File

@ -76,11 +76,11 @@ module operators
! Arguments:
!
! verbose - flag determining if the subroutine should be verbose;
! iret - return flag of the procedure execution status;
! status - return flag of the procedure execution status;
!
!===============================================================================
!
subroutine initialize_operators(verbose, iret)
subroutine initialize_operators(verbose, status)
! local variables are not implicit by default
!
@ -89,7 +89,7 @@ module operators
! subroutine arguments
!
logical, intent(in) :: verbose
integer, intent(inout) :: iret
integer, intent(out) :: status
!
!-------------------------------------------------------------------------------
!
@ -109,6 +109,10 @@ module operators
call start_timer(imi)
#endif /* PROFILE */
! reset the status flag
!
status = 0
#ifdef PROFILE
! stop accounting time for the module initialization/finalization
!
@ -128,11 +132,11 @@ module operators
!
! Arguments:
!
! iret - return flag of the procedure execution status;
! status - return flag of the procedure execution status;
!
!===============================================================================
!
subroutine finalize_operators(iret)
subroutine finalize_operators(status)
! local variables are not implicit by default
!
@ -140,7 +144,7 @@ module operators
! subroutine arguments
!
integer, intent(inout) :: iret
integer, intent(out) :: status
!
!-------------------------------------------------------------------------------
!
@ -150,6 +154,10 @@ module operators
call start_timer(imi)
#endif /* PROFILE */
! reset the status flag
!
status = 0
#ifdef PROFILE
! stop accounting time for the module initialization/finalization
!