diff --git a/src/ogpf.f90 b/src/ogpf.f90
index 9e60301..cd3c583 100644
--- a/src/ogpf.f90
+++ b/src/ogpf.f90
@@ -2375,7 +2375,7 @@ subroutine splitstring2array(strin, strarray, delimiter)
         strtmp=trim (adjustl(strin) )
 
         ! 2. count the number substrings separated by delimiter
-        n = count( [ (strtmp(i:i), i=1, len_trim(strtmp)) ] == delimiter_)
+        n = count( [ (strtmp(i:i)== delimiter_, i=1, len_trim(strtmp)) ] )
 
         ! 3. allocate the output string array
         allocate(strarray(n+1))