utable.F File Reference

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

Go to the source code of this file.

Functions/Subroutines
subroutine	st_utable_dum (ierr)
integer function	get_u_numtable (tid)
subroutine	get_u_table (itable, xx, yy)
subroutine	get_u_vtable (itable, nel0, ipos, xx, yy, dydx1)

Function/Subroutine Documentation

get_u_numtable()

integer function get_u_numtable

(

integer

tid

)

Definition at line 39 of file utable.F.

      USE table_glob_mod
      USE table_mod
#include      "implicit_f.inc"
#include      "com04_c.inc"         
      TYPE(TTABLE) CUR_TABLE
      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 64 of file utable.F.

      USE table_glob_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 89 of file utable.F.

      USE table_glob_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

st_utable_dum()

subroutine st_utable_dum

(

integer

ierr

)

Definition at line 28 of file utable.F.

#include      "implicit_f.inc"
      INTEGER IERR
      ierr=0