2 integer nprob,nad,npd,irdef
3 common /contrl/ nprob,nad,npd,irdef
5 logical bflg,cxifl,gapfl,incf,initf,intr,intx,nopart
6 common /contrl/ bflg,cxifl,gapfl,incf,initf,intr,intx,nopart
8 logical nocount,tfl,hisfl
9 common /contrl/ nocount,tfl,hisfl
11 character fnamr*132, fnamp*128, flog*128
12 common /conchr/ fnamr , fnamp , flog