rim@"RIM"
The logical function
<"RIM(" <index>, <command> ")"
where
«index> is the integer table index,
<command> is a string containing a Rim command.
returns a value of true if the command is executed successfully,
and false if there has been an error. In the latter case
"RMSTAT" will contain the error number.
For example, to open the "Sample" database and enter the
user password of "metals"you can include
IF (.NOT.RIM(0,'open sample')) GOTO <error label>
IF (.NOT.RIM(0,'user metals')) <ditto>
in your fortran program.