subroutine SET_PLOT_OPTIONS implicit NONE call HPLOPT ('NBOX', 1) call HPLSET ('XSIZ', 30.0) call HPLSET ('YSIZ', 20.0) call HPLSET ('XMGL', 12.0) call HPLSET ('XMGR', 1.0) call HPLSET ('YMGU', 2.0) ! upper margin call HPLSET ('YMGL', 2.0) ! lower margin call HPLSET ('GSIZ', 0.4) call HPLSET ('TSIZ', 0.4) call HPLSET ('ASIZ', 0.4) call HPLSET ('VSIZ', 0.4) call HPLSET ('YHTI', 1.4) ! dist. hist title to axis call HPLSET ('YGTI', 0.75) return END