1
C @(#)clpmtr.for 19.1 (ES0-DMD) 02/25/03 13:25:32
2
C===========================================================================
3
C Copyright (C) 1995 European Southern Observatory (ESO)
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.
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.
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,
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
27
C===========================================================================
29
C+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
30
C.IDENT: subroutine CLPMTR version 1.2 870729
31
C A. Kruszewski ESO Garching
32
C.PURPOSE: classifies objects into stars, galaxies and image defects
35
C PMTR real*4 array array holding classifiers
36
C M integer*4 number of objects
37
C STPR real*4 array one-dimensional point spread function
39
C TRSH real*4 detection treshold above the sky
41
C ICLS integer*4 array array holding the classification
42
C PMTR real*4 array modified array holding classifiers
43
C FAIL logical fail flag
44
C-----------------------------------------------------------------------
45
SUBROUTINE CLPMTR(PMTR,ICLS,M,STPR,TRSH,FAIL)
48
INCLUDE 'MID_REL_INCL:INVENT.INC/NOLIST'
51
INTEGER ICLS(2,MAXCNT)
69
CALL STKRDR('INV_REAL', 8, 1, IAC, BLMT, KUN, KNUL, ISTAT)
71
C **** Set corresponding elements of BRGT to true for bright objects.
76
IF (PMTR(5,I).LT.BLMT) THEN
91
C classifies bright objects
93
CALL CLBRGT(PMTR, BRGT, ICLS, M)
95
C classifies faint objects
97
CALL CFAINT(PMTR, BRGT, ICLS, M, STPR, TRSH, FAIL)
99
C Elements of ICLS(1,*) are coded: 0-unclassified, 1-star,
101
C **** and they describe the classification of seed objects.
102
C Elements of ICLS(2,*) are coded: 0-defect, 1-star, 2-galaxy
103
C and they describe current classification of objects.