diff --git a/libs/ptc/src/Sa_extend_poly.f90 b/libs/ptc/src/Sa_extend_poly.f90
index 83dbadd70..4234d1258 100644
--- a/libs/ptc/src/Sa_extend_poly.f90
+++ b/libs/ptc/src/Sa_extend_poly.f90
@@ -26,12 +26,12 @@ SUBROUTINE PRTR(S, X)
 
     ! special case: display only string without X
     if (.not. PRESENT(X)) then
-      WRITE(*, '(a,a)') '@@ ', S
+      WRITE(*, '(a,a)') '@: ', S
       return
     endif
 
     ! @@ + elem + func + 6 columns
-    WRITE(*, '(a,a15,a,a15,6ES25.16)') '@@ ', ELEM_NAME, ' ', S &
+    WRITE(*, '(a,a15,a,a15,6ES25.16)') '@: ', ELEM_NAME, ' ', S &
       , X(1), X(2), X(3), X(4), -X(6), X(5)
   END SUBROUTINE PRTR
 
@@ -48,7 +48,7 @@ SUBROUTINE PRTP1(S, X)
     if (X%KIND /= 1) then
       if (MAPDUMP .ge. 2) then
         ! @@ + elem + func + 7 columns
-        WRITE(*, '(a,a15,a,a15,7ES25.16)') '@@ ', ELEM_NAME, ' ', S, X.sub.'000000'&
+        WRITE(*, '(a,a15,a,a15,7ES25.16)') '@: ', ELEM_NAME, ' ', S, X.sub.'000000'&
                                    , X.sub.'100000', X.sub.'010000', X.sub.'001000'&
                                    , X.sub.'000100',-X.sub.'000001', X.sub.'000010'
       endif
@@ -59,7 +59,7 @@ SUBROUTINE PRTP1(S, X)
       endif
     else
       ! @@ + elem + func + 1 columns
-      WRITE(*, '(a,a15,a,a15,1ES25.16)') '@@ ', ELEM_NAME, ' ', S, X%R
+      WRITE(*, '(a,a15,a,a15,1ES25.16)') '@: ', ELEM_NAME, ' ', S, X%R
     endif
   END SUBROUTINE PRTP1
 
@@ -75,7 +75,7 @@ SUBROUTINE PRTP(S, X)
 
     ! special case: display only string without X
     if (.not. PRESENT(X)) then
-      WRITE(*, '(a,a)') '@@ ', S
+      WRITE(*, '(a,a)') '@: ', S
       return
     endif