一个fortran程序无法成功运行subroutine start1(j0,j1,x)implicit nonereal*16 j0,j1,xreal*16 b,c,d,e,f,gg=3/xb=x/3if(x=3)thenc=0.79788456-0.00000077*g-0.00552740*g**2-0.00009512*g**3+0.00137237*g**4-0.00072805*g**5+0.00014476*g**6d=x-0.78539816

来源：学生作业帮助网 编辑：作业帮 时间：2024/05/05 04:25:45
一个fortran程序无法成功运行subroutine start1(j0,j1,x)implicit nonereal*16 j0,j1,xreal*16 b,c,d,e,f,gg=3/xb=x/3if(x=3)thenc=0.79788456-0.00000077*g-0.00552740*g**2-0.00009512*g**3+0.00137237*g**4-0.00072805*g**5+0.00014476*g**6d=x-0.78539816

一个fortran程序无法成功运行subroutine start1(j0,j1,x)implicit nonereal*16 j0,j1,xreal*16 b,c,d,e,f,gg=3/xb=x/3if(x=3)thenc=0.79788456-0.00000077*g-0.00552740*g**2-0.00009512*g**3+0.00137237*g**4-0.00072805*g**5+0.00014476*g**6d=x-0.78539816
一个fortran程序无法成功运行
subroutine start1(j0,j1,x)
implicit none
real*16 j0,j1,x
real*16 b,c,d,e,f,g
g=3/x
b=x/3
if(x=3)then
c=0.79788456-0.00000077*g-0.00552740*g**2-0.00009512*g**3+0.00137237*g**4-0.00072805*g**5+0.00014476*g**6
d=x-0.78539816-0.04166397*g-0.00003954*g**2+0.00262573*g**3-0.00054125*g**4-0.00029333*g**5+0.00013558*g**6
j0=x**(-0.5)*c*cos(d)
e=0.79788456+0.00000156*g+0.01659667*g**2+0.00017105*g**3-0.00249511*g**4+0.00113653*g**5-0.00020033*g**6
f=x-2.35619449+0.12499612*g+0.00005650*g**2-0.00637879*g**3+0.00074348*g**4+0.00079824*g**5-0.00029166*g**6
j1=x**(-0.5)*e*cos(f)
else
end if
end subroutine
subroutine start2(n,x,j2)
real*16 j0,j1,j2,j3,x
integer n,i
call start1(j0,j1,x)
if(n==0)then
write(*,*) j0
else if(n==1)then
write(*,*) j1
else
do i=2,n
j2=2*(i-1)/x*j1-j0
if(in) then
call start2(n,x,j)
else
call start3(n,x,j)
end if
stop
end subroutine
program main
implicit none
real*16 x1,x2,j1,j2
integer n,p,q
integer,parameter::limit=50*10**3
real,parameter::add=1/10**3
x1=0
x2=add
n=5
q=1
j1=0
j2=0
do p=1,limit
call start(n,x1,j1)
call start(n,x2,j2)
write(*,*) n,x1
if((j10).or.(j1>0.and.j2

一个fortran程序无法成功运行subroutine start1(j0,j1,x)implicit nonereal*16 j0,j1,xreal*16 b,c,d,e,f,gg=3/xb=x/3if(x=3)thenc=0.79788456-0.00000077*g-0.00552740*g**2-0.00009512*g**3+0.00137237*g**4-0.00072805*g**5+0.00014476*g**6d=x-0.78539816
因为你的 start 函数结束的地方有一个 stop
第一次运行 start 完成以后,程序就结束了,还没到输出语句呢.
如果你是想返回主程序,请使用 return,而不是 stop
stop 会结束整个程序.

一个fortran程序无法成功运行subroutine start1(j0,j1,x)implicit nonereal*16 j0,j1,xreal*16 b,c,d,e,f,gg=3/xb=x/3if(x=3)thenc=0.79788456-0.00000077*g-0.00552740*g**2-0.00009512*g**3+0.00137237*g**4-0.00072805*g**5+0.00014476*g**6d=x-0.78539816 我运行一个程序无法启动显示了这个failed creating the direct3D device请问这是什么意思 简单的一个fortran程序为什么运行不出正确答案啊.program pra0201implicit noneinteger salary,taxwrite(*,*) salary:read(*,*) salaryif(salary1000 .and.salary=5000) thentax=salary*0.15else salary 求fortran大神帮我编一个Fortran程序计算无理数π的1-100的小数位, 求相关系数fortran程序~求相关系数的fortran程序~. fortran程序求矩阵特征值, xiexie在窗体上画两个文本框和一个命令按扭,然后程序如下:Private Sub Command1_Click()Dim x As Integer,n As Integerx = 1n = 0Do While x < 20x = x * 3n = n + 1LoopText1.Text = Str(x)Text2.Text = Str(n)End Sub程序运行后,单击 用fortran语言编一个矩阵相乘的通用程序 急用 在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程：Private Sub Command1_Click() x = -5 If Sgn(x) Then y = Sgn(x ^ 2) Else y = Sgn(x) End If Print y End Sub 程序运行后,单击命令按钮,窗体上显示的是 A 我用vb6编写一个计算物理中加速度的程序,可是在运行阶段说：实时错误：6溢出.Dim a,b,c,x As IntegerPrivate Sub Command1_Click()Text1.Text = aText2.Text = bText3.Text = cx = (a - b) / cText4.Text = xEnd Sub 怎样添加curl/curl.hvs2013运行一个程序的时候提示无法打开 源 文件 curl/curl.h该怎么添加这个源文件 用Delphi设计一个程序,从键盘输入a,b,c3个整数,将它们按照从大到小的次序输出请用Delphi编写,运行成功后请截下图. 怎么编写如下程序作业题private SUB Conmmd1_CLICK()___________A=_________FOR I =1TO5PRINT SPACE(6-I): ______________NEXTIEND SUB程序运行后,单击命令按钮 输出结果为 5 456 34567 2345678123456789 6.分析下列程序,单击窗口时,程序运行结果.Private Function Fac() As StringFac = “,”End FunctionPrivate Sub Form_Click()Dim I as IntegerFor I=1 to 5Command1_ClickPrint Fac();Command2_ClickNext IEnd SubPrivate Sub Command1_Click()Prin fortran会的进,fortran计算器程序怎么写?我想做一个fortran计算器,就是键盘输入a和b两个数,然后回车,就输出a+b 的结果, 求fortran编程从来没学过 现在时间紧迫 需要编一个能自动运行 显示原始数据x,y轴坐标 同时转换坐标,并总结原始数据的一些基本信息如编号,物质成分,成分比例等的一个程序 该怎么写啊 !谢 求大神讲解下C语言基础题【题5】下面程序的运行结果是 15 main(){int i=5;printf(“%d ”,sub(i));}int sub(int n){ int a; if(n==1) return 1;a=n+sub(n-1);return(a);}请问下a=6+sub(5)a=2+sub(1) 联立不是解得sub(5)=-3么?【 一个简单的FORTRAN程序,IF(IDBG.GE.1)THENWRITE(MAXWRT_MAXBUF(1),9010) FT,DKA,DKRCALL DMS_WRTTRM(1)ENDIF