logical-type

Vocabulary

alien.fortran.private

Definition

IN: alien.fortran.private

TUPLE: logical-type < integer-type ;

Methods

USING: alien.fortran.private generic kernel sequences ;

M: logical-type (fortran-arg>c-args)
    [
        M\ logical-type (fortran-arg>c-args) (call-next-method)
        [ [ 1 0 ? ] prepend ] dip
    ] args?dims ;


USING: alien.fortran.private arrays generic kernel math
sequences ;

M: logical-type (fortran-result>)
    [
        M\ logical-type (fortran-result>) (call-next-method)
        first [ zero? not ] append 1array
    ] result?dims ;