function y(x) write(*, *)input a 12 if(x gt. 0.o)then read (, )a y=1.0 write(, )y=, y(a) else if(xeq. 0.0)then write( 大大 as a y=0.0 end else y=-1.0 end旰 X=0 end ◆进一步,子程序中需要返回的计算结果不仅可以通 过函数名返回,也可以通过与虚参相对应的实参返回。 51子程序 2021/2/2412 2021/2/24 function y(x) if(x.gt.0.0) then y=1.0 else if(x.eq.0.0) then y=0.0 else y=-1.0 end if x=0 end write(* , *)'input a' read(* , *)a write(* , *)'y=', y(a) write(* , *)'a=', a end ❖ 进一步，子程序中需要返回的计算结果不仅可以通 过函数名返回，也可以通过与虚参相对应的实参返回。 §1 子程序