-c ==========================================
-c Testcode before WHAM+ZSCORE integration
-c ==========================================
-c
-c plik=trim(prefix)//"/"//trim(opopsumfn)
-c !print *,trim(plik)
-c open(opopsum, file = plik)
-c write(opopsum,'(200A)') "# WLONG WSCP WELEC WBOND WANG
-c & WSCLOC WTOR WTORD WCORRH WCORR4 WCORR5 WCORR6 WEL_LOC&
-c & WTURN3 WTURN4 WTURN6 WVDWPP WHPB WSCCOR SCORE"
-c do I=1,rozmiar
-c write(opopsum,FMT) pop(i,1),pop(i,2),pop(i,3),pop(i,4), pop(i,5)&
-c &,pop(i,6),pop(i,7),pop(i,8),pop(i,9),pop(i,10),pop(i,11),pop(i,12)&
-c &,pop(i,13),pop(i,14),pop(i,15),pop(i,16),pop(i,17),pop(i,18),pop(i&
-c &,19),pop(i,20)
-c end do
-c close(opopsum)
-c ==========================================
-
-
-c command="mkdir zscore"
-c call system(command)
-
-