SUBROUTINE print_mandate_output(lun)

!   USE pd_dates_vars
!   USE pd_update_vars
!   USE pd_report_vars

!   USE pd_var_tables
    USE mandate_vars

    IMPLICIT NONE

    INTEGER :: lun             ! local loop variables
    INTEGER :: i               ! local loop variables



    WRITE (UNIT=lun,FMT="(1(A))",ADVANCE="NO")                               &
           ' d mo r_yr|'
    WRITE (UNIT=lun,FMT="(2(A))",ADVANCE="YES")                              &
           ' operation                                                   |', &
           ' crop                                                        |'

    DO i = 1, size(mandate)
       WRITE (UNIT=lun,FMT="(2(i2,' '),i3,' | ')",ADVANCE="NO")              &
             mandate(i)%d, mandate(i)%m, mandate(i)%y

       WRITE (UNIT=lun,FMT="(A60,'| ',A60,'|')",ADVANCE="YES")               &
             mandate(i)%opname, mandate(i)%cropname
    END DO

END SUBROUTINE print_mandate_output