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

Create successful ePaper yourself

Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.

214<br />

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

C External Functions:(Note : This function must be written by you)<br />

C<br />

EXTERNAL UV_IS_OUTSIDE_SURFACE<br />

LOGICAL UV_IS_OUTSIDE_SURFACE<br />

C<br />

C+---------------------------------------------------------------*<br />

C<br />

IF ( IFLAG ) THEN<br />

C<br />

C<br />

Initialization call:<br />

C<br />

...<br />

<br />

<br />

...<br />

RETURN<br />

ENDIF<br />

C<br />

C<br />

Computation call:<br />

C<br />

IERR = 0<br />

IF ( IORD .EQ. 0 ) THEN<br />

C<br />

C<br />

Check whether [u,v] lie on the surface:<br />

C<br />

IF ( UV_IS_OUTSIDE_SURFACE(...) ) THEN<br />

...<br />

<br />

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

Saved successfully!

Ooh no, something went wrong!