 |
There are currently, 4 guest(s) and 0 member(s) that are online.
You are Anonymous user. You can register for free by clicking here
|
Select Interface Language:
|
|  |
Welcome to iwthr.com
Congratulations! You have now a web portal installed!. You can edit or change this Jasmine Live message from the Administration page.
SUBROUTINE IWTHR ( icode, ix, iy, ixoff, iyoff, size, iret )
C************************************************************************
C* IWTHR *
C* *
C* This subroutine computes the line segments necessary to draw *
C* weather symbols. *
C* *
C* IWTHR ( ICODE, IX, IY, IXOFF, IYOFF, SIZE, IRET ) *
C* *
C* Input parameters: *
C* ICODE INTEGER Symbol code *
C* IX INTEGER X coordinate in device units *
C* IY INTEGER Y coordinate in device units *
C* IXOFF INTEGER X offset in half characters *
C* IYOFF INTEGER Y offset in half characters *
C* SIZE REAL Symbol size *
C* *
C* Output parameters: *
C* IRET INTEGER Return code *
C** *
C* Log: *
C* S. Schotz/GSC 3/90 GEMPLT Version 5.0 *
C* S. Schotz/GSC 4/90 Fixed weather code validity check *
C* M. desJardins/NMC 10/91 Clean up *
C* K. Brill/NMC 10/91 Use text size to compute offset *
C* K. Brill/NMC 02/92 Symbol 89 & 90 were identical - fixed *
C* K. Brill/NMC 02/92 Added fill for symbols 48,49,89,90 *
C* L. Sager/NCEP 04/96 Added symbols 201, 202, and 203 for *
C* volcano, sea spray, and unknown precip *
C* M. Linda/GSC 9/96 Moved most logic into ISYMB, cleaned up *
C* M. Linda/GSC 12/96 Removed color fill *
C* S. Jacobs/NCEP 3/97 Changed shape of symbol 201 *
C************************************************************************
INCLUDE 'DEVACT.CMN'
INCLUDE 'ERROR.PRM'Jasmin Live |
|
|  |
Don't have an account yet? You can create one. As a registered user you have some advantages like theme manager, comments configuration and post comments with your name.
|
There isn't a Biggest Story for Today, yet.
|
There isn't content right now for this block.
|
|
|