... program main implicit none integer:: i,j,k,l real(8)::es,cs,ds,xx,gs,ep,cp,dp,gp,ed,cd,dd,gd real(8)::dels,delp,deld,rs,rp,rd real(8):: dsqs,dsqp,dsqd,ccs,ccp,ccd,os,op,od real(8),dimension(9)::dmat,cmat integer::istart integer::nsite,nmax integer::lorbit integer::nn integer::nrec...

... MP\6"$:J/G9!R.<G<:C:&P!<<;P%%S#$ODC7+'&L[GAY'J6_2:%%Y@AAO]O4G6+ MWO8J&<E.3C'/5OQ%%3):/OYO$J ZO6D$NN_#'\?LRAE\97B #6<A#[NU>Z4NS M$2<YD7SU+145*LPT1UG*3(TH<2>JWZC&>%%U9[F29!3UH0K?OS'DELD^=W.82 M-WJ^)O8GFHML9Q7C6;%%Z9JQCK>QGDTV6FH4&=:A%%'3SU(EJ+'E;OH>&\T-P6 M6:$\E32*[3SE%%E<9FE>6IJ>M.FI>]SK4J69S7Q^M:F#_EM%%%%C723L<C>85/Z M9K3&M(OY#&-!R1C0-/9UMK6]86=WV]M6@W9^-7UK3K,M9=M&=[IQ^FUVMWMG MX2[NN)&+:_...

... r dup 4+ dup @ rot ! over ! )( drop 4+ ) ) drop ; :deld | ad+4 x over 4 - ( lineb< ? )( dup 4 -...; update x,dy 4+ dup @ over 4+ dup dup @ 1- 0? ( 'deld r ) | borro despues (delete later) swap ! | -1 over +! 4+... increment AGREGAL add a segment to actual scanline REORL sort for x coord DELD delete segment for finish GETXN obtain the x coord and advance the scanline ...