- write (iout,*) "nres",nres," nstart_sup",nstart_sup," nsup",nsup
+C write (iout,*) "nres",nres," nstart_sup",nstart_sup," nsup",nsup
+C call flush(iout)
+ write(iout,*) "TU sie wywalam?"
+ call card_concat(controlcard,.false.)
+ write (iout,*) controlcard