|
Last change
on this file since 5989 was
2529,
checked in by dkearney, 13 years ago
|
|
updating the fortran showdata example and the c++ getFile and fortran's
rp_lib_get_file functions to correctly return the number of bytes written to
the file.
|
|
File size:
943 bytes
|
| Line | |
|---|
| 1 | program showdata |
|---|
| 2 | IMPLICIT NONE |
|---|
| 3 | |
|---|
| 4 | integer rp_lib, rp_lib_get_file |
|---|
| 5 | integer driver, nbytes |
|---|
| 6 | CHARACTER*100 inFile, strVal |
|---|
| 7 | |
|---|
| 8 | call getarg(1,inFile) |
|---|
| 9 | driver = rp_lib(inFile) |
|---|
| 10 | if (driver .eq. 0) then |
|---|
| 11 | write(0,*) "Error while opening ",inFile |
|---|
| 12 | stop |
|---|
| 13 | endif |
|---|
| 14 | |
|---|
| 15 | nbytes = rp_lib_get_file(driver, |
|---|
| 16 | + "input.string(data).current", "mydata.dat") |
|---|
| 17 | if (nbytes .le. 0) then |
|---|
| 18 | write(strVal,*) "Error while writing data file" |
|---|
| 19 | write(0,*) strVal |
|---|
| 20 | call rp_lib_put_str (driver,"output.log",strVal,0) |
|---|
| 21 | call rp_result(driver) |
|---|
| 22 | stop |
|---|
| 23 | endif |
|---|
| 24 | |
|---|
| 25 | OPEN (UNIT=5, FILE="mydata.dat", STATUS="OLD") |
|---|
| 26 | |
|---|
| 27 | call rp_lib_put_file (driver,"output.string(data).current", |
|---|
| 28 | + "mydata.dat",0,0) |
|---|
| 29 | |
|---|
| 30 | CLOSE (UNIT=5, STATUS="DELETE") |
|---|
| 31 | |
|---|
| 32 | call rp_result(driver) |
|---|
| 33 | end program showdata |
|---|
Note: See
TracBrowser
for help on using the repository browser.
