Commits

BarryFSmith committed e0c4b55

error handler API had been previously changed but this example was not updated to new API.

  • Participants
  • Parent commits eeb0415

Comments (0)

Files changed (1)

File src/sys/examples/tests/ex1f.F

       return
       end
 
-      subroutine MyErrHandler(line,fun,file,dir,n,p,mess,ctx,ierr)
+      subroutine MyErrHandler(line,fun,file,n,p,mess,ctx,ierr)
 #include <finclude/petscsys.h>
       integer line,n,p
       PetscInt ctx
       PetscErrorCode ierr
-      character*(*) fun,file,dir,mess
+      character*(*) fun,file,mess
 
       print*,'My error handler ',mess
       return