Fix a typo.

This commit is contained in:
Joe Taylor 2024-01-18 08:43:17 -05:00
parent 74f07211c3
commit ae64b71498

View File

@ -20,7 +20,7 @@ subroutine four2a(a,nfft,ndim,isign,iform)
! actual computations.
use fftw3
parameter (NPMAX=2100) !Max numberf of stored plans
parameter (NPMAX=2100) !Max number of stored plans
parameter (NSMALL=16385) !Max half complex size of "small" FFTs
complex a(nfft) !Array to be transformed
complex aa(NSMALL) !Local copy of "small" a()