X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc_MD%2Fsrc%2Fcompinfo.c;fp=source%2Funres%2Fsrc_MD%2Fsrc%2Fcompinfo.c;h=0000000000000000000000000000000000000000;hb=0a11a2c4ccee14ed99ae44f2565b270ba8d4bbb6;hp=7e2b9cfeaf1e2cdf18cc10b32f3308b7444a9382;hpb=5eb407964903815242c59de10960f42761139e10;p=unres.git

diff --git a/source/unres/src_MD/src/compinfo.c b/source/unres/src_MD/src/compinfo.c
deleted file mode 100644
index 7e2b9cf..0000000
--- a/source/unres/src_MD/src/compinfo.c
+++ /dev/null
@@ -1,79 +0,0 @@
-#include <stdio.h>
-#include <sys/utsname.h>
-#include <sys/types.h>
-#include <time.h>
-#include <string.h>
-
-main()
-{
-FILE *in, *in1, *out;
-int i,j,k,iv1,iv2,iv3;
-char *p1,buf[500],buf1[500],buf2[100],buf3[100];
-struct utsname Name;
-time_t Tp;
-
-in=fopen("cinfo.f","r");
-out=fopen("cinfo.f.new","w");
-fgets(buf,498,in);
-fprintf(out,"C DO NOT EDIT THIS FILE - IT HAS BEEN GENERATED BY COMPINFO.C\n");
-fgets(buf,498,in);
-sscanf(&buf[1],"%d %d %d",&iv1,&iv2,&iv3);
-iv3++;
-fprintf(out,"C %d %d %d\n",iv1,iv2,iv3);
-fprintf(out,"      subroutine cinfo\n");
-fprintf(out,"      include 'COMMON.IOUNITS'\n");
-fprintf(out,"      write(iout,*)'++++ Compile info ++++'\n");
-fprintf(out,"      write(iout,*)'Version %d.%-d build %d'\n",iv1,iv2,iv3);
-uname(&Name);
-time(&Tp);
-system("rm tmptmp; whoami > tmptmp");
-in1=fopen("tmptmp","r");
-fscanf(in1,"%s",buf1);
-fclose(in1);
-p1=ctime(&Tp);
-p1[strlen(p1)-1]='\0';
-fprintf(out,"      write(iout,*)'compiled %s'\n",p1);
-fprintf(out,"      write(iout,*)'compiled by %s@%s'\n",buf1,Name.nodename);
-fprintf(out,"      write(iout,*)'OS name:    %s '\n",Name.sysname);
-fprintf(out,"      write(iout,*)'OS release: %s '\n",Name.release);
-fprintf(out,"      write(iout,*)'OS version:',\n");
-fprintf(out,"     & ' %s '\n",Name.version);
-fprintf(out,"      write(iout,*)'flags:'\n");
-in1=fopen("Makefile","r");
-while(fgets(buf,498,in1) != NULL)
- {
- if((p1=strchr(buf,'=')) != NULL && buf[0] != '#')
-  {
-  buf[strlen(buf)-1]='\0';
-  if(strlen(buf) > 49)
-   {
-   buf[47]='\0';
-   strcat(buf,"...");
-   }
-  else
-   {
-   while(buf[strlen(buf)-1]=='\\')
-    {
-    strcat(buf,"\\");
-    fprintf(out,"      write(iout,*)'%s'\n",buf);
-    fgets(buf,498,in1);
-    buf[strlen(buf)-1]='\0';
-    if(strlen(buf) > 49)
-     {
-     buf[47]='\0';
-     strcat(buf,"...");
-     }
-    }
-   }
-  
-  fprintf(out,"      write(iout,*)'%s'\n",buf);
-  }
- }
-fprintf(out,"      write(iout,*)'++++ End of compile info ++++'\n");
-fprintf(out,"      return\n");
-fprintf(out,"      end\n");
-fclose(out);
-fclose(in1);
-fclose(in);
-system("mv cinfo.f.new cinfo.f");
-}