Differences

This shows you the differences between two versions of the page.

--- howtos:how_to_compile_peakfq_on_linux [2024-09-18 11:35 pm] – hcho
+++ howtos:how_to_compile_peakfq_on_linux [2024-09-24 10:27 am] (current) – hcho
@@ Line 3: / Line 3: @@
 First, [[How to install the Intel Fortran Compiler on Linux|install the Intel Fortran Compiler]].
-You can download the incomplete source code of PeakFQ from [[https://water.usgs.gov/software/PeakFQ/|its website]]. Here, I'll use [[https://water.usgs.gov/software/PeakFQ/code/7.5.1/PeakFQ_7.5.1.src.zip|PeakFQ_7.5.1.src.zip]].
+You can download the incomplete source code of PeakFQ from [[https://water.usgs.gov/software/PeakFQ/|its website]]. Here, I'll use [[https://water.usgs.gov/software/PeakFQ/code/7.5.1/PeakFQ_7.5.1.src.zip|PeakFQ_7.5.1.src.zip]]. Visit [[https://github.com/HuidaeCho/peakfq-linux|its GitHub repository]].
 <file bash compile_peakfq.sh>
@@ Line 22: / Line 22: @@
 for i in *.*; do
   j=$(echo $i | tr A-Z a-z)
-  [ $i = $j ] && continue
+  [ $i = $j ] || mv $i $j
-  mv $i $j
 done
@@ Line 29: / Line 28: @@
 for i in *.*; do
   grep -q ".*.INC'" $i || continue
-  for j in $(grep ".*.INC'" $i | sort -u | fromdos | sed "s/^[^']*'\|'$//g"); do
+  for j in $(grep ".*.INC'" $i | sort -u | sed 's/\r//; '"s/^[^']*'\|'$//g"); do
     k=$(echo $j | tr A-Z a-z)
     sed -i "s/$j/$k/" $i
@@ Line 38: / Line 37: @@
 sed -Ei "s/(, )(DENYNONE)/'\1SHARE='\2/" wdoppc90.for
-# comment out non-existent modules and data type
+# comment out non-existent modules and data types
-sed -Ei 's/^(.*(KERNEL32|T_OVERLAPPED).*)/!\1/' scenmod.f90
+sed -Ei 's/^(.*(KERNEL32|T_OVERLAPPED))/!\1/' scenmod.f90
 # comment out Windows functions
-sed -Ei 's/^(.*(peeknamedpipe|readfile|writefile))/!\1/i' scenmod.f90
+sed -Ei 's/^(.*(PeekNamedPipe|ReadFile|WriteFile))/!\1/' scenmod.f90
+# fix disclaimer line
+sed -i "/^ *WRITE(DISCLM(1)/a \        DISCLM(2) = ''\r" j407xe.for
+# reenable default generalized skew computation
+sed -Ei 's/^C(.*GENSKU *=.*)/\1/; s/^Cprh( {6}AUX)/\1/; s/^( {6}AUX\(1\) = -999)/!\1/' j407xe.for
 # download missing files
@@ Line 68: / Line 73: @@
   ; do
   wget https://svn.oss.deltares.nl/repos/openda/trunk/model_hspf/fortran/libanne4.0/src/$i
+done
+# dos to unix
+for i in * */*; do
+  sed -i 's/\r//' $i
 done
 # create main.f90
 cat << 'EOT' > main.f90
-character(len=256) :: infile
+character(len=256) :: specfile
 if(command_argument_count().eq.0) then
-  write(*,*) "Usage: peakfq infile"
+  write(*,*) "Usage: peakfq specfile"
 else
-  call get_command_argument(1, infile)
+  call get_command_argument(1, specfile)
-  call peakfq(infile)
+  call peakfq(specfile)
 endif
 end
@@ Line 156: / Line 166: @@
 # build
 make
+# install PeakFQ for Windows; find and copy pkfqms.wdm in lowercase
+# download it from this website
+wget https://clawiki.isnew.info/_media/howtos/pkfqms.zip
+unzip pkfqms.zip
+rm pkfqms.zip
 </file>
@@ Line 163: / Line 179: @@
 for i in $(make &> /dev/stdout | grep "undefined reference" | sed 's/.*`//; s/_.*//' | sort -u); do
   if ! grep -qiE "(function|subroutine) *$i" *.* */*.*; then
-    echo "NOT FOUND $i"
+    echo "$i: NOT FOUND"
   fi
 done
 </code>