if (nfolds.eq.5.and.foldvals(1).eq.1.and.foldvals(2).eq.2
     &    .and.foldvals(3).eq.4.and.foldvals(4).eq.8.and.
     &    foldvals(5).eq.16) then
         write(llog,*) 'Lyne-Ashworth harmonic summing'
         call oldsumhrm(samp,npf,nf1) ! Lyne-Ashworth code
      else
         write(llog,*) 'DB\'s slow-but-simple harmonic summing routine'
         call sumhrm(samp,npf,nf1)    ! David Barnes code
      endif
c      
c     mask out folds 2-nfolds in addition to fold 1 (done above) if 
c     mask files are present (drl - 28/04/05)

--------------------Configuration: vf_no1 - Win32 Debug--------------------
Compiling Fortran...
H:\PROGRAM FILES\MICROSOFT VISUAL STUDIO\MYPROJECTS\choose f\dosearch.f
H:\PROGRAM FILES\MICROSOFT VISUAL STUDIO\MYPROJECTS\choose f\dosearch.f(265) : Error: Syntax error, found IDENTIFIER 'SSLOW' when expecting one of: ( * :: , <END-OF-STATEMENT> ; : ) + . - (/ [ ] /) ** / > // .LT. ...
         write(llog,*) 'DB\'s slow-but-simple harmonic summing routine'
----------------------------^
H:\PROGRAM FILES\MICROSOFT VISUAL STUDIO\MYPROJECTS\choose f\dosearch.f(265) : Error: Syntax error, found ''' when expecting one of: ( * :: , <END-OF-STATEMENT> ; : ) + . - % (/ [ ] /) . ** / > ...
         write(llog,*) 'DB\'s slow-but-simple harmonic summing routine'
----------------------------------------------------------------------^
Error executing df.exe.

dosearch.obj - 2 error(s), 0 warning(s)