`MH1.RF illustrates how to get the moment to heel one degree value (MH1) from
`GHS by using the GMT value derived from the macro GETGMT.

READ FV.GF
DRAFT 5
VCG 6
SO WEIGHT,LCG

 macro GETGMT
  variables BGL,BGT,BGV,C,S,t1,t2,BG,GMT1
  set BGL = {LCG} minus {LCB}
  set BGT = {TCG} minus {TCB}
  set BGV = {VCG} minus {VCB}
  set C = cos {HEEL}
  set S = sin {HEEL}
  set t1 = {BGV} times {C}
  set t2 = {BGT} times {S}
  set BG = {t1} minus {t2}
  set C = cos {TRIM}
  set S = sin {TRIM}
  set t1 = {BG} times {C}
  set t2 = {BGL} times {S}
  set BG = {t1} minus {t2}
  set GMT1 = {BMT} minus {BG}
 /
 solve
 ghs
 .GETGMT
 variable MH1
 set MH1 = {GMT1} times {WEIGHT} times 0.01745
 \Moment to heel one degree = {MH1:2} {LUNIT}-{WUNIT}.\