|
Last change
on this file since 365 was
122,
checked in by dkearney, 19 years ago
|
|
added initial version of octave language bindings.
1) no claiming language bindings work, but will happily take credit if they do.
2) bindings are untested
3) bindings happen to work with mystery example that happens to be located in examples/app-fermi/matlab/fermi_rp.m and happens to be invokable with examples/app-fermi/matlab/tool_rp.xml
4) bindings need octave2.1-headers installed (in debian: apt-get install octave2.1-headers) to get the mkoctfile program
5) binding function names might be changing to be more discriptive and more tightly bound to either the lib or units module.
6) adjusted Makefile to add octave bindings compilation.
|
|
File size:
1.2 KB
|
| Line | |
|---|
| 1 | c ---------------------------------------------------------------------- |
|---|
| 2 | c TEST: Fortran's interface to RpUnits. |
|---|
| 3 | c |
|---|
| 4 | c Basic units conversion tests for the RpUnits portion of Rappture |
|---|
| 5 | c written in Fortran. |
|---|
| 6 | c ====================================================================== |
|---|
| 7 | c AUTHOR: Derrick Kearney, Purdue University |
|---|
| 8 | c Copyright (c) 2004-2005 Purdue Research Foundation |
|---|
| 9 | c |
|---|
| 10 | c See the file "license.terms" for information on usage and |
|---|
| 11 | c redistribution of this file, and for a DISCLAIMER OF ALL WARRANTIES. |
|---|
| 12 | c ====================================================================== |
|---|
| 13 | program units_test |
|---|
| 14 | IMPLICIT NONE |
|---|
| 15 | |
|---|
| 16 | integer rp_units_convert_str |
|---|
| 17 | integer rp_units_convert_dbl |
|---|
| 18 | |
|---|
| 19 | double precision dblVal |
|---|
| 20 | character*40 retStr |
|---|
| 21 | integer retVal |
|---|
| 22 | |
|---|
| 23 | retVal = rp_units_convert_str("72F","C",retStr) |
|---|
| 24 | print *,"72F = ",retStr |
|---|
| 25 | print *,"correct retVal = 22.222C",retVal |
|---|
| 26 | print *,"retVal = ",retVal |
|---|
| 27 | |
|---|
| 28 | retVal = rp_units_convert_dbl("72F","C",dblVal) |
|---|
| 29 | print *,"72F = ",dblVal, " (no units)" |
|---|
| 30 | print *,"correct retVal = 22.222",retVal |
|---|
| 31 | print *,"retVal = ",retVal |
|---|
| 32 | |
|---|
| 33 | end program units_test |
|---|
| 34 | |
|---|
Note: See
TracBrowser
for help on using the repository browser.
