Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ncInq :: NCID -> IO (Int, Int, Int, Int)
- ncInq ncid = do
- alloca $ \ndims_ptr -> do
- alloca $ \nvars_ptr -> do
- alloca $ \natts_ptr -> do
- alloca $ \unlimdimid_ptr -> do
- status <- nc_inq ncid ndims_ptr nvars_ptr natts_ptr unlimdimid_ptr
- ndims <- peek ndims_ptr
- nvars <- peek nvars_ptr
- natts <- peek natts_ptr
- unlimdimid <- peek unlimdimid_ptr
- return (fromEnum ndims, fromEnum nvars, fromEnum natts, fromEnum unlimdimid)
Add Comment
Please, Sign In to add comment