+ print *,controlcard
+ call readi(controlcard,'ISTART',is,1)
+ print *,"is",is
+ call readi(controlcard,'IEND',ie,10000000)
+ print *,"ie",ie
+ call readi(controlcard,'ISAMPL',isampl,1)
+ print *,"isampl",isampl
+ call reada(controlcard,'TS',ts,1.0d10)
+ call reada(controlcard,'TE',te,1.0d10)
+ print *,"is",is," ie",ie