Commit 62131c8e authored by Robin Hilgers's avatar Robin Hilgers

Oooops. Fix for failing build.

parent 42bc96ea
......@@ -184,7 +184,7 @@ CONTAINS
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, '" 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%sourceFree, noco%mix_b
WRITE (fileNum, 160) noco%l_ss, noco%l_mperp, noco%l_mtNocoPot, noco%l_alignMT, noco%l_constr, noco%l_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