--- GrToPr.F90	2012-03-23 09:18:56.093750000 -0600
+++ GrToPr.F90	2012-03-23 10:30:11.859375000 -0600
@@ -44,8 +44,11 @@
 
    ! ----- set SVD subroutine: isvd=1  call ssvdc()
    !                           isvd=2  call sgecvd()
-
+#  ifdef CYGWIN
+   isvd = 2
+#  else
    isvd = 1
+#  endif
    im = 2
 
    !       i0 = nint((xx - x(0))/hx)