fortran达人帮忙改下程序,错误已指出,但我不懂改,主程序错误argument S (number 6)主程序program mainexternal f1,f2double precision x,y,E,a,b,f1,f2open(9,file="v(x,y).dat",status='unknown')a=3.14/3.0b=2.0*3.14/3.0do i=1,nx=0.0-2.0

fortran达人帮忙改下程序,错误已指出,但我不懂改,主程序错误argument S (number 6)主程序program mainexternal f1,f2double precision x,y,E,a,b,f1,f2open(9,file="v(x,y).dat",status='unknown')a=3.14/3.0b=2.0*3.14/3.0do i=1,nx=0.0-2.0
fortran达人帮忙改下程序,错误已指出,但我不懂改,主程序错误argument S (number 6)
主程序
program main
external f1,f2
double precision x,y,E,a,b,f1,f2
open(9,file="v(x,y).dat",status='unknown')
a=3.14/3.0
b=2.0*3.14/3.0
do i=1,n
x=0.0-2.0+i*0.05
if(x

fortran达人帮忙改下程序,错误已指出,但我不懂改,主程序错误argument S (number 6)主程序program mainexternal f1,f2double precision x,y,E,a,b,f1,f2open(9,file="v(x,y).dat",status='unknown')a=3.14/3.0b=2.0*3.14/3.0do i=1,nx=0.0-2.0
正确程序如下：----------------------------
!主程序
program main
external f1,f2
double precision x,y,E,a,b,f1,f2,Ex,Ey
open(9,file="v(x,y).dat",status='unknown')
a=3.14/3.0
b=2.0*3.14/3.0
do i=1,n
x=0.0-2.0+i*0.05
if(x