$!
$if f$search("CCP4_SCR:toxd_sf.mtz") .eqs. ""  then goto term
$!
$! Minimal example
$!
$ass/user CCP4_SCR:toxd_sf.mtz hklin
$ass/user CCP4_SCR:output_1.map mapout
$omit
LABI FP=FTOXD3 FC=FC_sf PHI=AC_sf
SCAL 2.0 -1.0 
END
$!
$! Add title, set map grid, and do histogram mapping of omit
$! map to starting map.
$!
$ass/user CCP4_SCR:toxd_sf.mtz hklin
$ass/user CCP4_SCR:output_2.map mapout
$omit
LABI FP=FTOXD3 FC=FC_sf PHI=AC_sf
SCAL 2.0 -1.0 
TITLE omit map for toxd
GRID 96 48 32 
HIST
END
$exit
$term:
$write sys$output  "! run sf_calc first"