X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc_MD-M-SAXS-homology%2FMD_A-MTS.F;h=a8efa206e66695419a1609373efd3568fbe724c5;hb=03a99f9b2b61db5e2be5f20b3d5d912d5394af6c;hp=4346d0079a50065b9010b00829ce30cc40af8594;hpb=f8c7c4a0011854fd4155f761d87f931150f0cc3c;p=unres.git

diff --git a/source/unres/src_MD-M-SAXS-homology/MD_A-MTS.F b/source/unres/src_MD-M-SAXS-homology/MD_A-MTS.F
index 4346d00..a8efa20 100644
--- a/source/unres/src_MD-M-SAXS-homology/MD_A-MTS.F
+++ b/source/unres/src_MD-M-SAXS-homology/MD_A-MTS.F
@@ -403,7 +403,7 @@ c Calculate energy and forces
         call zerograd
         call etotal(potEcomp)
 ! AL 4/17/17: Reduce the steps if NaNs occurred.
-        if (potEcomp(0).gt.0.99e20 .or. isnan(potEcomp(0)).gt.0) then
+        if (potEcomp(0).gt.0.99e20 .or. isnan(potEcomp(0))) then
           d_time=d_time/2
           cycle
         endif