Observation target declaration.
Type | Visibility | Attributes | Name | Initial | |||
---|---|---|---|---|---|---|---|
integer, | public, | parameter | :: | TARGET_ID_LEN | = | ID_LEN |
Max. target id length. |
integer, | public, | parameter | :: | TARGET_NAME_LEN | = | 32 |
Max. target name length. |
integer, | public, | parameter | :: | TARGET_META_LEN | = | 32 |
Max. target meta description length. |
integer, | public, | parameter | :: | TARGET_STATE_NONE | = | 0 |
Default state. |
integer, | public, | parameter | :: | TARGET_STATE_REMOVED | = | 1 |
Target was removed. |
integer, | public, | parameter | :: | TARGET_STATE_MISSING | = | 2 |
Target is missing. |
integer, | public, | parameter | :: | TARGET_STATE_INVALID | = | 3 |
Target is invalid. |
integer, | public, | parameter | :: | TARGET_STATE_IGNORE | = | 4 |
Target should be ignored. |
integer, | public, | parameter | :: | TARGET_STATE_OBSOLETE | = | 5 |
Target is obsolete. |
integer, | public, | parameter | :: | TARGET_STATE_USER | = | 6 |
User-defined state. |
integer, | public, | parameter | :: | TARGET_STATE_LAST | = | 6 |
Never use this. |
integer, | public, | parameter | :: | TARGET_STATE_NAME_LEN | = | 8 |
Max. target state name length. |
character(len=*), | public, | parameter | :: | TARGET_STATE_NAMES(TARGET_STATE_NONE:TARGET_STATE_LAST) | = | [character(len=TARGET_STATE_NAME_LEN)::'none', 'removed', 'missing', 'invalid', 'ignore', 'obsolete', 'user'] |
Target state names. |
integer, | public, | parameter | :: | TARGET_SIZE | = | storage_size(target_type())/8 |
Size of |
Returns whether targets are equal.
Returns .true.
if given targets are equal.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(target_type), | intent(in) | :: | target1 |
The first target. |
||
type(target_type), | intent(in) | :: | target2 |
The second target. |
Target description.
Type | Visibility | Attributes | Name | Initial | |||
---|---|---|---|---|---|---|---|
character(len=TARGET_ID_LEN), | public | :: | id | = | ' ' |
Target id ( |
|
character(len=TARGET_NAME_LEN), | public | :: | name | = | ' ' |
Target name. |
|
character(len=TARGET_META_LEN), | public | :: | meta | = | ' ' |
Target meta information (optional). |
|
integer, | public | :: | state | = | TARGET_STATE_NONE |
Target state (optional). |
|
real(kind=r8), | public | :: | x | = | 0.0_r8 |
Target x or easting (optional). |
|
real(kind=r8), | public | :: | y | = | 0.0_r8 |
Target y or northing (optional). |
|
real(kind=r8), | public | :: | z | = | 0.0_r8 |
Target z or altitude (optional). |
|
real(kind=r8), | public | :: | lon | = | 0.0_r8 |
Longitude in degrees (optional). |
|
real(kind=r8), | public | :: | lat | = | 0.0_r8 |
Latitude in degrees (optional). |
|
real(kind=r8), | public | :: | alt | = | 0.0_r8 |
Altitude or elevation in metres (optional). |
Returns .true.
if given targets are equal.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(target_type), | intent(in) | :: | target1 |
The first target. |
||
type(target_type), | intent(in) | :: | target2 |
The second target. |
Returns .true.
if given target type elements are valid.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(target_type), | intent(in) | :: | target |
Target type. |
Returns .true.
if the state of the given target type is known.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
integer, | intent(in) | :: | state |
Target state. |
Returns the name of the known target state as an allocatable
character string, or unknown
if the state is not known.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
integer, | intent(in) | :: | state |
Target state. |
Target state name.
Prints target to standard output or given file unit. If not unit is passed, the target will be written to standard output.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(target_type), | intent(inout) | :: | target |
Target type. |
||
integer, | intent(in), | optional | :: | unit |
File unit. |