Commit 3937ffe9 authored by Robin Hilgers's avatar Robin Hilgers

Switch added.

parent 904bde4c
......@@ -44,7 +44,7 @@ C ..
+ 0.5*(1.0-cos(beta))*rho22
r22n = 0.5*(1.0-cos(beta))*rho11 + sin(beta)*real(rho21) +
+ 0.5*(1.0+cos(beta))*rho22
r21n = CMPLX(cos(alph),sin(alph))*(sin(beta)*(rho11-rho22) +
r21n = CMPLX(cos(alph),+sin(alph))*(sin(beta)*(rho11-rho22) +
+ 2.0*(cos(beta)*real(rho21)+cmplx(0.0,aimag(rho21))))*0.5
rho11 = r11n
......
......@@ -182,9 +182,9 @@ CONTAINS
END IF
IF (l_nocoOpt .OR. l_explicit) THEN
160 FORMAT(' <nocoParams l_ss="', l1, '" l_mperp="', l1,'" l_mtNocoPot="', l1,'" l_alignMT="', l1, '" l_constr="', l1, &
160 FORMAT(' <nocoParams l_ss="', l1, '" l_mperp="', l1,'" l_mtNocoPot="', l1,'" l_alignMT="', l1, '" l_constr="', l1, '" l_sourceFree="', l1, &
'" mix_b="', f0.8, '">')
WRITE (fileNum, 160) noco%l_ss, noco%l_mperp, noco%l_mtNocoPot,noco%l_alignMT,noco%l_constr, noco%mix_b
WRITE (fileNum, 160) noco%l_ss, noco%l_mperp, noco%l_mtNocoPot, noco%l_alignMT, noco%l_constr, noco%sourceFree, noco%mix_b
162 FORMAT(' <qss>', f0.10, ' ', f0.10, ' ', f0.10, '</qss>')
WRITE (fileNum, 162) noco%qss_inp
WRITE (fileNum, '(a)') ' </nocoParams>'
......
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