-------------------------------------------------
au program follows:
-------------------------------------------------
getcurdata
fetchpar("SFO1",&d1)
fetchpar("SW",&d2)
fetchpar("SF",&d3)
rpar("grcosy","all")
storepar("SFO1",d1)
storepar1("SFO1",d1)
storepar("SW",d2)
storepar1("SW",d2)
storepar("SF",d3)
storepar1("SF",d3)
quit
--------------------------------------------
__________________________________________________________________
| * |
| * |
| ** Dr. Glenn A. Facey |
| * * NMR Facility Manager |
| * * Department of Chemistry |
| * * University of Ottawa |
| * * Ottawa, Ontario |
| * * CANADA, K1N 6N5 |
| * * ph. (613) 564-7894 |
| * * FAX. (613) 564-6793 |
| * * |
| * * |
| * * |
| * * |
| * * |
|********** ************|
| |
|________________________________________________________________|