blocks|key|1231196|text|将SYSTEM与操作系统的复制命令一起使用。实际上，所有的编译器都支持这个特性。|type|unstyled|depth|inlineStyleRanges|entityRanges|offset|length|data|1231197|entityMap|0|LINK|mutability|MUTABLE|url|http://software.intel.com/sites/products/documentation/hpc/compilerpro/en-us/fortran/win/compiler_f/index.htm^0|1|6|0|0^^$0|@$1|2|3|4|5|6|7|L|8|@]|9|@$A|M|B|N|1|O]]|C|$]]|$1|D|3|-4|5|6|7|P|8|@]|9|@]|C|$]]]|E|$F|$5|G|H|I|C|$J|K]]]]

Use the <a href="http://software.intel.com/sites/products/documentation/hpc/compilerpro/en-us/fortran/win/compiler_f/index.htm" rel="nofollow">SYSTEM</a> with your OS's copy command. Practically all compilers support this feature.

blocks|key|4897719|text|在Fortran+2003中，您可以通过流来读/写文件，但在Fortran+90/95中，我认为这将适用于复制任意文件(虽然效率非常低！)|type|unstyled|depth|inlineStyleRanges|entityRanges|data|4897720|OPEN(UNIT=ISRC,+FILE='',+ACCESS='DIRECT',+STATUS='OLD',+ACTION='READ',+IOSTAT=IERR,+RECL=1)
OPEN(UNIT=IDST,+FILE='',+ACCESS='DIRECT',+STATUS='REPLACE',+ACTION='WRITE',+IOSTATE=IERR,+RE)
IREC+=+1
DO
++READ(UNIT=ISRC,+REC=IREC,+IOSTAT=IERR)+CHAR
++IF+(IERR.NE.0)+EXIT
++WRITE(UNIT=IDST,+REC=I)+CHAR
++IREC+=+IREC+%2B+1
END+DO|code-block|syntax|javascript|4897721|当然，如果它是fortran生成的文件，您可以使用该信息使其更高效。|4897722|在个人笔记中:如果您需要从fortran内部调用系统调用，您在做什么？使用其他更适合这项任务的语言不是更好吗？|4897723|entityMap^0|0|0|0|0^^$0|@$1|2|3|4|5|6|7|M|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|N|8|@]|9|@]|A|$E|F]]|$1|G|3|H|5|6|7|O|8|@]|9|@]|A|$]]|$1|I|3|J|5|6|7|P|8|@]|9|@]|A|$]]|$1|K|3|-4|5|6|7|Q|8|@]|9|@]|A|$]]]|L|$]]

You can read/write the file through a stream in Fortran 2003, but in Fortran 90/95 I think this would work to copy an arbitrary file (extremely inefficient though!!)

<pre><code>OPEN(UNIT=ISRC, FILE='', ACCESS='DIRECT', STATUS='OLD', ACTION='READ', IOSTAT=IERR, RECL=1)
OPEN(UNIT=IDST, FILE='', ACCESS='DIRECT', STATUS='REPLACE', ACTION='WRITE', IOSTATE=IERR, RE)
IREC = 1
DO
 READ(UNIT=ISRC, REC=IREC, IOSTAT=IERR) CHAR
 IF (IERR.NE.0) EXIT
 WRITE(UNIT=IDST, REC=I) CHAR
 IREC = IREC + 1
END DO
</code></pre>

Of course, if it was a fortran generated file, you could use that information to make it more efficient.

On a personal note: if you need invoke system calls from inside fortran, what are you doing? Isn't it better to use some other language that is better suited for the task?

blocks|key|1965379|text|是的，Fortran的I/O很糟糕，如果可能的话，不应该用来做这种事情。我们中的一些人被迫这么做，这真是太可惜了。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1965380|我只是读取源文件，同时逐行写入目标文件。到目前为止，这对我来说是有效的，但效率非常低。|1965381|使用Fortran处理文件和可移植性很烦人，而且系统调用通常也不是很好。windows操作系统没有正确遵循linux链接文件，Windows/Linux/MacOS有不同的分隔符，我被系统调用中固有的堆栈限制所困扰，等等。|1965382|祝你好运！|1965383|entityMap^0|0|0|0|0^^$0|@$1|2|3|4|5|6|7|J|8|@]|9|@]|A|$]]|$1|B|3|C|5|6|7|K|8|@]|9|@]|A|$]]|$1|D|3|E|5|6|7|L|8|@]|9|@]|A|$]]|$1|F|3|G|5|6|7|M|8|@]|9|@]|A|$]]|$1|H|3|-4|5|6|7|N|8|@]|9|@]|A|$]]]|I|$]]

