← Back to branch summary

~ubuntu-branches/ubuntu/wily/eso-midas/wily-proposed

« back to all changes in this revision

Viewing changes to applic/general/libsrc/ainfo.for

  • 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:
applic/general/libsrc/ainfo.for
 
1
C @(#)ainfo.for 19.1 (ES0-DMD) 02/25/03 13:18:59
 
2
C===========================================================================
 
3
C Copyright (C) 1995 European Southern Observatory (ESO)
 
4
C
 
5
C This program is free software; you can redistribute it and/or 
 
6
C modify it under the terms of the GNU General Public License as 
 
7
C published by the Free Software Foundation; either version 2 of 
 
8
C the License, or (at your option) any later version.
 
9
C
 
10
C This program is distributed in the hope that it will be useful,
 
11
C but WITHOUT ANY WARRANTY; without even the implied warranty of
 
12
C MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 
13
C GNU General Public License for more details.
 
14
C
 
15
C You should have received a copy of the GNU General Public 
 
16
C License along with this program; if not, write to the Free 
 
17
C Software Foundation, Inc., 675 Massachusetss Ave, Cambridge, 
 
18
C MA 02139, USA.
 
19
C
 
20
C Corresponding concerning ESO-MIDAS should be addressed as follows:
 
21
C       Internet e-mail: midas@eso.org
 
22
C       Postal address: European Southern Observatory
 
23
C                       Data Management Division 
 
24
C                       Karl-Schwarzschild-Strasse 2
 
25
C                       D 85748 Garching bei Muenchen 
 
26
C                       GERMANY
 
27
C===========================================================================
 
28
C
 
29
       SUBROUTINE AINFO(ORD)
 
30
C++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 
31
C
 
32
C  writes information on the noise statistics and filter performance
 
33
C  to the terminal:
 
34
C      ORD   : order
 
35
C      EG    : exspectation value by noise of gradients at the given order
 
36
C      SG    : standard deviation of gradients
 
37
C      ES    : exspectation value of Laplace-terms
 
38
C      EL    : standard deviation of Laplace-terms
 
39
C      NSG   : number of pixels wich became significant by the gradient
 
40
C      NSL   : number of pixels wich became significant by Laplace
 
41
C      NREST : number of pixels wich did not become significant at
 
42
C      any order. They are set by the maximal filter size.
 
43
C---------------------------------------------------------------------
 
44
       IMPLICIT NONE
 
45
C
 
46
       INTEGER       NSG,NSL,NREST,ORD,I,ST
 
47
       REAL          EG,SG,EL,SL
 
48
       CHARACTER*80  A
 
49
C
 
50
       COMMON        /TEST/EG(16),SG(16),EL(16),SL(16),NSG(16),
 
51
     >                     NSL(16),NREST
 
52
 100   FORMAT(' ',1X,'ORD',7X,'EG',11X,'SG',11X,'EL',11X,
 
53
     >        'SL',11X,'NSG',7X,'NSL')
 
54
 200   FORMAT (' ',1X,I3,4(1X,G12.3),2(I10))
 
55
 300   FORMAT (' ',60X,'NREST:',I10)
 
56
C
 
57
       WRITE(A,100)
 
58
       CALL STTPUT(A,ST)
 
59
C
 
60
       DO I=2,ORD
 
61
          WRITE (A,200) I,EG(I),SG(I),EL(I),SL(I),NSG(I),NSL(I)
 
62
          CALL STTPUT(A,ST)
 
63
       ENDDO
 
64
C
 
65
       WRITE (A,300) NREST
 
66
       CALL STTPUT(A,ST)
 
67
C
 
68
       RETURN
 
69
       END