你已经派生过 TEM1dSAinv
镜像自地址
https://gitee.com/sduem/TEM1dSAinv.git
已同步 2025-08-03 11:06:51 +08:00
19 行
372 B
Fortran
19 行
372 B
Fortran
!读取数据文件
|
|
subroutine get_t_u(t,u,n1,i0,a)
|
|
implicit none
|
|
integer n1,i
|
|
real(8) t(n1),u(n1),i0,a,pi,u0,ff
|
|
pi=3.1415926
|
|
u0=4.e-7*pi
|
|
open(102,file='uu.txt')
|
|
read(102,*)i0,a
|
|
do i=1,n1
|
|
read(102,*)t(i),u(i)
|
|
enddo
|
|
|
|
ff=u0/4.0/pi*(2*pi*i0*a*a*u0/5.0)**(2.0/3.0)
|
|
do i=1,n1
|
|
u(i)=ff/t(i)*(1.0/t(i)/u(i))**(2.0/3.0)
|
|
|
|
enddo
|
|
endsubroutine |