fortran程序,subroutine solvereal::i,x,y,mreal::h(i),d(i),a(i),dy(i)h(i)=(1+2(x-a(i))/(a(i+1)-a(i)))(((x-a(i+1))/(a(i)-a(i+1)))2)d(i)=(((x-a(i+1))/(a(i)-a(i+1)))2)(x-a(i))m=y(i)h(i)+dy(i)*d(i)end subroutine solveprogram mainreal::i,sreal::a(

来源：学生作业帮助网编辑：六六作业网时间：2024/12/25 10:17:47

fortran程序,subroutinesolvereal::i,x,y,mreal::h(i),d(i),a(i),dy(i)h(i)=(1+2*(x-a(i))/(a(i+1)-a(i)))*((

fortran程序,subroutine solvereal::i,x,y,mreal::h(i),d(i),a(i),dy(i)h(i)=(1+2*(x-a(i))/(a(i+1)-a(i)))*(((x-a(i+1))/(a(i)-a(i+1)))**2)d(i)=(((x-a(i+1))/(a(i)-a(i+1)))**2)*(x-a(i))m=y(i)*h(i)+dy(i)*d(i)end subroutine solveprogram mainreal::i,sreal::a(
fortran程序,
subroutine solve
real::i,x,y,m
real::h(i),d(i),a(i),dy(i)
h(i)=(1+2*(x-a(i))/(a(i+1)-a(i)))*(((x-a(i+1))/(a(i)-a(i+1)))**2)
d(i)=(((x-a(i+1))/(a(i)-a(i+1)))**2)*(x-a(i))
m=y(i)*h(i)+dy(i)*d(i)
end subroutine solve
program main
real::i,s
real::a(i),y(i),dy(i)
s=0
open(10,file='data.txt',status='old')
read(10,'(a20)')
do i=1,5
read(10,*) a(i),y(i),dy(i)
call solve
s=s+m
end do
close(10)
end
结果如下：
--------------------Configuration:hermite2 - Win32 Debug--------------------
Compiling Fortran...
F:\fortran wenjian\hermite2\hermite2.f90
F:\fortran wenjian\hermite2\hermite2.f90(2) :Error:A specification expression object must be a dummy argument,a COMMON block object,or an object accessible through host or use association [I]
real::i,x,y,m
------^
F:\fortran wenjian\hermite2\hermite2.f90(12) :Error:A specification expression object must be a dummy argument,a COMMON block object,or an object accessible through host or use association [I]
real::i,s
------^
F:\fortran wenjian\hermite2\hermite2.f90(13) :Error:An automatic object is invalid in a main program.[A]
real::a(i),y(i),dy(i)
------^
F:\fortran wenjian\hermite2\hermite2.f90(13) :Error:An automatic object is invalid in a main program.[Y]
real::a(i),y(i),dy(i)
-----------^
F:\fortran wenjian\hermite2\hermite2.f90(13) :Error:An automatic object is invalid in a main program.[DY]
real::a(i),y(i),dy(i)
----------------^
Error executing df.exe.
hermite2.obj - 5 error(s),0 warning(s)