用赋值循环替换WRITE语句

Question

我需要在一个变量中存储一个带有隐式循环的WRITE的值，但是无法掌握如何构造循环。

变量是COMPLEX*16，尺寸为(2, 9, 1, 3, 3)

WRITE(UNIT, 2) (SIGATool(2, 1, IREC, IT, 3), IT = 1, MAXPOL), &
                    (SIGATool(2, 2, IREC, IT, 3), IT = 1, MAXPOL), &   
                    (SIGATool(2, 3, IREC, IT, 3), IT = 1, MAXPOL), &
                    ((((SIGATool(IFREQ, IARRAY, IREC, IT, IR), IR = 1, MAXPOL), IT = 1, MAXPOL), &
                     IFREQ = 1, NFREQ), IARRAY = 4, NARRAY)
2    FORMAT(<234>E25.15)

，其中

IREC = 1, NARRAY = 9, IFREQ = 3, MAXPOL = 3

换句话说：我正在寻找一种方法，而不是写入文件将结果放入一维数组输出，从格式语句看起来有117个复数，但我如何以相同的方式循环它WRITE语句正在做什么？