MSVC fix for gmx_parallel_3dfft.c
authorSzilard Pall <pszilard@cbr.su.se>
Mon, 10 May 2010 14:12:32 +0000 (16:12 +0200)
committerSzilard Pall <pszilard@cbr.su.se>
Mon, 10 May 2010 14:12:32 +0000 (16:12 +0200)
src/mdlib/gmx_parallel_3dfft.c

index 47321f2e2a59825c90f4566c2b6dab7816cd3353..9b00286feec9ae78b68bc04e5b7b72dbc56482c1 100644 (file)
@@ -79,12 +79,12 @@ gmx_parallel_3dfft_init   (gmx_parallel_3dfft_t *    pfft_setup,
 {
     int rN=ndata[2],M=ndata[1],K=ndata[0];
     int flags = FFT5D_REALCOMPLEX | FFT5D_ORDER_YZ; /* FFT5D_DEBUG */
-    snew(*pfft_setup,1);
-    if (bReproducible) flags |= FFT5D_NOMEASURE; 
-    
     MPI_Comm rcomm[]={comm[1],comm[0]};
     int Nb,Mb,Kb; /* dimension for backtransform (in starting order) */
     
+    snew(*pfft_setup,1);
+    if (bReproducible) flags |= FFT5D_NOMEASURE; 
+    
     if (!(flags&FFT5D_ORDER_YZ)) { 
         Nb=M;Mb=K;Kb=rN;               
     } else {