macro subs0 fort/ext subs1 fort/ext subs2 fort/ext subs3 fort/ext subs4 libr/cre scrlib subs0,subs1,subs2,subs3,subs4