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