Skip to content
This repository has been archived by the owner on Jun 10, 2024. It is now read-only.

Commit

Permalink
fit.for: Fix for lossed site info in fit.fout
Browse files Browse the repository at this point in the history
Fix for lossed site info in fit.fout after fit processing
  • Loading branch information
sean0921 committed Apr 8, 2020
1 parent bd73abd commit 56fb9eb
Showing 1 changed file with 2 additions and 2 deletions.
4 changes: 2 additions & 2 deletions src/fit.for
Original file line number Diff line number Diff line change
Expand Up @@ -433,8 +433,8 @@ c if(abs(rt-t(n))<.001) exit

open(99,file='fit.fout')
do i=1,ns
if(nn(i)<2) cycle
if(dt(i)<2) cycle
c if(nn(i)<2) cycle
c if(dt(i)<2) cycle
open(98,file='getpl.gout',status='old')
statt=0
do while (statt==0)
Expand Down

0 comments on commit 56fb9eb

Please sign in to comment.