! @(#)shape.prg	17.1.1.1 (ES0-DMD) 01/25/02 17:12:30
! ++++++++++++++++++++++++++++++++++++++++++++++++++
!
! .IDENTIFICATION
!
! PROCEDURE : SHAPE.PRG
! B.Pirenne			version 1.0 861201
!
! .PURPOSE
!
! execute the command :
!  @@ SHAPE input_ref_frame  in_tab  out_frame
!
!
!
WRITE/OUT
WRITE/OUT SHAPE  build the image corresponding to the mirror interferogram
WRITE/OUT
WRITE/KEYW IN_A 'P1'
WRITE/KEYW IN_B 'P2'
WRITE/KEYW OUT_A  'P3'
RUN [BENOIT.INTERF.PGM]SHAPE