write(200,*) u,atom_id(l),'3',x(l),y(l),z(l)
endif
enddo
close(100)
close(200)
call F3_Order_Parameter(0,u,atom_id,x,y,z,0.35,0.,36,0.,36,0.,36,1,1,1,'a.txt')
endprogram
subroutine F3_Order_Parameter(timestep,number_Ow,id_Ow,x_Ow,y_Ow,z_Ow,tolarance,xlo,xhi,ylo,yhi,zlo,zhi,xp,yp,zp,filename)
implicit none
fcode 发表于 2019-9-5 17:13
你得把子程序放到一起链接
fcode 发表于 2019-9-10 15:29
是放到一起链接,而不是放到一个文件夹下。
具体操作看你使用的操作系统,编译器环境。 ...
pasuka 发表于 2019-9-12 12:47
个人建议:
1、全部代码放在一个源文件内;
2、采用include申明 include申明
欢迎光临 Fortran Coder (http://bbs.fcode.cn/) | Powered by Discuz! X3.2 |