integer dim
parameter (dim=2)
double precision dvx(dim), x, y, z
if(dim .eq. 1) then
x=2.0+dvx(1)
elseif(dim.eq.2) then
x=2.0+dvx(1)
y=2.0+dvx(2)
else
x=2.0+dvx(1)
y=2.0+dvx(2)
z=2.0+dvx(3)
endif
stop
end
欢迎光临 Fortran Coder (http://bbs.fcode.cn/) | Powered by Discuz! X3.2 |