ufunc.F File Reference

#include "implicit_f.inc"
#include "scr05_c.inc"
#include "comlock.inc"
#include "mvsiz_p.inc"
#include "com04_c.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	ufunc_dum (ierr)
integer function	get_u_func_n (ifunc)
program	__ufunc_f__
program	__ufunc_f__1__
program	__ufunc_f__2__
subroutine	get_v_func (ifunc, llt, xx, dydx, yy, jpos)
integer function	get_u_numfun (idfun)
integer function	get_u_fid (ifun)
program	__ufunc_f__3__

Function/Subroutine Documentation

__ufunc_f__()

program __ufunc_f__

Definition at line 62 of file ufunc.F.

__ufunc_f__1__()

program __ufunc_f__1__

Definition at line 107 of file ufunc.F.

__ufunc_f__2__()

program __ufunc_f__2__

Definition at line 174 of file ufunc.F.

__ufunc_f__3__()

program __ufunc_f__3__

Definition at line 307 of file ufunc.F.

get_u_fid()

integer function get_u_fid

(

integer

ifun

)

Definition at line 286 of file ufunc.F.

#include      "implicit_f.inc"
#include      "com04_c.inc"
      INTEGER IFUN,DEPLA
C=======================================================================
      get_u_fid = 0
      IF(ifun<=0)THEN
        RETURN
      ENDIF
      depla = nfunct+1+ifun
      CALL get_var_user_i(5,depla,get_u_fid)
C---
      RETURN

get_u_func_n()

integer function get_u_func_n

(

integer

ifunc

)

Definition at line 39 of file ufunc.F.

C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
      INTEGER IFUNC,NPFI,NPFIP
      CALL get_var_user_i(5,ifunc,npfi)
      CALL get_var_user_i(5,ifunc+1,npfip)
      get_u_func_n=(npfip-npfi)/2
      RETURN

get_u_numfun()

integer function get_u_numfun

(

integer

idfun

)

Definition at line 260 of file ufunc.F.

#include      "implicit_f.inc"
#include      "com04_c.inc"
      INTEGER IDFUN
      INTEGER J,ID
C=======================================================================
      get_u_numfun = 0
      IF(idfun<=0)THEN
        RETURN
      ENDIF
C---
      DO j=1,nfunct
        CALL get_var_user_i(5,nfunct+1+j,id)
        IF(idfun==id)THEN
          get_u_numfun = j
          RETURN
        ENDIF
      ENDDO
C---
      RETURN

get_v_func()

subroutine get_v_func	(	integer, dimension(*)	ifunc,
		integer	llt,
			xx,
			dydx,
			yy,
		integer, dimension(*)	jpos )

Definition at line 229 of file ufunc.F.

C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
C-----------------------------------------------
C   G l o b a l   P a r a m e t e r s
C-----------------------------------------------
#include      "mvsiz_p.inc"
#include      "scr05_c.inc"
C
      INTEGER IFUNC(*),JPOS(*),LLT,JAD(MVSIZ),JLEN(MVSIZ)
      my_real dydx(*),xx(*),yy(*)
 
      CALL get_var_user_vfunc(5,llt,ifunc,jpos,jad,jlen)
      IF (iresp==1) THEN
        CALL u_vinter2dp(jad ,jpos ,jlen ,llt,xx ,dydx,yy )
      ELSE
      CALL u_vinter2(jad ,jpos ,jlen ,llt,xx ,dydx,yy )
      ENDIF
C
      RETURN

ufunc_dum()

subroutine ufunc_dum

(

integer

ierr

)

Definition at line 28 of file ufunc.F.

C---------+---------+---+---+--------------------------------------------
#include      "implicit_f.inc"
       INTEGER IERR
       ierr=0