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