!c**************************************************************** real*8 function dot(r_v,r_w) !c**************************************************************** !c** !c** FILE NAME: dot.f !c** !c** DATE WRITTEN:7/15/90 !c** !c** PROGRAMMER:Scott Hensley !c** !c** FUNCTIONAL DESCRIPTION: This routine computes the dot product of !c** two 3 vectors as a function. !c** !c** ROUTINES CALLED:none !c** !c** NOTES: none !c** !c** UPDATE LOG: !c** !c***************************************************************** implicit none !c INPUT VARIABLES: real*8 r_v(3),r_w(3) !3x1 vectors !c OUTPUT VARIABLES: dot is the output !c LOCAL VARIABLES:none !c DATA STATEMENTS:none !C FUNCTION STATEMENTS:none !c PROCESSING STEPS: !c compute dot product of two 3-vectors dot = r_v(1)*r_w(1) + r_v(2)*r_w(2) + r_v(3)*r_w(3) end