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