...> what is the difference between the MOD and the MODULO functions in ...to the book Fortran 90-95 Explained, mod(a,p) returns a-int(a/p..., just like, for example, a clock. MOD can also return values between 0 ...of a problem if you forget about that case and were counting on mod to give a ...happen). Modulo(-10,60) gives 50 Mod(-10,60) gives -10. -- Richard Maine ...

>> 098 devet 08 7762 Jel ovo neka antispam metoda? :) je, antispam mod :o)

... in size: : badduff2 ( n -- )    dup mod 0 ?do \ handle the odd ... second FOR NEXT for the mod case (or if you factor ... faster: : duff2 ( n -- ) dup 8 mod for \ does FOR loop n ... drop ; : duff3 ( n -- ) dup 8 mod ?dup if 1- for dup ...drop ; : duff4 ( n -- ) dup 8 mod 0 ?do dup send 1...1- loop ; : duff5 dup 8 mod ?dup if innerduff then dup...

... unrolled loop to send data out as fast as possible. Deal with the (n mod 8) items by jumping into the loop and then do 8 at a time ...You could increase the speed at a big increase in size: : badduff2 ( n -- )    dup mod 0 ?do \ handle the odd lot      dup send 1- ... do we get to it? If we have to use nested IFs or CASE they'll take on average 4 branches. You could improve the IF ...

... make it shorter with Ed's CONTINUE . case 7 of dup send 1- continue ... avoid the endof / else in the classic CASE. Here's a working version. \ ...'s Device in Forth \ Requires "Miser's CASE" \ cs-push cs-pop (not-portable) ...count ) dup 7 + 8 / swap 8 mod case 0 of begin [ cs-push ] send endof 7 of continue send endof...

...speed at a big increase in size: : badduff2 ( n -- ) dup mod 0 ?do \ handle the odd lot dup send 1-... it? If we have to use nested IFs or CASE they'll take on average 4 branches. You could... You could make it shorter with Ed's CONTINUE . case 7 of dup send 1- continue 6 of dup...every 8th term, plus the odd terms from the MOD . If you need this efficiency, you could drop to...

Gerry <gerry@jackson9000.fsnet.co.uk> writes Re: Duff's device [Re: More fun with Miser's CASE] On 12 Jun, 18:54, Ian Osgood <i...@quirkster.com> wrote: [...] Actually, I've never mastered meta...'0' - CELLS ctab + HERE SWAP ! ; IMMEDIATE : []CALL ( ix -- ) CELLS ctab + @ R ; : duff 8 /MOD ROT SWAP ( -- rem addr quot ) 0 ?DO 8 []CALL LOOP SWAP []CALL DROP ; : }do HERE ctab ! ...

...is to factor it into some meaningful words that can be applied more generally. I don't think CASE and friends can be used as CS-ROLL is only guaranteed to work with dests and origs ...else" evaluate ; immediate : duff ( from to count -- ) dup 7 + 8 / swap 8 mod ( -- from to n ct ) 0 if ( C: -- ox ) begin 1cs-roll ( -- ...

... Better yet, don't use .mod suffixes in your Fortran95 makefiles.... it is a bad advice. .mod files are dependancies and have to be recreated in many cases. My makefiles handle module dependencies ... corresponding object file (not the mod file). It works fine if...the compiler regenerates the .mod file every time it recompiles the... were to avoid unnecessarily regenerating .mod files, which I don't...

... Better yet, don't use .mod suffixes in your Fortran95 makefiles. I think it is a bad advice. .mod files are dependancies and have to be recreated in many cases. If you do not account for such cases in your building script, be it a makefile or something else...html It addresses the issue of including .mod files in makefiles and avoiding unnecessary recompilation. ...