SUBROUTINE Z_CLOSE_STREAM(lu) C C---------------------------------------------------------------------- C C.IDENTIFICATION: Subroutine Z_CLOSE_STREAM C.LIBRARY: VOS (VMS experimental version) C.AUTHOR: L.Chiappetti - IFCTR Milano C.VERSIONS: 0.0 - 20 Aug 94 - Based on Ultrix 0.0 version C.PURPOSE: Close a stream file C.METHOD: issue a plain Fortran CLOSE C C.SYNTAX: CALL Z_CLOSE_STREAM(lu,buffer,recl) C.PARAMETERS INTEGER lu : logical unit C.RESTRICTIONS: this is intended for use with named pipes only C.NOTES: error code is set in VOSCOMMON_ERROR C THIS IS JUST A PLACEHOLDER IN VIEW OF FUTURE IMPLEMENTATIONS C (this should work on DEC, Sun, VMS but not HP-UX for which C the original DDF version shall be used with zc_fclose) C.FILES: none C.REFERENCES: none C C---------------------------------------------------------------------- C INTEGER lu,ierr INCLUDE 'voscommon.inc' INCLUDE 'errors.inc' C C set default return error codes C VOSCOMMON_ERROR=0 VOSCOMMON_SYSTEMERROR=0 C CLOSE(LU,IOSTAT=IERR) C--> Fortran close errors ignored on named pipes * IF(IERR.LT.0)GOTO900 RETURN C C errors (codes are provisional) C 900 VOSCOMMON_ERROR=999 ! unused shall become VE_NOSCLOSE VOSCOMMON_SYSTEMERROR=IERR RETURN END