Commit 4b6c5000 authored by thomas.forbriger's avatar thomas.forbriger Committed by thomas.forbriger
Browse files

corrections

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: 2998
SVN UUID:     67feda4a-a26e-11df-9d6e-31afc202ad0c
parent 281c7a91
c this is <refmet.f> originally by J. Ungerer 1990
c======================================================================
c $Id: refmet.f,v 1.13 2010-03-02 13:29:18 tforb Exp $
c $Id: refmet.f,v 1.14 2010-03-02 13:31:05 tforb Exp $
c
c Reflectivity Method
c
......@@ -109,7 +109,7 @@ c======================================================================
character*70 version
parameter(version='REFMET V2.10 Reflectivity Method')
character*79 cvsid
parameter(cvsid='$Id: refmet.f,v 1.13 2010-03-02 13:29:18 tforb Exp $')
parameter(cvsid='$Id: refmet.f,v 1.14 2010-03-02 13:31:05 tforb Exp $')
c array dimension declaration
integer me, msl, mf, ms
......@@ -2097,7 +2097,7 @@ c no tangential component, no near field
IDNz=dcmplx(0.d0)
endif
elseif (cl_linesrc)
elseif (cl_linesrc) then
C Line source calculation with cosine kernel
J0=cos(jarg)
J1=0.
......@@ -2127,7 +2127,6 @@ c no tangential component, no near field
endif
endif
else
C Besselfunktionen aufrufen
J0=d_j0(jarg)
......
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