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.

%WAVE_DIR%\demo\interapp\cwavec\cwavec.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 CL. 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 CL, we make a

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

 */

action = 3;

istat = cwavec (action, 0, cmds);

return 0;

}

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 in the string array pointed to by ptr. 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.

%WAVE_DIR%\demo\interapp\cwavefor\README.md

character *50 cmds(5)

.

.

.

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

cmds(2) = 'plot, a'

action=2

ptr = LOC(cmds)

call cwavefor(action, 2, ptr, 50)

%WAVE_DIR%\demo\interapp\cwavefor\cwavec.f

C

C Build interface for FORTRAN to call the

C "C" function "CWAVEFOR" that is built into PV-WAVE

C

INTERFACE

INTEGER(C_INT) FUNCTION CWAVEFOR (action, numcmds, ptr, cmdlen)

$ BIND(C)

 USE, INTRINSIC :: ISO_C_BINDING

 INTEGER(C_INT) :: action

 INTEGER(C_INT) :: numcmds

 INTEGER(C_INTPTR_T), VALUE :: ptr

 INTEGER(C_INT) :: cmdlen

END FUNCTION

END INTERFACE

C

C Variables for array calculations

C

integer*4 action, numcmds, cmdlen, istat

character *30 cmds(5)

C

C Declare pointer to pass the CHARACTER array of commands to 

C PV-WAVE

C

pointer (p,VAR)

C

C Access PV-WAVE CL in non-interactinve mode

C

action = 2

numcmds = 5

cmdlen = 30

C

C Send the array of commands to PV-WAVE CL

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'

C

C Set up th pointer and call PV-WAVE

C

p=LOC(cmds)

istat = cwavefor (action, numcmds, p, cmdlen)

C

C Since we are done sending commands to

C PV-WAVE CL, we make a final call to cwavec

C with action = 3 to wrap up the session.

C

action = 3

istat = cwavefor (action, 0, p, cmdlen)

C

end

cwavefor_wavevars.f—The FORTRAN function that calls PV-WAVE and accesses PV-WAVE variables directly.

linknloadfor_wrapper.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\cwavefor_wavevars