C C スカラー場 ψ = cos(x)*sinh(y) のデータを出力する C ---------------------------------------------------------------- parameter( xmin = -5.0, xmax = 5.0, nx = 100 ) parameter( ymin = -2.0, ymax = 3.5, ny = 100 ) write(6,*) '# scalar field phi(x,y) = cos(x)*sinh(y)' write(6,*) '# (xmin,xmax) = ', xmin, xmax write(6,*) '# (ymin,ymax) = ', ymin, ymax dx = (xmax-xmin)/nx dy = (ymax-ymin)/ny do i=0,nx x = xmin + i*dx do j=0,ny y = ymin + j*dy write(6,*) x,y,phi(x,y) enddo write(6,*) '' enddo stop end C ---------------------------------------------------------------- function phi(x,y) phi = cos(x)*sinh(y) return end C ----------------------------------------------------------------