note

To avoid Motif version conflicts on Mac OS X and LINUX, PV-WAVE statically links the version 2.3.8 Motif library into the PV-WAVE executable. If using inter-application connection methods involving relinking PV-WAVE, you must do one of the following: On Linux, the Motif library linked with PV-WAVE and a tar file containing the modified Motif source code are located in the <RW_DIR>/wave/bin/bin.<platform>/libXm directory. The build utilities and files used to link external applications with PV-WAVE look for libXm.a.2.3.8 in this directory by default. To link with a different library you must modify the files linux.mkcfg and/or linux64.mkcfg in the <RW_DIR>/wave/src directory. If you are on Mac OS X or wish to modify your own Motif library, you need to download, configure, and build version 2.3.8 or later of the Motif library. Instructions for making the modifications and building the library are found in the libXm modifications section. Even though PV-WAVE statically links the libXm Motif library, you must still have the Motif libraries installed on your system. The libXm library linked into PV-WAVE depends on utilities provided by the Motif package.

action=1—Run normally. You are interactively prompted for input and execution continues until you enter the end-of-file character or issue the EXIT command. At this point, cwavec returns with a value of 1. Once cwavec has been called in this mode, it should not be called again.

action=2—Execute the commands supplied by cmds array and return. The return value is the value of the !Error system variable. The cwavec routine can be called repeatedly in this mode.

action=3—It is necessary to wrap up the session by calling cwavec one last time with action=3. This performs any housekeeping required by PV‑WAVE such as closing any open files. The return value for this mode is 1. Once cwavec has been called in this mode, it should not be called again.

result = wavevars(&argc, &argv, &argp);

char *cmds[5];

.

.

.

cmds[0] = "a = indgen(5) + 1"; 

cmds[1] = "plot, a"; 

action=2;

status = cwavec(action, 2, cmds);

$WAVE_DIR/demo/interapp/cwave/example.c

#include <stdio.h>

main()

{

 /* Variables for array calculations

 */

int action, numcmds, istat, cwavec();

char *cmds[5];

/*

 * Access PV-WAVE in non-interactive mode

 */

action=2;

numcmds=5;

/*

 * Send the array of commands to PV‑WAVE. Define the array A

 * Perform matrix multiplication. Print contents of B

 * Display B as a surface. 

 * Issue a wait command so you can view result.

 * Call cwavec.

 */

cmds[0] = "A = INDGEN(5) * 4";

cmds[1] = "B = A # A";

cmds[2] = "PRINT, B";

cmds[3] = "SURFACE, B";

cmds[4] = "WAIT, 3.0";

istat = cwavec(action, numcmds, cmds);

/*

 * Since we are done sending commands to PV-WAVE, make a final

 * call to cwavec with action=3 to wrap up the session

 */

action=3;

istat = cwavec(action, 0, cmds);

}

setenv arch '$WAVE_DIR/bin/arch'

cc -c example.c

make -f $WAVE_DIR/src/pub/quick.mk \
  link MAIN=example OBJ=example.o \
  TARGARCH=$arch

wave_from_c.c—The C function that calls PV‑WAVE and accesses PV‑WAVE variables directly.

$WAVE_DIR/demo/interapp/cwave

setenv arch '$WAVE_DIR/bin/arch'

cc -c wave_from_c.c

make -f $WAVE_DIR/src/pub/quick.mk \
  link MAIN=wave_from_c OBJ=wave_from_c.o \
  TARGARCH=$arch

wave_from_c

Figure 2-1: Output Graphics

action=1—Run normally. You are interactively prompted for input and execution continues until you enter the end-of-file character or issue the EXIT command. At this point, cwavefor returns with a value of 1. Once
cwavefor has been called in this mode, it should not be called again.

action=2—Execute the commands supplied by cmds array and return. The return value is the value of the !Error system variable. The cwavefor routine can be called repeatedly in this mode.

action=3—It is necessary to wrap up the session by calling cwavefor one last time with action=3. This performs any housekeeping required by PV‑WAVE such as closing any open files. The return value for this mode is 1. Once cwavefor has been called in this mode, it should not be called again.

character *50 cmds(5)

.

.

.

cmds(1) = 'a = INDGEN(5) + 1'

cmds(2) = 'plot, a'

action=2

call cwavefor(action, 2, cmds, 50)

$WAVE_DIR/demo/interapp/cwave/examplefor.f

PROGRAM EXAMPLE_175

C

C Variables for array calculations

C

integer*4  action, numcmds, istat, cwavefor

character *30 cmds(5)

C

C In order to initialize stdin and stdout 

C correctly so that output goes to your 

C terminal, make the following call:

C

C Access PV‑WAVE in non-interactive mode

C

action=2

numcmds = 5

C

C Send the array of commands to PV-WAVE

C Define the array A

C Perform matrix multiplication

C Print contents of B

C Display B as a surface

C Issue a wait command so user can view result

C Call cwavefor

C

cmds(1) = 'A = INDGEN(5) *4'

cmds(2) = 'B = A # A'

cmds(3) = 'PRINT, B'

cmds(4) = 'SURFACE, B'

cmds(5) = 'WAIT, 3.0'

istat = cwavefor(action, numcmds, cmds, 30)

C

C Since we are done sending commands to

C PV-WAVE, make a final call to cwavec

C with action=3 to wrap up the session.

C

action=3

istat = cwavefor(action, 0, cmds, 30) 

stop

end

setenv arch '$WAVE_DIR/bin/arch'

f77 -c examplefor.f

make -f $WAVE_DIR/src/pub/quick.mk \
flink MAIN=examplefor OBJ=examplefor.o \
TARGARCH=$arch

wave_from_fort.f—The FORTRAN function that calls PV‑WAVE and accesses PV‑WAVE variables directly.

wavevars_fl.c—A C function (wrapper) that allows the FORTRAN program to retrieve and/or modify the values of floating-point arrays in PV‑WAVE’s variable data space. This is accomplished via the wavevars function, which interacts directly with PV‑WAVE’s variable data space. (Direct interaction between a FORTRAN program and wavevars does not work because FORTRAN lacks the C language’s ability to access a common data area by address.)

$WAVE_DIR/demo/interapp/cwave

setenv arch '$WAVE_DIR/bin/arch'

f77 -c wave_from_fort.f

cc -c wavevars_fl.c

make -f $WAVE_DIR/src/pub/quick.mk \
  flink MAIN=wave_from_fort \
  OBJ="wave_from_fort.o wavevars_fl.o" \
  TARGARCH=$arch

wave_from_fort

setenv arch `$WAVE_DIR/bin/arch` 

make -f $WAVE_DIR/src/pub/quick.mk \ 
  link MAIN=mycwavec OBJ=mycwavec.o \ 
  TARGARCH=$arch