dm_geocom_type Module

GeoCOM API types and enumerators. The GeoCOM named parameters start with prefix GEOCOM_.


Used by

  • module~~dm_geocom_type~~UsedByGraph module~dm_geocom_type dm_geocom_type module~dm_geocom dm_geocom module~dm_geocom->module~dm_geocom_type module~dm_geocom_api dm_geocom_api module~dm_geocom->module~dm_geocom_api module~dm_geocom_api->module~dm_geocom_type module~dm_lua_geocom dm_lua_geocom module~dm_lua_geocom->module~dm_geocom_type module~dm_lua_geocom->module~dm_geocom_api module~dmpack dmpack module~dmpack->module~dm_geocom_type module~dmpack->module~dm_geocom module~dmpack->module~dm_geocom_api module~dmpack->module~dm_lua_geocom proc~luaopen_libdmpack luaopen_libdmpack proc~luaopen_libdmpack->module~dm_lua_geocom

Variables

Type Visibility Attributes Name Initial
integer, public, parameter :: GEOCOM_AUT_ADJMODE = 1

Fine-adjust position mode.
integer, public, parameter :: GEOCOM_AUT_ATRMODE = 2

Automatic target recognition mode.
integer, public, parameter :: GEOCOM_AUT_POSMODE = 3

Position precision.
integer, public, parameter :: GEOCOM_BAP_ATRSETTING = 4

ATR Low-Vis mode definition.
integer, public, parameter :: GEOCOM_BAP_MEASURE_PRG = 5

Measurement modes.
integer, public, parameter :: GEOCOM_BAP_PRISMDEF = 6

Prism definition.
integer, public, parameter :: GEOCOM_BAP_PRISMTYPE = 7

Prism type definition.
integer, public, parameter :: GEOCOM_BAP_REFLTYPE = 8

Reflector type definition.
integer, public, parameter :: GEOCOM_BAP_TARGET_TYPE = 9

Target type definition.
integer, public, parameter :: GEOCOM_BAP_USER_MEASPRG = 10

Distance measurement programs.
integer, public, parameter :: GEOCOM_COM_BAUD_RATE = 11

Baud rate.
integer, public, parameter :: GEOCOM_COM_FORMAT = 12

Transmission data format.
integer, public, parameter :: GEOCOM_COM_TPS_STARTUP_MODE = 13

Start mode.
integer, public, parameter :: GEOCOM_COM_TPS_STOP_MODE = 14

Stop mode.
integer, public, parameter :: GEOCOM_CSV_POWER_PATH = 15

Power sources.
integer, public, parameter :: GEOCOM_EDM_EGLINTENSITY_TYPE = 16

Intensity of Electronic Guidelight.
integer, public, parameter :: GEOCOM_EDM_MODE = 17

EDM measurement mode.
integer, public, parameter :: GEOCOM_FTR_DEVICETYPE = 18

Device type.
integer, public, parameter :: GEOCOM_FTR_FILETYPE = 19

File type.
integer, public, parameter :: GEOCOM_IMG_MEM_TYPE = 20

Memory device type.
integer, public, parameter :: GEOCOM_MOT_LOCK_STATUS = 21

Lock conditions.
integer, public, parameter :: GEOCOM_MOT_MODE = 22

Controller configuration.
integer, public, parameter :: GEOCOM_MOT_STOPMODE = 23

Controller stop mode.
integer, public, parameter :: GEOCOM_SUP_AUTO_POWER = 24

Automatic shutdown mechanism for the system.
integer, public, parameter :: GEOCOM_TMC_FACE = 25

Actual face.
integer, public, parameter :: GEOCOM_TMC_FACE_DEF = 26

Face position.
integer, public, parameter :: GEOCOM_TMC_INCLINE_PRG = 27

Inclination sensor measurement program.
integer, public, parameter :: GEOCOM_TMC_MEASURE_PRG = 28

TMC measurement mode.
integer, public, parameter :: GEOCOM_TPS_DEVICE_CLASS = 29

TPS device precision class.
integer, public, parameter :: GEOCOM_TPS_DEVICE_TYPE = 30

TPS device configuration type.
integer, public, parameter :: GEOCOM_TPS_REFLESS_CLASS = 31

