Quelques modifications mineures sur DataFileComparator (on récupère en sortie le nombre d'erreurs)

DataFileComparator/DataFileComparator.f90

@@ -5,6 +5,7 @@ program DataFileComparator
 	real(kind=4) :: next_real
 	NumArg = command_argument_count()
 	
+	NumError = 0
 
 	!Filename1 = "    1.143 2. 3. 4.87196             "
 	
@@ -23,7 +24,7 @@ program DataFileComparator
 	print*,trim(Filename1)
 	print*,trim(Filename2)
 	print*,NumLines
-	print*,ColumnNum
+	print*,Numcolumns
 	print*,Tolerance
 	
 
@@ -31,10 +32,10 @@ program DataFileComparator
 
 	call DataAreDifferent()
 	
-	if (Diff .eqv. .true.) then
-		call exit(1) 
+	if (NumError == 0) then
+		call exit(NumError) 
 	else 
-		call exit(0)
+		call exit(NumError)
 	endif
 
 end program DataFileComparator
@@ -92,7 +93,7 @@ subroutine InitData(filename1_cut,filename2_cut)
 	integer v1,v2
 	character(len=255) :: temp
 
-	allocate(Data1(NumLines,ColumnNum),Data2(NumLines,ColumnNum))
+	allocate(Data1(NumLines,Numcolumns),Data2(NumLines,Numcolumns))
 	open (unit=10,file=filename1_cut,action="read",status="old",form='formatted')
 	open (unit=20,file=filename2_cut,action="read",status="old",form='formatted')	
 	read(unit=10,fmt=*)
@@ -100,9 +101,9 @@ subroutine InitData(filename1_cut,filename2_cut)
 	
 	!Read all data
 	do i=1,NumLines
-		read(unit=10,fmt=*) (Data1(i,j),j=1,ColumnNum)
+		read(unit=10,fmt=*) (Data1(i,j),j=1,Numcolumns)
 		!print*,(Data1(i,j),j=1,Numcolumns)
-		read(unit=20,fmt=*) (Data2(i,j),j=1,ColumnNum)
+		read(unit=20,fmt=*) (Data2(i,j),j=1,Numcolumns)
 	end do
 	
 	!read(unit=10,fmt=*) temp
@@ -124,7 +125,7 @@ subroutine DataAreDifferent()
 		
 			if((abs(Data1(i,ColumnNum)-Data2(i,ColumnNum)))>Tolerance) then
 				print*,i,Data1(i,ColumnNum),Data2(i,ColumnNum)
-				Diff = .True.
+				NumError = NumError+1
 			endif
 		
 	end do			

DataFileComparator/Module.f90

 module Param
-	integer NumLines,NumColumns,ColumnNum
+	integer NumLines,NumColumns,ColumnNum,NumError
 	real(kind=8) Tolerance
 	character(len=255) Filename1,Filename2
 	real(kind=8), dimension(:,:), allocatable :: Data1
 	real(kind=8), dimension(:,:), allocatable :: Data2
-	logical :: Diff = .FALSE.
 end module Param

DataFileComparator/UnitTest.bash

 #!/bin/bash
 
 #chemin des études
-STUDY_REF_PATH=../Tests_Reference/trubar20r20011208donnees/T8/barag8
-STUDY_COMP_PATH=../cas_tests/trubar20r20011208donnees/barag8
+STUDY_REF_PATH=../Tests_Reference/trubar20r20011208donnees/T5/barag5
+STUDY_COMP_PATH=../cas_tests/trubar20r20011208donnees/barag5
 
 #initialisation variables pour TRXYH
 PRES_X=3
@@ -30,11 +30,10 @@ COLUMN_NUM=3
 #Comparaison des deux fichiers xyh et résultat du test
 ./DataFileComparator.sh $FILENAME_REF $FILENAME_COMP $NUM_LINES_TO_COMPARE $NUM_COLUMNS $COLUMN_NUM $TOLERANCE
 strErrorCode=$?
-echo $strErrorcode
 echo "Résultat du test :"
 if [ $strErrorCode == 0 ]
-then
-	echo TEST PASSED
+then 
+	echo "TEST PASSED"
 else
-	echo TEST FAILED
+	echo "TEST FAILED"
 fi

Documents/Stage2014/JournalDeBord.txt

@@ -36,3 +36,8 @@ Voir Rendu1.odt pour l'orientation du travail
 
 -- Clarification du Makefile pour enlever l'ambiguïté sur la possibilité de compiler en séquencielle
 
+--Transformation du test unitaire et du DataFileComparator pour recevoir le nombre de différence entre les deux fichiers.
+  Pour l'instant on ne teste que la colonne portant le numéro NumColumn. Il faudra réfléchir si on fait "jusqu'à la colonne" NumColumn. 
+  Par conséquent on ne prend en compte que la hauteur d'eau (les cas tests 7,8,9 sont limitants pour les comparaisons). 
+
+