![[Next]](802503c4.gif){kind=small}
![[Up]](80000658.gif){kind=small}
![[Back]](8016546c.gif){kind=small}
![[Previous]](ff57198c.gif){kind=small}
![[Contents]](a5f4558b.gif){kind=small}
Calling sequence : CALL DIINI (LUOPT, LUBASE, LUINDX, LUNEUT, LUTEMP,
ITFNUM, LUREAD, LUWRTE, LUMES1, LUMES2, IEXIT)
Purpose : To initialise the Database Interface routines.
Parameters :
In
| LUOPT |
Access option (Integer) 1 Access FEMVIEW database directly 2 Output to neutral text file 3 Do both 1. and 2. |
| LUBASE | Channel number for FEMVIEW data base file (Integer) |
| LUINDX | Channel number for FEMVIEW index file (Integer) |
| LUNEUT | Channel number for neutral file (Integer) |
| LUTEMP | Channel numbers for temporary file (Integer array length 10) |
| ITFNUM | Number of temporary files to be opened at the same time (Integer) |
| LUREAD | Not used (Integer) |
| IFORMT |
Character file format indicator (Integer) Default is 5 digit node and element numbers, if IFORMT is set to 10; a 10 digit character file format will be used. |
| LUMES1 | Channel number for messages (Integer) (set to 99 if not required) |
| LUMES2 | Channel number for messages (Integer) (set to 99 if not required) |
Out
| IEXIT | Error condition (Integer) |
Use : This routine is called to initialise the database interface routines. It must be called before calling any of the other routines. The user indicates whether they wish to access the FEMVIEW database or output to a character file, or both with the value of LUOPT.
When accessing the database, the user provides the channel numbers for the database and index files (LUBASE and LUINDX), the opening of these files is controlled by routine DIDBI.
When outputting to a neutral character file, the user must open the file and supply the channel number (LUNEUT) to write to. For either access method the user supplies the channel number(s) (LUTEMP) of a binary temporary file(s) that the user must open. The file format (5 digit or 10 digit) must also be defined. If IFORMT is set to any number other than 10 a 5 digit format will be used.
Up to 10 temporary files may be opened simultaneously to enable data sets to be created and processed in parallel. More information on this is given in chapter one.
Channel numbers : FEMGV will perform its own file management and it is assumed that the pre-connected channel numbers for terminal I/O are available.
Errors : The error condition is indicated by the value of IEXIT
| IEXIT | Meaning |
| 0 | Successful call | ||
| 11 | Database interface routines already initialised | ||
| 12 | Invalid initialisation option (luopt) | ||
| 13 | Invalid number of temporary files (itfnum) | ||
| 24 | Cannot access database with dummy library |