Reflectorless class.
integer, public, parameter :: GEOCOM_TYPE_LAST = 31

Never use this.
character(len=*), public, parameter :: geocom_type_names(1:GEOCOM_TYPE_LAST) = [character(len=28)::'GEOCOM_AUT_ADJMODE', 'GEOCOM_AUT_ATRMODE', 'GEOCOM_AUT_POSMODE', 'GEOCOM_BAP_ATRSETTING', 'GEOCOM_BAP_MEASURE_PRG', 'GEOCOM_BAP_PRISMDEF', 'GEOCOM_BAP_PRISMTYPE', 'GEOCOM_BAP_REFLTYPE', 'GEOCOM_BAP_TARGET_TYPE', 'GEOCOM_BAP_USER_MEASPRG', 'GEOCOM_COM_BAUD_RATE', 'GEOCOM_COM_FORMAT', 'GEOCOM_COM_TPS_STARTUP_MODE', 'GEOCOM_COM_TPS_STOP_MODE', 'GEOCOM_CSV_POWER_PATH', 'GEOCOM_EDM_EGLINTENSITY_TYPE', 'GEOCOM_EDM_MODE', 'GEOCOM_FTR_DEVICETYPE', 'GEOCOM_FTR_FILETYPE', 'GEOCOM_IMG_MEM_TYPE', 'GEOCOM_MOT_LOCK_STATUS', 'GEOCOM_MOT_MODE', 'GEOCOM_MOT_STOPMODE', 'GEOCOM_SUP_AUTO_POWER', 'GEOCOM_TMC_FACE', 'GEOCOM_TMC_FACE_DEF', 'GEOCOM_TMC_INCLINE_PRG', 'GEOCOM_TMC_MEASURE_PRG', 'GEOCOM_TPS_DEVICE_CLASS', 'GEOCOM_TPS_DEVICE_TYPE', 'GEOCOM_TPS_REFLESS_CLASS']

GeoCOM type names.
integer, public, parameter :: GEOCOM_AUT_NORM_MODE = 0

Angle tolerance.
integer, public, parameter :: GEOCOM_AUT_POINT_MODE = 1

Point tolerance.
integer, public, parameter :: GEOCOM_AUT_DEFINE_MODE = 2

System independent positioning tolerance.
integer, public, parameter :: GEOCOM_AUT_POSITION = 0

Positioning to Hz and V angle.
integer, public, parameter :: GEOCOM_AUT_TARGET = 1

Positioning to a target in the environment of the Hz and V angle.
integer, public, parameter :: GEOCOM_AUT_NORMAL = 0

Fast positioning mode.
integer, public, parameter :: GEOCOM_AUT_PRECISE = 1

Exact positioning mode.
integer, public, parameter :: GEOCOM_AUT_FAST = 2

For TM30/TS30.
integer, public, parameter :: GEOCOM_AUT_CLOCKWISE = 1

Direction clock-wise.
integer, public, parameter :: GEOCOM_AUT_ANTICLOCKWISE = -1

Direction counter clock-wise.
integer, public, parameter :: GEOCOM_BAP_ATRSET_NORMAL = 0

ATR is using no special flags or modes.
integer, public, parameter :: GEOCOM_BAP_ATRSET_LOWVIS_ON = 1

ATR low-vis mode on.
integer, public, parameter :: GEOCOM_BAP_ATRSET_LOWVIS_AON = 2

ATR low-vis mode always on.
integer, public, parameter :: GEOCOM_BAP_ATRSET_SRANGE_ON = 3

ATR high-reflectivity mode on.
integer, public, parameter :: GEOCOM_BAP_ATRSET_SRANGE_AON = 4

ATR high-reflectivity mode always on.
integer, public, parameter :: GEOCOM_BAP_NO_MEAS = 0

No measurements, take last one.
integer, public, parameter :: GEOCOM_BAP_NO_DIST = 1

No distance measurement, angles only.
integer, public, parameter :: GEOCOM_BAP_DEF_DIST = 2

Default distance measurements.
integer, public, parameter :: GEOCOM_BAP_CLEAR_DIST = 5

