subroutine bdata(ilu) C C common block initialization C C ilu(integer) = the logical unit for output C common/init/ilun,factor,imode,ipenst common/origin/xor,yor common/pos/xpos,ypos common/char/slant ilun=6 !default output logical unit factor=1. !scaling factor imode=0 !absolute plotting mode ipenst=1 !pen status is up xor=0. !x origin in user units (inches) yor=0. !y origin in user units (inches) xpos=0. !last defined pen x position from origin xpos=0. !length of character string from origin slant=0. !character slant value if(ilu.ne.ilun)ilun=ilu return end