timfun.F File Reference

#include "implicit_f.inc"
#include "com04_c.inc"
#include "tabsiz_c.inc"
#include "com08_c.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	timfun (python, fv, np, tf)

Function/Subroutine Documentation

timfun()

subroutine timfun	(	type(python_), intent(inout)	python,
			fv,
		integer, dimension(snpc)	np,
			tf )

Definition at line 32 of file timfun.F.

            USE python_funct_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-----------------------------------------------
#include      "com04_c.inc"
#include "tabsiz_c.inc"
#include      "com08_c.inc"
 
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      TYPE(PYTHON_), INTENT(inout) :: PYTHON
      INTEGER NP(SNPC)
C     REAL
      my_real
     .   fv(*), tf(*)
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER N, NPOINT,ISMOOTH
C     REAL
      my_real
     .   tg
C-----------------------------------------------
      DO n=1,nfunct
        ismooth = np(2*nfunct+n+1)
        IF(ismooth >= 0) THEN
          npoint=(np(n+1)-np(n))/2
          CALL interp(tf(np(n)),tt,npoint,fv(n),tg)
        ELSE IF(ismooth < 0) THEN
          ismooth = -ismooth
          CALL python_call_funct1d(python, ismooth,tt, fv(n))
        ENDIF
      ENDDO
      RETURN