File indexing completed on 2020-11-25 06:10:35 UTC
view on githubraw file Latest commit 754f8709 on 2020-11-23 15:48:49 UTC
e1ea90707e Jean*0001
0002
0003
0004 #include <stdlib.h>
754f8709c0 Jody*0005 #include <stdio.h>
e1ea90707e Jean*0006 #include <unistd.h>
a38ae4ef9e Jean*0007
0008 #include "FC_NAMEMANGLE.h"
0009
0010 void FC_NAMEMANGLE(setdir) (int *myPEListId )
e1ea90707e Jean*0011 {
0012 char RUN_DIR[1024];
0013 char *rundirsetting;
0014 char *SROOT;
0015 char *SPREF;
0016 char *scycle;
0017 char *endPtr;
0018 char SROOT_BUFFER[1024];
0019 int rc;
0020 int sDirNum;
0021 int sDirCycle;
0022
0023 sprintf(RUN_DIR,"rank_%d",*myPEListId);
0024 rc = chdir(RUN_DIR);
0025
0026
0027 }