24 |
C fld1 - Input Field |
C fld1 - Input Field |
25 |
C fld2 - Input Factor |
C fld2 - Input Factor |
26 |
C Ksize - 3rd dimension of local arrays (Input and Output fields) |
C Ksize - 3rd dimension of local arrays (Input and Output fields) |
27 |
INTEGER Ksize, dir |
INTEGER Ksize |
28 |
_RL fld1(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Ksize,nSx,nSy) |
_RL fld1(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Ksize,nSx,nSy) |
29 |
_RS fld2(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Ksize,nSx,nSy) |
_RS fld2(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Ksize,nSx,nSy) |
30 |
_RL fldtave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Ksize,nSx,nSy) |
_RL fldtave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Ksize,nSx,nSy) |