| Directory: | ./ |
|---|---|
| File: | rad/tpm_fft.f90 |
| Date: | 2022-01-11 19:19:34 |
| Exec | Total | Coverage | |
|---|---|---|---|
| Lines: | 0 | 1 | 0.0% |
| Branches: | 0 | 0 | -% |
| Line | Branch | Exec | Source |
|---|---|---|---|
| 1 | MODULE TPM_FFT | ||
| 2 | USE PARKIND1 ,ONLY : JPIM ,JPRB | ||
| 3 | |||
| 4 | IMPLICIT NONE | ||
| 5 | |||
| 6 | SAVE | ||
| 7 | |||
| 8 | TYPE FFT_TYPE | ||
| 9 | REAL(KIND=JPRB) ,POINTER :: TRIGS(:,:) | ||
| 10 | INTEGER(KIND=JPIM),POINTER :: NFAX(:,:) | ||
| 11 | END TYPE FFT_TYPE | ||
| 12 | |||
| 13 | TYPE(FFT_TYPE),ALLOCATABLE,TARGET :: FFT_RESOL(:) | ||
| 14 | TYPE(FFT_TYPE),POINTER :: T | ||
| 15 | |||
| 16 | !$OMP THREADPRIVATE(t) | ||
| 17 | |||
| 18 | ✗ | END MODULE TPM_FFT | |
| 19 |