Last change
on this file since 29 was
17,
checked in by ymipsl, 15 years ago
|
Correction de bugs pour portage sur Mercure
|
File size:
356 bytes
|
Rev | Line | |
---|
[8] | 1 | |
---|
[17] | 2 | TYPE Pt_field_group__ |
---|
[8] | 3 | TYPE (field_group),POINTER :: Pt |
---|
| 4 | LOGICAL :: owned |
---|
[17] | 5 | END TYPE Pt_field_group__ |
---|
[8] | 6 | |
---|
| 7 | TYPE vector_field_group |
---|
| 8 | |
---|
[17] | 9 | TYPE (Pt_field_group__), POINTER, DIMENSION(:) :: at => NULL() |
---|
[8] | 10 | INTEGER :: size |
---|
| 11 | |
---|
| 12 | INTEGER :: size_max |
---|
| 13 | REAL :: grow_factor |
---|
| 14 | INTEGER :: chunk |
---|
| 15 | |
---|
| 16 | END TYPE vector_field_group |
---|
| 17 | |
---|
Note: See
TracBrowser
for help on using the repository browser.