Changeset c13d72

Timestamp:

Apr 21, 2008, 2:19:26 PM (17 years ago)

Author:

Frederik Heber <heber@…>

Children:

41521a

Parents:

4bbde5

git-author:

Frederik Heber <heber@…> (04/21/08 12:51:45)

git-committer:

Frederik Heber <heber@…> (04/21/08 14:19:26)

Message:

GetOptions(): ForcesFile initialisation from command line

File:

• pcp/src/opt.c (modified) (5 diffs)

pcp/src/opt.c

@@ -52 +52 @@
   /* defaults setzen */
   Call->MainParameterFile = NULL;
+  Call->ForcesFile = NULL;
   Call->debug = 0;
   Call->nicelevel = 0;
@@ -62 +63 @@
   Call->AddNFactor = 1;
 
-  while ((c = getopt(argc, argv, "a:d:D:hn:o:p:m:rvwx")) != -1) {
+  while ((c = getopt(argc, argv, "a:d:D:hn:o:p:m:rvwxF:")) != -1) {
     switch (c) {
     case 'a':
@@ -101 +102 @@
       printf("  -w            Write src files.\n");
       printf("  -m f          Additional NFactor - to fix read srcpsi\n");
+                        printf("  -F file       Do not calculate Hellmann-Feyman forces but read from file\n");
       printf("For parallel codes it is necessary to specify the main parameter file\n");
       printf("with an absolute path.\n");
@@ -129 +131 @@
     case 'm':
       if (sscanf(optarg, "%d", &Call->AddNFactor) < 1)
-        errflg++;
+                                errflg++;
       if (Call->AddNFactor <= 1) {
-        fprintf(stderr, "AddNFactor must be > 0\n");
-        errflg++;
+                                fprintf(stderr, "AddNFactor must be > 0\n");
+                                errflg++;
       }
       break;
@@ -138 +140 @@
       errflg++;
       break;
+                case 'F':
+                        fprintf(stderr, "Recognized forces file '%s' with length %ld.\n", optarg, strlen(optarg));
+                        Call->ForcesFile = (char *) Malloc((strlen(optarg)+2)*sizeof(char), "GetOptions: CallOptions::*ForcesFile");
+                        strcpy(Call->ForcesFile, optarg);
+                        fprintf(stderr, "Stored CallOptions->ForcesFile: %s\n", Call->ForcesFile);
+                        break;
     default:
       fprintf(stderr, "GetOptions: getopt() returned character code O%o !?\n", c);