Reading of light curves.

miroslavbroz · Dec 2, 2024 · 442de80 · 442de80
1 parent 99129e4
commit 442de80
Showing 1 changed file with 7 additions and 3 deletions.
diff --git a/main/read_dependent.f90 b/main/read_dependent.f90
@@ -115,10 +115,14 @@ subroutine read_dependent()
 write(*,*) "# nband = ", nband
 
 do i = 1, nband
-  write(*,*) "# iband_LC(", i, ") file_LC(", i, ") : "
-  read(*,*,err=990,end=990) iband_LC(i), file_LC(i)
-  write(*,*) "# iband_LC(", i, ") = ", iband_LC(i)
+  write(*,*) "# file_LC(", i, ") : "
+  read(*,10,err=990,end=990) file_LC(i)
   write(*,*) "# file_LC(", i, ") = ", trim(file_LC(i))
+enddo
+
+do i = 1, nband
+  read(*,*,err=990,end=990) iband_LC(i)
+  write(*,*) "# iband_LC(", i, ") = ", iband_LC(i)
   if (iband_LC(i).gt.WDBANDS) then
     write(*,*) "Error iband = ", iband_LC(i), ".gt. WDBANDS = ", WDBANDS
     stop