WRITE(8,*) "/10X,5('* *'),'RESULTS OF CALCULATION',5('* *')"
fcode 发表于 2018-5-16 12:41 WRITE(*,"(/10X,5('* *'),'RESULTS OF CALCULATION',5('* *'))" ) 这样吗?