X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Fwham%2Fsrc-M%2Finclude_unres%2FCOMMON.TORCNSTR;h=bef2264141ec57e81ecb407142d7b97b1e11e7d2;hb=c65d296f3cdc480d3737eae335a510332b4f0dc8;hp=f8fc3a159714b62ef7882adaf726b6d14832c9d4;hpb=c9dddd7cdc2cbf55f6fa8df9404eea7ecfe59605;p=unres.git diff --git a/source/wham/src-M/include_unres/COMMON.TORCNSTR b/source/wham/src-M/include_unres/COMMON.TORCNSTR index f8fc3a1..bef2264 100644 --- a/source/wham/src-M/include_unres/COMMON.TORCNSTR +++ b/source/wham/src-M/include_unres/COMMON.TORCNSTR @@ -1,5 +1,6 @@ integer ndih_constr,idih_constr(maxdih_constr) integer ndih_nconstr,idih_nconstr(maxdih_constr) - double precision phi0(maxdih_constr),drange(maxdih_constr),ftors + double precision phi0(maxdih_constr),drange(maxdih_constr), + & ftors(maxdih_constr) common /torcnstr/ phi0,drange,ftors,ndih_constr,idih_constr, & ndih_nconstr,idih_nconstr