← Back to branch summary

~ubuntu-branches/debian/jessie/eso-midas/jessie

« back to all changes in this revision

Viewing changes to util/bench/mmfbench1.prg

  • Committer: Package Import Robot
  • Author(s): Ole Streicher
  • Date: 2014-04-22 14:44:58 UTC
  • Revision ID: package-import@ubuntu.com-20140422144458-okiwi1assxkkiz39
Tags: upstream-13.09pl1.2+dfsg
Import upstream version 13.09pl1.2+dfsg

Show diffs side-by-side

added added

removed removed

Lines of Context:
util/bench/mmfbench1.prg
 
1
! @(#)mmfbench1.prg     19.1 (ES0-DMD) 02/25/03 14:35:24
 
2
!===========================================================================
 
3
! Copyright (C) 1995 European Southern Observatory (ESO)
 
4
!
 
5
! This program is free software; you can redistribute it and/or 
 
6
! modify it under the terms of the GNU General Public License as 
 
7
! published by the Free Software Foundation; either version 2 of 
 
8
! the License, or (at your option) any later version.
 
9
!
 
10
! This program is distributed in the hope that it will be useful,
 
11
! but WITHOUT ANY WARRANTY; without even the implied warranty of
 
12
! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 
13
! GNU General Public License for more details.
 
14
!
 
15
! You should have received a copy of the GNU General Public 
 
16
! License along with this program; if not, write to the Free 
 
17
! Software Foundation, Inc., 675 Massachusetss Ave, Cambridge, 
 
18
! MA 02139, USA.
 
19
!
 
20
! Corresponding concerning ESO-MIDAS should be addressed as follows:
 
21
!       Internet e-mail: midas@eso.org
 
22
!       Postal address: European Southern Observatory
 
23
!                       Data Management Division 
 
24
!                       Karl-Schwarzschild-Strasse 2
 
25
!                       D 85748 Garching bei Muenchen 
 
26
!                       GERMANY
 
27
!===========================================================================
 
28
!
 
29
! ++++++++++++++++++++++++++++++++++++++++++++++++++++++
 
30
! 
 
31
!  MIDAS procedure mmfbench1.prg 
 
32
!  P.Grosbol         1988 Oct 08
 
33
! 
 
34
!  use as @@ mmfbench1 frame 
 
35
! 
 
36
! ++++++++++++++++++++++++++++++++++++++++++++++++++++++
 
37
! 
 
38
DEFINE/PAR P1 test   IMAGE "Enter Image: "
 
39
!
 
40
DEFINE/LOCAL TIMEA/C/1/40 " " ALL
 
41
DEFINE/LOCAL TIMEB/C/1/40 " " ALL
 
42
!
 
43
WRITE/KEY TIMER/R/1/3     0.,0.,0.
 
44
! 
 
45
WRITE/OUT 
 
46
WRITE/OUT ++++++++++++++++++++++++++++++++++++++++++
 
47
WRITE/OUT procedure mmfbench1 on 'MID$SYS(1:16)'
 
48
WRITE/OUT ++++++++++++++++++++++++++++++++++++++++++
 
49
WRITE/OUT 
 
50
! 
 
51
! ***** Level search *****
 
52
! **************************
 
53
! 
 
54
WRITE/OUT 
 
55
! 
 
56
COMP/KEY TIMEA = M$TIME()
 
57
! 
 
58
@@@ srchmmf 'P1' L 3,30
 
59
! 
 
60
COMP/KEY TIMEB = M$TIME()
 
61
@ timediff "'TIMEA(1:40)'" "'TIMEB(1:40)'"
 
62
WRITE/OUT ==========================================
 
63
WRITE/OUT Level search time = 'TIMER(1)' seconds
 
64
WRITE/OUT ==========================================
 
65
! 
 
66
! ***** Gradient search *****
 
67
! **************************
 
68
! 
 
69
WRITE/OUT 
 
70
! 
 
71
COMP/KEY TIMEA = M$TIME()
 
72
! 
 
73
@@@ srchmmf 'P1' G 3,20,20
 
74
! 
 
75
COMP/KEY TIMEB = M$TIME()
 
76
@ timediff "'TIMEA(1:40)'" "'TIMEB(1:40)'"
 
77
WRITE/OUT ==========================================
 
78
WRITE/OUT Gradient search time = 'TIMER(1)' seconds
 
79
WRITE/OUT ==========================================