6 calls from
ASSIMPAR
GETUNIT
1
GTLOGFN
1
STRLNTH
4