GCC Code Coverage Report


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