Go to the source code of this file.
Functions/Subroutines | |
| subroutine | transf (FA, FR, XK, KNEW, NEWF, NEWF1, TAUX1, TAUX2, NPOIN2, NDIRE, NF) |
Function/Subroutine Documentation
◆ transf()
| subroutine transf | ( | double precision, dimension(npoin2,ndire,nf), intent(inout) | FA, |
| double precision, dimension(npoin2,ndire,nf), intent(in) | FR, | ||
| double precision, dimension(npoin2,nf), intent(in) | XK, | ||
| integer, dimension(npoin2), intent(inout) | KNEW, | ||
| integer, dimension(npoin2), intent(inout) | NEWF, | ||
| integer, dimension(npoin2), intent(inout) | NEWF1, | ||
| double precision, dimension(npoin2), intent(inout) | TAUX1, | ||
| double precision, dimension(npoin2), intent(inout) | TAUX2, | ||
| integer, intent(in) | NPOIN2, | ||
| integer, intent(in) | NDIRE, | ||
| integer, intent(in) | NF | ||
| ) |
- Parameters
-
[in] npoin2 COSTET Cosine of teta angle [in] DFREQ Frequency steps between discretized frequencies [out] FA Directional spectrum in absolute frequencies [in] FR Directional spectrum in relative frequencies [in] FREQ Discretized frequencies [in] GRADEB N.of first iteration for graphics printouts [in] GRAPRD Period for graphic printouts [in,out] KNEW Work table [in] LT Number of the time step currently solved [in,out] NEWF Work table [in,out] NEWF1 Work table [in] NF Number of frequencies [in] NDIRE Number of directions [in] NPOIN2 Number of points in 2d mesh [in] RAISF Raison frequentielle [in] SINTET Sine of teta angle [in,out] TAUX1 Work table [in,out] TAUX2 Work table [in] UC Current velocity along x at the mesh points [in] VC Current velocity along y at the mesh points [in] XK Discretized wave number [in] ndire COSTET Cosine of teta angle [in] DFREQ Frequency steps between discretized frequencies [out] FA Directional spectrum in absolute frequencies [in] FR Directional spectrum in relative frequencies [in] FREQ Discretized frequencies [in] GRADEB N.of first iteration for graphics printouts [in] GRAPRD Period for graphic printouts [in,out] KNEW Work table [in] LT Number of the time step currently solved [in,out] NEWF Work table [in,out] NEWF1 Work table [in] NF Number of frequencies [in] NDIRE Number of directions [in] NPOIN2 Number of points in 2d mesh [in] RAISF Raison frequentielle [in] SINTET Sine of teta angle [in,out] TAUX1 Work table [in,out] TAUX2 Work table [in] UC Current velocity along x at the mesh points [in] VC Current velocity along y at the mesh points [in] XK Discretized wave number [in] nf COSTET Cosine of teta angle [in] DFREQ Frequency steps between discretized frequencies [out] FA Directional spectrum in absolute frequencies [in] FR Directional spectrum in relative frequencies [in] FREQ Discretized frequencies [in] GRADEB N.of first iteration for graphics printouts [in] GRAPRD Period for graphic printouts [in,out] KNEW Work table [in] LT Number of the time step currently solved [in,out] NEWF Work table [in,out] NEWF1 Work table [in] NF Number of frequencies [in] NDIRE Number of directions [in] NPOIN2 Number of points in 2d mesh [in] RAISF Raison frequentielle [in] SINTET Sine of teta angle [in,out] TAUX1 Work table [in,out] TAUX2 Work table [in] UC Current velocity along x at the mesh points [in] VC Current velocity along y at the mesh points [in] XK Discretized wave number
Definition at line 8 of file transf.f.
Here is the call graph for this function: Here is the caller graph for this function: