- /* ------------------------ DISK_IO_ERH ROUTINE ------------------------- */
- /* ------------------------- FORTRAN Interface -------------------------- */
- /* ----------------- Interface Version 1.0 May 1988 ------------------ *
- /* ------------------------------------------------------------------------ */
- disk_io_erh_ ( flag_p )
- int *flag_p;
- {
- disk_io_erh(*flag_p);
- return;
- }