linalg_state_type Interface

public interface linalg_state_type

Module Procedures

private pure function new_state(where_at, flag, a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17, a18, a19, a20)

Error creation message, with location location

Create state with no message

Add location

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: where_at

Location

integer, intent(in) :: flag

Input error flag

class(*), intent(in), optional, dimension(..) :: a1

Optional rank-agnostic arguments

class(*), intent(in), optional, dimension(..) :: a2

Optional rank-agnostic arguments

class(*), intent(in), optional, dimension(..) :: a3

Optional rank-agnostic arguments

class(*), intent(in), optional, dimension(..) :: a4

Optional rank-agnostic arguments

class(*), intent(in), optional, dimension(..) :: a5

Optional rank-agnostic arguments

class(*), intent(in), optional, dimension(..) :: a6

Optional rank-agnostic arguments

class(*), intent(in), optional, dimension(..) :: a7

Optional rank-agnostic arguments

class(*), intent(in), optional, dimension(..) :: a8

Optional rank-agnostic arguments

class(*), intent(in), optional, dimension(..) :: a9

Optional rank-agnostic arguments

class(*), intent(in), optional, dimension(..) :: a10

Optional rank-agnostic arguments

class(*), intent(in), optional, dimension(..) :: a11

Optional rank-agnostic arguments

class(*), intent(in), optional, dimension(..) :: a12

Optional rank-agnostic arguments

class(*), intent(in), optional, dimension(..) :: a13

Optional rank-agnostic arguments

class(*), intent(in), optional, dimension(..) :: a14

Optional rank-agnostic arguments

class(*), intent(in), optional, dimension(..) :: a15

Optional rank-agnostic arguments

class(*), intent(in), optional, dimension(..) :: a16

Optional rank-agnostic arguments

class(*), intent(in), optional, dimension(..) :: a17

Optional rank-agnostic arguments

class(*), intent(in), optional, dimension(..) :: a18

Optional rank-agnostic arguments

class(*), intent(in), optional, dimension(..) :: a19

Optional rank-agnostic arguments

class(*), intent(in), optional, dimension(..) :: a20

Optional rank-agnostic arguments

Return Value type(linalg_state_type)

private pure function new_state_nowhere(flag, a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17, a18, a19, a20) result(new_state)

Error creation message, from N input variables (numeric or strings)

Set error flag

Set chain

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: flag

Input error flag

class(*), intent(in), optional, dimension(..) :: a1

Optional rank-agnostic arguments

class(*), intent(in), optional, dimension(..) :: a2

Optional rank-agnostic arguments

class(*), intent(in), optional, dimension(..) :: a3

Optional rank-agnostic arguments

class(*), intent(in), optional, dimension(..) :: a4

Optional rank-agnostic arguments

class(*), intent(in), optional, dimension(..) :: a5

Optional rank-agnostic arguments

class(*), intent(in), optional, dimension(..) :: a6

Optional rank-agnostic arguments

class(*), intent(in), optional, dimension(..) :: a7

Optional rank-agnostic arguments

class(*), intent(in), optional, dimension(..) :: a8

Optional rank-agnostic arguments

class(*), intent(in), optional, dimension(..) :: a9

Optional rank-agnostic arguments

class(*), intent(in), optional, dimension(..) :: a10

Optional rank-agnostic arguments

class(*), intent(in), optional, dimension(..) :: a11

Optional rank-agnostic arguments

class(*), intent(in), optional, dimension(..) :: a12

Optional rank-agnostic arguments

class(*), intent(in), optional, dimension(..) :: a13

Optional rank-agnostic arguments

class(*), intent(in), optional, dimension(..) :: a14

Optional rank-agnostic arguments

class(*), intent(in), optional, dimension(..) :: a15

Optional rank-agnostic arguments

class(*), intent(in), optional, dimension(..) :: a16

Optional rank-agnostic arguments

class(*), intent(in), optional, dimension(..) :: a17

Optional rank-agnostic arguments

class(*), intent(in), optional, dimension(..) :: a18

Optional rank-agnostic arguments

class(*), intent(in), optional, dimension(..) :: a19

Optional rank-agnostic arguments

class(*), intent(in), optional, dimension(..) :: a20

Optional rank-agnostic arguments

Return Value type(linalg_state_type)