source:
XMLIO_SERVER/trunk/src/XMLIO/vector_field_def.inc
@
8
| Last change on this file since 8 was 8, checked in by ymipsl, 15 years ago | |
|---|---|
| File size: 325 bytes | |
| Line | |
|---|---|
| 1 | |
| 2 | TYPE,PRIVATE :: Pt_field |
| 3 | TYPE (field),POINTER :: Pt |
| 4 | LOGICAL :: owned |
| 5 | END TYPE Pt_field |
| 6 | |
| 7 | TYPE vector_field |
| 8 | |
| 9 | TYPE (Pt_field), POINTER, DIMENSION(:) :: at => NULL() |
| 10 | INTEGER :: size |
| 11 | |
| 12 | INTEGER :: size_max |
| 13 | REAL :: grow_factor |
| 14 | INTEGER :: chunk |
| 15 | |
| 16 | END TYPE vector_field |
| 17 |
Note: See TracBrowser
for help on using the repository browser.