Clear distances.
integer, public, parameter :: GEOCOM_BAP_STOP_TRK = 6

Stop tracking.
integer, public, parameter :: GEOCOM_BAP_PRISMNAME_LEN = 16

Prism name string length.
integer, public, parameter :: GEOCOM_BAP_PRISM_ROUND = 0

Leica Circular Prism.
integer, public, parameter :: GEOCOM_BAP_PRISM_MINI = 1

Leica Mini Prism.
integer, public, parameter :: GEOCOM_BAP_PRISM_TAPE = 2

Leica Reflector Tape.
integer, public, parameter :: GEOCOM_BAP_PRISM_360 = 3

Leica 360° Prism.
integer, public, parameter :: GEOCOM_BAP_PRISM_USER1 = 4

Not supported by TPS1200.
integer, public, parameter :: GEOCOM_BAP_PRISM_USER2 = 5

Not supported by TPS1200.
integer, public, parameter :: GEOCOM_BAP_PRISM_USER3 = 6

Not supported by TPS1200.
integer, public, parameter :: GEOCOM_BAP_PRISM_360_MINI = 7

Leica Mini 360° Prism
integer, public, parameter :: GEOCOM_BAP_PRISM_MINI_ZERO = 8

Leica Mini Zero Prism.
integer, public, parameter :: GEOCOM_BAP_PRISM_USER = 9

User Defined Prism.
integer, public, parameter :: GEOCOM_BAP_PRISM_NDS_TAPE = 10

Leica HDS Target.
integer, public, parameter :: GEOCOM_BAP_PRISM_GRZ121_ROUND = 11

GRZ121 360º Prism for Machine Guidance.
integer, public, parameter :: GEOCOM_BAP_PRISM_MA_MPR122 = 12

MPR122 360º Prism for Machine Guidance.
integer, public, parameter :: GEOCOM_BAP_REFL_UNDEF = 0

Reflector not defined.
integer, public, parameter :: GEOCOM_BAP_REFL_PRISM = 1

Reflector prism.
integer, public, parameter :: GEOCOM_BAP_REFL_TAPE = 2

Reflector tape.
integer, public, parameter :: GEOCOM_BAP_SINGLE_REF_STANDARD = 0

IR standard.
integer, public, parameter :: GEOCOM_BAP_SINGLE_REF_FAST = 1

IR fast.
integer, public, parameter :: GEOCOM_BAP_SINGLE_REF_VISIBLE = 2

LO standard.
integer, public, parameter :: GEOCOM_BAP_SINGLE_RLESS_VISIBLE = 3

RL standard.
integer, public, parameter :: GEOCOM_BAP_CONT_REF_STANDARD = 4

IR tracking.
integer, public, parameter :: GEOCOM_BAP_CONT_REF_FAST = 5

Not supported by TPS1200.
integer, public, parameter :: GEOCOM_BAP_CONT_RLESS_VISIBLE = 6

RL fast tracking.
integer, public, parameter :: GEOCOM_BAP_AVG_REF_STANDARD = 7

IR average.
integer, public, parameter :: GEOCOM_BAP_AVG_REF_VISIBLE = 8

LO average.
integer, public, parameter :: GEOCOM_BAP_AVG_RLESS_VISIBLE = 9

RL average.
integer, public, parameter :: GEOCOM_BAP_CONT_REF_SYNCHRO = 10

IR synchro tracking.
integer, public, parameter :: GEOCOM_BAP_SINGLE_REF_PRECISE = 11

IR precise (TM30/TS30).
integer, public, parameter :: GEOCOM_BAP_REFL_USE = 0

With reflector.
integer, public, parameter :: GEOCOM_BAP_REFL_LESS = 1

Without reflector.
integer, public, parameter :: GEOCOM_IOS_BEEP_STDINTENS = 100

Standard intensity of beep expressed as percentage.
integer, public, parameter :: GEOCOM_COM_BAUD_38400 = 0

38400 baud.
integer, public, parameter :: GEOCOM_COM_BAUD_19200 = 1

19200 baud (default).
integer, public, parameter :: GEOCOM_COM_BAUD_9600 = 2

9600 baud.
integer, public, parameter :: GEOCOM_COM_BAUD_4800 = 3

