Program cswt_mask_invert

program cswt_mask_invert

        ! Uses
    use s2_types_mod
    use cswt_tr_mod

        ! Calls
    call cswt_tr_free
    call cswt_tr_io_fits_write_wcoeff
    call cswt_tr_mask_invert
    call parse_options

        ! Variables
    character (len=S2_STRING_LEN) :: filename_in
    character (len=S2_STRING_LEN) :: filename_out
    type (cswt_tr) :: tr_mask

        ! Subroutines and functions
    subroutine parse_options ()

end program cswt_mask_invert

Invert a coefficient mask by converting ones to zeros, and zeros to ones.

Notes:

Original mask should be in one/zero format, not display format.

Usage: cswt_mask_invert

[-help]: Display usage information.
[-inp filename_inp]: Name of input file containing original mask to be inverted.
[-out filename_out]: Name of output file created that will contain the inverted mask.

Author: J. D. McEwen (mcewen@mrao.cam.ac.uk)

Version: 0.1 - January 2005

Description of Variables

filename_in

character (len=S2_STRING_LEN) :: filename_in

filename_out

character (len=S2_STRING_LEN) :: filename_out

tr_mask

type (cswt_tr) :: tr_mask

Description of Subroutines and Functions

parse_options

subroutine parse_options ()
    ! Calls: getArgument
end subroutine parse_options

Parse the options passed when program called.

Author: J. D. McEwen (mcewen@mrao.cam.ac.uk)

Version: 0.1 - November 2004