ts/plot/damplo [FIX]: fix scaling label

src/ts/plot/damplo.f

@@ -144,8 +144,8 @@ c go
           energy(itrace)=energy(itrace)*roffset(itrace)**sfact
           maxen=max(maxen,energy(itrace))
         enddo
-        write(facstring, '(a,f5.3,a)') 'scaling with factor r\u',
-     &                   sfact,'\d/1m'
+        write(facstring, '(a,f5.3,a)') 'scaling with factor (r/1m)\u',
+     &                   sfact,'\d'
       elseif (escale) then
         maxen=0.
         do itrace=1,ntraces