Vector ๆณๅๅ้
| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| integer, | public | :: | len | = | 0 |
ๆๆๅ้้ฟๅบฆ |
ๅๅงๅๅ้
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(vector), | intent(inout) | :: | self |
ๅ้ๅผนๅบ
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(vector), | intent(inout) | :: | self | |||
| class(*), | intent(out), | optional, | allocatable | :: | item |
ๅ้ๅๅ ฅ
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(vector), | intent(inout) | :: | self | |||
| class(*), | intent(in) | :: | item |
ๅ้่ฎพ็ฝฎ
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(vector), | intent(inout) | :: | self | |||
| integer, | intent(in) | :: | index | |||
| class(*), | intent(in) | :: | item |
ๅ้่ทๅ
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(vector), | intent(in) | :: | self | |||
| integer, | intent(in) | :: | index | |||
| class(*), | intent(out), | allocatable | :: | item |
ๅ้ๆธ ็ฉบ
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(vector), | intent(inout) | :: | self |
type vector
private
integer, public :: len = 0 !! ๆๆๅ้้ฟๅบฆ
type(node), allocatable :: items(:) !! ๆณๅๆฐ็ป
contains
procedure :: init
procedure :: push, pop
procedure :: get, set
procedure :: clear
procedure, private :: extend
end type vector