libsim  Versione7.2.3
modqc_peeled_include.F90
1 
2 function peeled/**/vol7d_poly_types_subtypes(data,flag0,flag1,flag2,flag3)
3 
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))
10 
11 vol7d_poly_subtype :: flag0l
12 vol7d_poly_subtype :: flag1l
13 vol7d_poly_subtype :: flag2l
14 vol7d_poly_subtype :: flag3l
15 
16 integer :: i,j,k,l,m
17 
18 
19 do m=1,size(data,5)
20  do l=1,size(data,4)
21  do k=1,size(data,3)
22  do j=1,size(data,2)
23  do i=1,size(data,1)
24 
25  if (associated(flag0))then
26  flag0l=flag0(i,j,k,l,m)
27  else
28  flag0l=vol7d_poly_subtypes/**/miss
29  end if
30 
31  if (associated(flag1))then
32  flag1l=flag1(i,j,k,l,m)
33  else
34  flag1l=vol7d_poly_subtypes/**/miss
35  end if
36 
37  if (associated(flag2))then
38  flag2l=flag2(i,j,k,l,m)
39  else
40  flag2l=vol7d_poly_subtypes/**/miss
41  end if
42 
43  if (associated(flag3))then
44  flag3l=flag3(i,j,k,l,m)
45  else
46  flag3l=vol7d_poly_subtypes/**/miss
47  end if
48 
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)
51  else
52  peeled/**/vol7d_poly_types_subtypes(i,j,k,l,m)=vol7d_poly_types/**/miss
53  end if
54 
55  end do
56  end do
57  end do
58  end do
59 end do
60 
61 end function peeled/**/vol7d_poly_types_subtypes
62 
63 
64 

Generated with Doxygen.