Fortran Interface

 
 integer*4 status 
 integer*4 evOpen,evRead,evWrite,evClose,evIoctl 
 character*32 filename 
 character*1 flags, request 
 integer*4 handle, buffer(8192), buflen, argp 
 data buflen /8192/ 
 status = evOpen(filename,flags,handle) 
 status = evRead(handle,buffer,buflen) 
 status = evWrite(handle,buffer) 
 status = evClose(handle) 
 status = evIoctl(handle,request,argp)