[cig-commits] [commit] master: add output message for the stress option. (f4d1263)

[cig_noreply at geodynamics.org]

Repository : https://github.com/geodynamics/relax

On branch  : master
Link       : https://github.com/geodynamics/relax/compare/5b0d8916062d3a2b3236477142e6d198e900119d...f4d1263da41d348b2a8747af137391a1e30951b0

>---------------------------------------------------------------

commit f4d1263da41d348b2a8747af137391a1e30951b0
Author: Sylvain Barbot <sbarbot at ntu.edu.sg>
Date:   Sun Aug 10 16:18:29 2014 +0800

    add output message for the stress option.


>---------------------------------------------------------------

f4d1263da41d348b2a8747af137391a1e30951b0
 src/input.f90 | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/src/input.f90 b/src/input.f90
index 430ef30..e62848e 100644
--- a/src/input.f90
+++ b/src/input.f90
@@ -202,6 +202,11 @@ CONTAINS
     ELSE
        PRINT '("#     * export to TXT format cancelled                     (--",a,")")', trim(opts(3)%name)
     END IF
+    IF (in%isoutputstress) THEN
+       PRINT '("#     * export stress")'
+    ELSE
+       PRINT '("#     * stress export cancelled                            (--",a,")")', trim(opts(7)%name)
+    END IF
 #ifdef GRD
     IF (in%isoutputgrd) THEN
        PRINT '("#     * export to GRD format")'