Commit 7b85161e authored by thomas.forbriger's avatar thomas.forbriger Committed by thomas.forbriger
Browse files

was too noisy

This is a legacy commit from before 2015-03-01.
It may be incomplete as well as inconsistent.
See COPYING.legacy and README.history for details.


SVN Path:     http://gpitrsvn.gpi.uni-karlsruhe.de/repos/TFSoftware/trunk
SVN Revision: 1162
SVN UUID:     67feda4a-a26e-11df-9d6e-31afc202ad0c
parent 0826ceaf
c this is <syg.f>
c------------------------------------------------------------------------------
c $Id: syg.f,v 1.7 2002-03-26 19:11:58 forbrig Exp $
c $Id: syg.f,v 1.8 2002-12-06 16:41:03 forbrig Exp $
c
c 30/07/97 by Thomas Forbriger (IfG Stuttgart)
c
......@@ -165,7 +165,7 @@ c which are the green matrix elements
if (nostatic.and.((j.eq.1).or.(i.eq.1))) then
thisgreen=(0.d0,0.d0)
else
if (verbose) print *,om(j)/(2.*pi),'Hz'
c if (verbose) print *,om(j)/(2.*pi),'Hz'
if (radialcomponent) then
call gr_greenzr(dble(om(j)), dummygreen, thisgreen)
else
......
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