real vec(100) real af(50,50) real bf(-3:3,-10:20) real cf(50, 100, 200) int x,y,z ct = 0 do x = 1,100 ct = ct + 0.1 vec(x) = sin(ct) enddo do x = 1,50 do y = 1,50 af(x,y) = (sin(x)+sin(y))*(20-abs(x+y)) enddo enddo do x = -3,3 do y = -10,20 bf(x,y) = y*(y-1)*(y-1.1)-10*x*x*(x*x-1) enddo enddo do x = 1,50 do y = 1,100 do z = 1,200 cf(x,y,z) = 3*x*y*z - x*x*x - y*y*y - z*z*z enddo enddo enddo end