med-2.3.3-test.patch

med-2.3.3-test.patch (text/plain), 803 bytes, created by Richard Westwell on 2008-04-20 11:04:33 UTC

diff -Naur med-2.3.3.orig/tests/f/test33.f med-2.3.3/tests/f/test33.f
--- med-2.3.3.orig/tests/f/test33.f	2007-05-30 14:09:08.000000000 +0100
+++ med-2.3.3/tests/f/test33.f	2008-04-18 23:42:53.000000000 +0100
@@ -68,13 +68,13 @@
 	   call efexit(-1)
 	endif      
 
-	call efnema(fid,maa,MED_CONN,MED_ARETE,MED_SEG2,MED_DESC
-     1    ,narr,cret)   
-	if (cret .ne. 0 ) then
-	   print *,'Erreur acces au nombre d''arretes',
-     &	           ' du premier maillage'
-	   call efexit(-1)
-	endif      
+C	call efnema(fid,maa,MED_CONN,MED_ARETE,MED_SEG2,MED_DESC
+C     1    ,narr,cret)   
+C	if (cret .ne. 0 ) then
+C	   print *,'Erreur acces au nombre d''arretes',
+C     &	           ' du premier maillage'
+C	   call efexit(-1)
+C	endif      
 
 
          print '(A,I1,A,A4,A,I1,A,I4)','maillage '