utable.F File Reference

#include "implicit_f.inc"
#include "com04_c.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	utable_dum (ierr)
integer function	get_u_numtable (tid)
subroutine	get_u_table (itable, xx, yy)
subroutine	get_table_value (itable, xx, xxdim, yy)
subroutine	get_table_value_dydx (itable, xx, xxdim, yy, dydx)
subroutine	get_u_vtable (itable, nel0, ipos, xx, yy, dydx1)
subroutine	get_vtable_value (itable, nel0, ipos, xx, xxdim, yy, dydx1)

Function/Subroutine Documentation

get_table_value()

subroutine get_table_value	(	integer	itable,
			xx,
		integer	xxdim,
			yy )

Definition at line 106 of file utable.F.

      USE table_glob_mod
      USE interface_table_mod
C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
C-----------------------------------------------
C   C o m m o n   B l o c k s
C-----------------------------------------------
       INTEGER ITABLE,XXDIM
       my_real xx(xxdim)
 
       my_real
     .       yy
       my_real, DIMENSION(:),ALLOCATABLE :: xx2
 
      ALLOCATE (xx2(xxdim))
      xx2(1:xxdim)=xx(1:xxdim)
C
      CALL table_interp(table(itable),xx2,yy)
      
      DEALLOCATE(xx2)
      RETURN

get_table_value_dydx()

subroutine get_table_value_dydx	(	integer	itable,
			xx,
		integer	xxdim,
			yy,
			dydx )

Definition at line 140 of file utable.F.

      USE table_glob_mod
      USE interface_table_mod
C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
C-----------------------------------------------
C   C o m m o n   B l o c k s
C-----------------------------------------------
       INTEGER ITABLE,XXDIM
       my_real xx(xxdim)
 
       my_real
     .       yy,dydx
       my_real, DIMENSION(:),ALLOCATABLE :: xx2
 
      ALLOCATE (xx2(xxdim))
      xx2(1:xxdim)=xx(1:xxdim)
C
      call my_flush(6)
      CALL table_interp_dydx(table(itable),xx2,xxdim,yy,dydx)
      
      DEALLOCATE(xx2)
      RETURN

get_u_numtable()

integer function get_u_numtable

(

integer

tid

)

Definition at line 43 of file utable.F.

C-----------------------------------------------
C   M o d u l e s
C-----------------------------------------------
      USE table_glob_mod
      USE table_mod
C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------      
#include      "implicit_f.inc"
C-----------------------------------------------
#include      "com04_c.inc"     
C----------------------------------------------- 
      INTEGER I,TID
C need NTABLE
C
      get_u_numtable = 0
      DO i=1,ntable
        IF(table(i)%NOTABLE==tid)THEN
          get_u_numtable = i
          RETURN
        ENDIF
      ENDDO
      RETURN

get_u_table()

subroutine get_u_table	(	integer	itable,
		dimension(:)	xx,
			yy )

Definition at line 76 of file utable.F.

C-----------------------------------------------
C   M o d u l e s
C-----------------------------------------------
      USE table_glob_mod
      USE interface_table_mod
C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
C-----------------------------------------------
C   C o m m o n   B l o c k s
C-----------------------------------------------
      INTEGER ITABLE
      my_real, 
     .       DIMENSION(:) :: xx
      my_real
     .       yy
C
      CALL table_interp(table(itable),xx,yy)
      RETURN

get_u_vtable()

subroutine get_u_vtable	(	integer	itable,
		integer	nel0,
		integer, dimension(:,:)	ipos,
		dimension(:,:)	xx,
			yy,
			dydx1 )

Definition at line 174 of file utable.F.

      USE table_glob_mod
      USE interface_table_mod
C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      INTEGER ITABLE,NEL0
      INTEGER, DIMENSION(:,:) :: IPOS
      my_real, 
     .       DIMENSION(:,:) :: xx
      my_real
     .       yy(*), dydx1(*)
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
C
      CALL table_vinterp(table(itable),nel0,nel0,ipos,xx,yy,dydx1)
      RETURN

get_vtable_value()

subroutine get_vtable_value	(	integer	itable,
		integer	nel0,
		integer, dimension(nel0,xxdim)	ipos,
			xx,
		integer	xxdim,
			yy,
			dydx1 )

Definition at line 206 of file utable.F.

      USE table_glob_mod
      USE interface_table_mod
C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      INTEGER ITABLE,NEL0,XXDIM
      INTEGER IPOS(NEL0,XXDIM)
      my_real  xx(nel0,xxdim)
      my_real  yy(*), dydx1(*)
     
      my_real, DIMENSION(:,:), ALLOCATABLE :: xx2 
      INTEGER, DIMENSION(:,:), ALLOCATABLE :: IPOS2
 
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
C
      ALLOCATE (xx2(nel0,xxdim))
      ALLOCATE (ipos2(nel0,xxdim))
 
      ipos2(1:nel0,1:xxdim) = ipos(1:nel0,1:xxdim)
      xx2(1:nel0,1:xxdim) = xx(1:nel0,1:xxdim)
 
      CALL table_vinterp(table(itable),nel0,nel0,ipos2,xx2,yy,dydx1)
 
      DEALLOCATE(xx2)
      DEALLOCATE(ipos2)
 
      RETURN

utable_dum()

subroutine utable_dum

(

integer

ierr

)

Definition at line 28 of file utable.F.

C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
C-----------------------------------------------
       INTEGER IERR
       ierr=0