! modeule to read binary data
MODULE rst

CHARACTER(LEN=3), dimension(:,:,:), allocatable :: dummy


CONTAINS
    SUBROUTINE load(dbug)

        IMPLICIT NONE

        ! input variables _____________________________________________________________________________
        LOGICAL :: dbug

        ! f2py variable tags __________________________________________________________________________
        !f2py logical, intent(in) :: dbug


        ! defaults ____________________________________________________________________________________
        if (dbug) then
            write(*, *) "create artificial 3-d character array for debug purposes."
        end if

        allocate(dummy(5,3,2))
        dummy(1,1,1) = '@(o'
        dummy(1,1,2) = '2)t'
        dummy(1,2,1) = '3.T'
        dummy(1,2,2) = '4.f'
        dummy(1,3,1) = '5.F'
        dummy(1,3,2) = '6.s'
        dummy(2,1,1) = '^.S'
        dummy(2,1,2) = '8*e'
        dummy(2,2,1) = '9*n'
        dummy(2,2,2) = '10*'
        dummy(2,3,1) = '11*'
        dummy(2,3,2) = '12*'
        dummy(3,1,1) = '%3*'
        dummy(3,1,2) = '14*'
        dummy(3,2,1) = '15*'
        dummy(3,2,2) = '16*'
        dummy(3,3,1) = '17*'
        dummy(3,3,2) = '18*'
        dummy(4,1,1) = '$19'
        dummy(4,1,2) = '=20'
        dummy(4,2,1) = '_21'
        dummy(4,2,2) = '=22'
        dummy(4,3,1) = '_23'
        dummy(4,3,2) = '=24'
        dummy(5,1,1) = '£25'
        dummy(5,1,2) = '=26'
        dummy(5,2,1) = '_27'
        dummy(5,2,2) = '=28'
        dummy(5,3,1) = '_39'
        dummy(5,3,2) = '=30'

    END SUBROUTINE load

END MODULE rst
