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     ----------------------------------------------------------------
