Fortran产生批量文件名

来源:互联网 发布:网络预警包括 编辑:程序博客网 时间:2024/04/30 21:55
      write(EXT,'(i5)') it
      fname = trim(NAME)
      name = trim(FNAME) // '.'  // adjustl(ext)
      print *, 'name = ', name
原创粉丝点击