Regreg.f

From GHER

Jump to: navigation, search
      subroutine REGREG(Tf,x0f,dxxf,dyxf,y0f,dxyf,dyyf
    &                      ,imaxf,jmaxf,
    &                     Tt,x0t,dxxt,dyxt,y0t,dxyt,dyyt
    &                      ,imaxt,jmaxt)
c                 ========
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C Interpolates from a regular full field towards another
C regular full field
C Input geometry:
C   x= x0f + I dxxf + J dyxf
C   y= y0f + I dxyf + J dyyf
C
C Output geometry
C   x= x0t + I dxxt + J dyxt
C   y= y0t + I dxyt + J dyyt
C
C
C Interpolated field Tt computed from field Tf
C
C
C JMB 15/5/93
C fs 07/08/94 xt and yt computed by adding quantities at each loop step
C             and not any more by multiplying by i,j(new vars.: xbt, ybt)
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
Personal tools