
### ΦϤɤ٤ˤĤ

umpack ˿ IPATLAND, IPATLAKE, LFILLAKE ȤѿƳ.

IPATLAND ѿ, аʳΦɤ٤ݤѤѥ
Ǥ. 2Ͽ, 3ɤ٤ѥɽ.

IPATLAKE ϸѤǤ. ͤϤ줾 1999, 99999 Ǥ. 99999 ø
ԥ󥯤Τ٤ɤǤ뤬, Ʃʥ뤢뤤Υλ꤬Ǥ
ʤᴺƤΤ褦ˤƤ. 

LFILLAKE ѿ, .true. λ˸Фɤ٤Ԥ. ͤ
.false. Ǥ.

Ȥϴñ, ޤ

	call umpmap('coast_world')

ȤƤĽˤ

	call umfmap('coast_world')
	call umpmap('coast_world')

ȤΤߤǤ. ɤ٤Υѥѹˤ

	call umiset('IPATLAND', 2999)     ! ֤Τ٤ɤ

ȤФ褤. 

ǥץ(顼ޥåפμ괹Ʊ˼¹ԤƤ)

	demo/grph2/umpack/test09.f

ˤޤ. 

