具体的说：

A文件中数据：

IBTYP( 1)= 4, IBDIR( 1)= -3,
JBCS( 1)= 1, JBCE( 1)= 31
KBCS( 1)= 1, KBCE( 1)= 16
LBCS( 1)= 31, LBCE( 1)= 31


IBTYP( 2)= 4, IBDIR( 2)= -3,
JBCS( 2)= 1, JBCE( 2)= 31
KBCS( 2)= 16, KBCE( 2)= 31
LBCS( 2)= 31, LBCE( 2)= 31


IBTYP( 3)= 8, IBDIR( 3)= 3,
JBCS( 3)= 1, JBCE( 3)= 31
KBCS( 3)= 1, KBCE( 3)= 16
LBCS( 3)= 1, LBCE( 3)= 1


IBTYP( 4)= 8, IBDIR( 4)= 3,
JBCS( 4)= 1, JBCE( 4)= 31
KBCS( 4)= 16, KBCE( 4)= 31
LBCS( 4)= 1, LBCE( 4)= 1


IBTYP( 5)= 4, IBDIR( 5)= 1,
JBCS( 5)= 1, JBCE( 5)= 1
KBCS( 5)= 1, KBCE( 5)= 16
LBCS( 5)= 1, LBCE( 5)= 31


IBTYP( 6)= 4, IBDIR( 6)= 1,
JBCS( 6)= 1, JBCE( 6)= 1
KBCS( 6)= 16, KBCE( 6)= 31
LBCS( 6)= 1, LBCE( 6)= 31


IBTYP( 7)= 4, IBDIR( 7)= -1,
JBCS( 7)= 31, JBCE( 7)= 31
KBCS( 7)= 1, KBCE( 7)= 16
LBCS( 7)= 1, LBCE( 7)= 31


IBTYP( 8)= 4, IBDIR( 8)= -1,
JBCS( 8)= 31, JBCE( 8)= 31
KBCS( 8)= 16, KBCE( 8)= 31
LBCS( 8)= 1, LBCE( 8)= 31

我要从A文件中读取每个分量的数据，然后按如下格式格式写入B文件：

IBTYP = 4, 4, 8, 8, 4, 4, 4, 4,
IBDIR = -3, -3, 3, 3, 1, 1, -1, -1,
JBCS = 1, 1, 1, 1, 1, 1, 31, 31,
JBCE = 31, 31, 31, 31, 1, 1, 31, 31,
KBCS = 1, 16, 1, 16, 1, 16, 16, 16,
KBCE = 16, 31, 16, 31, 16, 31, 31, 31,
LBCS = 31, 31, 1, 1, 1, 1, 1, 1,
LBCE = 31, 31, 1, 1, 31, 31, 31, 31,

也就是将各个块中的相同变量数据写在一起

详细文件见附件！

求大神指导！