source:
vendors/XMLIO_SERVER/r_193/src/XMLIO/mod_vector_field.F90.old
@
2766
Last change on this file since 2766 was 1897, checked in by flavoni, 14 years ago | |
---|---|
File size: 969 bytes |
Line | |
---|---|
1 | MODULE mod_field_vector |
2 | USE mod_field |
3 | |
4 | PRIVATE |
5 | |
6 | TYPE,PUBLIC :: field_vector |
7 | PRIVATE |
8 | TYPE(vector), POINTER :: list |
9 | TYPE(field), POINTER :: default_attribut |
10 | END TYPE field_vector |
11 | |
12 | #define DATA_TYPE field |
13 | #include "vectors_def.inc" |
14 | |
15 | PUBLIC field_vector__new, field_vector__get_new |
16 | |
17 | CONTAINS |
18 | |
19 | #include "vectors_contains.inc" |
20 | |
21 | SUBROUTINE field_vector__new(Pt_vf) |
22 | IMPLICIT NONE |
23 | TYPE(field_vector),POINTER :: Pt_vf |
24 | |
25 | CALL vector__new(Pt_vf%list) |
26 | CALL field__new(Pt_vf%default_attribut) |
27 | |
28 | END SUBROUTINE field_vector__new |
29 | |
30 | |
31 | SUBROUTINE field_vector__get_new(Pt_vf,Pt_f_out,Id) |
32 | IMPLICIT NONE |
33 | TYPE(field_vector),POINTER :: Pt_vf |
34 | TYPE(field),POINTER :: Pt_f_out |
35 | CHARACTER(LEN=str_len),OPTIONAL :: Id |
36 | |
37 | CALL vector__get_new(Pt_vf%list,Pt_f_out) |
38 | CALL field__new(Pt_f_out) |
39 | END SUBROUTINE field_vector__get_new |
40 | |
41 | |
42 | END MODULE mod_field_vector |
43 |
Note: See TracBrowser
for help on using the repository browser.