|
Last change
on this file since 104 was
76,
checked in by dkearney, 19 years ago
|
- cleaned up make files some more, deleted make.inc files
- updated RpUnits module and Cee and Fortran interfaces
- changed return values for some fortran interfaces,
error messages not working yet
- still need to add copy assignment code to RpUnits
|
|
File size:
1.0 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 |
|---|
| 9 | c Purdue Research Foundation, West Lafayette, IN |
|---|
| 10 | c ====================================================================== |
|---|
| 11 | program units_test |
|---|
| 12 | IMPLICIT NONE |
|---|
| 13 | |
|---|
| 14 | integer rp_units_convert_str, rp_units_add_presets |
|---|
| 15 | integer rp_units_convert_dbl |
|---|
| 16 | |
|---|
| 17 | double precision dblVal |
|---|
| 18 | character*40 retStr |
|---|
| 19 | integer retVal |
|---|
| 20 | |
|---|
| 21 | retVal = rp_units_add_presets("all") |
|---|
| 22 | |
|---|
| 23 | retVal = rp_units_convert_str("72F","C",retStr) |
|---|
| 24 | print *,"72F = ",retStr |
|---|
| 25 | print *,"retVal = ",retVal |
|---|
| 26 | |
|---|
| 27 | retVal = rp_units_convert_dbl("72F","C",dblVal) |
|---|
| 28 | print *,"72F = ",dblVal, " (no units)" |
|---|
| 29 | print *,"retVal = ",retVal |
|---|
| 30 | |
|---|
| 31 | end program units_test |
|---|
| 32 | |
|---|
Note: See
TracBrowser
for help on using the repository browser.
