10/04/08 11:16:55
>>17 抜けたデータは１個前をコピー。故に連続して抜けた場合は同じのが続く。
王道だね。できればかけたデータの後半はその後にくる有効なデータで、なら
たぶんもっといいけど面倒だしね。
if (.NOT. qdata(i)) then のあとに、
j = i
do while ((.NOT. qdata(j) .OR. (j .LE. ndata))
j = j + 1
enddo
ntrue = j
で次の有効なデータの番地がわかるから・・・あれ、これだとntrueは一個ずれるかも。