Type-Bound Procedures
generic, public :: add => add_sig, add_ary
-
private subroutine add_sig(ST, new_key, val)
Arguments
| Type |
Intent | Optional |
Attributes | | Name | |
|---|
| class(statis), |
intent(inout) |
|
| :: |
ST | |
| integer, |
intent(in) |
|
| :: |
new_key | |
| real(kind=8), |
intent(in), |
optional |
| :: |
val | |
-
private subroutine add_ary(ST, new_key, val_)
Arguments
| Type |
Intent | Optional |
Attributes | | Name | |
|---|
| class(statis), |
intent(inout) |
|
| :: |
ST | |
| integer, |
intent(in) |
|
| :: |
new_key(:) | |
| real(kind=8), |
intent(in), |
optional |
| :: |
val_ | |
generic, public :: get_perc => get_perc_sig, get_perc_ary
-
private function get_perc_sig(ST, new_key)
Arguments
| Type |
Intent | Optional |
Attributes | | Name | |
|---|
| class(statis), |
intent(inout) |
|
| :: |
ST | |
| integer, |
intent(in) |
|
| :: |
new_key | |
Return Value real(kind=8)
-
private function get_perc_ary(ST, new_key)
Arguments
| Type |
Intent | Optional |
Attributes | | Name | |
|---|
| class(statis), |
intent(inout) |
|
| :: |
ST | |
| integer, |
intent(in) |
|
| :: |
new_key(:) | |
Return Value real(kind=8)
generic, public :: get_ave_val => get_ave_val_sig, get_ave_val_ary
-
private function get_ave_val_sig(ST, new_key)
Arguments
| Type |
Intent | Optional |
Attributes | | Name | |
|---|
| class(statis), |
intent(inout) |
|
| :: |
ST | |
| integer, |
intent(in) |
|
| :: |
new_key | |
Return Value real(kind=8)
-
private function get_ave_val_ary(ST, new_key)
Arguments
| Type |
Intent | Optional |
Attributes | | Name | |
|---|
| class(statis), |
intent(inout) |
|
| :: |
ST | |
| integer, |
intent(in) |
|
| :: |
new_key(:) | |
Return Value real(kind=8)
procedure, public :: clean
-
private subroutine clean(ST)
Arguments
| Type |
Intent | Optional |
Attributes | | Name | |
|---|
| class(statis), |
intent(inout) |
|
| :: |
ST | |
procedure, public :: show
-
private subroutine show(ST, sta_name)
Arguments
| Type |
Intent | Optional |
Attributes | | Name | |
|---|
| class(statis), |
intent(inout) |
|
| :: |
ST | |
| character(len=*) |
|
|
| :: |
sta_name | |
procedure, public :: show2
-
private subroutine show2(ST, sta_name)
Arguments
| Type |
Intent | Optional |
Attributes | | Name | |
|---|
| class(statis), |
intent(inout) |
|
| :: |
ST | |
| character(len=*) |
|
|
| :: |
sta_name | |
procedure, public :: sort_key
-
private subroutine sort_key(ST)
Arguments
| Type |
Intent | Optional |
Attributes | | Name | |
|---|
| class(statis), |
intent(inout) |
|
| :: |
ST | |
procedure, public :: sort_val
-
private subroutine sort_val(ST)
Arguments
| Type |
Intent | Optional |
Attributes | | Name | |
|---|
| class(statis), |
intent(inout) |
|
| :: |
ST | |