Welcome to Adams/Solver Subroutines - Kxcad.net

Use
Corresponding Command
Calling Sequence
SUBROUTINE RELSUB(iunit, errflg)
Input Argument
Output Argument
Structure
Welcome to Adams/Solver Subroutines
iunit An integer variable that contains the FORTRAN IO unit of the
Adams/Solver save file. Adams/Solver opens the save file as sequential
and unformatted. If SAVSUB has written data to the save file, the RELSUB
may read it from this unit with an unformatted FORTRAN READ
statement.
errflg A logical variable that indicates to Adams/Solver that an error has occurred
while reading user data. If you set errflg to true, Adams/Solver writes an
error message to the screen and to the message file.
Tip: The most straightforward way to reinitialize user-written subroutines may be to collect the
necessary variables in a COMMON block, use SAVSUB to write them to the save file, and
RELSUB to read them back from the save file.
Caution: RELSUB must read data from the save file in the same order in which SAVSUB wrote the
data.
A sample structure for RELSUB is shown next. The comments describe how the subroutine works.
SUBROUTINE RELSUB(IUNIT, ERRFLG)
C
C === Type and dimension statements ===================
C
C --- External variable definitions -------------------
C
INTEGER IUNIT
LOGICAL ERRFLG
C
C IUNIT FORTRAN IO unit attached to Save File
C ERRLFG used to signal problems back to ADAMS
C
189