2 function peeled/**/vol7d_poly_types_subtypes(data,flag0,flag1,flag2,flag3)
4 vol7d_poly_type,
intent(in) ::
data(:,:,:,:,:)
5 vol7d_poly_subtype,
intent(in),
pointer :: flag0(:,:,:,:,:)
6 vol7d_poly_subtype,
intent(in),
pointer :: flag1(:,:,:,:,:)
7 vol7d_poly_subtype,
intent(in),
pointer :: flag2(:,:,:,:,:)
8 vol7d_poly_subtype,
intent(in),
pointer :: flag3(:,:,:,:,:)
9 vol7d_poly_type :: peeled/**/vol7d_poly_types_subtypes(
size(
data,1),
size(
data,2),
size(
data,3),
size(
data,4),
size(
data,5))
11 vol7d_poly_subtype :: flag0l
12 vol7d_poly_subtype :: flag1l
13 vol7d_poly_subtype :: flag2l
14 vol7d_poly_subtype :: flag3l
25 if (
associated(flag0))
then
26 flag0l=flag0(i,j,k,l,m)
28 flag0l=vol7d_poly_subtypes/**/miss
31 if (
associated(flag1))
then
32 flag1l=flag1(i,j,k,l,m)
34 flag1l=vol7d_poly_subtypes/**/miss
37 if (
associated(flag2))
then
38 flag2l=flag2(i,j,k,l,m)
40 flag2l=vol7d_poly_subtypes/**/miss
43 if (
associated(flag3))
then
44 flag3l=flag3(i,j,k,l,m)
46 flag3l=vol7d_poly_subtypes/**/miss
49 if (qcsummaryflag/**/vol7d_poly_subtypes(flag0l,flag1l,flag2l,flag3l))
then
50 peeled/**/vol7d_poly_types_subtypes(i,j,k,l,m)=
data(i,j,k,l,m)
52 peeled/**/vol7d_poly_types_subtypes(i,j,k,l,m)=vol7d_poly_types/**/miss
61 end function peeled/**/vol7d_poly_types_subtypes