あやうくスペル間違いでコンパイルとおらないところでした。感謝します！
しつこいようですがもうひとつ聞きたいのですがメインプログラムで配列を渡す時は
サブルーチン名（Ｘ,Y)でいいですか？それからメインでは、渡す配列は20までしか
確保していないのですが、受け取るほうのサブルーチンで21以上にもアクセスできますか？
subroutine(x,y)
RWAL*8 x(100),y(100)
do 10 i=1,50
z=x(i)+y(i)
みたいなことが書きたいのです・・文法あってるかな・・