This routine determines how the " IWCS1" FrameSet will align with other FrameSets. It sets the following attributes of the current Frame of IWCS1:

• AlignSystem is set to the value of System in IWCS2

• AlignStdOfRest is set to the value of StdOfRest in IWCS2

• AlignSideBand is set to the value of SideBand in IWCS2

• AlignTimeScale is set to the value of TimeScale in IWCS2

• AlignOffset is set to 1 if SkyRefIs in IWCS2 is not " Ignored" .

• AlignSpecOffset is set to 1 if SpecOrigin in IWCS2 is non-zero.

CALL KPG1_ASALN( IWCS1, IWCS2, STATUS )

IWCS1 = INTEGER (Given)

IWCS2 = INTEGER (Given)

STATUS = INTEGER (Given and Returned)