logical function MAPL_CFIOIsCreated(MCFIO) type(MAPL_CFIO), intent(IN) :: MCFIO MAPL_CFIOIsCreated = MCFIO%Created end function MAPL_CFIOIsCreated