3elemental logical function vd/**/vol7d_poly_types (flag)
5/**/vol7d_poly_type ,
intent(in) :: flag
8vd/**/vol7d_poly_types = .not. (realdat(flag,vol7d_var_new(qcattrvarsbtables(2),scalefactor=0)) <= qcpar%att .and. c_e(flag)&
13end function vd/**/vol7d_poly_types
17elemental logical function vdge/**/vol7d_poly_types (flag)
19/**/vol7d_poly_type ,
intent(in) :: flag
22vdge/**/vol7d_poly_types = .not. (realdat(flag,vol7d_var_new(qcattrvarsbtables(2),scalefactor=0)) == qcpar%gross_error .and. c_e(flag) &
23 .and. c_e(qcpar%gross_error))
27end function vdge/**/vol7d_poly_types
31elemental logical function invalidated/**/vol7d_poly_types(flag)
33/**/vol7d_poly_type ,
intent(in) :: flag
35invalidated/**/vol7d_poly_types= realdat(flag,vol7d_var_new(qcattrvarsbtables(1),scalefactor=0)) == qcpar%invalidated .and. c_e(flag) &
36 .and. c_e(qcpar%invalidated)
40end function invalidated/**/vol7d_poly_types
62ELEMENTAL LOGICAL FUNCTION qcsummaryflag/**/vol7d_poly_types(flag0, flag1, flag2, flag3)
63/**/vol7d_poly_type ,
intent(in),
optional :: flag0
64/**/vol7d_poly_type ,
intent(in),
optional :: flag1
65/**/vol7d_poly_type ,
intent(in),
optional :: flag2
66/**/vol7d_poly_type ,
intent(in),
optional :: flag3
72if (invalidated(optio_3/**/vol7d_poly_types(flag0)))
then
73 qcsummaryflag/**/vol7d_poly_types = .false.
77if ( .not. vdge(optio_3/**/vol7d_poly_types(flag1)))
then
78 qcsummaryflag/**/vol7d_poly_types = .false.
84if (.not. vd(optio_3/**/vol7d_poly_types(flag1)))
then
88if (.not. vd(optio_3/**/vol7d_poly_types(flag2)))
then
91if (vd(optio_3/**/vol7d_poly_types(flag2)) .and. c_e(optio_3/**/vol7d_poly_types(flag2)))
then
95if (.not. vd(optio_3/**/vol7d_poly_types(flag3)))
then
98if (vd(optio_3/**/vol7d_poly_types(flag3)) .and. c_e(optio_3/**/vol7d_poly_types(flag3)))
then
102qcsummaryflag/**/vol7d_poly_types=(tot >= -1)
108elemental function optio_3c(var)
result(char)
110character (len=*),
intent(in),
optional :: var
112/**/vol7d_poly_type :: char
126if (invalidated(optio_/**/vol7d_poly_types(flag0)))
then
127 qcsummaryflag/**/vol7d_poly_types = .false.
131if ( .not. vdge(optio_/**/vol7d_poly_types(flag1)))
then
132 qcsummaryflag/**/vol7d_poly_types = .false.
138if (.not. vd(optio_/**/vol7d_poly_types(flag1)))
then
142if (.not. vd(optio_/**/vol7d_poly_types(flag2)))
then
145if (vd(optio_/**/vol7d_poly_types(flag2)) .and. c_e(optio_/**/vol7d_poly_types(flag2)))
then
149if (.not. vd(optio_/**/vol7d_poly_types(flag3)))
then
152if (vd(optio_/**/vol7d_poly_types(flag3)) .and. c_e(optio_/**/vol7d_poly_types(flag3)))
then
156qcsummaryflag/**/vol7d_poly_types=(tot >= -1)
161END FUNCTION qcsummaryflag/**/vol7d_poly_types