Simple 2D scalar field for image-writing smoke tests: z(x,y)=0.5x+0.5y.
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| real(kind=wp), | intent(in) | :: | x | |||
| real(kind=wp), | intent(in) | :: | y |
pure function zfun_2d(x, y) result(z) use forcolormap, only: wp real(wp), intent(in) :: x, y real(wp) :: z z = 0.5_wp*x + 0.5_wp*y end function zfun_2d