Code Manual for CONTAIN 2.0 - Federation of American Scientists

POSTCON routine, and possibly writing a FORTRAN function to perform the necessary
calculations.
16.7.4.1 Choosing a Function Name. Mix function names must be no more than eight characters
starting with a 1$’. For example, $sin, $sqrt, $myfunct, and $min are all legal function names.
16.7.4.2 Mod ifyirw POSTCON for Unary Functions. Provisions are made in POSTCON to process
three different classes of mix functions: 1) unary functions, 2) binary functions where both
arguments are vectors, and 3) binary functions where one argument is a constant.
Unary functions are functions that have only one argument. Examples are sin, log, exp, and sqrt.
These functions are handled by a subroutine called OPERU. To implement the function, the user
simply needs to add an IF block to this routine. For example, to implement the square root function,
the following code should be inserted before the write statement:
if (oper .eq. ?$sqrt’) then
do 10 i=l ,numpts
ypts(i) = sqrt(ypts(i))
10 continue
endif
16.7.4.3 Modifying POSTCON for Binary Functions. Binary functions are functions that have two
arguments, such as rnin, max, and ~. If both arguments are vectors, then the subroutine OPERW
needs to be modified. If only one of the arguments is a vector and one is a scalar, then the subroutine
OPERSV needs to be modified. As an example, the following code could be inserted just before the
END IF statement of subroutine OPERW:
else if (oper .eq. ‘$ytox’) then
do 50 i= 1,numpts
ylpts(i) = ytox(ylpts(i),y2pts(i))
50 continue
Of course, in this example, the user would also have to supply the FORTRAN function YTOX.
16.7.4.4 Exarrmles of Mix Exmessions with Functions. Following are legal mix expressions using
the functions that could be easily added to POSTCON.
VECTOR vecl = a+$sqrt(b)
VECTOR vec2 = $min(a,b)
16.7.5 Hints for Efficient Use
Following are some suggestions for using the mix option efficiently.
Rev O 16-33 6/30/97