11.01.2013 Views

NX Nastran DMAP Programmer's Guide - Kxcad.net

NX Nastran DMAP Programmer's Guide - Kxcad.net

NX Nastran DMAP Programmer's Guide - 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.

1341<br />

SCALAR<br />

Matrix element extractor<br />

3. Read the values from a matrix V of unknown length into a parameter.<br />

TYPE PARM,,I,N,II $ LOOP COUNTER<br />

TYPE PARM,,I,N,VI=1 $ SELECTS COLUMN TO SEARCH<br />

DO WHILE (II>=0) $ STOP WHEN II NEGATIVE<br />

II = II + 1 $<br />

SCALAR V//1/S,N,II/S,N,VI $ II RESET TO -II WHEN AT END OF MATRIX.<br />

IF (II>0) MESSAGE //'INDEX'/II/'VALUE'/VI $<br />

ENDDO $

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

Saved successfully!

Ooh no, something went wrong!