noao/astcat/src/agetcat/atoutcat.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
71
72


# AT_GPPARS -- Update the AGETCAT task algorithm parameter sets.

procedure at_gppars (at)

pointer at                      #I the pointer to the main astrom structure

begin
        # Update the region definition parameters.
        call at_prcpset ("aregpars", at)

        # Update the catalog filtering parameters.
        call at_pfspset ("afiltpars", at)
end


# AT_FPPARS -- Update the AFILTCAT task algorithm parameter sets.

procedure at_fppars (at)

pointer at                      #I the pointer to the main astrom structure

begin
        # Update the catalog filtering parameters.
        call at_pfspset ("afiltpars", at)
end


# AT_GIPPARS -- Update the AGETIM task algorithm parameter sets.

procedure at_gippars (at)

pointer at                      #I the pointer to the main astrom structure

begin
        # Update the region definition parameters.
        call at_prcpset ("aregpars", at)

        # Update the default wcs parameters.
        #call at_pwcpset ("awcspars", at)

        # Update the default image data parameters.
        #call at_pimpset ("aimpars", at)
end


# AT_HPPARS -- Update the AHEDIT task algorithm parameter sets.

procedure at_hppars (at)

pointer at                      #I the pointer to the main astrom structure

begin
        # Update the default wcs parameters.
        call at_pwcpset ("awcspars", at)

        # Update the default image data parameters.
        call at_pimpset ("aimpars", at)
end


# AT_IPPARS -- Update the AIMFIND task algorithm parameter sets.

procedure at_ippars (at)

pointer at                      #I the pointer to the main astrom structure

begin
        # Update the catalog filtering parameters.
        call at_pfspset ("afiltpars", at)
end