Bernese GPS Software Version 5.0 - Bernese GNSS Software

01: package COOVEL;
02: @ISA = ("RUNBPE");
03: # ============================================================================
04: # Name : COOVEL
05: # Purpose : Execute COOVEL
06: # ============================================================================
07: sub run {
08: my $bpe = shift;
09:
10: # Run program
11: # -----------
12: my $PGMNAM = "COOVEL";
13: $bpe->RUN_PGMS($PGMNAM);
14: }
19.6 User Scripts
The meaning of the lines 1–2 and 7–8 was already described in Section 19.6.1. Let us look
at the lines 12 and 13. In this way the Bernese main program is started. The format of these
two lines is mandatory to allow the menu program to find all programs that are started
in a given user script in ”Menu>BPE>Edit PCF program input files” (see Section 19.7). The method
RUNBPE::RUN PGMS is defined in the module ${BPE}/RUNBPE.pm.
The following example shows a more complex user script that is available in the example
BPE. The name of the script is HELMR1 and its task is to run the Bernese main program
HELMR1 for performing a Helmert transformation between two coordinate sets and to
initiate an iteration if large residuals are found for fiducial stations (see Section 10.2.3).
01: package HELMR1;
02: @ISA = ("RUNBPE");
03: # ============================================================================
04: #
05: # Name : HELMR1
06: #
07: # Purpose : Execute HELMR1
08: #
09: # Remark : This script permits automatic verification of a given set of
10: # fiducial stations. In case of discrepancies, a modified FIX
11: # file can be output by HELMR1 and thus used to directly repeat
12: # the last ADDNEQ2 run, finally considering a reduced set of
13: # fiducial stations accepted for consistent datum definition.
14: #
15: # PARAMs : PARAM2 - goto PID for new datum definition
16: #
17: # Author : M. Meindl, S. Schaer
18: # Created : 19-Oct-2003
19: #
20: # ============================================================================
21: use lib $ENV{BPE};
22: use bpe_util;
23:
24: sub run {
25: my $bpe = shift;
26:
27: # Get variables
28: # -------------
29: my ($yyssss, $param2, $startcount,
30: $dirLst, $extLst) =
31: $bpe->getKeys(’$YSS+0’, ’PARAM2’, ’STARTCOUNT’,
32: ’DIR_LST’, ’EXT_LST’);
33:
34: # Delete HLM LST file in first run
35: # --------------------------------
36: my $lstFil = "${dirLst}HLM${yyssss}.${extLst}";
Bernese GPS Software Version 5.0 Page 399