if ([i].eq.1) then
mess 'i is 1.'
elseif ([i].eq.10) then
mess 'i is 10.'
else
mess 'not matched.'
enddo
do i=1,10
mess [i]
enddo
while (i.lt.10)
mess [i]
i = [i] + 1
endwhile
function test(x)
common /pawpar/ par(2)
test=par(1)*exp(par(2)*x)
end
macro test
x = 2.5
mess x=[x] | 実行結果 --> x=2.5
ix = $FORMAT([x],I) | ここで整数にformat
mess ix=[ix] | 実行結果 --> ix=2
return