Create an opaque type. Provide a size and a name.
INTEGER FUNCTION NF_DEF_OPAQUE(INTEGER NCID, CHARACTER*(*) NAME,
INTEGER SIZE, INTEGER TYPEIDP)
NCIDNAMESIZETYPEIDPNF_NOERRNF_EBADTYPEIDNF_EBADFIELDIDNF_EHDFERRThis example is from nf_test/ftst_vars3.F.
C Create the opaque type.
retval = nf_def_opaque(ncid, opaque_size, opaque_type_name,
& opaque_typeid)
if (retval .ne. nf_noerr) call handle_err(retval)