Yes, Fortran has pathetic I/O and shouldn't be used for this sort of thing if at all possible. What a shame that some of us are forced to do it.

I just read the source file and simultaneously write to the destination, line-by-line. So far this works for me, but is very inefficient.

Dealing with files and portability is annoying with Fortran, and SYSTEM calls are often not very good either. The windows OS doesn't properly follow linux linked files, and Windows/Linux/MacOS have different separaters, I have been caught out with stack limits inherent in the SYSTEM call, and so on.

Good luck !

blocks|key|1231335|text|针对英特尔Fortran|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1231336|subroutine+copy_file+(file_name,+file_name_new)
!+copies+a+file+file_name+to+file_name_new
!+file_name+and+file_name_new+must+include+the+path+information+and+may+include+wildcard+characters

USE+ifport+
implicit+character*100+(f)
character*1000+fnam
logical*4+logical_result

len1+=+len_trim(file_name);+len2+=+len_trim(file_name_new)
fnam+=+'copy/y+'+//file_name(1:len1)+//'+'//file_name_new(1:len2)

l+=+len_trim(fnam)
logical_result+=+systemqq(fnam(1:l))

return
end|code-block|syntax|javascript|1231337|entityMap^0|0|0^^$0|@$1|2|3|4|5|6|7|I|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|J|8|@]|9|@]|A|$E|F]]|$1|G|3|-4|5|6|7|K|8|@]|9|@]|A|$]]]|H|$]]

For Intel Fortran

<pre><code>subroutine copy_file (file_name, file_name_new)
! copies a file file_name to file_name_new
! file_name and file_name_new must include the path information and may include wildcard characters

USE ifport 
implicit character*100 (f)
character*1000 fnam
logical*4 logical_result

len1 = len_trim(file_name); len2 = len_trim(file_name_new)
fnam = 'copy/y ' //file_name(1:len1) //' '//file_name_new(1:len2)

l = len_trim(fnam)
logical_result = systemqq(fnam(1:l))

return
end
</code></pre>

blocks|key|3297132|text|前面的答案对我不起作用，所以我编写了以下子例程|type|unstyled|depth|inlineStyleRanges|entityRanges|data|3297133|!=============================================================================================================================!
!+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++!
!+++++++++++++++++++++++++++This+subroutine+copies+file_name+to+file_name_new+writing+command+to+cmd++++++++++++++++++++++++++!
!+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++!
!=============================================================================================================================!+
+subroutine+copy_file+(file_name,+file_name_new)
+use+ifport+
+implicit+none
!=============================================================================================================================
!+D+e+c+l+a+r+a+t+i+o+n+s
!=============================================================================================================================
+character(len=*),intent(IN)+::+file_name_new,file_name
!-----------------------------------------------------------------------------------------------------------------------------+
+logical+++++++++++++++++++++::+logical_result
!=============================================================================================================================
!+S+t+a+t+e+m+e+n+t+s
!=============================================================================================================================+

+logical_result+=+systemqq('copy+"'//trim(file_name)+//'"+"'//trim(file_name_new)//'"')

!==============================================================================================================================
+end+subroutine+copy_file+|code-block|syntax|javascript|3297134|entityMap^0|0|0^^$0|@$1|2|3|4|5|6|7|I|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|J|8|@]|9|@]|A|$E|F]]|$1|G|3|-4|5|6|7|K|8|@]|9|@]|A|$]]]|H|$]]

The previous answer didn't work for me so I wrote the following subroutine

<pre><code>!=============================================================================================================================!
! !
! This subroutine copies file_name to file_name_new writing command to cmd !
! !
!=============================================================================================================================! 
 subroutine copy_file (file_name, file_name_new)
 use ifport 
 implicit none
!=============================================================================================================================
! D e c l a r a t i o n s
!=============================================================================================================================
 character(len=*),intent(IN) :: file_name_new,file_name
!----------------------------------------------------------------------------------------------------------------------------- 
 logical :: logical_result
