Last change
on this file since 17 was
17,
checked in by ymipsl, 15 years ago
|
Correction de bugs pour portage sur Mercure
|
File size:
314 bytes
|
Rev | Line | |
---|
[8] | 1 | |
---|
[17] | 2 | TYPE Pt_file__ |
---|
[8] | 3 | TYPE (file),POINTER :: Pt |
---|
| 4 | LOGICAL :: owned |
---|
[17] | 5 | END TYPE Pt_file__ |
---|
[8] | 6 | |
---|
| 7 | TYPE vector_file |
---|
| 8 | |
---|
[17] | 9 | TYPE (Pt_file__), 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_file |
---|
| 17 | |
---|
Note: See
TracBrowser
for help on using the repository browser.