4800 baud.
integer, public, parameter :: GEOCOM_COM_BAUD_2400 = 4

2400 baud.
integer, public, parameter :: GEOCOM_COM_BAUD_115200 = 5

115200 baud.
integer, public, parameter :: GEOCOM_COM_BAUD_57600 = 6

57600 baud.
integer, public, parameter :: GEOCOM_COM_ASCII = 0

ASCII protocol.
integer, public, parameter :: GEOCOM_COM_BINARY = 1

Binary protocol.
integer, public, parameter :: GEOCOM_COM_STARTUP_LOCAL = 0

Not supported by TPS1200.
integer, public, parameter :: GEOCOM_COM_STARTUP_REMOTE = 1

RPC is enabled (online mode).
integer, public, parameter :: GEOCOM_COM_STOP_SHUT_DOWN = 0

Power down instrument.
integer, public, parameter :: GEOCOM_COM_STOP_SLEEP = 1

Not supported by TPS1200.
integer, public, parameter :: GEOCOM_CSV_EXTERNAL_POWER = 1

Power source is external.
integer, public, parameter :: GEOCOM_CSV_INTERNAL_POWER = 2

Power source is the internal battery.
integer, public, parameter :: GEOCOM_TPS_CLASS_1100 = 0

TPS1000 family member, 1 mgon, 3 ".
integer, public, parameter :: GEOCOM_TPS_CLASS_1700 = 1

TPS1000 family member, 0.5 mgon, 1.5 ".
integer, public, parameter :: GEOCOM_TPS_CLASS_1800 = 2

TPS1000 family member, 0.3 mgon, 1 ".
integer, public, parameter :: GEOCOM_TPS_CLASS_5000 = 3

TPS2000 family member.
integer, public, parameter :: GEOCOM_TPS_CLASS_6000 = 4

TPS2000 family member.
integer, public, parameter :: GEOCOM_TPS_CLASS_1500 = 5

TPS1000 family member.
integer, public, parameter :: GEOCOM_TPS_CLASS_2003 = 6

TPS2000 family member.
integer, public, parameter :: GEOCOM_TPS_CLASS_5005 = 7

TPS5000 family member.
integer, public, parameter :: GEOCOM_TPS_CLASS_5100 = 8

TPS5000 family member.
integer, public, parameter :: GEOCOM_TPS_CLASS_1102 = 100

TPS1100 family member, 2 ".
integer, public, parameter :: GEOCOM_TPS_CLASS_1103 = 101

TPS1100 family member, 3 ".
integer, public, parameter :: GEOCOM_TPS_CLASS_1105 = 102

TPS1100 family member, 5 ".
integer, public, parameter :: GEOCOM_TPS_CLASS_1101 = 103

TPS1100 family member, 1 ".
integer, public, parameter :: GEOCOM_TPS_CLASS_1202 = 200

TPS1200 family member, 2 ".
integer, public, parameter :: GEOCOM_TPS_CLASS_1203 = 201

TPS1200 family member, 3 ".
integer, public, parameter :: GEOCOM_TPS_CLASS_1205 = 202

TPS1200 family member, 5 ".
integer, public, parameter :: GEOCOM_TPS_CLASS_1201 = 203

TPS1200 family member, 1 ".
integer, public, parameter :: GEOCOM_TPS_CLASS_TX30 = 300

TS30,TM30 family member, 0.5 ".
integer, public, parameter :: GEOCOM_TPS_CLASS_TX31 = 301

TS30,TM30 family member, 1 ".
integer, public, parameter :: GEOCOM_TPS_DEVICE_T = int(z'00000')

Theodolite without built-in EDM.
integer, public, parameter :: GEOCOM_TPS_DEVICE_MOT = int(z'00004')

Motorized device.
integer, public, parameter :: GEOCOM_TPS_DEVICE_ATR = int(z'00008')

Automatic Target Recognition.
integer, public, parameter :: GEOCOM_TPS_DEVICE_EGL = int(z'00010')

Electronic Guide Light.
integer, public, parameter :: GEOCOM_TPS_DEVICE_DB = int(z'00020')

