第 28 楼
3. 如何用Fortran动态生成输出格式?设有一个数组data(100),输出时,希望每行输出num个数,而num由用户输入,如何实现?用内部文件:character(len=80) :: formreal :: data(100)integer :: i,numdata = (/ (i,i=1,100) /)/10.0read(*,*) numwrite(form,*) "(",num,"f10.3)"write(*,form) datastopend
也可以写成下列形式character(len=80) :: formreal :: data(100)integer :: i,numdata = (/ (i,i=1,100) /)/10.0read(*,*) numwrite(*,'( <num>f10.3 )') datastopend