call reada(controlcard,"LAMBDA",rlamb,0.3d0)
call reada(controlcard,"LIPTHICK",lipthick,0.0d0)
call reada(controlcard,"LIPAQBUF",lipbufthick,0.0d0)
call reada(controlcard,"LAMBDA",rlamb,0.3d0)
call reada(controlcard,"LIPTHICK",lipthick,0.0d0)
call reada(controlcard,"LIPAQBUF",lipbufthick,0.0d0)