DistinctDoubleTypeVals_t Derived Type

type, public :: DistinctDoubleTypeVals_t


Components

Type Visibility Attributes Name Initial
type(DistinctDoubleType_t), public :: invalid = DistinctDoubleType_t(0, excit_type%invalid, excit_type%invalid, '')
type(DistinctDoubleType_t), public :: jijk = DistinctDoubleType_t(1, excit_type%single_overlap_L_to_R, excit_type%single_overlap_L_to_R, '1a')
type(DistinctDoubleType_t), public :: ijkj = DistinctDoubleType_t(2, excit_type%single_overlap_R_to_L, excit_type%single_overlap_R_to_L, '1b')
type(DistinctDoubleType_t), public :: ikjk = DistinctDoubleType_t(3, excit_type%fullstop_raising, excit_type%fullstop_raising, '1c')
type(DistinctDoubleType_t), public :: kikj = DistinctDoubleType_t(4, excit_type%fullstop_lowering, excit_type%fullstop_lowering, '1d')
type(DistinctDoubleType_t), public :: jikk = DistinctDoubleType_t(5, excit_type%fullstop_L_to_R, excit_type%non_overlap, '1e', [1, 4, 3, 2])
type(DistinctDoubleType_t), public :: ijkk = DistinctDoubleType_t(6, excit_type%fullstop_R_to_L, excit_type%non_overlap, '1f', [1, 4, 3, 2])
type(DistinctDoubleType_t), public :: ijik = DistinctDoubleType_t(7, excit_type%fullstart_raising, excit_type%fullstart_raising, '1g')
type(DistinctDoubleType_t), public :: jiki = DistinctDoubleType_t(8, excit_type%fullstart_lowering, excit_type%fullstart_lowering, '1h')
type(DistinctDoubleType_t), public :: iikj = DistinctDoubleType_t(9, excit_type%fullstart_R_to_L, excit_type%non_overlap, '1i', [1, 4, 3, 2])
type(DistinctDoubleType_t), public :: iijk = DistinctDoubleType_t(10, excit_type%fullstart_L_to_R, excit_type%non_overlap, '1j', [1, 4, 3, 2])
type(DistinctDoubleType_t), public :: ijij = DistinctDoubleType_t(11, excit_type%fullstart_stop_alike, excit_type%fullstart_stop_alike, '2a')
type(DistinctDoubleType_t), public :: jiji = DistinctDoubleType_t(12, excit_type%fullstart_stop_alike, excit_type%fullstart_stop_alike, '2b')
type(DistinctDoubleType_t), public :: iijj = DistinctDoubleType_t(13, excit_type%fullstart_stop_mixed, excit_type%non_overlap, '2c', [1, 4, 3, 2])
type(DistinctDoubleType_t), public :: ikjl = DistinctDoubleType_t(14, excit_type%double_raising, excit_type%double_raising, '3a', [3, 4, 1, 2])
type(DistinctDoubleType_t), public :: kilj = DistinctDoubleType_t(15, excit_type%double_lowering, excit_type%double_lowering, '3b')
type(DistinctDoubleType_t), public :: ijkl = DistinctDoubleType_t(16, excit_type%double_R_to_L_to_R, excit_type%non_overlap, '3c', [1, 4, 3, 2])
type(DistinctDoubleType_t), public :: jilk = DistinctDoubleType_t(17, excit_type%double_L_to_R_to_L, excit_type%non_overlap, '3d', [1, 4, 3, 2])
type(DistinctDoubleType_t), public :: ijlk = DistinctDoubleType_t(18, excit_type%double_R_to_L, excit_type%non_overlap, '3e', [1, 4, 3, 2])
type(DistinctDoubleType_t), public :: jikl = DistinctDoubleType_t(19, excit_type%double_L_to_R, excit_type%non_overlap, '3f', [1, 4, 3, 2])