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_invertInvert a coefficient mask by converting ones to zeros, and zeros to ones.
Notes:
Author: J. D. McEwen (mcewen@mrao.cam.ac.uk)
Version: 0.1 - January 2005
character (len=S2_STRING_LEN) :: filename_in
character (len=S2_STRING_LEN) :: filename_out
type (cswt_tr) :: tr_mask
subroutine parse_options () ! Calls: getArgument end subroutine parse_optionsParse the options passed when program called.
Author: J. D. McEwen (mcewen@mrao.cam.ac.uk)
Version: 0.1 - November 2004