added some new bugs

2022-11-30 02:53:05 +01:00
parent b68207631c
commit 134f37bdaf
3 changed files with 7 additions and 8 deletions
--- a/Fraktalism/fraktals.f90
+++ b/Fraktalism/fraktals.f90
@@ -183,7 +183,8 @@ subroutine lorentz_0(pic, count)
 ! XXX    double precision      :: ka, kb, kc, kd
 ! XXX    integer               :: i, w, h, px, py

-   write(0, *) "proc lorentz_0, count is ", count
+   write(0, *) "lorentz_0, picz  is ", ubound(pic)
+   write(0, *) "lorentz_0, count is ", count

 end subroutine lorentz_0