Welcome to Adams/Solver Subroutines - Kxcad.net

194
Adams/Solver
Use
Corresponding Command
Calling Sequence
SUBROUTINE SAVSUB(iunit, errflg)
Input Arguments
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. You may store data in the save file by writing it to this unit
with an unformatted FORTRAN WRITE statement.
Output Argument
errflg A logical variable that indicates to Adams/Solver that an error has
occurred while saving 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 might 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.
Structure
A sample structure for SAVSUB is shown next. The comments describe how the subroutine works.
SUBROUTINE SAVSUB(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