Commit 289e15a4 authored by Matthias Redies's avatar Matthias Redies

remove unused A array

parent 14e7e04b
......@@ -234,7 +234,6 @@ CONTAINS
INTEGER, OPTIONAL, INTENT(IN) :: errorCode
INTEGER :: error
LOGICAL :: calltrace
LOGICAL,ALLOCATABLE::a(:)
#ifdef CPP_MPI
INTEGER :: ierr
#endif
......@@ -253,7 +252,6 @@ CONTAINS
#elif (defined(CPP_AIX)&&!defined(__PGI))
CALL xl__trbk()
#endif
DEALLOCATE(a)!will generate an error that can be found by the compiler
ENDIF
#if defined(CPP_MPI)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment