!FF35: Poprawiam miejsce kulminacji
 !FF34: uruchamiac dla kazdej stacji osobno
!FF33: poprawki do 32
!FF32: wczytywanie plikow z danymi stacji (nr, nazwa, szer, dlugosc, strefa a b, strefa c)
!FF31: rozne sciezki z pojedynczymi plikami plywow: C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\1b.txt 2b, 3b...
!FF30: 1 plik z plywami: 1-liczba wierszy plywow, 2-201-rok,201-401-miesiac,402-601-dzien,602-801-h,802-1001-plyw
!FF29-p1..5 zamiast plywy1...5
!FF28: roznice miedzy kolejnymi przyplywami i odplywami
!FF27: wydruk od UTC=0
!FF26: zmieniam czas trwania sily + i -
!FF25: Oblicze odstepy czasu miedzy przyplywami oraz odplywami, a ekstremum sily pionowe
!FF23: deklinacja Slonca
!wersja FF10: mozliwosc wczytywania tabeli plywow tide-forecast
!FF20: obliczanie czasu miedzy plywami i 1 cyfra po przecinku w deklinacji
!ff22: ff21 zle wylicza dlugosc geograficzna kulminacji (pomylka o 3h gdy strefa -3), probuje poprawic
! http://www.stargazing.net/kepler/moon.html
!Below is the QBASIC listing for the Moon position program. The program is not 'optimised' at all, and is designed to be easy to read and adapt for other languages !including the limited syntax found on programmable calculators.
!
!The user is prompted for the latitude and longitude of their location, and the year, month, day and time in UT for which the Moon's position is wanted. The longitude !is given in decimal degrees, with West negative.
!
!The output produced by a trial session is shown after the BASIC listing. Note that you will need to alter the values of glong and glat to reflect your own location.
!
!The easiest way to transfer the listing into QBASIC would be to use copy and paste into a text editor such as Notepad (or SimpleText), from where the listing can be !saved with a .BAS file extension.
PROGRAM MOON
IMPLICIT NONE
!'   **********************************************************
!'   Moon positions to a quarter of a degree on the sky
!'   From page D76 of Astronomical Almanac
!'   
!'   max RA error 97 (seconds of time), rms error 22 secs
!'   max dec error 811 arcseconds, rms error 224 arcseconds
!'	compared to Integrated Computer Ephemeris for 18.6 years
!'	either side of J2000
!'
!'   definitions and functions
!'r -promien Ksiezyca [km]

!DEFDBL A-Z
DOUBLE PRECISION::pi,degs,t,l,bm,gp,sdia,rm,xg,yg,zg,ecl,xe,ye,ze,ra,dec,lst,rads,ytop,xtop,d,mins,rtop,rmkmmax,rmkmmin
DOUBLE PRECISION::d1,d2,d3,d4,d5,d6,d7,d8,d9,d10,rmtop,dectop,ratop,ztop,fnatn2,arg,fnrange,day,glong,glat
DOUBLE PRECISION::odl,r,Azy,El,lst1,glat1,lst2,ElRad,sila,silaminus,silaplus,Fmaxminus,Fmaxplus,F,Fmax,rmkm
DOUBLE PRECISION::silapoz,Fmaxpoz,rmtopkm,glong1,pery=356400.0,apog=406700.0,rz=6378.14,blong,blat,dlong,dlat,radegs
DOUBLE PRECISION::roznicaczasu,glong1A,faza,rmtopkmmin,rmtopkmmax,k1=3.1,k2=3.5,k3=3.9,LHA,GHA,glong360,kat,rozkm
DOUBLE PRECISION::czasprzyplywu=0., czasodplywu=0.,J,tau
REAL::przyplyw,odplyw,co2przyp,co2odp,xtop1,ytop1,ztop1,plywyodmies=0.,plywyoddnia=0.,plywydomies=0.,plywydodnia=0.
REAL:: sila1,sila2,przypl=-999.99,odpl=-999.99,rozprzypl=-999.99,rozodpl=-999.99
!wynik: 1-rok, 2-miesiac, 3-dzien, 4-godzina, 5-rokUT, 6-miesiacUT, 7-dzienUT, 8-godzinaUT, 9-odlegosc[km], 10-azymut[st.], 11-elewacja[st.], 
!12-silapionowa[%], 13-silapozioma[%],14-lst, 15,16=-geocentric ecliptic coords (l,b) [st.],17,18-geocentric equatorial coords (ra [h], dec[st.])
!19-kierunek, 20-odleglosc do srodka Ziemi [km], 21-sila na Ziemie {%], 22-blong,23-blat,24-dlong,25-dlat (bliskie i dalekie pozycje na Ziemi)
!26-faza,27-swiatlo, 28- widoczny rozmiar[%], 29-kat miedzy poludnikiem obserwatora, a poludnikiem Ksiezyca, 30-LHA, 31-GHA? przed modulowaniem
!32-plyw,33-przyplyw,34-co 2 przyplyw A, 35- co 2 przyplyw B , 36- odplyw, 37 - co 2 odplyw A, 38 -co 2 odplyw B, 39-czas od poprzedniego przyplywu,
!40 - czas od poprzedniego odplywu [h], 41- deklinacja Slonca, 42-czas od ekstremum sily pionowej do przyplywu/czas dodatniej lub ujemnej elewacji,
!43-czas od ekstremum sily pionowej do odplywu /czas dodatniej lub ujemnej elewacji,44-czas sily w gore podczas przyplywu[h], 45-czas sily w dol
!podczas przyplywu, 46-czas sily w gore podczas odplywu, 47 -czas sily w dol podczas odplywu,48-roznica od poprzedniego przyplywu, 
!49- roznica od kolejnego odplywu
REAL,DIMENSION(10272,49)::wynik=-999.99
REAL,DIMENSION(200,5)::plywy
REAL,DIMENSION(200,5)::stacje=-999.99

!REAL,ALLOCATABLE,DIMENSION(:,:)::plywy
!plywy: rok miesiac dzien h plyw
!plyw=1000 to nie plyw
CHARACTER(13), DIMENSION(10272)::dzientygodnia
CHARACTER(13), DIMENSION(7)::dnitygodnia
CHARACTER(6), DIMENSION(10272)::bobsz
CHARACTER(6), DIMENSION(10272)::dobsz
CHARACTER(2), DIMENSION(10272)::strona
CHARACTER(6), DIMENSION(10272)::now
CHARACTER(60), DIMENSION(200)::nazwystacji
CHARACTER(6)::obsz,miejsce
 CHARACTER(1):: okres        
INTEGER::y,m,dm,miesiac,dni,odwiersza,dowiersza,doutc,wiersz,rok,pl,XII,i,dzienmiesiaca,tensamdzien,XIIubr,y1,przekpion=0,przekpoz=0
INTEGER::letni,miesiacletni=0,dzienletni=0,godzinaletnia=0,miesiaczimowy=0,dzienzimowy=0,godzinazimowa=0,zmianaletnia,zmianazimowa
INTEGER::przek=0, top=0,h,doutc1=0, plywow=0,wie=1,kol=1,wiersztabplywow=1,wierszplywu=1,poprzwierszplywu=0,co2p=1,co2o=1
INTEGER::poczatekplywow=0, wiersz01=0, wiersz02=0, polowka=0,wierszp1=0,wierszp2=0, wierszo1=0, wierszo2=0, wierszekstremum=0
INTEGER::wzrost1=-2, wzrost2, jestprzyplyw, jestodplyw,w,k,iloscstacji=89,st, stacja
rmkmmax=apog
rmkmmin=pery
rmtopkmmax=apog+rz
rmtopkmmin=pery-rz
r=1737.064
pi=4.0*ATAN(1.0)
!twopi=2.0*pi
degs=180.0/pi
rads=pi/180.0
!'
!CLS
!'
!'    get the date and planet number from the user
!'
WRITE(*,*) ' Program do obliczania kalendarza sily przyciagania Ksiezyca '
WRITE(*,*) ' w danym punkcie Ziemi, w stosunku do jej maksymalnej wartosci '
!INPUT " lat: ", glat
!WRITE(*,*) ' Szerokosc geograficzna (polnocna +, poludniowa -; od -90 do 90 stopni):  '
!READ(*,*) glat1
!INPUT "   long : ", glong
!WRITE(*,*) ' Dlugosc geograficzna (zachodnia -, wschodnia +; od 0 do +-180 stopni): '
!READ(*,*) glong1
!glong=glong1
!WRITE(*,*) 'Roznica czasu do UTC w grudniu (+ oznacza, ze w tej lokalizacji jest pozniejsza godzina niz w UTC): '
!READ(*,*) doutc1
!doutc=doutc1
!INPUT "  year  : ", y
!WRITE(*,*) ' Rok: '
!READ(*,*) y1
y1=2019
y=y1
!WRITE(*,*) ' Czy w ciagu roku jest zmiana czasu na letni? Wpisz "1" gdy tak, "0" gdy nie.'
!READ(*,*) letni
letni=0
!WRITE(*,*) ' Dzien tygodnia 1.XII ubr. (1 =poniedzialek ... 7 =niedziela: '
!READ(*,*) XIIubr
XIIubr=6
XII=XIIubr
!WRITE(*,*) ' Jezyk (1 =PL, 0=EN): '
!READ(*,*) pl
pl=0
!call obszar(glong1,glat1,pl,miejsce)

WRITE(*,*) 'Ktory okres obserwacji plywow wczytac (a b c)?'
READ(*,*) okres
!WRITE(*,*) 'Ilosc stacji plywow:'
!READ(*,*) iloscstacji
!wczytywanie tabel stacji 

  OPEN(UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\nr-stacji.txt')
  DO st=1,iloscstacji
READ(10,*)stacje(st,1)
END DO
CLOSE(10)
OPEN(UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\lat-stacji.txt')
  DO st=1,iloscstacji
READ(10,*)stacje(st,2)
  END DO
CLOSE(10)
OPEN(UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\long-stacji.txt')
  DO st=1,iloscstacji
READ(10,*)stacje(st,3)
  END DO
CLOSE(10)
OPEN(UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\strefy-ab.txt')
  DO st=1,iloscstacji
READ(10,*)stacje(st,4)
!WRITE(*,*)'st,strefa',st,stacje(st,4)
!pause
  END DO
CLOSE(10)
OPEN(UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\strefy-c.txt')
  DO st=1,iloscstacji
READ(10,*)stacje(st,5)
  END DO
CLOSE(10)
OPEN(UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\nazwy-stacji.txt')
  DO st=1,iloscstacji
READ(10,"(A60)")nazwystacji(st)
END DO
CLOSE(10)
!Wczytywanie danych o plywach z wszystkich stacji
WRITE(*,*)'Nr stacji:'
READ(*,*)stacja
DO i=1,iloscstacji
  IF(stacja.EQ.INT(stacje(i,1)))THEN
    st=i
    END IF
    END DO
  WRITE(*,*)'st,stacja',st, stacja
    Pause
  IF(stacja.GT.0)THEN
    
IF(okres.EQ.'a')THEN
CALL OTWORZA(stacja)
ELSE
  IF(okres.EQ.'b')THEN
    CALL OTWORZB(stacja)
    ELSE
      IF(okres.EQ.'c')THEN
        CALL OTWORZC(stacja)
        ELSE
          WRITE(*,*)'Wpisany okres nie jest a ani b ani c'
          PAUSE
          END IF
          END IF
          END IF
glat1=stacje(st,2)
glong1=stacje(st,3)
IF(okres.EQ.'c')THEN 
doutc1= stacje(st,5)
ELSE
  doutc1=stacje(st,4)
  WRITE(*,*)'stacja, doutc1',stacja, doutc1
  END IF
  glat=glat1
  glong=glong1  
  doutc=doutc1
        
call obszar(glong1,glat1,pl,miejsce)
!OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\p.txt')
READ(10,*)plywow
IF(plywow .NE. 0)THEN
  !ALLOCATE (plywy(plywow+1,5))
  kol=1
  !OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\p1.txt')
  DO wie=1,200
  READ (10,*) plywy(wie,kol)
  END DO
  kol=2
  !OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\p2.txt')
  DO wie=1,200
  READ (10,*) plywy(wie,kol)
  END DO
  kol=3
  !OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\p3.txt')
  DO wie=1,200
  READ (10,*) plywy(wie,kol)
  END DO
  kol=4
  !OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\p4.txt')
  DO wie=1,200
  READ (10,*) plywy(wie,kol)
  END DO
  kol=5
  !OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\p5.txt')
  DO wie=1,200
  READ (10,*) plywy(wie,kol)
  END DO
CLOSE (10)
DO wie=plywow+1,200
 plywy(wie,1)=1000.
  plywy(wie,2)=1000.
  plywy(wie,3)=1000.
  plywy(wie,4)=1000.
  plywy(wie,5)=1000.
  END DO
END IF

IF(pl.EQ.1) THEN
  dnitygodnia(1)="poniedzialek"
  dnitygodnia(2)="wtorek"
  dnitygodnia(3)="sroda"
  dnitygodnia(4)="czwartek"
  dnitygodnia(5)="piatek"
  dnitygodnia(6)="sobota"
  dnitygodnia(7)="niedziela"
  ELSE
  dnitygodnia(1)="Monday"
  dnitygodnia(2)="Tuesday"
  dnitygodnia(3)="Wednesday"
  dnitygodnia(4)="Thursday"
  dnitygodnia(5)="Friday"
  dnitygodnia(6)="Saturday"
  dnitygodnia(7)="Sunday"
    END IF
IF(letni.EQ.0) THEN 
  goto 50
  ELSE
    WRITE(*,*)'Miesiac zmiany czasu na letni:'
    READ(*,*) miesiacletni
    WRITE(*,*)'Dzien zmiany czasu na letni:'
    READ(*,*) dzienletni
    WRITE(*,*)'Godzina zmiany czasu na letni:'
    READ(*,*) godzinaletnia
    WRITE(*,*)'Miesiac zmiany czasu na zimowy:'
    READ(*,*) miesiaczimowy
    WRITE(*,*)'Dzien zmiany czasu na zimowy:'
    READ(*,*) dzienzimowy
    WRITE(*,*)'Godzina zmiany czasu na zimowy:'
    READ(*,*) godzinazimowa
    END IF
!INPUT "  month : ", m
!WRITE(*,*) ' miesiac: '
!READ(*,*) m
!INPUT "  day   : ", day
!WRITE(*,*) ' dzien: '
!READ(*,*) dm
zmianaletnia=0
zmianazimowa=0
50 odwiersza=1
dowiersza=0
rok=y-1
call kalendarz(rok,12,31,odwiersza,dowiersza,wynik)
odwiersza=dowiersza+1
call kalendarz(y,1,31,odwiersza,dowiersza,wynik)
odwiersza=dowiersza+1
IF((y/4)*4.EQ.y) THEN 
  call kalendarz(y,2,29,odwiersza,dowiersza,wynik)
  odwiersza=dowiersza+1
  ELSE
    call kalendarz(y,2,28,odwiersza,dowiersza,wynik)
    odwiersza=dowiersza+1
    END IF
    call kalendarz(y,3,31,odwiersza,dowiersza,wynik)
    odwiersza=dowiersza+1
    call kalendarz(y,4,30,odwiersza,dowiersza,wynik)
    odwiersza=dowiersza+1
    call kalendarz(y,5,31,odwiersza,dowiersza,wynik)
    odwiersza=dowiersza+1
    call kalendarz(y,6,30,odwiersza,dowiersza,wynik)
    odwiersza=dowiersza+1
    call kalendarz(y,7,31,odwiersza,dowiersza,wynik)
    odwiersza=dowiersza+1
    call kalendarz(y,8,31,odwiersza,dowiersza,wynik)
    odwiersza=dowiersza+1
    call kalendarz(y,9,30,odwiersza,dowiersza,wynik)
    odwiersza=dowiersza+1
    call kalendarz(y,10,31,odwiersza,dowiersza,wynik)
    odwiersza=dowiersza+1
    call kalendarz(y,11,30,odwiersza,dowiersza,wynik)
    odwiersza=dowiersza+1
    call kalendarz(y,12,31,odwiersza,dowiersza,wynik)
    odwiersza=dowiersza+1
    rok=y+1
    call kalendarz(rok,1,31,odwiersza,dowiersza,wynik)
    odwiersza=dowiersza+1
    UTC: DO wiersz=25,dowiersza-24
 
    !letni: IF((wynik(wiersz-doutc,2).EQ.miesiacletni).AND.(wynik(wiersz-doutc,3).EQ.dzienletni).AND.&
    !(wynik(wiersz-doutc,4).EQ.godzinaletnia).AND.zmianaletnia.EQ.0)THEN
    !zmianaletnia=1
    letni: IF((wynik(wiersz,2).EQ.miesiacletni).AND.(wynik(wiersz,3).EQ.dzienletni).AND.&
    (wynik(wiersz,4).EQ.godzinaletnia).AND.zmianaletnia.EQ.0)THEN
    zmianaletnia=1
    doutc=doutc+1
      wynik(wiersz,5)=wynik(wiersz-doutc,1)
      wynik(wiersz,6)=wynik(wiersz-doutc,2)
      wynik(wiersz,7)=wynik(wiersz-doutc,3)
      wynik(wiersz,8)=wynik(wiersz-doutc,4)
      ELSE
        !zimowy: IF((wynik(wiersz-doutc,2).EQ.miesiaczimowy).AND.(wynik(wiersz-doutc,3).EQ.dzienzimowy).AND.&
        !(wynik(wiersz-doutc,4).EQ.godzinazimowa-1).AND.zmianazimowa.EQ.0)THEN
        !zmianazimowa=1
        zimowy: IF((wynik(wiersz,2).EQ.miesiaczimowy).AND.(wynik(wiersz,3).EQ.dzienzimowy).AND.&
        (wynik(wiersz,4).EQ.godzinazimowa-1).AND.zmianazimowa.EQ.0)THEN
        zmianazimowa=1
               doutc=doutc-1

      wynik(wiersz,5)=wynik(wiersz-doutc,1)
      wynik(wiersz,6)=wynik(wiersz-doutc,2)
      wynik(wiersz,7)=wynik(wiersz-doutc,3)
      wynik(wiersz,8)=wynik(wiersz-doutc,4)
      ELSE
        !WRITE(*,*)'wiersz,doutc',wiersz,doutc
      wynik(wiersz,5)=wynik(wiersz-doutc,1)
      wynik(wiersz,6)=wynik(wiersz-doutc,2)
      wynik(wiersz,7)=wynik(wiersz-doutc,3)
      wynik(wiersz,8)=wynik(wiersz-doutc,4)
      END IF zimowy
      END IF letni
      END DO UTC
!INPUT "hour UT : ", h
!WRITE(*,*) ' h: '
!READ(*,*) h
!INPUT " minute : ", mins
!WRITE(*,*) ' min: '
!READ(*,*) mins
!h=h+mins/60.0
dzientygodnia(1)=dnitygodnia(XII)
tensamdzien=wynik(1,3)
DO wiersz=2,10272
  IF(wynik(wiersz,3).EQ.tensamdzien) THEN
    dzientygodnia(wiersz)=dzientygodnia(wiersz-1)
    ELSE
      tensamdzien=wynik(wiersz,3)
      XII=XII+1
      tydzien: IF(XII.EQ.8) THEN
        XII=1
        ELSE
          CONTINUE
       END IF tydzien
      dzientygodnia(wiersz)=dnitygodnia(XII)      
  END IF
END DO
!---------------------------------------------
!liczy: DO wiersz=25,dowiersza-24
!poprawka od 1 wiersza
liczy: DO wiersz=1,dowiersza
y=INT(wynik(wiersz,5))
m=INT(wynik(wiersz,6))
dm=INT(wynik(wiersz,7))
h=INT(wynik(wiersz,8))
d=day(y,m,dm,h)
t=d/36525.0

!PLYWY:
jestprzyplyw=0
jestodplyw=0
 IF(poczatekplywow.NE.0)THEN
 czasprzyplywu=czasprzyplywu+1.
 czasodplywu=czasodplywu+1.
 END IF
!1if
	IF(wiersztabplywow .GT. plywow) THEN
    wynik(wiersz,39)=-999.99
    wynik(wiersz,40)=-999.99
    wynik(wiersz,42)=-999.99
    wynik(wiersz,43)=-999.99
    !WRITE(*,*) 'wiersztabplywow .GT. plywow',wiersztabplywow
    !PAUSE
  GOTO 5
  !1if
  ELSE   
    !WRITE(*,*) plywy(wiersztabplywow,1),wynik(wiersz,1),plywy(wiersztabplywow,2), wynik(wiersz,2) 
  !WRITE(*,*) plywy(wiersztabplywow,3) , wynik(wiersz,3) ,plywy(wiersztabplywow,4) , wynik(wiersz,4)
!2if  
3		IF((plywy(wiersztabplywow,1).EQ. wynik(wiersz,1)).AND. (plywy(wiersztabplywow,2).EQ. wynik(wiersz,2)) .AND. &
  (plywy(wiersztabplywow,3) .EQ. wynik(wiersz,3)) .AND. (plywy(wiersztabplywow,4) .EQ. wynik(wiersz,4)))THEN
  !WRITE(*,*)'plyw/nieplyw w wierszu wynikow', wiersz
  !WRITE(*,*) plywy(wiersztabplywow,5)
 !PAUSE
 IF(poczatekplywow.EQ.0)THEN
 plywyodmies=wynik(wiersz,2)
 plywyoddnia=wynik(wiersz,3)
 poczatekplywow=1
 END IF
  wiersztabplywow=wiersztabplywow+1
    
  !3if
  			IF(plywy(wiersztabplywow-1,5) .NE. 1000.0) THEN
    !to plyw
    
    wynik(wiersz,32)=plywy(wiersztabplywow-1,5)
    !WRITE(*,*) 'a'
    !przyplyw czy odplyw?
    !4if
    				IF(poprzwierszplywu .EQ. 0) THEN
      !WRITE(*,*) 'b'
      GOTO 30
      !4if
      ELSE
        !WRITE(*,*) 'c'
        !5if
   					 IF(wynik(wiersz,32) .GT. wynik(poprzwierszplywu,32)) THEN
      !!!teraz przyplyw (33,34,35), poprzednio odplyw (36,37,38)
      jestprzyplyw=1
      wynik(poprzwierszplywu,36)=wynik(poprzwierszplywu,32)
      IF(odpl.NE.-999.00)THEN
        rozodpl=wynik(poprzwierszplywu,36)-odpl
        IF(ABS(rozodpl).GT.100.)THEN
          rozodpl=-999.99
          END IF
        wynik(poprzwierszplywu,49)=rozodpl
        END IF
      odpl=wynik(poprzwierszplywu,36)
      !WRITE(*,*) 'd'
      !6if
      						IF(co2o .EQ. 1) THEN
        !poprzeddnio oA
        wynik(poprzwierszplywu,37)=wynik(poprzwierszplywu,32)
        co2o=2
        WRITE(*,*) 'e'
        !6if
        ELSE
          !poprzednio oB
          wynik(poprzwierszplywu,38)=wynik(poprzwierszplywu,32)
          co2o=1
          !WRITE(*,*) 'f'
          !6if
         					 END IF
          !WRITE(*,*) 'g'
      wynik(wiersz,33)=wynik(wiersz,32)
      
      !IF(przypl.NE.-999.00)THEN
        !rozprzypl=wynik(wiersz,33)-przypl
        !wynik(wiersz,48)=rozprzypl
        !END IF
      !przypl=wynik(wiersz,33)
      
      wynik(wiersz,39)=czasprzyplywu
     
      czasprzyplywu=0.
      !7if
     							 IF(co2p .EQ. 1) THEN
        !teraz pA
        WRITE(*,*) 'h'
        wynik(wiersz,34)=wynik(wiersz,32)
        co2p=2
        !7if
        ELSE
          WRITE(*,*) 'i'
          !teraz pB
          wynik(wiersz,35)=wynik(wiersz,32)
          co2p=1
          !7if
         						 END IF
          WRITE(*,*) 'j'
          !5if
      ELSE
        !teraz odplyw (36,37,38), poprzednio przyplyw (33,34,35)
        jestodplyw=1
        wynik(poprzwierszplywu,33)=wynik(poprzwierszplywu,32)
        wynik(wiersz,36)=wynik(wiersz,32)
        !WRITE(*,*) 'k'
wynik(wiersz,40)=czasodplywu
czasodplywu=0.
      
IF(przypl.NE.-999.00)THEN
        rozprzypl=wynik(poprzwierszplywu,33)-przypl
        wynik(poprzwierszplywu,48)=rozprzypl
        END IF
      przypl=wynik(poprzwierszplywu,33)
      
        !---
        IF(wiersztabplywow-1.EQ.plywow)THEN
        	IF(co2o .EQ. 2) THEN
        !poprzeddnio oA
        wynik(wiersz,38)=wynik(wiersz,32)
        co2o=1
        !WRITE(*,*) 'e'
        !6if
        ELSE
          !poprzednio oB
          wynik(wiersz,37)=wynik(wiersz,32)
          co2o=2
          !WRITE(*,*) 'f'
          !6if
         					 END IF
                             END IF
                             !---
        !5if
        					END IF
        !WRITE(*,*) 'l'
    30 CONTINUE
    poprzwierszplywu=wiersz
    !WRITE(*,*) 'm'
    !4if
    				END IF
    !WRITE(*,*) 'n'
    !3if
  			END IF
  !WRITE(*,*) 'o'
IF(wiersztabplywow.GT.plywow)THEN
  plywydomies=wynik(poprzwierszplywu,2)
  plywydodnia=wynik(poprzwierszplywu,3)
  GOTO 5
  ELSE
        !if8
        IF(plywy(wiersztabplywow,4).EQ.plywy(wiersztabplywow-1,4)) THEN
          !WRITE(*,*) 'rowny wiersztabplywow', wiersztabplywow
          !PAUSE
    !to sprawdz rowniez nastepny wiersz tabeli plywow o tej samej godzinie
    GOTO 3
    !if8
    END IF
    END IF
    !2if 
		END IF
 !WRITE(*,*) 'p'
 !1if
 	END IF
 !WRITE(*,*) 'q'
 
!FAZA:
5 wynik(wiersz,26)=faza(y,m,dm,h,0,0)
IF(ABS(wynik(wiersz,26)).GT.100.0) THEN
  WRITE(*,*) wynik(wiersz,26)

  ELSE
    END IF
IF(ABS(wynik(wiersz,26)).GT.99.0) THEN
  now(wiersz)="Full"
  ELSE
    now(wiersz)=" "
    END IF
    !IF(ABS(wynik(wiersz,26)).GE.-1.0 .AND. ABS(wynik(wiersz,26)).LE.1.0) THEN
    IF(ABS(wynik(wiersz,26)).LT.1.0) THEN
      now(wiersz)="New"
      END IF
      
!'
!'   calculate the geocentric longitude
!'	writing the coefficients in the series as angles in rads
!'	would save 29 multiplications per position!
!'
!l = FNrange(rads * (218.32# + 481267.883# * t))
l=fnrange(rads*(218.32+481267.883*t))
!l = l + rads * 6.29# * SIN(FNrange((134.9# + 477198.85# * t) * rads))
arg=fnrange((134.9+477198.85*t)*rads)
l=l+rads*6.29*SIN(arg)
!l = l - rads * 1.27# * SIN(FNrange((259.2# - 413335.38# * t) * rads))
arg=fnrange((259.2-413335.38*t)*rads)
l=l-rads*1.27*SIN(arg)
!l = l + rads * .66# * SIN(FNrange((235.7# + 890534.23# * t) * rads))
arg=fnrange((235.7+890534.23*t)*rads)
l=l+rads*.66*SIN(arg)
!l = l + rads * .21# * SIN(FNrange((269.9# + 954397.7# * t) * rads))
arg=fnrange((269.9+954397.7*t)*rads)
l=l+rads*.21*SIN(arg)
!l = l - rads * .19# * SIN(FNrange((357.5# + 35999.05# * t) * rads))
arg=fnrange((357.5+35999.05*t)*rads)
l=l-rads*.19*SIN(arg)
!l = l - rads * .11# * SIN(FNrange((186.6# + 966404.05# * t) * rads))
arg=fnrange((186.6+966404.05*t)*rads)
l=l-rads*.11*SIN(arg)
!l = FNrange(l)
! --------------long. geocen. [rad] na podst. czasu: l
l=fnrange(l)
!'
!'   calculate the geocentric latitude
!'
!bm = rads * 5.13# * SIN(FNrange((93.3# + 483202.03# * t) * rads))
arg=fnrange((93.3+483202.03*t)*rads)
bm=rads*5.13*SIN(arg)
!bm = bm + rads * .28# * SIN(FNrange((228.2# + 960400.87# * t) * rads))
arg=fnrange((228.2+960400.87*t)*rads)
bm=bm+rads*.28*SIN(arg)
!bm = bm - rads * .28# * SIN(FNrange((318.3# + 6003.18# * t) * rads))
arg=fnrange((318.3+6003.18*t)*rads)
bm=bm-rads*.28*SIN(arg)
!bm = bm - rads * .17# * SIN(FNrange((217.6# - 407332.2# * t) * rads))
arg=fnrange((217.6-407332.2*t)*rads)
bm=bm-rads*.17*SIN(arg)
!'
!'   get the parallax
!'
gp=.9508*rads
!gp = gp + rads * .0518# * COS(FNrange((134.9# + 477198.85# * t) * rads))
arg=fnrange((134.9+477198.85*t)*rads)
gp=gp+rads*.0518*COS(arg)
!gp = gp + rads * .0095# * COS(FNrange((259.2# - 413335.38# * t) * rads))
arg=fnrange((259.2-413335.38*t)*rads)
gp=gp+rads*.0095*COS(arg)
!gp = gp + rads * .0078# * COS(FNrange((235.7# + 890534.23# * t) * rads))
arg=fnrange((235.7+890534.23*t)*rads)
gp=gp+rads*.0078*COS(arg)
!gp = gp + rads * .0028# * COS(FNrange((269.9# + 954397.7# * t) * rads))
arg=fnrange((269.9+954397.7*t)*rads)
gp=gp+rads*.0028*COS(arg)
!'
!'   from the parallax, get the semidiameter and the radius vector
!'
sdia=.2725*gp
rm=1/SIN(gp)
!korekta,bo odleglosc min wyszla <perygeum
rmkm=rm*rz
!rmkm=rmkm+rmkm*(-0.0871379749)+35902.0

IF((rmkm.GT.apog).AND.(rmkm.GT.rmkmmax)) THEN
  rmkmmax=rmkm
  przek=przek+1
  ELSE
    END IF
    IF((rmkm.LT.pery).AND.(rmkm.LT.rmkmmin)) THEN
      rmkmmin=rmkm
      przek=przek+1
      ELSE
        END IF
rm=rmkm/rz
xg=rm*COS(l)*COS(bm)
yg=rm*SIN(l)*COS(bm)
zg=rm*SIN(bm)
!'
!'   rotate to equatorial coords
!'   obliquity of ecliptic
!'
ecl=(23.4393-3.563E-07*d)*rads
xe=xg
ye=yg*COS(ecl)-zg*SIN(ecl)
ze=yg*SIN(ecl)+zg*COS(ecl)
!'
!'   geocentric RA and Dec
!'
!ra = FNatn2(ye, xe)
ra=fnatn2(ye,xe)
!dec = ATN(ze / SQR(xe * xe + ye * ye))
dec=ATAN(ze/SQRT(xe*xe+ye*ye))
!'Dotd jest dobrze (geocentryczne ra i dec si zgadzaj)

!'   topocentric RA and DEC (spherical earth)
!'   Local Siderial Time in degrees
!'
!lst = 100.46 + .985647352# * d + h * 15 + glong
!--lst2 zmieniam long na - bo + east
!lst1=100.46+.985647352*d+h*15.0+glong

lst2=100.46+.985647352*d+h*15.0+glong
glat=glat1*rads
glong=glong*rads
!lst = FNrange(lst * rads)
lst=fnrange(lst2*rads)
xtop=xe-COS(glat)*COS(lst)
ytop=ye-COS(glat)*SIN(lst)
ztop=ze-SIN(glat)
!kombinuj rmtop
xtop1=xe-COS(glat)*COS(lst+(glong1*2*pi/360.))
ytop1=ye-COS(glat)*SIN(lst+(glong1*2*pi/360.))
ztop1=ze-SIN(glat)
!rtop = SQR(xtop * xtop + ytop * ytop + ztop * ztop)
!rtop=SQRT(xtop*xtop+ytop*ytop+ztop*ztop)
!ratop = FNatn2(ytop, xtop)
ratop=fnatn2(ytop,xtop)
!dectop = ATN(ztop / SQR(xtop * xtop + ytop * ytop))
dectop=ATAN(ztop/SQRT(xtop*xtop+ytop*ytop))
!'

!'   topocentric distance
!'
!rmtop = SQR(xtop * xtop + ytop * ytop + ztop * ztop)
rmtop=SQRT(xtop1*xtop1+ytop1*ytop1+ztop1*ztop1)
!korekta,bo odleglosc min wyszla <perygeum
!rmtopkm=rmtop*6378.14
!rmtopkm=rmtopkm+rmtopkm*(-0.0871379749)+35902.0
!rmtop=rmtopkm/6378.14
rmtopkm=rmtop*rz
!rmtopkm powinno byc < rmkm gdy elewacja >0
!rozkm=rmtopkm-rmkm
!rmtopkm=rmkm-rozkm
!rmtop=rmtopkm/rz
IF((rmtopkm.GT.apog+rz).AND.(rmtopkm.GT.rmtopkmmax)) THEN
  rmtopkmmax=rmtopkm
  rmtopkm=apog+rz
  przek=przek+1
  ELSE
    END IF
    IF((rmtopkm.LT.pery-rz).AND.(rmtopkm.LT.rmtopkmmin)) THEN
      rmtopkmmin=rmtopkm
      rmtopkm=pery-rz
      przek=przek+1
      ELSE
        END IF
rmtop=rmtopkm/rz
call topo(lst*degs/15.0+(glong1/15.0),ratop*degs,dectop*degs,glat1,Azy,El)
wynik(wiersz,9)=rmtop*rz
wynik(wiersz,10)=Azy
wynik(wiersz,11)=El
!wynik(wiersz,14)=lst*degs/15.0
wynik(wiersz,14)=lst
wynik(wiersz,15)=l*degs
wynik(wiersz,16)=bm*degs
!wynik(wiersz,17)=ra*degs/15.0
wynik(wiersz,17)=ra
wynik(wiersz,18)=dec*degs
!wynik(wiersz,27)=(1.0/((rmtop*rz/(pery-rz))*(rmtop*rz/(pery-rz))))*ABS(wynik(wiersz,26))*ABS(SIN(El*rads))

!wynik(wiersz,28)=150.0-rmtop*rz*50.0/(pery-rz)

wynik(wiersz,28)=100.0*(pery-rz)/(rmtop*rz)
wynik(wiersz,27)=(wynik(wiersz,28)/100.0)*(wynik(wiersz,28)/100.0)*ABS(wynik(wiersz,26))*ABS(SIN(El*rads))
IF(wynik(wiersz,28).GT.100.0) THEN
  WRITE(*,*) 'rozmiar="', wynik(wiersz,28)
  wynik(wiersz,28)=100.0
  przek=przek+1

    END IF
IF(wynik(wiersz,27).GT.100.0) THEN
  WRITE(*,*) 'rmtop, rz, pery, rmtop*rz, pery-rz', rmtop,rz,pery,rmtop*rz,pery-rz

  wynik(wiersz,27)=100.0
  przek=przek+1
  END IF
IF(EL.LE.0.0) THEN
  wynik(wiersz,27)=0.0
  wynik(wiersz,28)=0.0
  END IF
!miejsce najwikszej siy:

!radegs=ra*degs
!LHA, GHA [stopnie 0...360, od poudnika 0 na zach d +], lst[rad], ra[rad]
  LHA=-(lst-ra)*degs
  LHA=MODULO(LHA,360.0)
  !obliczanie kata miedzy poludnikami obserwatora i Ksiezyca
  IF(glong1 .LT. 0.0) THEN
    glong360=360.0+glong1
    ELSE
     glong360=glong1   
    END IF
  
GHA=LHA-glong1
!GHA=LHA to bylo zle od FF9 do FF21
IF(GHA .LT. 0.0) THEN
  GHA=GHA+360.0
  END IF
  !GHA=LHA-glong360
  wynik(wiersz,30)=LHA
  wynik(wiersz,31)=GHA
  GHA=GHA+glong1
  GHA=MODULO(GHA,360.0)
IF(GHA.GE.0.0 .AND. GHA.LE.180.0)THEN
    blong=GHA
   dlong=-180.0+blong
 ELSE
  blong=-360.0+GHA
    dlong=180.0+blong
  END IF
  !WRITE(*,*)'LHA= ',LHA,' glong360= ',glong360,' GHA= ',GHA,
  kat=GHA-glong360
  IF(kat .GE. 180.0)THEN
    kat=-360.0+kat
    ELSE
      IF(kat .LT. -180.0) THEN
        kat=360+kat
        END IF
        END IF
    wynik(wiersz,29)=kat
    blat=dec*degs
    dlat=-blat
    wynik(wiersz,22)=blong
    wynik(wiersz,23)=blat
    wynik(wiersz,24)=dlong
    wynik(wiersz,25)=dlat
    !Afryka pn 50...-16 n-Af
    !Atl -16...-61 n-At
    ! Am r  -61...-106 n-Am
    ! Pacy -106...115 n-Pa
    !Azja pd 115...50 n-As
    !pd:
    !Af pd 50...12 s-Af
    !Atl 12...-35 s-At
    !Am pd -35...-81 s-Am
    !Pac -81...150 s-Pa
    
    !Aus 150...116 s-Au
    !116...50 OInd s-IO
    call obszar(blong,blat,pl,obsz)
    bobsz(wiersz)=obsz
    call obszar(dlong,dlat,pl,obsz)
    dobsz(wiersz)=obsz
    !miejsce -koniec


ElRad=El*rads
Fmax=1.0/(pery*pery)
Fmaxplus=1.0/((pery-rz)*(pery-rz))
Fmaxminus=1.0/((pery+rz)*(pery+rz))
Fmaxpoz=1.0/(pery*pery)
silapoz=(cos(ElRad))/(rmtop*rz*rmtop*rz)
silapoz=silapoz*100.0/Fmaxpoz
IF(silapoz.GT.100.0) THEN
  silapoz=100.0
  przekpoz=przekpoz+1
  ELSE
    END IF
    wynik(wiersz,13)=silapoz
select case(INT(Azy*10.0))
  case(3150:3600,0:450)
  strona(wiersz)="N"
  case(451:1350)
strona(wiersz)="E"
  case(1351:2250)
strona(wiersz)="S"
  case(2251:3149)
strona(wiersz)="W"
  case default
strona(wiersz)="?"
  end select
  F=1.0/(rmkm*rmkm)
sila=(sin(ElRad))/(rmtop*rz*rmtop*rz)
silaplus=sila*100.0/Fmaxplus
silaminus=sila*100.0/Fmaxminus
    IF(silaplus.GT.100.0) THEN
  silaplus=100.0
  przekpion=przekpion+1
  ELSE
    END IF
    IF(silaminus.LT.-100.0) THEN
  silaminus=-100.0
  przekpion=przekpion+1
  ELSE
    END IF
  wynik(wiersz,20)=rmkm
    wynik(wiersz,21)=F*100.0/Fmax
IF (ElRad.GE.0.0) THEN
  wynik(wiersz,12)=silaplus
  ELSE
    wynik(wiersz,12)=silaminus
    END IF
    
    !Licze czas od ekstremum sin sily do przyplywu i odplywu
    IF(wiersz.GT.1)THEN
    sila1=wynik(wiersz-1,12)
    sila2=wynik(wiersz,12)
    IF(sila1*sila2.LT.0.)THEN
      !sila pionowa przeszla przez 0 
        !IF(ABS(sila1).GE.ABS(sila2))THEN
        wiersz02=wiersz
        !ELSE
          !wiersz02=wiersz-1
          !END IF
          polowka=wiersz02-wiersz01
          IF(wierszp1.NE.0)THEN
            wynik(wierszp1,42)=REAL(ABS(wierszekstremum-wierszp1))/REAL(polowka)
            IF(sila2.GT.0.)THEN
              wynik(wierszp1,45)=REAL(polowka)
              ELSE
                wynik(wierszp1,44)=REAL(polowka)
                END IF
            WRITE(*,*)'1',wierszekstremum,wynik(wierszekstremum,8),wierszp1,wynik(wierszp1,8),polowka
            WRITE(*,*)'konce polowki:', wiersz01, wiersz02, sila1, sila2
            wierszp1=0
            END IF
            IF(wierszp2.NE.0)THEN
            wynik(wierszp2,42)=REAL(ABS(wierszekstremum-wierszp2))/REAL(polowka)
            IF(sila2.GT.0.)THEN
              wynik(wierszp2,45)=REAL(polowka)
              ELSE
                wynik(wierszp2,44)=REAL(polowka)
                END IF
            !WRITE(*,*)'2',wierszekstremum,wierszp2, polowka
            wierszp2=0
            END IF
            !gdy odplyw:
            IF(wierszo1.NE.0)THEN
            wynik(wierszo1,43)=REAL(ABS(wierszekstremum-wierszo1))/REAL(polowka)
            IF(sila2.GT.0.)THEN
              wynik(wierszo1,47)=REAL(polowka)
              ELSE
                wynik(wierszo1,46)=REAL(polowka)
                END IF
                
            !WRITE(*,*)'3',wierszekstremum,wynik(wierszekstremum,8),wierszo1,wynik(wierszo1,8),polowka
            !WRITE(*,*)'konce polowki:', wiersz01, wiersz02,sila1, sila2
            wierszo1=0
            END IF
            IF(wierszo2.NE.0)THEN
            wynik(wierszo2,43)=REAL(ABS(wierszekstremum-wierszo2))/REAL(polowka)
            IF(sila2.GT.0.)THEN
              wynik(wierszo2,47)=REAL(polowka)
              ELSE
                wynik(wierszo2,46)=REAL(polowka)
                END IF
            WRITE(*,*)'4',wierszekstremum,wierszo2, polowka
            wierszo2=0
            END IF
            !pause
            wiersz01=wiersz02
          END IF

          !szukam ekstremum sily
         
          IF(sila2.GT.sila1) THEN
            wzrost2=1
            END IF
            IF(sila2.EQ.sila1)THEN
              wzrost2=0
              END IF
              IF(sila2.LT.sila1)THEN
                wzrost2=-1
                END IF
                IF(wzrost1.EQ.-2)THEN
                  wzrost1=wzrost2
                  ELSE
                IF(wzrost1*wzrost2.LE.0)THEN
        IF(ABS(sila2).GE.ABS(sila1))THEN
        wierszekstremum=wiersz
        ELSE
          wierszekstremum=wiersz-1
        END IF
        !WRITE(*,*)'extr',wiersz,wierszekstremum,sila1,sila2,wzrost1,wzrost2
          END IF
          END IF
          wzrost1=wzrost2
          
          IF(jestprzyplyw.EQ.1)THEN
            IF(wierszp1.EQ.0)THEN 
              wierszp1=wiersz
              ELSE
                wierszp2=wiersz
            END IF
            END IF
            IF(jestodplyw.EQ.1)THEN
            IF(wierszo1.EQ.0) THEN
              wierszo1=wiersz
              ELSE
                wierszo2=wiersz
                END IF
            END IF 
            END IF
     
END DO liczy

!NOWY WYDRUK:
!OPEN(unit=20,file='C:\Users\miros\Desktop\KSIEZYC\wynik.txt')
IF(okres.EQ.'a')THEN
CALL OTWORZWYNIKA(stacja)
ELSE
  IF(okres.EQ.'b')THEN
    CALL OTWORZWYNIKB(stacja)
    ELSE
      IF(okres.EQ.'c')THEN
        CALL OTWORZWYNIKC(stacja)
        ELSE
          WRITE(*,*)'Wpisany okres nie jest a ani b ani c'
          PAUSE
          END IF
          END IF
          END IF
!Drukuje dane:
WRITE(20,"(2(A25,F11.2),A10,A6,2(A10,I4),A6,6(I4,A1),4(A20,F3.0),A15,A60)")'Szerokosc-geograficzna:/',glat1,&
'/Dlugosc-geograficzna:/',glong1,'/Miejsce:/',miejsce,'/Rok:/',y1,&
'/Strefa:/',doutc1,'/DST:/',miesiacletni,'/',dzienletni,'/',godzinaletnia,'/',miesiaczimowy,'/',dzienzimowy,'/',&
godzinazimowa,'/','Plywy-od-miesiaca:/',plywyodmies,'/Plywy-od-dnia:/',plywyoddnia,'/Plywy-do-miesiaca:/',plywydomies,&
'/Plywy-do-dnia:/',plywydodnia,'/Nazwa-stacji:/',nazwystacji(st)
!Drukuje naglowek tabeli:
WRITE(20,"(A1000)") 'Dzien-tygodnia/Rok/Miesiac/Dzien/h/Rok-UTC/Miesiac-UTC/Dzien-UTC/h-UTC/RA/DEC/Elewacja/|Elewacja|/Azymut/&
&Kierunek/Dystans-do-Ziemi/Dystans-topocentryczny/Faza/|Faza|/Now/Rozmiar/Swiatlo/Sila-pionowa/|Sila-pionowa|/Sila-pozioma/&
&Sila-na-Ziemie/Szerokosc-geograficzna-gorowania/Dlugosc-geograficzna-gorowania/Rejon-gorowania/&
&Szerokosc-geograficzna-antypodow-gorowania/Dlugosc-geograficzna-antypodow-gorowania/Rejon-antypodow-gorowania/Odleglosc-katowa/&
&|Odleglosc-katowa|/Plyw/Przyplyw/Co-2-przyplyw-A/Co-2-przyplyw-B/Odplyw/Co-2-odplyw-A/Co-2-odplyw-B/Czas-miedzy-przyplywami/&
&Czas-miedzy-odplywami/Deklinacja-Slonca[st.]/Czas-miedzy-przyplywem-i-ekstremum-sily[%czasu+lub-elewacji]/&
&Czas-miedzy-odplywem-i-ekstremum-sily[%czasu+lub-elewacji]/Czas-sily-w-gore-podczas-przyplywu-[h]/Czas-sily-w-dol&
&-podczas-przyplywu/Czas-sily-w-gore-podczas-odplywu/Czas-sily-w-dol-podczas-odplywu/Roznica-od-poprzedniego-przyplywu-[m]/&
&Roznica-od-poprzedniego-odplywu-[m]/'
!DO wiersz=25,dowiersza-24
DO wiersz=(25+(30*24)+doutc1),dowiersza-(30*24)+doutc1
  !Deklinacja Slonca
  !http://naturalfrequency.com/Tregenza_Sharples/Daylight_Algorithms/algorithm_1_11.htm
  J=1.+REAL(wiersz-(25+(30*24)+doutc1))/24.
  tau=(2.*pi*(J-1.))/365.
  wynik(wiersz,41)=0.006918-0.399912*cos(tau)+0.070257*sin(tau)-0.006758*cos(2*tau)+0.000907*sin(2*tau)-0.002697*cos(3*tau)+&
  0.001480*sin(3*tau)
  !Drukuje tabele roku:
  !IF(wynik(wiersz,39).NE.-999.99)THEN
  !WRITE(*,*)'czasprzyplywu',wynik(wiersz,39)
  !Pause
  !END IF
  !IF(st.EQ.2)THEN
 !WRITE(*,*)wynik(wiersz,1)
 !pause
 !END IF
WRITE(20,"(A13,A1,13(F6.1,A1),A4,A1,2(F8.1,A1),2(F6.1,A1),A6,A1,8(F6.1,A1),A6,A1,2(F7.1,A1),A6,A1,&
&2(F6.1,A1),18(F6.2,A1))") &
dzientygodnia(wiersz),'/',wynik(wiersz,1),'/',wynik(wiersz,2),'/',wynik(wiersz,3),'/',wynik(wiersz,4)&
,'/',wynik(wiersz,5),'/',&
wynik(wiersz,6),'/',wynik(wiersz,7),'/',wynik(wiersz,8),'/',(24.*wynik(wiersz,17)/6.28),'/',&
wynik(wiersz,18),'/',wynik(wiersz,11),&
'/',ABS(wynik(wiersz,11)),'/',wynik(wiersz,10),'/',strona(wiersz),'/',wynik(wiersz,20),'/',&
wynik(wiersz,9),'/',wynik(wiersz,26),&
'/',ABS(wynik(wiersz,26)),'/',now(wiersz),'/',wynik(wiersz,28),'/',wynik(wiersz,27),'/',&
wynik(wiersz,12),'/',ABS(wynik(wiersz,12))&
,'/',wynik(wiersz,13),'/',wynik(wiersz,21),'/',wynik(wiersz,23),'/',wynik(wiersz,22),'/',&
bobsz(wiersz),'/',wynik(wiersz,25),'/',&
wynik(wiersz,24),'/',dobsz(wiersz),'/',wynik(wiersz,29),'/',ABS(wynik(wiersz,29)),'/',&
wynik(wiersz,32),'/',wynik(wiersz,33),'/',&
wynik(wiersz,34),'/',wynik(wiersz,35),'/',wynik(wiersz,36),'/',wynik(wiersz,37),'/',wynik(wiersz,38)&
,'/',wynik(wiersz,39),'/',&
wynik(wiersz,40),'/',wynik(wiersz,41)*degs,'/',wynik(wiersz,42),'/',wynik(wiersz,43),'/',&
wynik(wiersz,44),'/',wynik(wiersz,45),&
'/',wynik(wiersz,46),'/',wynik(wiersz,47),'/',wynik(wiersz,48),'/',wynik(wiersz,49),'/'
END DO
END IF
  CLOSE(20)
!END DO
!WRITE(*,*)wiersztabplywow,poprzwierszplywu

!wynik: 1-rok, 2-miesiac, 3-dzien, 4-godzina, 5-rokUT, 6-miesiacUT, 7-dzienUT, 8-godzinaUT, 9-odlegosc[km], 10-azymut[st.], 11-elewacja[st.], 
!12-silapionowa[%], 13-silapozioma[%],14-lst, 15,16=-geocentric ecliptic coords (l,b) [st.],17,18-geocentric equatorial coords (ra [h], dec[st.])
!19-kierunek, 20-odleglosc do srodka Ziemi [km], 21-sila na Ziemie {%], 22-blong,23-blat,24-dlong,25-dlat (bliskie i dalekie pozycje na Ziemi)
!26-faza,27-swiatlo, 28- widoczny rozmiar[%], 29-kat miedzy poludnikiem obserwatora, a poludnikiem Ksiezyca, 30-LHA, 31-GHA? przed modulowaniem
!32-plyw,33-przyplyw,34-co 2 przyplyw A, 35- co 2 przyplyw B , 36- odplyw, 37 - co 2 odplyw A, 38 -co 2 odplyw B, 39-czas od poprzedniego przyplywu,
!40 - czas od poprzedniego odplywu [h], 41- deklinacja Slonca, 42-czas od ekstremum sily pionowej do przyplywu/czas dodatniej lub ujemnej elewacji,
!43-czas od ekstremum sily pionowej do odplywu /czas dodatniej lub ujemnej elewacji,44-czas sily w gore podczas przyplywu[h], 45-czas sily w dol
!podczas przyplywu, 46-czas sily w gore podczas odplywu, 47 -czas sily w dol podczas odplywu

!!WRITE(20,*) '.................long.',glong1,'lat.',glat1,'year.',y1,'.'
!!WRITE(20,*) '.................1XII ubr. letni?. doutc1. PL?. >100pion. >100poz. >100odl-rmkm. rmkmmin. rmkmmax.',&
!!XIIubr,letni,doutc1,pl,przekpion, przekpoz,przek,rmkmmin,rmkmmax,rmtopkmmax,rmtopkmmin

!!WRITE(20,*) 'dzien-tygodnia. rok. miesiac. dzien.elewacja.azymut.kierunek.faza.now.rozmiar.swiatlo.sila-pionowa.&
!!&sila-pozioma.na-Ziemie.h.blat.blong.bobsz.dlat.dlong.dobsz.kat-Ksiezyc.LHA.GHA-przed-modulowaniem.h-utc.d-utc.lst.ra'

!!DO wiersz=25,dowiersza-24
!!WRITE(20,"(A13,F5.0,F3.0,F3.0,F4.0,F5.0,A2,F5.0,A4,F4.0,F4.0,3F5.0,F3.0,2F5.0,A5,2F5.0,A5,3F5.0,2F3.0,2F5.0)") &
!!dzientygodnia(wiersz),&
!!wynik(wiersz,1),wynik(wiersz,2),wynik(wiersz,3),wynik(wiersz,11),wynik(wiersz,10),strona(wiersz),wynik(wiersz,26),now(wiersz),&
!!wynik(wiersz,28),wynik(wiersz,27),wynik(wiersz,12),wynik(wiersz,13),wynik(wiersz,21),wynik(wiersz,4),&
!!wynik(wiersz,23),wynik(wiersz,22),bobsz(wiersz),wynik(wiersz,25),wynik(wiersz,24),dobsz(wiersz),&
!!wynik(wiersz,29),wynik(wiersz,30),wynik(wiersz,31),wynik(wiersz,8),wynik(wiersz,7),wynik(wiersz,14),wynik(wiersz,17)
!!END DO

!CLOSE (20)
!'
!'   print output in readable form - the 'formatting strings'
!'	only work with Microsoft basics and FirstBas compiler
!'	remove them for other basics.
!'
!!PRINT
!!pr1$ = "\                                      \ ###.###  ###.###"
!!pr2$ = "\                                      \ #######.####"
!PRINT USING pr2$; "days from J2000 ....................... "; d
!WRITE(*,*)'days from J2000 ....................... ',d
!PRINT USING pr1$; "geocentric ecliptic coords (l,b) ...... "; l * degs; bm * degs
d1=l*degs
d2=bm*degs
!WRITE(*,*) 'geocentric ecliptic coords (l,b) [st.]...... ',d1,d2
!PRINT USING pr2$; "lunar parallax (deg) .................. "; gp * degs
d3=gp*degs
!WRITE(*,*) 'lunar parallax (deg) .................. ',d3
!PRINT USING pr2$; "diameter (arcmin) ..................... "; sdia * degs * 60 * 2

d4=sdia*degs*60.0*2.0
!WRITE(*,*) 'diameter (arcmin) ..................... ',d4
!PRINT USING pr2$; "geocentric distance (lun dia) ......... "; rm
!WRITE(*,*) 'geocentric distance (lun dia) ......... ',rm,rm*6378.14,'km'
!PRINT USING pr2$; "equator of date (deg) ................. "; ecl * degs
d5=ecl*degs
!WRITE(*,*) 'equator of date (deg) ................. ',d5
!PRINT USING pr1$; "geocentric equatorial coords (ra, dec). "; ra * degs / 15; dec * degs
d6=ra*degs/15.0
d7=dec*degs
!-----ra[rad], dec [rad]
!WRITE(*,*) 'geocentric equatorial coords (ra [h], dec[st.]). ',d6,d7
!PRINT USING pr2$; "local siderial time (hrs) ............. "; lst * degs / 24
d8=lst*degs/15.0
!WRITE(*,*) 'local siderial time (hrs) ............. ',d8
!PRINT USING pr1$; "topocentric equatorial coords (ra, dec) "; ratop * degs / 15; dectop * degs
!-----ratop, dectop [rad]
d9=ratop*degs/15.0
d10=dectop*degs
!WRITE(*,*) 'topocentric equatorial coords (ra[h], dec[st.]) ',d9,d10
!PRINT USING pr2$; "topocentric lunar distance (lun dia) .. "; rmtop
!WRITE(*,*) 'topocentric lunar distance (lun dia) .. ',rmtop,rmtop*6378.14,'km'
odl=r/TAN(sdia)
!WRITE(*,*) 'odleglosc Ksiezyca: ', odl
call topo(d8,ra*degs,dec*degs,glat1,Azy,El)
!WRITE(*,*) 'Azymut,Elewacja [st.]: ', Azy,El
ElRad=El*rads
Fmaxplus=1.0/((384399.0-6378.14)*(384399.0-6378.14))
Fmaxminus=1.0/((384399.0+6378.14)*(384399.0+6378.14))
sila=(sin(ElRad))*1.0/(rmtop*6378.14*rmtop*6378.14)
silaplus=sila*100.0/Fmaxplus
silaminus=sila*100.0/Fmaxminus
!IF (ElRad.GE.0.0) THEN
  !WRITE(*,*) 'sila odciazajaca [%]: ', silaplus
  !ELSE
    !WRITE(*,*) 'sila odciazajaca [%]: ', silaminus
    !ENDIF
   
  WRITE(*,*) 'KONIEC PROGRAMU MOON'
STOP
!END
!'*********************************************************************************************
!**********************************************************************************************
END PROGRAM MOON
!'
!'   FNday only works between 1901 to 2099 - see Meeus chapter 7
!'
!DEF FNday (y, m, d, h) = 367 * y - 7 * (y + (m + 9) \ 12) \ 4 + 275 * m \ 9 + d - 730531.5 + h/ 24
DOUBLE PRECISION FUNCTION day(y,m,dm,h)
!DOUBLE PRECISION:: h
INTEGER::y,m,dm,h
day=367*y-7*(y+(m+9)/12)/4+275*m/9+dm-730531.5+REAL(h)/24.0
END FUNCTION day
!'
!'   the atn2 function below returns an angle in the range 0 to two pi
!'   depending on the signs of x and y.
!'
!DEF FNatn2 (y, x)
DOUBLE PRECISION FUNCTION fnatn2(y,x)
DOUBLE PRECISION::a,pi,x,y,twopi
pi=4.0*ATAN(1.0)
twopi=2.0*pi
	!a = ATN(y / x)
a=ATAN(y/x)
	!IF x < 0 THEN a = a + pi
IF(x.LT.0.0) THEN 
  a=a+pi
  ENDIF
	!IF (y < 0) AND (x > 0) THEN a = a + twopi
IF((y.LT.0.0).AND.(x.GT.0.0)) THEN 
  a=a+twopi
  ENDIF
	!FNatn2 = a
fnatn2=a
END FUNCTION fnatn2
!'
!'   the function below returns the true integer part,
!'   even for negative numbers
!'
!DEF FNrange (x) = x - INT(x / twopi) * twopi
DOUBLE PRECISION FUNCTION fnrange(x)
DOUBLE PRECISION::twopi,pi,x
pi=4.0*ATAN(1.0)
twopi=2.0*pi
fnrange=x-FLOOR(x/twopi)*twopi
END FUNCTION fnrange
!--------------------------------------------------------------------------------------------------------------------
    subroutine topo(SIDTIME,RA,Dec,Lat,Az,El)
    !https://uk.mathworks.com/matlabcentral/fileexchange/25617-right-ascension-declination-to-azimuth-elevation
    IMPLICIT NONE
    DOUBLE PRECISION::SIDTIME,RA,Dec,Lat,HA,pi,x,y,z,xhor,yhor,zhor,Az,El
    !SIDTIME=local siderial time [h]
    !RA=Right ascension (J2000) of sky position in degrees (0:360)
   !Dec=Declination angle (J2000) of sky position in degrees (-90:90)
   !Lat=Latitude of location in degrees -90:90 -> S(-) N(+)
   !Lat=moja szer. geogr.
   !RA=szer. r wnikowa Ksiyca
   !Dec=dekl.    "     Ksiyca
   !% Az    Azimuth angle of position in degrees (0:360)
!% El    Elevation angle of position in degrees (-90:90)
    !% Replace RA with hour angle HA
!HA = (SIDTIME*15 - RA);
pi=4.0*ATAN(1.0)
HA=SIDTIME*15.0-RA
!% Convert to rectangular coordinate system
!x = cos(HA.*(pi/180)).*cos(Dec.*(pi/180));
x = cos(HA*(pi/180.0))*cos(Dec*(pi/180.0))
!y = sin(HA.*(pi/180)).*cos(Dec.*(pi/180));
y = sin(HA*(pi/180.0))*cos(Dec*(pi/180.0))
!z = sin(Dec.*(pi/180));
z = sin(Dec*(pi/180.0))
!% Rotate this along an axis going east-west.
!xhor = x.*cos((90-Lat).*(pi/180))-z.*sin((90-Lat).*(pi/180));
xhor = x*cos((90.0-Lat)*(pi/180.0))-z*sin((90.0-Lat)*(pi/180.0))
!yhor = y;
yhor = y

!zhor = x.*sin((90-Lat).*(pi/180))+z.*cos((90-Lat).*(pi/180));
zhor = x*sin((90.0-Lat)*(pi/180.0))+z*cos((90.0-Lat)*(pi/180.0))
!% Find the h and AZ 
!Az = atan2(yhor,xhor).*(180/pi) + 180;
Az = atan2(yhor,xhor)*(180.0/pi) + 180.0
!El = asin(zhor).*(180/pi);
El=asin(zhor)*(180.0/pi)
END
!____________________________________________________________________________________________

subroutine kalendarz(rok,miesiac,dni,odwiersza,dowiersza,wynik)
IMPLICIT NONE
INTEGER rok,miesiac,dni,odwiersza,dowiersza,dzien,h,wiersz,juz
REAL,DIMENSION(10272,18)::wynik
!WRITE(*,*) rok,miesiac,dni,odwiersza,dowiersza
DO wiersz=odwiersza,odwiersza+dni*24-1
  !WRITE(*,*) 'wiersz', wiersz
  !WRITE(*,*)FLOAT(miesiac)
wynik(wiersz,2)=FLOAT(miesiac)
!WRITE(*,*)'wynik(wiersz,2)',wynik(wiersz,2)
wynik(wiersz,1)=FLOAT(rok)
!WRITE(*,*) 'wynik(wiersz,1)',wynik(wiersz,1)
END DO
dowiersza=odwiersza+dni*24-1
!WRITE (*,*) 'dowiersza', dowiersza
dzien=1
!WRITE(*,*) 'dzien',dzien
juz=odwiersza-1
!WRITE(*,*)'juz', juz
h=0
100 wynik(juz+1,4)=FLOAT(h)
!WRITE(*,*) 'wynik(juz+1,4)', wynik(juz+1,4)
    wynik(juz+1,3)=FLOAT(dzien)
    !WRITE(*,*)'wynik(juz+1,3', wynik(juz+1,3)
h=h+1
juz=juz+1
IF (h.NE.24) THEN 
  GOTO 100
  ELSE
    dzien=dzien+1
    h=0
     END IF
    IF (dzien.LE.dni)THEN
      GOTO 100
      ELSE
        CONTINUE
        END IF
        END
!============================================================================================================
        SUBROUTINE OBSZAR(long,lat,pl,obsz)
        DOUBLE PRECISION::long,lat
        INTEGER::pl
        CHARACTER(6)::obsz
    ! 1 Afryka pn 50...-16 n-Af
    ! 2 Atl -16...-61 n-AO
    ! 3 Am r  -61...-106 n-Am
    ! 4 Pacy -106...115 n-PO
    ! 5 Azja pd 115...50 n-As

    IF(lat.GE.0.0)THEN
      IF((lat.GT.36.0).AND.(long.GE.-16.0 .AND. long.LT.50.0))THEN
        obsz="Eu-n"
        ELSE
      10 IF((long.GE.-16.0 .AND. long.LT.50.0).AND.lat.LE.36.0) THEN
        obsz="Af-n"
        ELSE
      20 IF(long.GE.-61.0 .AND. long.LT.-16.0) THEN
        obsz="AO-n"
        ELSE
      30 IF(long.GE.-106.0 .AND. long.LT.-61.0) THEN
        obsz="Am-n"
        ELSE
      40 IF((long.GE.-180.0 .AND. long.LT.-106.0).OR.(long.GE.115.0 .AND. long.LE.180.0)) THEN
        obsz="PO-n"
        ELSE
      50 IF(long.GE.50.0 .AND. long.LT.115.0) THEN
        obsz="As-n"
        ELSE
          END IF
          END IF
          END IF
          END IF
          END IF
          END IF
          ELSE
              !pd:
    ! 6 Af pd 50...12 s-Af
    ! 7 Atl 12...-35 s-AO
    ! 8 Am pd -35...-81 s-Am
    ! 9 Pac -81...150 s-PO
    ! 10 Aus 150...116 s-Au
    ! 11 116...50 OInd s-IO
      60 IF(long.GE.12.0 .AND. long.LT.50.0) THEN
        obsz="Af-s"
        ELSE
      70 IF(long.GE.-35.0 .AND. long.LT.12.0) THEN
        obsz="AO-s"
        ELSE
      80 IF(long.GE.-81.0 .AND. long.LT.-35.0) THEN
        obsz="Am-s"
        ELSE
      90 IF((long.GE.-180.0 .AND. long.LT.-81.0).OR.(long.GE.150.0 .AND. long.LE.180.0)) THEN
        obsz="PO-s"
        ELSE
      100 IF(long.GE.116.0 .AND. long.LT.150.0) THEN
        obsz="Au-s"
        ELSE
      110 IF(long.GE.50.0 .AND. long.LT.116.0) THEN
        obsz="IO-s"
        ELSE
          obsz="???"
          END IF
          END IF
          END IF
          END IF
          END IF
          END IF
          END IF
         END
         !----------------------------------------------------------------------------------------------------------
         !http://cybermoon.pl/wiedza/algorithms/moon_phase.html
!pascal, delphi
DOUBLE PRECISION FUNCTION faza(R,M,D,G,Min,S)
!{\rtf1\ansi\deff0{\fonttbl{\f0\fnil MS Sans Serif;}}
!\viewkind4\uc1\pard\lang1045\f0\fs16  \{cybermoon.w.interia.pl\}\par
!\par
! \{$n+\}\par
! uses wincrt;\{lub uses crt;\}\par
!\par
!var R,M,D,G,Min,S:Integer;\par
INTEGER::R,M,D,G,Min,S
!\par
!Function rang(x:Double):double;\par
!var a,b:double;\par
!begin\par
!    b:= x / 360;\par
!    A:= 360 * (b - int(b));\par
!    If (A < 0) Then A:= A + 360;\par
!    rang:= A;\par
!End;\par
!\par
!\par
!\par
!\par
!Function faza(Rok, Miesiac, Dzien, godzina,min, sec:double):double;\par
!var A:Double;    b:double;    phi1,phi2,jdp,tzd,elm,ams,aml,asd:double;\par
DOUBLE PRECISION::A,b,phi1,phi2,jdp,tzd,elm,ams,aml,asd,rang
!begin\par
    !If (Miesiac > 2) Then begin\par
    !    Miesiac:= Miesiac;\par
    !    Rok:= Rok;\par
     !   End;\par
    
    !If Miesiac <= 2 Then begin\par
    !Miesiac:= Miesiac + 12;\par
    !Rok:= Rok - 1;\par
    !End;\par
    IF(M.LE.2)THEN
      M=M+12
      R=R-1
      END IF
    !A:= int(Rok / 100);\par
    A=REAL(FLOOR(REAL(R/100)))
    !b:= 2 - A + int(A / 4);\par
    b=2.0-A+REAL(FLOOR(A/4.0))
    !jdp:= int(365.25 * (Rok + 4716)) + int(30.6001 * (Miesiac + 1)) + Dzien + b +\par
     !     ((godzina + min / 60 + sec / 3600) / 24) - 1524.5;\par
jdp=REAL(FLOOR(365.25*REAL(R+4716)))+ REAL(FLOOR(30.6001*REAL(M+1)))+REAL(D)+b+&
((REAL(G)+REAL(Min)/60.+REAL(S)/3600.)/24.)-1524.5
   
     !WRITE(*,*) G,jdp,REAL(((G+Min/60+S/3600)/24)),(G+Min/60+S/3600)/24
     !PAUSE
     
    !jdp:= jdp;\par
!tzd:= (jdp - 2451545) / 36525;\par
tzd=(jdp-2451545.0)/36525.0
!elm:= rang(297.8502042 + 445267.1115168 * tzd - (0.00163 * tzd * tzd) + tzd*tzd*tzd / 545868 - tzd*tzd*tzd*tzd / 113065000);\par
elm=rang(297.8502042+445267.1115168*tzd-(0.00163*tzd*tzd)+tzd*tzd*tzd/545868.0-tzd*tzd*tzd*tzd/113065000.0)
!ams:= rang(357.5291092 + 35999.0502909 * tzd - 0.0001536 * tzd * tzd + tzd*tzd*tzd / 24490000);\par
ams=rang(357.5291092+35999.0502909*tzd-0.0001536*tzd*tzd+tzd*tzd*tzd/24490000.0)
!aml:= rang(134.9634114 + 477198.8676313 * tzd - 0.008997 * tzd * tzd + tzd*tzd*tzd / 69699 - tzd*tzd*tzd*tzd / 14712000);\par
aml=rang(134.9634114+477198.8676313*tzd-0.008997*tzd*tzd+tzd*tzd*tzd/69699.0-tzd*tzd*tzd*tzd/14712000.0)
!asd:= 180 - elm -   (6.289 * sin((3.1415926535 / 180) * ((aml)))) +\par
!                    (2.1 * sin((3.1415926535 / 180) * ((ams)))) -\par
!                    (1.274 * sin((3.1415926535 / 180) * (((2 * elm) - aml)))) -\par
!                    (0.658 * sin((3.1415926535 / 180) * ((2 * elm)))) -\par
!                    (0.214 * sin((3.1415926535 / 180) * ((2 * aml)))) -\par
!                    (0.11 * sin((3.1415926535 / 180) * ((elm))));\par
asd=180.0-elm-(6.289*sin((3.1415926535/180.0)*((aml))))+&
(2.1*sin((3.1415926535/180.0)*((ams))))-&
(1.274*sin((3.1415926535/180.0)*(((2.0*elm)-aml))))-&
(0.658*sin((3.1415926535/180.0)*((2.0*elm))))-&
(0.214*sin((3.1415926535/180.0)*((2.0*aml))))-&
(0.11*sin((3.1415926535/180.0)*((elm))))

!phi1:= (1 + Cos((3.1415926535 / 180) * (asd))) / 2;\par
phi1=(1.+cos((3.1415926535/180.)*(asd)))/2.
!\par
!\par
!tzd:= (jdp + (0.5 / 24) - 2451545) / 36525;\par
tzd=(jdp+(0.5/24.)-2451545.)/36525.
!elm:= rang(297.8502042 + 445267.1115168 * tzd - (0.00163 * tzd * tzd) + tzd*tzd*tzd / 545868 - tzd*tzd*tzd*tzd / 113065000);\par
elm=rang(297.8502042+445267.1115168*tzd-(0.00163*tzd*tzd)+tzd*tzd*tzd/545868.-tzd*tzd*tzd*tzd/113065000.)
!ams:= rang(357.5291092 + 35999.0502909 * tzd - 0.0001536 * tzd * tzd + tzd*tzd*tzd / 24490000);\par
ams=rang(357.5291092+35999.0502909*tzd-0.0001536*tzd*tzd+tzd*tzd*tzd/24490000.)
!aml:= rang(134.9634114 + 477198.8676313 * tzd - 0.008997 * tzd * tzd + tzd*tzd*tzd / 69699 - tzd*tzd*tzd*tzd / 14712000);\par
aml= rang(134.9634114+477198.8676313*tzd-0.008997*tzd*tzd+tzd*tzd*tzd/69699.-tzd*tzd*tzd*tzd/14712000.)
!asd:= 180 - elm -   (6.289 * sin((3.1415926535 / 180) * ((aml)))) +\par
!                    (2.1 * sin((3.1415926535 / 180) * ((ams)))) -\par
!                    (1.274 * sin((3.1415926535 / 180) * (((2 * elm) - aml)))) -\par
!                    (0.658 * sin((3.1415926535 / 180) * ((2 * elm)))) -\par
!                    (0.214 * sin((3.1415926535 / 180) * ((2 * aml)))) -\par
!                    (0.11 * sin((3.1415926535 / 180) * ((elm))));\par
asd=180.-elm-(6.289*sin((3.1415926535/180.)*((aml))))+&
(2.1*sin((3.1415926535/180.)*((ams))))-&
(1.274*sin((3.1415926535/180.)*(((2.*elm)-aml))))-&
(0.658*sin((3.1415926535/180.)*((2.*elm))))-&
(0.214*sin((3.1415926535/180.)*((2.*aml))))-&
(0.11*sin((3.1415926535/180.)*((elm))))

!phi2:= (1 + Cos((3.1415926535 / 180) * (asd))) / 2;\par
phi2=(1+cos((3.1415926535/180.)*(asd)))/ 2.
!\par
!\par
!if (phi2-phi1)<0 then phi1:=-1*phi1;\par
IF((phi2-phi1).LT.0.0) THEN
   phi1=-1.*phi1
!faza:=100*phi1;\par
faza=100.*phi1
ELSE
  faza=100.*phi1
  END IF
!end;\par
!\par
!\par
!begin\par
!\par
!write('Podaj Rok     : ');readln(R);\par
!write('Podaj Miesiac : ');readln(M);\par
!write('Podaj Dzien   : ');readln(D);\par
!write('Podaj Godzine : ');readln(G);\par
!write('Podaj Minute  : ');readln(Min);\par
!write('Podaj Sekunde : ');readln(S);\par
!writeln;\par
!writeln('Faza Ksiezyca to : ',faza(R,M,D,G,Min,S):0:4);\par
!writeln;\par
!writeln;\par
!writeln;\par
!writeln('Wynik dodatni (prawa strona ksiezyca oswietlona - elongacja dodatnia)');\par
!writeln('Wynik ujemny (lewa strona ksiezyca oswietlona - elongacja ujemna)');\par
!writeln('Now        =   0.00');\par
!writeln('I kwadra   =  50.00');\par
!writeln('Pelnia     = 100.00');\par
!writeln('III kwadra = -50.00');\par
!\par
!readln;\par
!\par
!end.\par
END FUNCTION
!---------------------------------------------------
!Function rang(x:Double):double;\par
DOUBLE PRECISION FUNCTION rang(x)
!var a,b:double;\par
DOUBLE PRECISION:: a,b,x
!begin\par
    !b:= x / 360;\par
    b=x/360.0
    !A:= 360 * (b - int(b));\par
    a=360.0*(b-FLOOR(b))
    !If (A < 0) Then A:= A + 360;\par
    IF(a.LT.0.0)THEN
      a=a+360.0
      rang=a
      ELSE
    !rang:= A;\par
    rang=a
    END IF
!End;\par
END FUNCTION
!--------------------------------------------------------
!
SUBROUTINE OTWORZA(stacja)
INTEGER:: stacja
select case(stacja)
case(1)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\1.txt')
case(2)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\2.txt')
case(3)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\3.txt')
case(4)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\4.txt')
case(5)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\5.txt')
case(6)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\6.txt')
case(7)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\7.txt')
case(8)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\8.txt')
case(9)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\9.txt')
case(10)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\10.txt')
case(11)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\11.txt')
case(12)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\12.txt')
case(13)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\13.txt')
case(14)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\14.txt')
case(15)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\15.txt')
case(16)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\16.txt')
case(17)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\17.txt')
case(18)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\18.txt')
case(19)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\19.txt')
case(20)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\20.txt')
case(21)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\21.txt')
case(22)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\22.txt')
case(23)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\23.txt')
case(24)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\24.txt')
case(25)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\25.txt')
case(26)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\26.txt')
case(27)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\27.txt')
case(28)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\28.txt')
case(29)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\29.txt')
case(30)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\30.txt')
case(31)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\31.txt')
case(32)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\32.txt')
case(33)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\33.txt')
case(34)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\34.txt')
case(35)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\35.txt')
case(36)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\36.txt')
case(37)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\37.txt')
case(38)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\38.txt')
case(39)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\39.txt')
case(40)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\40.txt')
case(41)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\41.txt')
case(42)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\42.txt')
case(43)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\43.txt')
case(44)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\44.txt')
case(45)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\45.txt')
case(46)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\46.txt')
case(47)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\47.txt')
case(48)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\48.txt')
case(49)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\49.txt')
case(50)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\50.txt')
case(51)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\51.txt')
case(52)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\52.txt')
case(53)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\53.txt')
case(54)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\54.txt')
case(55)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\55.txt')
case(56)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\56.txt')
case(57)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\57.txt')
case(58)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\58.txt')
case(59)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\59.txt')
case(60)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\60.txt')
case(61)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\61.txt')
case(62)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\62.txt')
case(63)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\63.txt')
case(64)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\64.txt')
case(65)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\65.txt')
case(66)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\66.txt')
case(67)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\67.txt')
case(68)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\68.txt')
case(69)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\69.txt')
case(70)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\70.txt')
case(71)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\71.txt')
case(72)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\72.txt')
case(73)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\73.txt')
case(74)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\74.txt')
case(75)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\75.txt')
case(76)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\76.txt')
case(77)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\77.txt')
case(78)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\78.txt')
case(79)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\79.txt')
case(80)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\80.txt')
case(81)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\81.txt')
case(82)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\82.txt')
case(83)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\83.txt')
case(84)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\84.txt')
case(85)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\85.txt')
case(86)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\86.txt')
case(87)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\87.txt')
case(88)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\88.txt')
case(89)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\89.txt')
case(90)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\90.txt')
case(91)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\91.txt')
case(92)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\92.txt')
case(93)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\93.txt')
case(94)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\94.txt')
case(95)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\95.txt')
case(96)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\96.txt')
case(97)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\97.txt')
case(98)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\98.txt')
case(99)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\99.txt')
case(100)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\100.txt')
case(101)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\101.txt')
case(102)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\102.txt')
case(103)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\103.txt')
case(104)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\104.txt')
case(105)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\105.txt')
case(106)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\106.txt')
case(107)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\107.txt')
case(108)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\108.txt')
case(109)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\109.txt')
case(110)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\110.txt')
case(111)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\111.txt')
case(112)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\112.txt')
case(113)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\113.txt')
case(114)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\114.txt')
case(115)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\115.txt')
case(116)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\116.txt')
case(117)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\117.txt')
case(118)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\118.txt')
case(119)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\119.txt')
case(120)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\120.txt')
case(121)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\121.txt')
case(122)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\122.txt')
case(123)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\123.txt')
case(124)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\124.txt')
case(125)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\125.txt')
case(126)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\126.txt')
case(127)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\127.txt')
case(128)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\128.txt')
case(129)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\129.txt')
case(130)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\130.txt')
case(131)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\131.txt')
case(132)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\132.txt')
case(133)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\133.txt')
case(134)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\134.txt')
case(135)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\135.txt')
case(136)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\136.txt')
case(137)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\137.txt')
case(138)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\138.txt')
case(139)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\139.txt')
case(140)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\140.txt')
case(141)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\141.txt')
case(142)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\142.txt')
case(143)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\143.txt')
case(144)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\144.txt')
case(145)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\145.txt')
case(146)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\146.txt')
case(147)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\147.txt')
case(148)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\148.txt')
case(149)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\149.txt')
case(150)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\150.txt')
case(151)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\151.txt')
case(152)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\152.txt')
case(153)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\153.txt')
case(154)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\154.txt')
case(155)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\155.txt')
case(156)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\156.txt')
case(157)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\157.txt')
case(158)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\158.txt')
case(159)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\159.txt')
case(160)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\160.txt')
case(161)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\161.txt')
case(162)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\162.txt')
case(163)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\163.txt')
case(164)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\164.txt')
case(165)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\165.txt')
case(166)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\166.txt')
case(167)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\167.txt')
case(168)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\168.txt')
case(169)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\169.txt')
case(170)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\170.txt')
case(171)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\171.txt')
case(172)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\172.txt')
case(173)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\173.txt')
case(174)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\174.txt')
case(175)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\175.txt')
case(176)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\176.txt')
case(177)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\177.txt')
case(178)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\178.txt')
case(179)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\179.txt')
case(180)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\180.txt')
case(181)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\181.txt')
case(182)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\182.txt')
case(183)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\183.txt')
case(184)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\184.txt')
case(185)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\185.txt')
case(186)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\186.txt')
case(187)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\187.txt')
case(188)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\188.txt')
case(189)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\189.txt')
case(190)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\190.txt')
case(191)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\191.txt')
case(192)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\192.txt')
case(193)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\193.txt')
case(194)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\194.txt')
case(195)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\195.txt')
case(196)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\196.txt')
case(197)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\197.txt')
case(198)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\198.txt')
case(199)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\199.txt')
case(200)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\200.txt')

  case default
WRITE(*,*) 'Nie ma w spisie stacji a', stacja
  end select
END
!-------------------------------------------------------------
SUBROUTINE OTWORZB(stacja)
INTEGER:: stacja
select case(stacja)
case(1)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\1.txt')
case(2)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\2.txt')
case(3)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\3.txt')
case(4)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\4.txt')
case(5)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\5.txt')
case(6)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\6.txt')
case(7)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\7.txt')
case(8)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\8.txt')
case(9)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\9.txt')
case(10)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\10.txt')
case(11)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\11.txt')
case(12)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\12.txt')
case(13)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\13.txt')
case(14)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\14.txt')
case(15)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\15.txt')
case(16)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\16.txt')
case(17)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\17.txt')
case(18)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\18.txt')
case(19)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\19.txt')
case(20)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\20.txt')
case(21)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\21.txt')
case(22)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\22.txt')
case(23)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\23.txt')
case(24)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\24.txt')
case(25)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\25.txt')
case(26)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\26.txt')
case(27)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\27.txt')
case(28)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\28.txt')
case(29)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\29.txt')
case(30)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\30.txt')
case(31)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\31.txt')
case(32)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\32.txt')
case(33)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\33.txt')
case(34)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\34.txt')
case(35)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\35.txt')
case(36)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\36.txt')
case(37)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\37.txt')
case(38)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\38.txt')
case(39)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\39.txt')
case(40)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\40.txt')
case(41)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\41.txt')
case(42)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\42.txt')
case(43)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\43.txt')
case(44)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\44.txt')
case(45)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\45.txt')
case(46)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\46.txt')
case(47)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\47.txt')
case(48)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\48.txt')
case(49)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\49.txt')
case(50)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\50.txt')
case(51)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\51.txt')
case(52)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\52.txt')
case(53)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\53.txt')
case(54)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\54.txt')
case(55)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\55.txt')
case(56)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\56.txt')
case(57)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\57.txt')
case(58)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\58.txt')
case(59)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\59.txt')
case(60)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\60.txt')
case(61)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\61.txt')
case(62)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\62.txt')
case(63)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\63.txt')
case(64)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\64.txt')
case(65)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\65.txt')
case(66)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\66.txt')
case(67)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\67.txt')
case(68)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\68.txt')
case(69)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\69.txt')
case(70)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\70.txt')
case(71)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\71.txt')
case(72)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\72.txt')
case(73)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\73.txt')
case(74)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\74.txt')
case(75)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\75.txt')
case(76)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\76.txt')
case(77)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\77.txt')
case(78)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\78.txt')
case(79)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\79.txt')
case(80)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\80.txt')
case(81)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\81.txt')
case(82)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\82.txt')
case(83)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\83.txt')
case(84)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\84.txt')
case(85)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\85.txt')
case(86)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\86.txt')
case(87)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\87.txt')
case(88)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\88.txt')
case(89)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\89.txt')
case(90)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\90.txt')
case(91)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\91.txt')
case(92)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\92.txt')
case(93)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\93.txt')
case(94)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\94.txt')
case(95)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\95.txt')
case(96)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\96.txt')
case(97)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\97.txt')
case(98)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\98.txt')
case(99)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\99.txt')
case(100)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\100.txt')
case(101)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\101.txt')
case(102)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\102.txt')
case(103)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\103.txt')
case(104)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\104.txt')
case(105)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\105.txt')
case(106)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\106.txt')
case(107)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\107.txt')
case(108)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\108.txt')
case(109)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\109.txt')
case(110)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\110.txt')
case(111)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\111.txt')
case(112)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\112.txt')
case(113)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\113.txt')
case(114)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\114.txt')
case(115)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\115.txt')
case(116)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\116.txt')
case(117)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\117.txt')
case(118)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\118.txt')
case(119)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\119.txt')
case(120)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\120.txt')
case(121)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\121.txt')
case(122)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\122.txt')
case(123)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\123.txt')
case(124)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\124.txt')
case(125)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\125.txt')
case(126)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\126.txt')
case(127)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\127.txt')
case(128)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\128.txt')
case(129)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\129.txt')
case(130)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\130.txt')
case(131)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\131.txt')
case(132)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\132.txt')
case(133)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\133.txt')
case(134)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\134.txt')
case(135)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\135.txt')
case(136)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\136.txt')
case(137)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\137.txt')
case(138)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\138.txt')
case(139)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\139.txt')
case(140)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\140.txt')
case(141)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\141.txt')
case(142)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\142.txt')
case(143)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\143.txt')
case(144)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\144.txt')
case(145)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\145.txt')
case(146)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\146.txt')
case(147)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\147.txt')
case(148)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\148.txt')
case(149)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\149.txt')
case(150)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\150.txt')
case(151)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\151.txt')
case(152)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\152.txt')
case(153)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\153.txt')
case(154)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\154.txt')
case(155)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\155.txt')
case(156)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\156.txt')
case(157)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\157.txt')
case(158)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\158.txt')
case(159)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\159.txt')
case(160)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\160.txt')
case(161)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\161.txt')
case(162)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\162.txt')
case(163)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\163.txt')
case(164)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\164.txt')
case(165)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\165.txt')
case(166)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\166.txt')
case(167)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\167.txt')
case(168)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\168.txt')
case(169)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\169.txt')
case(170)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\170.txt')
case(171)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\171.txt')
case(172)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\172.txt')
case(173)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\173.txt')
case(174)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\174.txt')
case(175)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\175.txt')
case(176)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\176.txt')
case(177)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\177.txt')
case(178)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\178.txt')
case(179)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\179.txt')
case(180)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\180.txt')
case(181)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\181.txt')
case(182)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\182.txt')
case(183)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\183.txt')
case(184)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\184.txt')
case(185)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\185.txt')
case(186)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\186.txt')
case(187)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\187.txt')
case(188)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\188.txt')
case(189)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\189.txt')
case(190)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\190.txt')
case(191)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\191.txt')
case(192)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\192.txt')
case(193)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\193.txt')
case(194)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\194.txt')
case(195)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\195.txt')
case(196)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\196.txt')
case(197)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\197.txt')
case(198)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\198.txt')
case(199)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\199.txt')
case(200)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\200.txt')

  case default
WRITE(*,*) 'Nie ma w spisie stacji b', stacja
  end select
END
!-------------------------------------------------------------
SUBROUTINE OTWORZC(stacja)
INTEGER:: stacja
select case(stacja)
case(1)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\1.txt')
case(2)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\2.txt')
case(3)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\3.txt')
case(4)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\4.txt')
case(5)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\5.txt')
case(6)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\6.txt')
case(7)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\7.txt')
case(8)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\8.txt')
case(9)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\9.txt')
case(10)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\10.txt')
case(11)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\11.txt')
case(12)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\12.txt')
case(13)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\13.txt')
case(14)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\14.txt')
case(15)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\15.txt')
case(16)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\16.txt')
case(17)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\17.txt')
case(18)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\18.txt')
case(19)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\19.txt')
case(20)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\20.txt')
case(21)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\21.txt')
case(22)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\22.txt')
case(23)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\23.txt')
case(24)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\24.txt')
case(25)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\25.txt')
case(26)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\26.txt')
case(27)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\27.txt')
case(28)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\28.txt')
case(29)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\29.txt')
case(30)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\30.txt')
case(31)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\31.txt')
case(32)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\32.txt')
case(33)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\33.txt')
case(34)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\34.txt')
case(35)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\35.txt')
case(36)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\36.txt')
case(37)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\37.txt')
case(38)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\38.txt')
case(39)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\39.txt')
case(40)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\40.txt')
case(41)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\41.txt')
case(42)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\42.txt')
case(43)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\43.txt')
case(44)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\44.txt')
case(45)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\45.txt')
case(46)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\46.txt')
case(47)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\47.txt')
case(48)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\48.txt')
case(49)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\49.txt')
case(50)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\50.txt')
case(51)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\51.txt')
case(52)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\52.txt')
case(53)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\53.txt')
case(54)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\54.txt')
case(55)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\55.txt')
case(56)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\56.txt')
case(57)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\57.txt')
case(58)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\58.txt')
case(59)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\59.txt')
case(60)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\60.txt')
case(61)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\61.txt')
case(62)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\62.txt')
case(63)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\63.txt')
case(64)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\64.txt')
case(65)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\65.txt')
case(66)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\66.txt')
case(67)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\67.txt')
case(68)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\68.txt')
case(69)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\69.txt')
case(70)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\70.txt')
case(71)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\71.txt')
case(72)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\72.txt')
case(73)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\73.txt')
case(74)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\74.txt')
case(75)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\75.txt')
case(76)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\76.txt')
case(77)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\77.txt')
case(78)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\78.txt')
case(79)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\79.txt')
case(80)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\80.txt')
case(81)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\81.txt')
case(82)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\82.txt')
case(83)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\83.txt')
case(84)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\84.txt')
case(85)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\85.txt')
case(86)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\86.txt')
case(87)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\87.txt')
case(88)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\88.txt')
case(89)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\89.txt')
case(90)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\90.txt')
case(91)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\91.txt')
case(92)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\92.txt')
case(93)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\93.txt')
case(94)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\94.txt')
case(95)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\95.txt')
case(96)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\96.txt')
case(97)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\97.txt')
case(98)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\98.txt')
case(99)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\99.txt')
case(100)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\100.txt')
case(101)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\101.txt')
case(102)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\102.txt')
case(103)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\103.txt')
case(104)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\104.txt')
case(105)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\105.txt')
case(106)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\106.txt')
case(107)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\107.txt')
case(108)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\108.txt')
case(109)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\109.txt')
case(110)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\110.txt')
case(111)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\111.txt')
case(112)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\112.txt')
case(113)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\113.txt')
case(114)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\114.txt')
case(115)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\115.txt')
case(116)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\116.txt')
case(117)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\117.txt')
case(118)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\118.txt')
case(119)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\119.txt')
case(120)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\120.txt')
case(121)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\121.txt')
case(122)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\122.txt')
case(123)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\123.txt')
case(124)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\124.txt')
case(125)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\125.txt')
case(126)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\126.txt')
case(127)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\127.txt')
case(128)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\128.txt')
case(129)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\129.txt')
case(130)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\130.txt')
case(131)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\131.txt')
case(132)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\132.txt')
case(133)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\133.txt')
case(134)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\134.txt')
case(135)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\135.txt')
case(136)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\136.txt')
case(137)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\137.txt')
case(138)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\138.txt')
case(139)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\139.txt')
case(140)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\140.txt')
case(141)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\141.txt')
case(142)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\142.txt')
case(143)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\143.txt')
case(144)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\144.txt')
case(145)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\145.txt')
case(146)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\146.txt')
case(147)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\147.txt')
case(148)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\148.txt')
case(149)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\149.txt')
case(150)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\150.txt')
case(151)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\151.txt')
case(152)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\152.txt')
case(153)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\153.txt')
case(154)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\154.txt')
case(155)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\155.txt')
case(156)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\156.txt')
case(157)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\157.txt')
case(158)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\158.txt')
case(159)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\159.txt')
case(160)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\160.txt')
case(161)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\161.txt')
case(162)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\162.txt')
case(163)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\163.txt')
case(164)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\164.txt')
case(165)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\165.txt')
case(166)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\166.txt')
case(167)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\167.txt')
case(168)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\168.txt')
case(169)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\169.txt')
case(170)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\170.txt')
case(171)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\171.txt')
case(172)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\172.txt')
case(173)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\173.txt')
case(174)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\174.txt')
case(175)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\175.txt')
case(176)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\176.txt')
case(177)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\177.txt')
case(178)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\178.txt')
case(179)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\179.txt')
case(180)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\180.txt')
case(181)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\181.txt')
case(182)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\182.txt')
case(183)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\183.txt')
case(184)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\184.txt')
case(185)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\185.txt')
case(186)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\186.txt')
case(187)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\187.txt')
case(188)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\188.txt')
case(189)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\189.txt')
case(190)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\190.txt')
case(191)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\191.txt')
case(192)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\192.txt')
case(193)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\193.txt')
case(194)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\194.txt')
case(195)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\195.txt')
case(196)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\196.txt')
case(197)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\197.txt')
case(198)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\198.txt')
case(199)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\199.txt')
case(200)
OPEN (UNIT=10,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\200.txt')

  case default
WRITE(*,*) 'Nie ma w spisie stacji c', stacja
  end select
END
!-------------------------------------------------------------
SUBROUTINE OTWORZWYNIKA(stacja)
INTEGER:: stacja
select case(stacja)
case(1)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\1w.txt')
case(2)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\2w.txt')
case(3)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\3w.txt')
case(4)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\4w.txt')
case(5)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\5w.txt')
case(6)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\6w.txt')
case(7)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\7w.txt')
case(8)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\8w.txt')
case(9)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\9w.txt')
case(10)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\10w.txt')
case(11)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\11w.txt')
case(12)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\12w.txt')
case(13)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\13w.txt')
case(14)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\14w.txt')
case(15)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\15w.txt')
case(16)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\16w.txt')
case(17)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\17w.txt')
case(18)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\18w.txt')
case(19)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\19w.txt')
case(20)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\20w.txt')
case(21)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\21w.txt')
case(22)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\22w.txt')
case(23)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\23w.txt')
case(24)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\24w.txt')
case(25)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\25w.txt')
case(26)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\26w.txt')
case(27)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\27w.txt')
case(28)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\28w.txt')
case(29)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\29w.txt')
case(30)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\30w.txt')
case(31)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\31w.txt')
case(32)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\32w.txt')
case(33)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\33w.txt')
case(34)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\34w.txt')
case(35)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\35w.txt')
case(36)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\36w.txt')
case(37)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\37w.txt')
case(38)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\38w.txt')
case(39)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\39w.txt')
case(40)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\40w.txt')
case(41)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\41w.txt')
case(42)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\42w.txt')
case(43)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\43w.txt')
case(44)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\44w.txt')
case(45)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\45w.txt')
case(46)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\46w.txt')
case(47)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\47w.txt')
case(48)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\48w.txt')
case(49)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\49w.txt')
case(50)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\50w.txt')
case(51)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\51w.txt')
case(52)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\52w.txt')
case(53)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\53w.txt')
case(54)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\54w.txt')
case(55)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\55w.txt')
case(56)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\56w.txt')
case(57)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\57w.txt')
case(58)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\58w.txt')
case(59)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\59w.txt')
case(60)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\60w.txt')
case(61)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\61w.txt')
case(62)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\62w.txt')
case(63)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\63w.txt')
case(64)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\64w.txt')
case(65)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\65w.txt')
case(66)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\66w.txt')
case(67)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\67w.txt')
case(68)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\68w.txt')
case(69)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\69w.txt')
case(70)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\70w.txt')
case(71)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\71w.txt')
case(72)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\72w.txt')
case(73)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\73w.txt')
case(74)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\74w.txt')
case(75)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\75w.txt')
case(76)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\76w.txt')
case(77)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\77w.txt')
case(78)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\78w.txt')
case(79)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\79w.txt')
case(80)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\80w.txt')
case(81)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\81w.txt')
case(82)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\82w.txt')
case(83)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\83w.txt')
case(84)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\84w.txt')
case(85)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\85w.txt')
case(86)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\86w.txt')
case(87)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\87w.txt')
case(88)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\88w.txt')
case(89)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\89w.txt')
case(90)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\90w.txt')
case(91)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\91w.txt')
case(92)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\92w.txt')
case(93)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\93w.txt')
case(94)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\94w.txt')
case(95)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\95w.txt')
case(96)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\96w.txt')
case(97)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\97w.txt')
case(98)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\98w.txt')
case(99)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\99w.txt')
case(100)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\100w.txt')
case(101)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\101w.txt')
case(102)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\102w.txt')
case(103)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\103w.txt')
case(104)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\104w.txt')
case(105)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\105w.txt')
case(106)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\106w.txt')
case(107)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\107w.txt')
case(108)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\108w.txt')
case(109)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\109w.txt')
case(110)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\110w.txt')
case(111)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\111w.txt')
case(112)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\112w.txt')
case(113)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\113w.txt')
case(114)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\114w.txt')
case(115)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\115w.txt')
case(116)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\116w.txt')
case(117)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\117w.txt')
case(118)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\118w.txt')
case(119)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\119w.txt')
case(120)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\120w.txt')
case(121)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\121w.txt')
case(122)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\122w.txt')
case(123)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\123w.txt')
case(124)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\124w.txt')
case(125)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\125w.txt')
case(126)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\126w.txt')
case(127)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\127w.txt')
case(128)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\128w.txt')
case(129)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\129w.txt')
case(130)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\130w.txt')
case(131)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\131w.txt')
case(132)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\132w.txt')
case(133)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\133w.txt')
case(134)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\134w.txt')
case(135)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\135w.txt')
case(136)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\136w.txt')
case(137)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\137w.txt')
case(138)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\138w.txt')
case(139)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\139w.txt')
case(140)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\140w.txt')
case(141)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\141w.txt')
case(142)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\142w.txt')
case(143)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\143w.txt')
case(144)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\144w.txt')
case(145)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\145w.txt')
case(146)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\146w.txt')
case(147)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\147w.txt')
case(148)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\148w.txt')
case(149)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\149w.txt')
case(150)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\150w.txt')
case(151)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\151w.txt')
case(152)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\152w.txt')
case(153)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\153w.txt')
case(154)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\154w.txt')
case(155)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\155w.txt')
case(156)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\156w.txt')
case(157)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\157w.txt')
case(158)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\158w.txt')
case(159)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\159w.txt')
case(160)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\160w.txt')
case(161)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\161w.txt')
case(162)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\162w.txt')
case(163)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\163w.txt')
case(164)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\164w.txt')
case(165)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\165w.txt')
case(166)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\166w.txt')
case(167)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\167w.txt')
case(168)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\168w.txt')
case(169)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\169w.txt')
case(170)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\170w.txt')
case(171)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\171w.txt')
case(172)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\172w.txt')
case(173)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\173w.txt')
case(174)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\174w.txt')
case(175)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\175w.txt')
case(176)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\176w.txt')
case(177)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\177w.txt')
case(178)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\178w.txt')
case(179)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\179w.txt')
case(180)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\180w.txt')
case(181)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\181w.txt')
case(182)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\182w.txt')
case(183)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\183w.txt')
case(184)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\184w.txt')
case(185)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\185w.txt')
case(186)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\186w.txt')
case(187)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\187w.txt')
case(188)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\188w.txt')
case(189)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\189w.txt')
case(190)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\190w.txt')
case(191)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\191w.txt')
case(192)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\192w.txt')
case(193)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\193w.txt')
case(194)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\194w.txt')
case(195)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\195w.txt')
case(196)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\196w.txt')
case(197)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\197w.txt')
case(198)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\198w.txt')
case(199)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\199w.txt')
case(200)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-25.IX2019\200w.txt')
  case default
WRITE(*,*) "Nie ma w spisie stacji", stacja
  end select
END
!-----------------------------------------------------------------------------
SUBROUTINE OTWORZWYNIKB(stacja)
INTEGER:: stacja
select case(stacja)
case(1)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\1w.txt')
case(2)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\2w.txt')
case(3)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\3w.txt')
case(4)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\4w.txt')
case(5)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\5w.txt')
case(6)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\6w.txt')
case(7)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\7w.txt')
case(8)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\8w.txt')
case(9)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\9w.txt')
case(10)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\10w.txt')
case(11)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\11w.txt')
case(12)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\12w.txt')
case(13)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\13w.txt')
case(14)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\14w.txt')
case(15)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\15w.txt')
case(16)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\16w.txt')
case(17)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\17w.txt')
case(18)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\18w.txt')
case(19)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\19w.txt')
case(20)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\20w.txt')
case(21)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\21w.txt')
case(22)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\22w.txt')
case(23)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\23w.txt')
case(24)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\24w.txt')
case(25)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\25w.txt')
case(26)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\26w.txt')
case(27)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\27w.txt')
case(28)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\28w.txt')
case(29)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\29w.txt')
case(30)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\30w.txt')
case(31)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\31w.txt')
case(32)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\32w.txt')
case(33)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\33w.txt')
case(34)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\34w.txt')
case(35)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\35w.txt')
case(36)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\36w.txt')
case(37)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\37w.txt')
case(38)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\38w.txt')
case(39)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\39w.txt')
case(40)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\40w.txt')
case(41)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\41w.txt')
case(42)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\42w.txt')
case(43)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\43w.txt')
case(44)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\44w.txt')
case(45)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\45w.txt')
case(46)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\46w.txt')
case(47)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\47w.txt')
case(48)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\48w.txt')
case(49)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\49w.txt')
case(50)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\50w.txt')
case(51)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\51w.txt')
case(52)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\52w.txt')
case(53)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\53w.txt')
case(54)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\54w.txt')
case(55)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\55w.txt')
case(56)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\56w.txt')
case(57)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\57w.txt')
case(58)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\58w.txt')
case(59)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\59w.txt')
case(60)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\60w.txt')
case(61)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\61w.txt')
case(62)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\62w.txt')
case(63)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\63w.txt')
case(64)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\64w.txt')
case(65)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\65w.txt')
case(66)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\66w.txt')
case(67)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\67w.txt')
case(68)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\68w.txt')
case(69)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\69w.txt')
case(70)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\70w.txt')
case(71)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\71w.txt')
case(72)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\72w.txt')
case(73)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\73w.txt')
case(74)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\74w.txt')
case(75)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\75w.txt')
case(76)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\76w.txt')
case(77)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\77w.txt')
case(78)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\78w.txt')
case(79)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\79w.txt')
case(80)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\80w.txt')
case(81)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\81w.txt')
case(82)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\82w.txt')
case(83)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\83w.txt')
case(84)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\84w.txt')
case(85)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\85w.txt')
case(86)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\86w.txt')
case(87)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\87w.txt')
case(88)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\88w.txt')
case(89)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\89w.txt')
case(90)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\90w.txt')
case(91)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\91w.txt')
case(92)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\92w.txt')
case(93)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\93w.txt')
case(94)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\94w.txt')
case(95)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\95w.txt')
case(96)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\96w.txt')
case(97)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\97w.txt')
case(98)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\98w.txt')
case(99)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\99w.txt')
case(100)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\100w.txt')
case(101)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\101w.txt')
case(102)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\102w.txt')
case(103)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\103w.txt')
case(104)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\104w.txt')
case(105)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\105w.txt')
case(106)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\106w.txt')
case(107)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\107w.txt')
case(108)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\108w.txt')
case(109)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\109w.txt')
case(110)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\110w.txt')
case(111)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\111w.txt')
case(112)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\112w.txt')
case(113)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\113w.txt')
case(114)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\114w.txt')
case(115)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\115w.txt')
case(116)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\116w.txt')
case(117)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\117w.txt')
case(118)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\118w.txt')
case(119)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\119w.txt')
case(120)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\120w.txt')
case(121)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\121w.txt')
case(122)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\122w.txt')
case(123)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\123w.txt')
case(124)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\124w.txt')
case(125)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\125w.txt')
case(126)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\126w.txt')
case(127)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\127w.txt')
case(128)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\128w.txt')
case(129)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\129w.txt')
case(130)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\130w.txt')
case(131)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\131w.txt')
case(132)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\132w.txt')
case(133)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\133w.txt')
case(134)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\134w.txt')
case(135)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\135w.txt')
case(136)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\136w.txt')
case(137)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\137w.txt')
case(138)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\138w.txt')
case(139)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\139w.txt')
case(140)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\140w.txt')
case(141)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\141w.txt')
case(142)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\142w.txt')
case(143)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\143w.txt')
case(144)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\144w.txt')
case(145)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\145w.txt')
case(146)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\146w.txt')
case(147)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\147w.txt')
case(148)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\148w.txt')
case(149)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\149w.txt')
case(150)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\150w.txt')
case(151)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\151w.txt')
case(152)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\152w.txt')
case(153)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\153w.txt')
case(154)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\154w.txt')
case(155)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\155w.txt')
case(156)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\156w.txt')
case(157)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\157w.txt')
case(158)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\158w.txt')
case(159)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\159w.txt')
case(160)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\160w.txt')
case(161)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\161w.txt')
case(162)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\162w.txt')
case(163)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\163w.txt')
case(164)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\164w.txt')
case(165)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\165w.txt')
case(166)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\166w.txt')
case(167)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\167w.txt')
case(168)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\168w.txt')
case(169)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\169w.txt')
case(170)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\170w.txt')
case(171)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\171w.txt')
case(172)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\172w.txt')
case(173)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\173w.txt')
case(174)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\174w.txt')
case(175)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\175w.txt')
case(176)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\176w.txt')
case(177)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\177w.txt')
case(178)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\178w.txt')
case(179)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\179w.txt')
case(180)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\180w.txt')
case(181)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\181w.txt')
case(182)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\182w.txt')
case(183)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\183w.txt')
case(184)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\184w.txt')
case(185)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\185w.txt')
case(186)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\186w.txt')
case(187)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\187w.txt')
case(188)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\188w.txt')
case(189)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\189w.txt')
case(190)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\190w.txt')
case(191)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\191w.txt')
case(192)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\192w.txt')
case(193)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\193w.txt')
case(194)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\194w.txt')
case(195)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\195w.txt')
case(196)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\196w.txt')
case(197)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\197w.txt')
case(198)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\198w.txt')
case(199)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\199w.txt')
case(200)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-27.X2019\200w.txt')
  case default
WRITE(*,*) "Nie ma w spisie stacji", stacja
  end select
END
!-----------------------------------------------------------------------------
SUBROUTINE OTWORZWYNIKC(stacja)
INTEGER:: stacja
select case(stacja)
case(1)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\1w.txt')
case(2)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\2w.txt')
case(3)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\3w.txt')
case(4)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\4w.txt')
case(5)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\5w.txt')
case(6)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\6w.txt')
case(7)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\7w.txt')
case(8)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\8w.txt')
case(9)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\9w.txt')
case(10)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\10w.txt')
case(11)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\11w.txt')
case(12)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\12w.txt')
case(13)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\13w.txt')
case(14)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\14w.txt')
case(15)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\15w.txt')
case(16)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\16w.txt')
case(17)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\17w.txt')
case(18)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\18w.txt')
case(19)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\19w.txt')
case(20)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\20w.txt')
case(21)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\21w.txt')
case(22)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\22w.txt')
case(23)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\23w.txt')
case(24)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\24w.txt')
case(25)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\25w.txt')
case(26)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\26w.txt')
case(27)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\27w.txt')
case(28)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\28w.txt')
case(29)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\29w.txt')
case(30)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\30w.txt')
case(31)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\31w.txt')
case(32)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\32w.txt')
case(33)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\33w.txt')
case(34)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\34w.txt')
case(35)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\35w.txt')
case(36)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\36w.txt')
case(37)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\37w.txt')
case(38)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\38w.txt')
case(39)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\39w.txt')
case(40)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\40w.txt')
case(41)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\41w.txt')
case(42)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\42w.txt')
case(43)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\43w.txt')
case(44)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\44w.txt')
case(45)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\45w.txt')
case(46)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\46w.txt')
case(47)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\47w.txt')
case(48)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\48w.txt')
case(49)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\49w.txt')
case(50)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\50w.txt')
case(51)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\51w.txt')
case(52)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\52w.txt')
case(53)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\53w.txt')
case(54)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\54w.txt')
case(55)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\55w.txt')
case(56)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\56w.txt')
case(57)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\57w.txt')
case(58)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\58w.txt')
case(59)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\59w.txt')
case(60)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\60w.txt')
case(61)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\61w.txt')
case(62)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\62w.txt')
case(63)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\63w.txt')
case(64)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\64w.txt')
case(65)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\65w.txt')
case(66)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\66w.txt')
case(67)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\67w.txt')
case(68)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\68w.txt')
case(69)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\69w.txt')
case(70)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\70w.txt')
case(71)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\71w.txt')
case(72)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\72w.txt')
case(73)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\73w.txt')
case(74)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\74w.txt')
case(75)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\75w.txt')
case(76)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\76w.txt')
case(77)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\77w.txt')
case(78)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\78w.txt')
case(79)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\79w.txt')
case(80)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\80w.txt')
case(81)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\81w.txt')
case(82)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\82w.txt')
case(83)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\83w.txt')
case(84)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\84w.txt')
case(85)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\85w.txt')
case(86)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\86w.txt')
case(87)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\87w.txt')
case(88)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\88w.txt')
case(89)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\89w.txt')
case(90)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\90w.txt')
case(91)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\91w.txt')
case(92)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\92w.txt')
case(93)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\93w.txt')
case(94)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\94w.txt')
case(95)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\95w.txt')
case(96)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\96w.txt')
case(97)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\97w.txt')
case(98)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\98w.txt')
case(99)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\99w.txt')
case(100)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\100w.txt')
case(101)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\101w.txt')
case(102)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\102w.txt')
case(103)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\103w.txt')
case(104)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\104w.txt')
case(105)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\105w.txt')
case(106)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\106w.txt')
case(107)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\107w.txt')
case(108)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\108w.txt')
case(109)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\109w.txt')
case(110)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\110w.txt')
case(111)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\111w.txt')
case(112)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\112w.txt')
case(113)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\113w.txt')
case(114)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\114w.txt')
case(115)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\115w.txt')
case(116)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\116w.txt')
case(117)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\117w.txt')
case(118)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\118w.txt')
case(119)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\119w.txt')
case(120)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\120w.txt')
case(121)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\121w.txt')
case(122)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\122w.txt')
case(123)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\123w.txt')
case(124)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\124w.txt')
case(125)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\125w.txt')
case(126)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\126w.txt')
case(127)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\127w.txt')
case(128)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\128w.txt')
case(129)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\129w.txt')
case(130)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\130w.txt')
case(131)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\131w.txt')
case(132)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\132w.txt')
case(133)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\133w.txt')
case(134)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\134w.txt')
case(135)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\135w.txt')
case(136)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\136w.txt')
case(137)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\137w.txt')
case(138)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\138w.txt')
case(139)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\139w.txt')
case(140)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\140w.txt')
case(141)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\141w.txt')
case(142)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\142w.txt')
case(143)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\143w.txt')
case(144)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\144w.txt')
case(145)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\145w.txt')
case(146)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\146w.txt')
case(147)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\147w.txt')
case(148)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\148w.txt')
case(149)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\149w.txt')
case(150)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\150w.txt')
case(151)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\151w.txt')
case(152)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\152w.txt')
case(153)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\153w.txt')
case(154)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\154w.txt')
case(155)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\155w.txt')
case(156)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\156w.txt')
case(157)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\157w.txt')
case(158)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\158w.txt')
case(159)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\159w.txt')
case(160)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\160w.txt')
case(161)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\161w.txt')
case(162)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\162w.txt')
case(163)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\163w.txt')
case(164)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\164w.txt')
case(165)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\165w.txt')
case(166)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\166w.txt')
case(167)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\167w.txt')
case(168)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\168w.txt')
case(169)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\169w.txt')
case(170)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\170w.txt')
case(171)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\171w.txt')
case(172)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\172w.txt')
case(173)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\173w.txt')
case(174)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\174w.txt')
case(175)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\175w.txt')
case(176)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\176w.txt')
case(177)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\177w.txt')
case(178)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\178w.txt')
case(179)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\179w.txt')
case(180)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\180w.txt')
case(181)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\181w.txt')
case(182)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\182w.txt')
case(183)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\183w.txt')
case(184)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\184w.txt')
case(185)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\185w.txt')
case(186)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\186w.txt')
case(187)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\187w.txt')
case(188)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\188w.txt')
case(189)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\189w.txt')
case(190)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\190w.txt')
case(191)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\191w.txt')
case(192)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\192w.txt')
case(193)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\193w.txt')
case(194)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\194w.txt')
case(195)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\195w.txt')
case(196)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\196w.txt')
case(197)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\197w.txt')
case(198)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\198w.txt')
case(199)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\199w.txt')
case(200)
OPEN (UNIT=20,FILE='C:\Users\miros\Desktop\KSIEZYC\TIDES-30.XI2019\200w.txt')
  case default
WRITE(*,*) "Nie ma w spisie stacji", stacja
  end select
END