text: /************************ grsource_w.c *****************************/
  /* MIMD version 6 */
  
  #include "arb_dirac_eig_includes.h"
  
  
  
  void grsource_w() {
  register int i,j,k;
  register site *s;
      FORALLSITES(i,s){
          for(k=0;k<4;k++)for(j=0;j<3;j++){
  #ifdef SITERAND
              s->g_rand.d[k].c[j] = complex_gaussian_rand_no(&(s->site_prn));
  #else
              s->g_rand.d[k].c[j] = complex_gaussian_rand_no(&node_prn);
  #endif
          }
      }
  
  }/* grsource_w */
  
  
  