- write (iout,*) 'B1'
- write(iout,*) B1(1,i),B1(2,i)
- write (iout,*) 'B2'
- write(iout,*) B2(1,i),B2(2,i)
+ write (iout,*) 'BNEW1(1)'
+ write (iout,*) (BNEW1(ii,1,i),ii=1,3)
+ write (iout,*) 'BNEW1(2)'
+ write (iout,*) BNEW1(1,2,i)
+ write (iout,*) 'BNEW2(1)'
+ write (iout,*) (BNEW2(ii,1,i),ii=1,3)
+ write (iout,*) 'BNEW2(2)'
+ write (iout,*) BNEW2(1,2,i)