Julia set: Difference between revisions

Content added Content deleted
Line 1,298: Line 1,298:
CALL LINSPACE( NROW, Y, 1.0D0, -1.0D0 )
CALL LINSPACE( NROW, Y, 1.0D0, -1.0D0 )


WRITE (*,*) SR, SI
WRITE (*,*) C


DO 110 IR=1,NROW
DO 110 IR=1,NROW