X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Fwham%2Fsrc-NEWSC%2FCOMMON.PROTFILES;fp=source%2Fwham%2Fsrc-NEWSC%2FCOMMON.PROTFILES;h=32873268c79884b166fd13dc968471f21cb0cbfe;hb=d101c97dea752458d76055fdbae49c26fff03c1f;hp=0000000000000000000000000000000000000000;hpb=325eda160c9ad2982501e091ca40606a29043712;p=unres.git

diff --git a/source/wham/src-NEWSC/COMMON.PROTFILES b/source/wham/src-NEWSC/COMMON.PROTFILES
new file mode 100755
index 0000000..3287326
--- /dev/null
+++ b/source/wham/src-NEWSC/COMMON.PROTFILES
@@ -0,0 +1,10 @@
+      character*80 protfiles(maxfile_prot,2,MaxR,MaxT_h,Max_Parm),
+     &  bprotfiles
+      integer nfile_bin(MaxR,MaxT_h,Max_Parm),
+     &  nfile_asc(MaxR,MaxT_h,Max_Parm),
+     &  nfile_cx(MaxR,MaxT_h,Max_Parm),
+     &  rec_start(MaxR,MaxT_h,Max_Parm),
+     &  rec_end(MaxR,MaxT_h,Max_Parm),lenrec,lenrec1,lenrec2
+      common /protfil/ protfiles,bprotfiles,
+     &  nfile_bin,nfile_asc,nfile_cx,rec_start,rec_end,lenrec,lenrec1,
+     &  lenrec2