function y(x, z) write(*, *)input a 13 if(x gt.0.0)then read(, )a y=1.0 write" )y=, ya, b) z=1.0 write", )b=, b else if(x eq. 0.0)then end y=0.0 z=0.0 地址传递的详细情况将在 else 本章第3节中进行介绍。 y=-1.0 z=1.0 end if end 51子程序 2021/2/2413 2021/2/24 function y(x, z) if(x.gt.0.0) then y=1.0 z=1.0 else if(x.eq.0.0) then y=0.0 z=0.0 else y=-1.0 z=-1.0 end if end write(* , *)'input a' read(* , *)a write(* , *)'y=', y(a, b) write(* , *)‘b=', b end 地址传递的详细情况将在 本章第3节中进行介绍。 §1 子程序