/Users/andrea/_magisterarbeit/korpus/clean/trainkorpus/32/file_209a.html NN ----------------------------------------- : subroutine NN hpf NNS fill VVP in IN data NN target NN , , w NN , , h NN , , ccr NP , , cci NP , , cstep NN , , nmin NP , , nmax NN integer NN , , intent NN in IN . SENT . SENT w NN , , h NN byte NN , , intent JJ out RP . SENT . SENT target NN w NN , , h NN real JJ 8 CD , , intent NN in IN . SENT . SENT ccr NP , , cci NP , , cstep NN integer NN , , intent NN in IN . SENT . SENT nmin NN , , nmax NN . SENT hpf NNS distribute VVP target NN , , cyclic JJ integer NN . SENT . SENT cx NN , , cy NP cx NP w NN 2 CD cy NP h NN 2 CD forall NN ix JJ 1 CD . SENT w NN , , iy NP 1 CD . SENT h NN target NN ix NN , , iy NP mandel NP val NP CMPLX NP ccr NN ix NN cx NN cstep NN , , cci NP iy NP cx NN cstep NN , , KIND NN KIND NN 0 CD . SENT 0 CD D NP 0 CD , , nmin NP , , nmax NN contains VVZ pure JJ byte NN function NN mandel NP val NP x SYM , , nmin NP , , nmax NN complex JJ KIND NN KIND NN 0 CD . SENT 0 CD D NP 0 CD , , intent NN in IN . SENT . SENT x SYM integer NN , , intent NN in IN . SENT . SENT nmin NN , , nmax NN integer NN . SENT . SENT n NN real JJ kind NN KIND NN 0 CD . SENT 0 CD D NP 0 CD . SENT . SENT xorgr NP , , xorgi NP , , xr NP , , xi NN , , xr NP 2 CD , , xi NN 2 CD , , rad NN 2 CD logical JJ . SENT . SENT keepgoing JJ n NN 1 CD xorgr NP REAL NP x SYM xorgi NP AIMAG NP x SYM xr NN xorgr NN xi NN xorgi NNS do VVP n NN n NN 1 CD xr NN 2 CD xr NN xr NN xi NN 2 CD xi NN xi NN xi NN 2 CD xr NN xi NN xorgi NNS keepgoing VVG n NN nmax NN rad NN 2 CD xr NN 2 CD xi NN 2 CD xr NN xr NN 2 CD xi NN 2 CD xorgr NN if IN keepgoing NN . SENT AND CC . SENT rad NN 2 CD 4 CD . SENT 0 CD cycle NN exit NN end NN do VVP if IN n NN nmax NN then RB mandel NP val NP nmax NN nmin NN else RB mandel NP val NP MOD JJ n NN , , nmax NN nmin NN end NN if IN end NN function NN mandel NP val NP end NN subroutine NN hpf NNS fill VVP in IN data NNS