08.06.2013 Views

Bernese GPS Software Version 5.0 - Bernese GNSS Software

Bernese GPS Software Version 5.0 - Bernese GNSS Software

Bernese GPS Software Version 5.0 - Bernese GNSS Software

SHOW MORE
SHOW LESS

Create successful ePaper yourself

Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.

01: package COOVEL;<br />

02: @ISA = ("RUNBPE");<br />

03: # ============================================================================<br />

04: # Name : COOVEL<br />

05: # Purpose : Execute COOVEL<br />

06: # ============================================================================<br />

07: sub run {<br />

08: my $bpe = shift;<br />

09:<br />

10: # Run program<br />

11: # -----------<br />

12: my $PGMNAM = "COOVEL";<br />

13: $bpe->RUN_PGMS($PGMNAM);<br />

14: }<br />

19.6 User Scripts<br />

The meaning of the lines 1–2 and 7–8 was already described in Section 19.6.1. Let us look<br />

at the lines 12 and 13. In this way the <strong>Bernese</strong> main program is started. The format of these<br />

two lines is mandatory to allow the menu program to find all programs that are started<br />

in a given user script in ”Menu>BPE>Edit PCF program input files” (see Section 19.7). The method<br />

RUNBPE::RUN PGMS is defined in the module ${BPE}/RUNBPE.pm.<br />

The following example shows a more complex user script that is available in the example<br />

BPE. The name of the script is HELMR1 and its task is to run the <strong>Bernese</strong> main program<br />

HELMR1 for performing a Helmert transformation between two coordinate sets and to<br />

initiate an iteration if large residuals are found for fiducial stations (see Section 10.2.3).<br />

01: package HELMR1;<br />

02: @ISA = ("RUNBPE");<br />

03: # ============================================================================<br />

04: #<br />

05: # Name : HELMR1<br />

06: #<br />

07: # Purpose : Execute HELMR1<br />

08: #<br />

09: # Remark : This script permits automatic verification of a given set of<br />

10: # fiducial stations. In case of discrepancies, a modified FIX<br />

11: # file can be output by HELMR1 and thus used to directly repeat<br />

12: # the last ADDNEQ2 run, finally considering a reduced set of<br />

13: # fiducial stations accepted for consistent datum definition.<br />

14: #<br />

15: # PARAMs : PARAM2 - goto PID for new datum definition<br />

16: #<br />

17: # Author : M. Meindl, S. Schaer<br />

18: # Created : 19-Oct-2003<br />

19: #<br />

20: # ============================================================================<br />

21: use lib $ENV{BPE};<br />

22: use bpe_util;<br />

23:<br />

24: sub run {<br />

25: my $bpe = shift;<br />

26:<br />

27: # Get variables<br />

28: # -------------<br />

29: my ($yyssss, $param2, $startcount,<br />

30: $dirLst, $extLst) =<br />

31: $bpe->getKeys(’$YSS+0’, ’PARAM2’, ’STARTCOUNT’,<br />

32: ’DIR_LST’, ’EXT_LST’);<br />

33:<br />

34: # Delete HLM LST file in first run<br />

35: # --------------------------------<br />

36: my $lstFil = "${dirLst}HLM${yyssss}.${extLst}";<br />

<strong>Bernese</strong> <strong>GPS</strong> <strong>Software</strong> <strong>Version</strong> <strong>5.0</strong> Page 399

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!