需要将:
write(*,'(A20,<size>F10.4)')trim(argname)//': ',fval(1:SIZE)
转换为:
write(*,N_Fmt('(A20,<size>F10.4)',SIZE))trim(argname)//': ',fval(1:SIZE)
