0088) data yosou/1,1,1,1,1,1/
WARNING - Common variables should be predefined in a BLOCK DATA subprogram
コモンに入れて他のサブルーチンに持っていきたいんですけど・・・問題ありますか？