Changeset 76 for PROJECT_CORE_MPI/CORE_MPI/BRANCHES/v1.00/HT_process.vhd

Timestamp:

Jan 17, 2014, 5:04:00 PM (10 years ago)

Author:

rolagamo

Message:

 

File:

• PROJECT_CORE_MPI/CORE_MPI/BRANCHES/v1.00/HT_process.vhd (modified) (8 diffs)

PROJECT_CORE_MPI/CORE_MPI/BRANCHES/v1.00/HT_process.vhd

@@ -144 +144 @@
                                 --Dcount<=0;
                                 if bfill=0 then -- si le nombre de bloc de mémoire remplis est vide
-                                                RunState<=Fillmem;
+                                                RunState<=InitApp;
                                  end if;
                                  --Ram_busy<='0';
@@ -185 +185 @@
                                                  
                                                  if bfill=4 then
-                                                  RunState<=InitApp;
+                                                  RunState<=WinCreate;
                                                  else
                                                         RunState<=nextfill;
@@ -212 +212 @@
                 when InitApp =>
                                 --code pour Init 
-                                dlen:=15;
+                                dlen:=10;
                                 if ct=0 then
                                 -- synthesis translate_off 
@@ -251 +251 @@
                         
                         if ct=0 then
-                                RunState<=WinCreate;
+                                RunState<=Fillmem;
                                 -- synthesis translate_off
-                                write (l,string'("Dlen; ;Rank2 " &  integer'image(Dlen) & ";" & image(MyRank) & "; ended at  ; " & real'image(rt(now))));
+                                write (l,string'("Dlen;"& integer'image(dlen) & ";Rank2 " &  integer'image(Dlen) & ";" & image(MyRank) & "; ended at  ; " & real'image(rt(now))));
                                 report l.all;
             writeline (f, l) ; 
@@ -288 +288 @@
                         if ct=0 then
                                 -- synthesis translate_off 
-                                write (l,string'("Dlen; ;WPost1 " &  integer'image(Dlen) & "; ; started  ; " & real'image(rt(now))));
+                                write (l,string'("Dlen;"& integer'image(dlen) & ";WPost1 " &  integer'image(Dlen) & "; ; started  ; " & real'image(rt(now))));
                                 report l.all;
             writeline (f, l) ;  
@@ -299 +299 @@
                                 RunState<=WinStart;
                                 -- synthesis translate_off
-                                write (l,string'("Dlen; ;WPost2 " &  integer'image(Dlen) & ";" & image(MyRank) & "; ended at  ; " & real'image(rt(now))));
+                                write (l,string'("Dlen;"& integer'image(dlen) & ";WPost2 " &  integer'image(Dlen) & ";" & image(MyRank) & "; ended at  ; " & real'image(rt(now))));
                                 report l.all;
             writeline (f, l) ; 
@@ -308 +308 @@
                         if ct=0 then
                                 -- synthesis translate_off 
-                                write (l,string'("Dlen; ;WStart1 " &  integer'image(Dlen) & "; ; started  ; " & real'image(rt(now))));
+                                write (l,string'("Dlen;" & integer'image(dlen) & ";WStart1 " &  integer'image(Dlen) & "; ; started  ; " & real'image(rt(now))));
                                 report l.all;
             writeline (f, l) ;  
@@ -322 +322 @@
                                 RunState<=PutData;
                                 -- synthesis translate_off
-                                write (l,string'("Dlen; ;WStart2 " &  integer'image(Dlen) & ";" & image(MyRank) & "; ended at  ; " & real'image(rt(now))));
+                                write (l,string'("Dlen;" & integer'image(dlen) & ";WStart2 " &  integer'image(Dlen) & ";" & image(MyRank) & "; ended at  ; " & real'image(rt(now))));
                                 report l.all;
             writeline (f, l) ;