Fix argument list in call to fet_fst4_bitmetrics.f90

This commit is contained in:
Steven Franke 2020-08-22 09:42:34 -05:00 committed by Bill Somerville
parent b9328b96c9
commit ecaca6af9f
No known key found for this signature in database
GPG Key ID: D864B06D1E81618F
1 changed files with 2 additions and 1 deletions

View File

@ -338,7 +338,8 @@ contains
cframe=c2(is0:is0+160*nss-1)
bitmetrics=0
call timer('bitmetrc',0)
call get_fst4_bitmetrics(cframe,nss,hmod,nblock,nhicoh,bitmetrics,s4,badsync)
call get_fst4_bitmetrics(cframe,nss,hmod,nblock,nhicoh,bitmetrics, &
s4,nsync_qual,badsync)
call timer('bitmetrc',1)
if(badsync) cycle