igsm/src/vfunct.F


#include "ctrparam.h"

!       ==========================================================
!
!       VFUNCT.F:  "unknown"
!
!       ----------------------------------------------------------
!
!       Revision History:
!       
!       When    Who             What
!       -----   ----------      ------- 
!       080100  Chien Wang      repack based on M24x11, add cpp
!
!       ==========================================================

        subroutine vfunct(v,z)

        zm=11000.
        d=2.71364
        a=1.27
        c=50900.
        zz=abs(z-zm)
        v=d*exp(-(zz**a/c))

        return 
        end
1	jscott	1.1
2			#include "ctrparam.h"
3
4			! ==========================================================
5			!
6			! VFUNCT.F: "unknown"
7			!
8			! ----------------------------------------------------------
9			!
10			! Revision History:
11			!
12			! When Who What
13			! ----- ---------- -------
14			! 080100 Chien Wang repack based on M24x11, add cpp
15			!
16			! ==========================================================
17
18			subroutine vfunct(v,z)
19
20			zm=11000.
21			d=2.71364
22			a=1.27
23			c=50900.
24			zz=abs(z-zm)
25			v=dexp(-(zz*a/c))
26
27			return
28			end