Merge pull request #2 from isce/scons3_gcc8

Modified files to compile with gcc8/scons3.
LT1AB
Eric M Gurrola 2019-02-07 13:10:47 -08:00 committed by GitHub Enterprise
commit 4ff5cb1437
2 changed files with 10 additions and 9 deletions

View File

@ -168,7 +168,8 @@ int cchz_wave(int flag, DataAccessor* intAcc, DataAccessor* ampAcc, DataAccessor
cmp[i][j] = conj(dt1) * dt2;
i1[i][j] = abs(dt1) + 1i * abs(dt2);
// i1[i][j] = std::abs(dt1) + 1i * std::abs(dt2);
i1[i][j] = std::complex<float>(std::abs(dt1), std::abs(dt2));
}
}
}
@ -190,7 +191,7 @@ int cchz_wave(int flag, DataAccessor* intAcc, DataAccessor* ampAcc, DataAccessor
dt2 = i1[bx-1][j];
cmp[bx-1][j] = conj(dt1) * dt2;
i1[bx-1][j] = abs(dt1) + 1i * abs(dt2);
i1[bx-1][j] = std::complex<float>(std::abs(dt1), std::abs(dt2));
}
}

View File

@ -529,13 +529,13 @@ c PARAMETERS:
c INPUT VARIABLES:
integer nmax
real*8 p(MAXSIZ)
real*8 hc(MAXSIZ)
real*8 hs(MAXSIZ)
real*8 cc(MAXSIZ)
real*8 cs(MAXSIZ)
real*8 sinml(MAXSIZ)
real*8 cosml(MAXSIZ)
real*8 p(*)
real*8 hc(*)
real*8 hs(*)
real*8 cc(*)
real*8 cs(*)
real*8 sinml(*)
real*8 cosml(*)
real*8 re
real*8 ang
real*8 haco