print_mask() - prints a mask in readable format

INTERFACE:

    subroutine print_mask(mask)
    IMPLICIT NONE
DESCRIPTION:

Prints a integer mask in a human readable form. INPUT PARAMETERS:

    integer, intent(in), dimension(E2DFIELD) :: mask
REVISION HISTORY:
    22Apr99   Karsten Bolding & Hans Burchard  Initial code.
LOCAL VARIABLES:
    integer                   :: i,j