libsim Versione 7.2.0
modqc_peeled_include.F90
1
2function peeled/**/vol7d_poly_types_subtypes(data,flag0,flag1,flag2,flag3)
3
4vol7d_poly_type, intent(in) :: data(:,:,:,:,:)
5vol7d_poly_subtype, intent(in),pointer :: flag0(:,:,:,:,:)
6vol7d_poly_subtype, intent(in),pointer :: flag1(:,:,:,:,:)
7vol7d_poly_subtype, intent(in),pointer :: flag2(:,:,:,:,:)
8vol7d_poly_subtype, intent(in),pointer :: flag3(:,:,:,:,:)
9vol7d_poly_type :: peeled/**/vol7d_poly_types_subtypes(size(data,1),size(data,2),size(data,3),size(data,4),size(data,5))
10
11vol7d_poly_subtype :: flag0l
12vol7d_poly_subtype :: flag1l
13vol7d_poly_subtype :: flag2l
14vol7d_poly_subtype :: flag3l
15
16integer :: i,j,k,l,m
17
18
19do 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
59end do
60
61end function peeled/**/vol7d_poly_types_subtypes
62
63
64

Generated with Doxygen.