INTERFACE:
integer function zio_get_fileid(filedesc,fileid)DESCRIPTION:
Returns the file ID of file descriptor filedesc.
REVISION HISTORY:
2003-Jan-31 -- first prototypeUSES:
implicit noneINPUT PARAMETERS:
integer, intent(in) :: filedescOUTPUT PARAMETERS:
integer, intent(out) :: fileid
\