X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc_CSA_DiL%2Frefsys.f;h=05030b55215c90bd2954bf908528a464a81e72df;hb=9fe9b0fa26746f97f0964461ef80129ee6e200f5;hp=b57c201f2740c7316e88694d7eeb5c3b5d2b3464;hpb=a2e22fbd33a3eb0e977b8bc86a5eccfbbfdd9690;p=unres.git diff --git a/source/unres/src_CSA_DiL/refsys.f b/source/unres/src_CSA_DiL/refsys.f index b57c201..05030b5 100644 --- a/source/unres/src_CSA_DiL/refsys.f +++ b/source/unres/src_CSA_DiL/refsys.f @@ -11,7 +11,10 @@ c form a linear fragment. returns vectors e1, e2, and e3. logical fail double precision e1(3),e2(3),e3(3) double precision u(3),z(3) +<<<<<<< HEAD +======= include 'COMMON.IOUNITS' +>>>>>>> prerelease-3.2.1 include "COMMON.CHAIN" data coinc /1.0d-13/,align /1.0d-13/ fail=.false.