1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
program example_state1
use stdlib_linalg_state, only: linalg_state_type, LINALG_SUCCESS, LINALG_VALUE_ERROR, &
operator(/=)
implicit none
type(linalg_state_type) :: err
! To create a state variable, we enter its integer state flag, followed by a list of variables
! that will be automatically assembled into a formatted error message. No need to provide string formats
err = linalg_state_type(LINALG_VALUE_ERROR,'just an example with scalar ',&
'integer=',1,'real=',2.0,'complex=',(3.0,1.0),'and array ',[1,2,3],'inputs')
! Print flag
print *, err%print()
! Check success
print *, 'Check error: ',err%error()
print *, 'Check flag : ',err /= LINALG_SUCCESS
end program example_state1
|
