X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?p=unres.git;a=blobdiff_plain;f=source%2Funres%2Fsrc_CSA_DiL%2FCOMMON.CALC;fp=source%2Funres%2Fsrc_CSA_DiL%2FCOMMON.CALC;h=0000000000000000000000000000000000000000;hp=67b4bb9a8abbd09230961d6cd52b8226cb34fae2;hb=2a226bfc86eabc6e4eae0c3ad1cbc3cb5417a05a;hpb=a0e685f844163003749ba91dfbf4644bcc8cfa30 diff --git a/source/unres/src_CSA_DiL/COMMON.CALC b/source/unres/src_CSA_DiL/COMMON.CALC deleted file mode 100644 index 67b4bb9..0000000 --- a/source/unres/src_CSA_DiL/COMMON.CALC +++ /dev/null @@ -1,15 +0,0 @@ - integer i,j,k,l - double precision erij,rij,xj,yj,zj,dxi,dyi,dzi,dxj,dyj,dzj, - & chi1,chi2,chi12,chip1,chip2,chip12,alf1,alf2,alf12,om1,om2,om12, - & om1om2,chiom1,chiom2,chiom12,chipom1,chipom2,chipom12,eps1, - & faceps1,faceps1_inv,eps1_om12,facsig,sigsq,sigsq_om1,sigsq_om2, - & sigsq_om12,facp,facp_inv,facp1,eps2rt,eps2rt_om1,eps2rt_om2, - & eps2rt_om12,eps3rt,eom1,eom2,eom12,evdwij,eps2der,eps3der,sigder, - & dsci_inv,dscj_inv,gg - common /calc/ erij(3),rij,xj,yj,zj,dxi,dyi,dzi,dxj,dyj,dzj, - & chi1,chi2,chi12,chip1,chip2,chip12,alf1,alf2,alf12,om1,om2,om12, - & om1om2,chiom1,chiom2,chiom12,chipom1,chipom2,chipom12,eps1, - & faceps1,faceps1_inv,eps1_om12,facsig,sigsq,sigsq_om1,sigsq_om2, - & sigsq_om12,facp,facp_inv,facp1,eps2rt,eps2rt_om1,eps2rt_om2, - & eps2rt_om12,eps3rt,eom1,eom2,eom12,evdwij,eps2der,eps3der,sigder, - & dsci_inv,dscj_inv,gg(3),i,j