Commits

John Wise committed 090d4c4

Changing float to FLOAT and real to REALSUB for
RandomForcingMachNumber to agree with the definition in global_data.h.

  • Participants
  • Parent commits 49e0667
  • Branches open-mp

Comments (0)

Files changed (2)

src/enzo/Grid_ComputeRandomForcingFields.C

 extern "C" void FORTRAN_NAME(turboinit)(int *rank, int *nbox,
                           float *u, float *v, float *w,
                           int *in, int *jn, int *kn,
-					int *ig, int *jg, int *kg, float * RandomMachNumber);
+					int *ig, int *jg, int *kg, FLOAT * RandomMachNumber);
 
 int grid::ComputeRandomForcingFields(int mode)
 {

src/enzo/turboinit.F

 c
       integer rank, nbox, in, jn, kn, ig, jg, kg
       real u(in,jn,kn), v(in,jn,kn), w(in,jn,kn)
-      real random_forcing
+      REALSUB random_forcing
 c
 c  Locals
 c