ts/refract [FIX]: fix trace label in reverse mode (was not displayed)

src/ts/refract/COPYING

@@ -3,7 +3,7 @@ this is <COPYING>
 refract: refraction seismics data analysis and plotting tool
 ============================================================================
 
-Copyright (C) 1998, 2013 by Thomas Forbriger 
+Copyright (C) 1998, 2013, 2016 by Thomas Forbriger 
 
 ----
 refract is free software; you can redistribute it and/or modify

src/ts/refract/refract.f

 c this is <refract.f>
 c------------------------------------------------------------------------------
 c
-c Copyright 1998, 2010 by Thomas Forbriger (IfG Stuttgart)
+c Copyright 1998, 2010, 2016 by Thomas Forbriger (IfG Stuttgart)
 c
 c REFRACTion seismics - data interpretation
 c
@@ -59,6 +59,7 @@ c    08/02/2016 V4.14  introduce upper limit for trace displays world
 c                      coordinate range in counts; this makes the
 c                      program robust, when displaying a zero offset
 c                      trace with offset dependend scaling
+c    01/12/2016 V4.15  fix trace label in reverse mode
 c
 c==============================================================================
 c
@@ -66,7 +67,7 @@ c
 c
       character*79 version
       parameter(version=
-     &  'REFRACT   V4.14  REFRACTion seismics - data interpretation')
+     &  'REFRACT   V4.15  REFRACTion seismics - data interpretation')
 c
 c get common blocks
       include 'refract_dim.inc'

src/ts/refract/sub/refract_pgtrace.f

@@ -27,6 +27,7 @@ c    24/05/00   V1.1   use selfilestyle
 c    19/06/2003 V1.2   introduced trace labels
 c    09/09/2004 V1.3   introduced station name labels
 c    20/11/2012 V1.4   plot baseline if requested
+c    01/12/2016 V1.5   fix check for label bounding box in reverse mode
 c
 c==============================================================================
 cS
@@ -131,8 +132,13 @@ c check string position
             call pgqtxt(xpos,data(nlast),0.,1.,label, xbox, ybox)
             inside=.false.
             do j=1,4
-              if ((ybox(j).gt.trv_vmin).and.(ybox(j).lt.trv_vmax))
-     &          inside=.true.
+              if (reverse) then
+                if ((ybox(j).lt.trv_vmin).and.(ybox(j).gt.trv_vmax))
+     &            inside=.true.
+              else
+                if ((ybox(j).gt.trv_vmin).and.(ybox(j).lt.trv_vmax))
+     &            inside=.true.
+              endif
             enddo
             if (inside) then
               call pgsave