style fix
add new subprogramm from macs2