libsim  Versione6.3.0
vol7d_dballe_class_ndati.F90
1 ! Copyright (C) 2010 ARPA-SIM <urpsim@smr.arpa.emr.it>
2 ! authors:
3 ! Davide Cesari <dcesari@arpa.emr.it>
4 ! Paolo Patruno <ppatruno@arpa.emr.it>
5 
6 ! This program is free software; you can redistribute it and/or
7 ! modify it under the terms of the GNU General Public License as
8 ! published by the Free Software Foundation; either version 2 of
9 ! the License, or (at your option) any later version.
10 
11 ! This program is distributed in the hope that it will be useful,
12 ! but WITHOUT ANY WARRANTY; without even the implied warranty of
13 ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 ! GNU General Public License for more details.
15 
16 ! You should have received a copy of the GNU General Public License
17 ! along with this program. If not, see <http://www.gnu.org/licenses/>.
18 !type VOL7D_POLY_TYPES_V
19 
20 if (associated(this%vol7d%dativar%/**/vol7d_poly_types_v))then
21  ndativar/**/vol7d_poly_types_v=size(this%vol7d%dativar%/**/vol7d_poly_types_v(:))
22  allocate (lvar/**/vol7d_poly_types_v(ndativar/**/vol7d_poly_types_v))
23 
24 #ifdef DEBUG
25  call l4f_category_log(this%category,l4f_debug,"ndativar*: "//&
26  to_char(ndativar/**/vol7d_poly_types_v ))
27 #endif
28 
29  lvar/**/vol7d_poly_types_v(ndativar/**/vol7d_poly_types_v)=.false.
30  if (present(var))then
31  lvar/**/vol7d_poly_types_v(:)=.false.
32  do i=1,size(var)
33  where (var(i) == this%vol7d%dativar%/**/vol7d_poly_types_v(:)%btable)
34  lvar/**/vol7d_poly_types_v(:)=.true.
35  end where
36  end do
37  else
38  lvar/**/vol7d_poly_types_v(:)=c_e(this%vol7d%dativar%/**/vol7d_poly_types_v(:)%btable)
39  end if
40 else
41  allocate (lvar/**/vol7d_poly_types_v(0))
42 end if
43 
44 if (associated(this%vol7d%dativarattr%/**/vol7d_poly_types_v))then
45  ndatiattr/**/vol7d_poly_types_v=size(this%vol7d%datiattr%/**/vol7d_poly_types_v(:))
46  allocate (lattr/**/vol7d_poly_types_v(ndatiattr/**/vol7d_poly_types_v))
47 
48 #ifdef DEBUG
49  call l4f_category_log(this%category,l4f_debug,"ndatiattr*: "//&
50  to_char(ndatiattr/**/vol7d_poly_types_v ))
51 #endif
52 
53  lattr/**/vol7d_poly_types_v(ndatiattr/**/vol7d_poly_types_v)=.false.
54  if (present(attr))then
55  lattr/**/vol7d_poly_types_v(:)=.false.
56  do i=1,size(attr)
57  where (attr(i) == this%vol7d%datiattr%/**/vol7d_poly_types_v(:)%btable)
58  lattr/**/vol7d_poly_types_v(:)=.true.
59  end where
60  end do
61  else
62  lattr/**/vol7d_poly_types_v(:)=c_e(this%vol7d%datiattr%/**/vol7d_poly_types_v(:)%btable)
63  end if
64 else
65  allocate (lattr/**/vol7d_poly_types_v(0))
66 end if
67 
68 !# end type /**/VOL7D_POLY_TYPES_V
69 
Restituiscono il valore dell&#39;oggetto in forma di stringa stampabile.
Emit log message for a category with specific priority.

Generated with Doxygen.