/*+ * VOID inftio() * * Description : This routine will initialize the system to provide * simulated fortran I/O. * * Arguments : none * * Author : J.W. Gatschuff * Atomic Energy of Canada * Whiteshell Nuclear Research Est. * Pinawa, Manitoba, Canada * branch: Technical Services * * Version : V1.0 Date : 22-OCT-85 * * Module name : inftio.c * * Package : TRAMPC * * Updates : name version * * description : -*/ #include #include VOID inftio() { IMPORT FIO fortio[NFCHNL]; COUNT i; for(i = 0; i < NFCHNL; fortio[i++]._fd = -1); }