Reserved (Database, not GSI).
integer, public, parameter :: GEOCOM_TPS_DEVICE_DL = int(z'00040')

Diode laser.
integer, public, parameter :: GEOCOM_TPS_DEVICE_LP = int(z'00080')

Laser plumbed.
integer, public, parameter :: GEOCOM_TPS_DEVICE_TC1 = int(z'00001')

Tachymeter (TCW1).
integer, public, parameter :: GEOCOM_TPS_DEVICE_TC2 = int(z'00002')

Tachymeter (TCW2).
integer, public, parameter :: GEOCOM_TPS_DEVICE_TC = int(z'00001')

Tachymeter (TCW3).
integer, public, parameter :: GEOCOM_TPS_DEVICE_TCR = int(z'00002')

Tachymeter (TCW3 with red laser).
integer, public, parameter :: GEOCOM_TPS_DEVICE_ATC = int(z'00100')

Autocollimation lamp (used only PMU).
integer, public, parameter :: GEOCOM_TPS_DEVICE_LPNT = int(z'00200')

Laserpointer.
integer, public, parameter :: GEOCOM_TPS_DEVICE_RL_EXT = int(z'00400')

Reflectorless EDM with extended range (Pinpoint R100, R300).
integer, public, parameter :: GEOCOM_TPS_DEVICE_PS = int(z'00800')

Power Search.
integer, public, parameter :: GEOCOM_TPS_DEVICE_SIM = int(z'04000')

Runs on simulation, no hardware.
integer, public, parameter :: GEOCOM_TPS_REFLESS_NONE = 0
integer, public, parameter :: GEOCOM_TPS_REFLESS_R100 = 1

Pinpoint R100.
integer, public, parameter :: GEOCOM_TPS_REFLESS_R300 = 2

Pinpoint R300.
integer, public, parameter :: GEOCOM_TPS_REFLESS_R400 = 3

Pinpoint R400.
integer, public, parameter :: GEOCOM_TPS_REFLESS_R1000 = 4

Pinpoint R1000.
integer, public, parameter :: GEOCOM_EDM_EGLINTEN_OFF = 0
integer, public, parameter :: GEOCOM_EDM_EGLINTEN_LOW = 1
integer, public, parameter :: GEOCOM_EDM_EGLINTEN_MID = 2
integer, public, parameter :: GEOCOM_EDM_EGLINTEN_HIGH = 3
integer, public, parameter :: GEOCOM_EDM_MODE_NOT_USED = 0

Initial value.
integer, public, parameter :: GEOCOM_EDM_SINGLE_TAPE = 1

IR Standard Reflector Tape.
integer, public, parameter :: GEOCOM_EDM_SINGLE_STANDARD = 2

IR Standard.
integer, public, parameter :: GEOCOM_EDM_SINGLE_FAST = 3

IR Fast.
integer, public, parameter :: GEOCOM_EDM_SINGLE_LRANGE = 4

LO Standard.
integer, public, parameter :: GEOCOM_EDM_SINGLE_SRANGE = 5

RL Standard.
integer, public, parameter :: GEOCOM_EDM_CONT_STANDARD = 6

Standard repeated measurement.
integer, public, parameter :: GEOCOM_EDM_CONT_DYNAMIC = 7

IR Tacking.
integer, public, parameter :: GEOCOM_EDM_CONT_REFLESS = 8

RL Tracking.
integer, public, parameter :: GEOCOM_EDM_CONT_FAST = 9

Fast repeated measurement.
integer, public, parameter :: GEOCOM_EDM_AVERAGE_IR = 10

IR Average.
integer, public, parameter :: GEOCOM_EDM_AVERAGE_SR = 11

RL Average.
integer, public, parameter :: GEOCOM_EDM_AVERAGE_LR = 12

LO Average.
integer, public, parameter :: GEOCOM_EDM_PRECISE_IR = 13

IR Precise (TM30, TS30).
integer, public, parameter :: GEOCOM_EDM_PRECISE_TAPE = 14

IR Precise Reflector Tape (TM30, TS30).
integer, public, parameter :: GEOCOM_FTR_MAX_BLOCKSIZE = 450

Max. block size.
integer, public, parameter :: GEOCOM_FTR_DEVICE_INTERNAL = 0

