Utility procedure for storing value to optional variable.
subroutine do_something(..., stat)
implicit none
:
:
integer(int32), intent(out), optional :: stat
! want to write
call store(stat, 0)
! instead of
if (present(stat)) then
stat = 0
end if
end subroutine do_somethingTo get the code, execute the following commnad:
git clone https://github.com/degawa/store.git
cd storeAdd the following use statement to modules or procedures calling store.
use :: store_procTo use store in your fpm project, add the following to the fpm.toml.
[dependencies]
store = {git = "https://github.com/degawa/store.git"}- To write README.
- To add tests.