;NAME:	do_std_fmt.ips
;HISTORY:
;	Written 20-Jul-96 by M.Morrison
;	22-Jul-96 (MDM) - Broke out PCONT stuff to allow compression
;			- Corrected the compression stuff
;
;						INPUT		OUTPUT
;		velocity scaled (8 m/sec)	page 7		page 13
;		linedepth			page 6		page 4/6
;		continuum observable		page 5		page 4/5
;		continuum filtergram		page 19		page 4/19
;		magnetogram			page 17		page 18
;		prime30 velocity		page 11		page 15
;		prime30 continuum observable	page 11		page 18/11

QSR_STD_CFMT_VEL::		;---- Crop the velocity
    COPYRD2D $IPRL_STD_FMT_VEL $IPRL_CROP_PARAM 4
    GOTO &SIMPLE_CROP

QSR_STD_CFMT_LDEP::		;---- Crop and sqrt-compress the line-depth
    COPYRD2D $IPRL_STD_FMT_LDEP $IPRL_CROP_PARAM 4
    GOTO &CROP_AND_COMP

QSR_STD_CFMT_CONT::		;---- Crop and sqrt-compress the continuum observable
    COPYRD2D $IPRL_STD_FMT_CONT $IPRL_CROP_PARAM 4
    GOTO &CROP_AND_COMP

QSR_STD_CFMT_CONTF::		;---- Crop and sqrt-compress the continuum filtergram
    COPYRD2D $IPRL_STD_FMT_CONTF $IPRL_CROP_PARAM 4
    GOTO &CROP_AND_COMP

QSR_STD_CFMT_MAG::		;---- Crop the magnetogram
    COPYRD2D $IPRL_STD_FMT_MAG $IPRL_CROP_PARAM 4
    GOTO &SIMPLE_CROP

QSR_STD_CFMT_PCONT::		;---- Crop the prime30 continuum
    COPYRD2D $IPRL_STD_FMT_PCONT $IPRL_CROP_PARAM 4
    GOTO &CROP_AND_COMP

QSR_STD_CFMT_PVEL::		;---- Crop the prime30 velocity
    COPYRD2D $IPRL_STD_FMT_PVEL $IPRL_CROP_PARAM 4
    GOTO &SIMPLE_CROP

;--------------------------------- Extract routines

QSR_STD_EFMT_VEL::		;---- Crop the velocity
    COPYRD2D $IPRL_STD_FMT_VEL $IPRL_EXTRACT_INST 4
    GOTO &SIMPLE_EXTRACT

QSR_STD_EFMT_LDEP::		;---- Crop and sqrt-compress the line-depth
    COPYRD2D $IPRL_STD_FMT_LDEP $IPRL_EXTRACT_INST 4
    GOTO &EXTRACT_AND_COMP

QSR_STD_EFMT_CONT::		;---- Crop and sqrt-compress the continuum observable
    COPYRD2D $IPRL_STD_FMT_CONT $IPRL_EXTRACT_INST 4
    GOTO &EXTRACT_AND_COMP

QSR_STD_EFMT_CONTF::		;---- Crop and sqrt-compress the continuum filtergram
    COPYRD2D $IPRL_STD_FMT_CONTF $IPRL_EXTRACT_INST 4
    GOTO &EXTRACT_AND_COMP

QSR_STD_EFMT_MAG::		;---- Crop the magnetogram
    COPYRD2D $IPRL_STD_FMT_MAG $IPRL_EXTRACT_INST 4
    GOTO &SIMPLE_EXTRACT

QSR_STD_EFMT_PCONT::		;---- Crop the prime30 continuum
    COPYRD2D $IPRL_STD_FMT_PCONT $IPRL_EXTRACT_INST 4
    GOTO &CROP_AND_COMP

QSR_STD_EFMT_PVEL::		;---- Crop the prime30 velocity
    COPYRD2D $IPRL_STD_FMT_PVEL $IPRL_EXTRACT_INST 4
    GOTO &SIMPLE_EXTRACT

;--------------------------------- Actual routines

SIMPLE_CROP:
    CALLQUE  $QSR_FMT_CROP
    RTNQUE

CROP_AND_COMP:
    CALLQUE  $QSR_FMT_CROP
    COPYRD2D $IPRL_CROP_PARAM+2 $IPRL_SQRT_PARAM 3
    COPYREG  $IPRL_CROP_PARAM   $IPRL_SQRT_PARAM+2
    COPYREG  $IPRL_CROP_PARAM+1 $IPRL_SQRT_PARAM+3
    CALLQUE  $QSR_SQRT_COMP
    RTNQUE

SIMPLE_EXTRACT:
    CALLQUE  $QSR_FMT_EXTRACT
    RTNQUE

EXTRACT_AND_COMP:
    CALLQUE  $QSR_FMT_EXTRACT
    COPYRD2D $IPRL_EXTRACT_INST+2 $IPRL_SQRT_PARAM 3
    COPYREG  $IPRL_EXTRACT_INST   $IPRL_SQRT_PARAM+2
    COPYREG  $IPRL_EXTRACT_INST+1 $IPRL_SQRT_PARAM+3
    CALLQUE  $QSR_SQRT_COMP
    RTNQUE