Internal memory.
integer, public, parameter :: GEOCOM_FTR_DEVICE_PCPARD = 1

Memory card.
integer, public, parameter :: GEOCOM_FTR_FILE_UNKNOWN = 0

Undocumented.
integer, public, parameter :: GEOCOM_FTR_FILE_IMAGES = 170

Extension wildcard: *.jpg.
integer, public, parameter :: GEOCOM_IMG_INTERNAL_MEMORY = int(z'0')

Internal memory module.
integer, public, parameter :: GEOCOM_IMG_PC_CARD = int(z'1')

External PC Card.
integer, public, parameter :: GEOCOM_IMG_MAX_FILE_PREFIX_LEN = 20

Length of file name prefix.
integer, public, parameter :: GEOCOM_MOT_LOCKED_OUT = 0

Locked out.
integer, public, parameter :: GEOCOM_MOT_LOCKED_IN = 1

Locked in.
integer, public, parameter :: GEOCOM_MOT_PREDICTION = 2

Prediction mode.
integer, public, parameter :: GEOCOM_MOT_POSIT = 0

Configured for relative positioning.
integer, public, parameter :: GEOCOM_MOT_OCONST = 1

Configured for constant speed.
integer, public, parameter :: GEOCOM_MOT_MANUPOS = 2

Configured for manual positioning (default setting).
integer, public, parameter :: GEOCOM_MOT_LOCK = 3

Configured as "Lock-In" controller.
integer, public, parameter :: GEOCOM_MOT_BREAK = 4

Configured as "Brake" controller.
integer, public, parameter :: GEOCOM_MOT_TERM = 7

Terminates the controller task.
integer, public, parameter :: GEOCOM_MOT_NORMAL = 0

Slow down with current acceleration.
integer, public, parameter :: GEOCOM_MOT_SHUTDOWN = 1

Slow down by switch off power supply.
integer, public, parameter :: GEOCOM_SUP_POWER_DISABLED = 0

Instrument remains on.
integer, public, parameter :: GEOCOM_SUP_POWER_OFF = 2

Turns off mechanism.
integer, public, parameter :: GEOCOM_TMC_FACE_1 = 0

Position 1 of telescope.
integer, public, parameter :: GEOCOM_TMC_FACE_2 = 1

Position 2 of telescope.
integer, public, parameter :: GEOCOM_TMC_FACE_NORMAL = 0

Face in normal position.
integer, public, parameter :: GEOCOM_TMC_FACE_TURN = 1

Face turned.
integer, public, parameter :: GEOCOM_TMC_MEA_INC = 0

Use sensor (a priori sigma).
integer, public, parameter :: GEOCOM_TMC_AUTO_INC = 1

Automatic mode (sensor/plane).
integer, public, parameter :: GEOCOM_TMC_PLANE_INC = 2

Use plane (a priori sigma).
integer, public, parameter :: GEOCOM_TMC_STOP = 0

Stop measurement program.
integer, public, parameter :: GEOCOM_TMC_DEF_DIST = 1

Default DIST-measurement program.
integer, public, parameter :: GEOCOM_TMC_CLEAR = 3

TMC_STOP and clear data.
integer, public, parameter :: GEOCOM_TMC_SIGNAL = 4

Signal measurement (test function).
integer, public, parameter :: GEOCOM_TMC_DO_MEASURE = 6

(Re-)start measurement task.
integer, public, parameter :: GEOCOM_TMC_RTRK_DIST = 8

Distance-TRK measurement program.
integer, public, parameter :: GEOCOM_TMC_RED_TRK_DIST = 10

Reflectorless tracking.
integer, public, parameter :: GEOCOM_TMC_FREQUENCY = 11

Frequency measurement (test).

Functions

public function dm_geocom_type_validated(type, value, default, verbose, error) result(n)

Parameterisation function for GeoCOM enumeration types.

Read more…

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: type

GeoCOM enumeration type.
integer, intent(in), optional :: value

Enumerator to validate.
integer, intent(in), optional :: default

Value to return on error.
logical, intent(in), optional :: verbose

Print error messages.
integer, intent(out), optional :: error

Error code.

Return Value integer