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()