02.04.2013 Views

Welcome to Adams/Solver Subroutines - Kxcad.net

Welcome to Adams/Solver Subroutines - Kxcad.net

Welcome to Adams/Solver Subroutines - Kxcad.net

SHOW MORE
SHOW LESS

You also want an ePaper? Increase the reach of your titles

YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.

224<br />

<strong>Adams</strong>/<strong>Solver</strong><br />

C<br />

...<br />

C<br />

C Assign first time derivative <strong>to</strong> scalar<br />

C<br />

SCALAR = ...<br />

C<br />

C - Second time derivative of constraint ------<br />

C<br />

relation<br />

C<br />

ELSE IF ( IDRSEL(1) .EQ. 3 ) THEN<br />

C<br />

C Your algorithm<br />

C<br />

...<br />

C<br />

C Assign second time derivative <strong>to</strong> scalar<br />

C<br />

SCALAR = ...<br />

C<br />

C - Nonprincipal-axes-dependent portion of ----<br />

C<br />

constraint relation<br />

C<br />

ELSE IF ( IDRSEL(1) .EQ. 4 ) THEN<br />

C<br />

C Your algorithm<br />

C<br />

...<br />

C<br />

C Assign nonprincipal-axes-dependent portion <strong>to</strong> scalar<br />

C<br />

SCALAR = ...<br />

C<br />

ENDIF<br />

C<br />

C - Evaluate array -----------------<br />

C<br />

C - First derivative of constraint relationship with<br />

C respect <strong>to</strong> the variables<br />

C<br />

IF ( IDRSEL(2) .EQ. 1 ) THEN<br />

C<br />

C Your algorithm<br />

C<br />

...<br />

C<br />

C Assign array values<br />

C<br />

ARRAY(1) = ...<br />

...<br />

ARRAY(30) = ...<br />

C

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!