Commit 7ab36813 authored by Gregor Michalicek's avatar Gregor Michalicek

Set default dVac value

This is done iff the input file for the input file generator
specifies a film calculation but no dVac is provided.

Also: Initialize mat array in inpgen/struct_input.f to 0. The
missing initialization lead to an error.
parent b83181ce
......@@ -85,6 +85,7 @@
factor(:) = 1.0
theta = 0.0 ; phi = 0.0
qss(:) = (/0.0,0.0,0.0/)
mat = 0.0
!initialize the calculator
DO
READ (UNIT = infh,FMT = "(a3)",iostat=ios) ch_test
......@@ -205,11 +206,11 @@
a3(2)=evaluatefirst(buffer)
a3(3)=evaluatefirst(buffer)
dvac=evaluatefirst(buffer)
film =.true.
IF ( dvac <= 0.00 ) THEN
film = .false.
dvac = a3(3)
ENDIF
IF (film.AND.(dvac <= 0.00)) THEN
WRITE(*,*)'Film calculation but no reasonable dVac provided'
WRITE(*,*)'Setting default for dVac'
dvac = ABS(a3(3)) ! This is later set to the real default by the chkmt result
END IF
811 CONTINUE ! obviously no film calculation
!READ(buffer,*) a3
......
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