Parent Directory
|
Revision Log
|
Revision Graph
|
Patch
revision 1.8 by jmc, Sun May 15 02:58:40 2005 UTC | revision 1.9 by jmc, Tue Sep 27 18:38:28 2005 UTC | |
---|---|---|
# | Line 58 C Test v1 to see if its a "close | Line 58 C Test v1 to see if its a "close |
58 | d1 = v1-v4 | d1 = v1-v4 |
59 | d2 = v2-v4 | d2 = v2-v4 |
60 | d3 = v3-v4 | d3 = v3-v4 |
61 | IF ( ABS(d1) .LE. ABS(d2) .AND. ABS(d1) .LE. ABS(d3) ) | IF ( ABS(d1) .LT. ABS(d2) .AND. ABS(d1) .LE. ABS(d3) ) |
62 | & DIFFERENT_MULTIPLE = .TRUE. | & DIFFERENT_MULTIPLE = .TRUE. |
63 | ||
64 | ENDIF | ENDIF |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |