Program cswt_mask_nonzero

program cswt_mask_nonzero

        ! Uses
    use s2_types_mod
    use cswt_error_mod
    use cswt_tr_mod

        ! Calls
    call cswt_error
    call cswt_tr_free
    call cswt_tr_mask_nonzero
    call parse_options

        ! Variables
    character (len=*), parameter :: SCREEN = 'screen'
    character (len=S2_STRING_LEN) :: filename_mask
    character (len=S2_STRING_LEN) :: filename_out
    type (cswt_tr) :: tr_mask
    integer, allocatable, dimension (:,:) :: ncoeff_eff
    integer :: ncoeff_tot
    integer :: i_dil
    integer :: i_gamma
    integer :: fail
    integer :: fileid

        ! Subroutines and functions
    subroutine parse_options ()

end program cswt_mask_nonzero

Compute number of effective coefficients in an extended coefficient exclusion mask and write results to either the standard output or to a file.

Usage: cswt_mask_nonzero

[-help]: Display usage information.
[-inp filename_mask]: Name of file containing extended coefficient
[-out filename_out]: Name of file to write results to. If not specified then results are written to the screen.

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

Version: 0.1 - November 2004

Description of Variables

SCREEN

character (len=*), parameter :: SCREEN = 'screen'

filename_mask

character (len=S2_STRING_LEN) :: filename_mask

filename_out

character (len=S2_STRING_LEN) :: filename_out

tr_mask

type (cswt_tr) :: tr_mask

ncoeff_eff

integer, allocatable, dimension (:,:) :: ncoeff_eff

ncoeff_tot

integer :: ncoeff_tot

i_dil

integer :: i_dil

i_gamma

integer :: i_gamma

fail

integer :: fail

fileid

integer :: fileid

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