02.07.2013 Views

HP Fortran Programmer's Reference

HP Fortran Programmer's Reference

HP Fortran Programmer's Reference

SHOW MORE
SHOW LESS

You also want an ePaper? Increase the reach of your titles

YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.

Table 12-3 libU77 routines (Continued)<br />

Name Description and signature<br />

BLAS and libU77 libraries<br />

libU77 routines<br />

TSTATE AllowstheusertodeterminethelogicalstateofthetapeI/Ochannelandto<br />

see the tape drive control status register.<br />

INTEGER FUNCTION TSTATE (tlu, fileno, recno, errf, eoff, eotf, tcsr)<br />

INTEGER :: tlu, fileno, recno, tcsr<br />

LOGICAL :: errf, eoff, eotf<br />

TTYNAM Returns a blank padded path name of the terminal device associated with a<br />

specified logical unit number.<br />

CHARACTER(LEN=*) FUNCTION TTYNAM (lunit)<br />

INTEGER :: lunit<br />

TWRITE Writes a physical record to tape from the specified buffer.<br />

INTEGER FUNCTION TWRITE (tlu, buffer)<br />

INTEGER :: tlu<br />

CHARACTER(LEN=*) :: buffer<br />

UNLINK Removes a specified directory entry.<br />

INTEGER FUNCTION UNLINK (name)<br />

CHARACTER(LEN=*) :: name<br />

WAIT Waits for a process to terminate.<br />

INTEGER FUNCTION WAIT (status)<br />

INTEGER :: status<br />

Chapter 12 619

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!