diff --git a/lib/four2a.f90 b/lib/four2a.f90 index 9e08722e4..52b80394f 100644 --- a/lib/four2a.f90 +++ b/lib/four2a.f90 @@ -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()