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