15本目 gotoを使う implicit none integer::i i = 2 if (i .eq. 2) go to 10 print *,"after if" 10 print *,"at 10" print *,"end"

11本目 行列を"行""列"の順番でつくる！ integer,dimension(8)::arr integer,dimension(2,4)::arr2 arr = (/1,2,3,4,5,6,7,8/) arr2 = transpose(reshape(arr,(/4,2/))) ! ! ko iu gyouretu ni naru ! ! 1 2 3 4 ! 5 6 7 8 12本目 行列の行にアクセス！ inte…