f77 support
f77 support function