{"body":"(defun inq-dim (netcdf dimid)\n  (cffi:with-foreign-string (sname (make-array (1+ netcdf-cffi:+max-name+) 'base-char))\n    (cffi:with-foreign-object (lenp :size_t)\n      (safe-nc-call (nc-c:inq-dim (id netcdf) dimid sname lenp))\n      (values (cffi:foreign-string-to-lisp sname)\n              (cffi:memref lenp)))))\n","name":"","extension":"txt","url":"https://www.irccloud.com/pastebin/XMzy80vY","modified":1550176813,"id":"XMzy80vY","size":315,"lines":6,"own_paste":false,"theme":"","date":1550176813}