		*******************************************
		*  LaplaceĬ򤯥ץෲ  *
		*******************************************


ܥ2001ǯ1˳ƥץưƤߤƽ񤤤ץߥ󥰤
ƤΩĤΤǡְäȤ񤤤Ƥ뤫⤷ʤ ^^;

					2001/01/10 
					Ƿ
					horinout@kurasc.kyoto-u.ac.jp

 

в	
    1990ǯ	ͭ׻ץȴŪʿ޼ץκ
		Ͽ줿 eigen.f eigen2.f eigen3.f uvzP.f Ʊ
		Ʊ̾Υץ򸵤ˤ(âuvzP.fuvz.f̾...
		ȵƤ)

Ƿ
    1993ǯ	嵭ץβ¤
		¾ΥץκʹʬϾ嵭ץ
		ˤƤ
    1997ǯ      dcl ver.5ؤб(cgz*.fʳ)
    2001ǯ	dcl ver.5ؤб(cgz*.f)  бԴ (ޤѤˤ
		뤬ɤФΤ狼ʤ)

 ˡ

ĬؿŸθͭȤƸͭ͵ڤӸͭ٥
ʵؿŸŸˤ롣ư٤ͭͤȤ
ȡٸǿưͭͤȤ룲ˡ롣ʤ 
Longuet-Higgins βˡϤΤɤǤʤʵؿŸΤƱˡ
ǤβˡˤĤƤϡвΡȡʾɤߥߥʡΥ쥸
˼Ͽˤ򻲾ȤΤȡ

 ץβ

eigen.f		ˡ: (a): ư٤ͭͤȤƽФ
		޼: Houghؿ
		: ưŪϤ륿פ eigenF.f ⤢
eigen2.f	ˡ: (b): ٸǿưͭͤȤƽФ
		޼: Houghؿ
		: ١ȿŪϤ롣
		      ٤ΤȤޤԤʤʲΤ˺
		      줿
eigen3.f	ˡ: (b): ٸǿưͭͤȤƽФ
		޼: ʬط (ȿ - ư)
		: 
uvzP.f	 	ˡ: (b): ٸǿưͭͤȤƽФ
		޼: (U,V)Υ٥ȥ  ݥƥ󥷥Υ󥿡
		      ʥХ
		: 
bunsanHF3.f	ˡ: (a): ư٤ͭͤȤƽФ
		޼: ʬط  (ѥ᥿ - ư: 
		      Longuett-HigginsʬطοޤƱ)
		: ưʤΤǡӡȤ̵˸
		      ޤФʤ
bunsanHFP.f	ˡ: (b): ٸǿưͭͤȤƽФ
		޼: ʬط  (ѥ᥿ - ư: 
		      Longuett-HigginsʬطοޤƱ)
		: 
cgzDirect.f	ˡ: (a): ư٤ͭͤȤƽФ
		޼: ľ®٤ưδؿȤ
		: ߦ/m ʬʬǶ.
		      dcl5ؤбԴ
cgzViaEPflx.f   ˡ: (a): ư٤ͭͤȤƽФ
		޼: ľ®٤ưδؿȤ
		: ʬ Wave Action ľ®٤
		      Ƴ(EP fluxWave ActionȤ)
		      dcl5ؤбԴ

 ѥȼ¹

ѥˤϥեåѤ dcl 饤֥꡼ڤӸͭͷ׻Ѥ SSL2 
饤֥꡼ɬפǤ롣㤨SSL2饤֥꡼ $HOME/lib/libssl2.a 
ȤʤäƤ硢ʲΤ褦˥ѥ뤹롣

% dclfrt eigen2.f -L$HOME/lib -lssl2

dclfrt  Fortranե򥳥ѥ뤷 dcl 󥯤륳ޥɤǤ
롣

ˤꡢa.out Ȥ¹ԥե뤬Τǡ

% a.out

ȼ¹Ԥ롣ȿǥץ졼˴ؤȡ׻Ԥ
ޤɽ롣ƥեȥ󥽡Ϸ׻޼ޤǹԤ륤
ץǤ롣
