noao/astcat/src/agetcat/atincat.x


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70

# AT_GAPARS -- Read in the algorithm parameters for the AGETCAT task.

procedure at_gapars (at)

pointer at                      #I the pointer to the main astrom structure

begin
        # Initialize the region parameters.
        call at_grcpset ("aregpars", at)

        # Initialize the catalog filter / selection parameters.
        call at_gfspset ("afiltpars", at)
end


# AT_FAPARS -- Read in the algorithm parameters for the AFILTCAT task.

procedure at_fapars (at)

pointer at                      #I the pointer to the main astrom structure

begin
        # Initialize the catalog filter / selection parameters.
        call at_gfspset ("afiltpars", at)
end


# AT_GIAPARS -- Read in the algorithm parameters for the AGETIM task.

procedure at_giapars (at)

pointer at                      #I the pointer to the main astrom structure

begin
        # Initialize the region parameters.
        call at_grcpset ("aregpars", at)

        # Initialize the default wcs parameters.
        #call at_gwcpset ("awcspars", at)

        # Initialize the default image data parameters.
        #call at_gimpset ("aimpars", at)
end


# AT_HAPARS -- Read in the algorithm parameters for the AHEDIT task.

procedure at_hapars (at)

pointer at                      #I the pointer to the main astrom structure

begin
        # Initialize the default wcs parameters.
        call at_gwcpset ("awcspars", at)

        # Initialize the default image data parameters.
        call at_gimpset ("aimpars", at)
end


# AT_IAPARS -- Read in the algorithm parameters for the AIMFIND task.

procedure at_iapars (at)

pointer at                      #I the pointer to the main astrom structure

begin
        # Initialize the catalog filter / selection parameters.
        call at_gfspset ("afiltpars", at)
end