!=============================================================================================================================
! S t a t e m e n t s
!============================================================================================================================= 

 logical_result = systemqq('copy "'//trim(file_name) //'" "'//trim(file_name_new)//'"')

!==============================================================================================================================
 end subroutine copy_file 
</code></pre>

blocks|key|3297151|text|好了！用于Compaq/英特尔Visual+Fortran|type|unstyled|depth|inlineStyleRanges|entityRanges|data|3297152|subroutine+copy_file(source_,dest_)+++
use+kernel32,only:CopyFile,FALSE+
implicit+none++
integer+ret++
character*(*),+intent(in)+::+source_,+dest_++
ret+=+CopyFile(trim(source_)//""C,+trim(dest_)//""C,+FALSE)++
end+subroutine+copy_file|code-block|syntax|javascript|3297153|entityMap^0|0|0^^$0|@$1|2|3|4|5|6|7|I|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|J|8|@]|9|@]|A|$E|F]]|$1|G|3|-4|5|6|7|K|8|@]|9|@]|A|$]]]|H|$]]

! For Compaq/Intel Visual Fortran 

<pre><code>subroutine copy_file(source_,dest_) 
use kernel32,only:CopyFile,FALSE 
implicit none 
integer ret 
character*(*), intent(in) :: source_, dest_ 
ret = CopyFile(trim(source_)//""C, trim(dest_)//""C, FALSE) 
end subroutine copy_file
</code></pre>

How can I copy a file in fortran 90 in a portable, cross plaform way ?

How to copy a file in Fortran 90?

翻译质量差，导致语言生硬或混乱。

没有提供实际的解决方法或示例。

解答不清晰，无法理解或解决问题。

页面排版不美观，阅读体验差。

文章

问答

视频

教程

学习中心

腾讯云实验室

直播

竞赛

腾讯云代码分析专区

腾讯iOA零信任安全管理系统专区

腾讯云架构师技术同盟交流圈

腾讯云数据库专区

腾讯云智能顾问专区

腾讯云原生专区

腾讯混元专区

腾讯云TCE专区

腾讯云Lighthouse专区

腾讯云HAI专区

腾讯云Edgeone专区

腾讯云存储专区

腾讯云智能专区

腾讯轻联专区 

腾讯云开发专区

TAPD专区

腾讯轻量云游戏服专区

腾讯云最具价值专家

腾讯云架构师技术同盟

腾讯云创作之星

腾讯云开发者先锋

腾讯云AI代码助手

云原生构建

TAPD 敏捷项目管理

Cloud Studio

SDK中心

API中心

命令行工具

功能1上新10个字符

功能2描述100个字符功能2描述100个字符功能2描述100个字符功能2描述100个字符功能2描述100个字符功能2描述100个字符功能2描述100个字符功能2描述100个字符功能2描述100个字符。

功能2上新100个字符功能2上新100个字符功能2上新100个字符功能2上新100个字符功能2上新100个字符功能2上新100个字符功能2上新100个字符功能2上新100个字符功能2上新100个字符。

功能5描述100个字符功能5描述100个字符功能5描述100个字符功能5描述100个字符功能5描述100个字符功能5描述100个字符

功能5上新100个字符功能5上新100个字符功能5上新100个字符功能5上新100个字符功能5上新100个字符功能5上新100个字符功能5上新100个字符功能5上新100个字符功能5上新100个字符功能5上新100个字符

功能4上新

文章&问答评论现已支持表情

全新交互，全新视觉，新增快捷键、悬浮工具栏、高亮块等功能并同时优化现有功能，全面提升创作效率和体验

社区富文本编辑器全新改版！诚邀体验～ 

精选全网热门MCP server，让你的AI更好用 🚀

💥开发者 MCP广场重磅上线！

涵盖代码开发、场景应用、自动测试全流程，助你从零构建专属AI助手

一站式MCP教程库，解锁AI应用新玩法

聚焦“写作效率、视觉美观与运行性能”三方面进行全面升级，为您提供更高效、稳定的创作环境

社区富文本&Markdown编辑器全新改版上线，欢迎大家体验!

诚挚邀请您参与本次调研，分享您的真实使用感受与建议。您的反馈至关重要，感谢您的支持与参与！

社区新版编辑器体验调研

如何以可移植的跨平台方式复制fortran 90中的文件？

问如何在Fortran 90中复制文件？
EN

回答 6

Stack Overflow用户

Stack Overflow用户

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问如何在Fortran 90中复制文件？EN

回答 6

Stack Overflow用户

Stack Overflow用户

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问如何在Fortran 90中复制文件？
EN