- select case(wiersz(1:9))
- case('CICUTOFF=','cicutoff=')
- tmp = wiersz(10:len_trim(wiersz))
- read(tmp(1:len_trim(tmp)),'(F7.5)') cicutoff
- call write2log("Initial CSA cutoff is set to "//tmp)
+c select case(wiersz(1:9))
+c case('CICUTOFF=','cicutoff=')
+c tmp = wiersz(10:len_trim(wiersz))
+c read(tmp(1:len_trim(tmp)),'(F7.5)') cicutoff
+c call write2log("Initial CSA cutoff is set to "//tmp)
+c end select
+
+c MINCO=
+ select case(wiersz(1:6))
+ case('MINCO=','minco=')
+ tmp = wiersz(7:len_trim(wiersz))
+ read(tmp(1:len_trim(tmp)),'(F7.5)') minco
+ call write2log("Minimal CSA cutoff factor is set to "//tmp)