Welcome to Adams/Solver Subroutines - Kxcad.net
Welcome to Adams/Solver Subroutines - Kxcad.net
Welcome to Adams/Solver Subroutines - Kxcad.net
You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
<strong>Welcome</strong> <strong>to</strong> <strong>Adams</strong>/<strong>Solver</strong> <strong>Subroutines</strong><br />
C === Type and dimension statements ==================<br />
C<br />
C Note: For machines with 60 or more bits per word,<br />
C substitute "REAL" for "DOUBLE PRECISION".<br />
C<br />
C - External variable definitions ---------<br />
C<br />
INTEGER ID<br />
DOUBLE PRECISION TIME<br />
DOUBLE PRECISION PAR( * )<br />
INTEGER NPAR<br />
LOGICAL DFLAG<br />
LOGICAL IFLAG<br />
DOUBLE PRECISION VALUE<br />
C<br />
C ID Identifier of calling DIFF statement<br />
C TIME Current time<br />
C PAR Array containing passed parameters<br />
C NPAR Number of passed parameters<br />
C DFLAG Differencing flag<br />
C IFLAG Initialization pass flag<br />
C VALUE Computed value of DIFF returned <strong>to</strong> ADAMS<br />
C<br />
C - Local variables and parameters definitions ---<br />
C<br />
...<br />
C<br />
C === Executable code ================================<br />
C<br />
C Assign readable variable names <strong>to</strong> passed parameters<br />
C<br />
...<br />
C<br />
C Call SYSFNC and/or SYSARY <strong>to</strong> collect information for<br />
C the following calculations. Note: if IFLAG is<br />
C true, these calls are actually setting<br />
C functional dependencies.<br />
C CALL SYSFNC ( ... )<br />
C<br />
C Check SYSFNC call through ERRMES utility routine<br />
C<br />
CALL ERRMES ( ... )<br />
C<br />
C Repeat for all required SYSFNC or SYSARY calls<br />
C<br />
...<br />
C<br />
IF ( IFLAG ) THEN<br />
C<br />
C - Subroutine initialization -----------<br />
C<br />
...<br />
C<br />
ENDIF<br />
159
Change language