This function returns the dataType (see dal) of a given FITS-image
or table-column.
For the input FITS filename, the form of `ABC.fits:TABNAME' is allowed,
where the TABNAME is the name of the FITS extention of interest.
The priority order for the table-name (tabName) in given setTabName,
extention number (extNum) and extention name (extName) explicitly given is
interface getDataType function getDataTypeFromName(setTabName, extNum, extName, colName) result(iType) integer :: iType character(*), intent(in) :: setTabName integer, intent(in), optional :: extNum character(*), intent(in), optional :: extName, colName end function getDataTypeFromName function getDataTypeFromSet(set, extNum, extName, colName) result(iType) integer :: iType type(DataSetT), intent(in) :: set integer, intent(in), optional :: extNum character(*), intent(in), optional :: extName, colName end function getDataTypeFromSet function getDataTypeFromTab(tab, colName) result(iType) integer :: iType type(TableT), intent(in) :: tab character(*), intent(in) :: colName end function getDataTypeFromTab end interface