getdisplaysize(3f) - [M_pixel] Returns the width and height of the
device in pixels
(LICENSE:PD)
definition:
subroutine getdisplaysize(w, h)
real,intent(in) :: w, h
Returns the width and height of the device in pixels in w and h
respectively.
John S. Urban
Public Domain
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| real, | intent(out) | :: | w | |||
| real, | intent(out) | :: | h |
subroutine getdisplaysize(w, h)
! ident_50="@(#) M_pixel getdisplaysize(3f) Returns the width and height of the device in pixels"
real,intent(out) :: w, h
w=P_VIEWPORT_WIDTH
h=P_VIEWPORT_HEIGHT
end subroutine getdisplaysize