| 45 |
|
strcpy( c_in_name, in_name); |
| 46 |
|
#ifdef IS_MPI |
| 47 |
|
} |
| 48 |
< |
strcpy( checkPointMsg, "Infile opened for reading successfully." ); |
| 48 |
> |
else{ |
| 49 |
> |
sprintf( c_in_name, "mpiNodeParser_%d", worldRank ); |
| 50 |
> |
} |
| 51 |
> |
|
| 52 |
> |
strcpy( checkPointMsg, "Infile opened for reading successfully." ); |
| 53 |
|
MPIcheckPoint(); |
| 54 |
|
#endif |
| 55 |
|
return; |
| 265 |
|
} |
| 266 |
|
} |
| 267 |
|
myStatus = -1; |
| 268 |
< |
for (j = 0; j < mpiSim->getNumberProcessors(); j++) { |
| 268 |
> |
for (j = 1; j < mpiSim->getNumberProcessors(); j++) { |
| 269 |
|
MPI_Send( &myStatus, 1, MPI_INT, j, |
| 270 |
|
TAKE_THIS_TAG_INT, MPI_COMM_WORLD); |
| 271 |
|
} |
| 587 |
|
entry_plug->setBoxM( theBoxMat3 ); |
| 588 |
|
|
| 589 |
|
//get chi and integralOfChidt, they should appear by pair |
| 590 |
< |
foo = strtok(NULL, " ,;\t\n"); |
| 591 |
< |
if(foo != NULL){ |
| 588 |
< |
chi = atof(foo); |
| 589 |
< |
|
| 590 |
> |
|
| 591 |
> |
if( entry_plug->useInitXSstate ){ |
| 592 |
|
foo = strtok(NULL, " ,;\t\n"); |
| 593 |
< |
if(foo == NULL){ |
| 594 |
< |
sprintf( painCave.errMsg, |
| 595 |
< |
"chi and integralOfChidt should appear by pair in %s\n", c_in_name ); |
| 596 |
< |
return strdup( painCave.errMsg ); |
| 593 |
> |
if(foo != NULL){ |
| 594 |
> |
chi = atof(foo); |
| 595 |
> |
|
| 596 |
> |
foo = strtok(NULL, " ,;\t\n"); |
| 597 |
> |
if(foo == NULL){ |
| 598 |
> |
sprintf( painCave.errMsg, |
| 599 |
> |
"chi and integralOfChidt should appear by pair in %s\n", c_in_name ); |
| 600 |
> |
return strdup( painCave.errMsg ); |
| 601 |
> |
} |
| 602 |
> |
integralOfChidt = atof( foo ); |
| 603 |
> |
|
| 604 |
> |
//push chi and integralOfChidt into SimInfo::properties which can be |
| 605 |
> |
//retrieved by integrator later |
| 606 |
> |
DoubleData* chiValue = new DoubleData(); |
| 607 |
> |
chiValue->setID(CHIVALUE_ID); |
| 608 |
> |
chiValue->setData(chi); |
| 609 |
> |
entry_plug->addProperty(chiValue); |
| 610 |
> |
|
| 611 |
> |
DoubleData* integralOfChidtValue = new DoubleData(); |
| 612 |
> |
integralOfChidtValue->setID(INTEGRALOFCHIDT_ID); |
| 613 |
> |
integralOfChidtValue->setData(integralOfChidt); |
| 614 |
> |
entry_plug->addProperty(integralOfChidtValue); |
| 615 |
> |
|
| 616 |
|
} |
| 617 |
< |
integralOfChidt = atof( foo ); |
| 618 |
< |
|
| 619 |
< |
//push chi and integralOfChidt into SimInfo::properties which can be |
| 617 |
> |
else |
| 618 |
> |
return NULL; |
| 619 |
> |
|
| 620 |
> |
//get eta |
| 621 |
> |
foo = strtok(NULL, " ,;\t"); |
| 622 |
> |
if(foo != NULL ){ |
| 623 |
> |
for(int i = 0 ; i < 9; i++){ |
| 624 |
> |
|
| 625 |
> |
if(foo == NULL){ |
| 626 |
> |
sprintf( painCave.errMsg, |
| 627 |
> |
"error in reading eta[%d] from %s\n", i, c_in_name ); |
| 628 |
> |
return strdup( painCave.errMsg ); |
| 629 |
> |
} |
| 630 |
> |
eta[i] = atof( foo ); |
| 631 |
> |
foo = strtok(NULL, " ,;\t"); |
| 632 |
> |
} |
| 633 |
> |
} |
| 634 |
> |
else |
| 635 |
> |
return NULL; |
| 636 |
> |
|
| 637 |
> |
//push eta into SimInfo::properties which can be |
| 638 |
|
//retrieved by integrator later |
| 639 |
< |
DoubleData* chiValue = new DoubleData(); |
| 640 |
< |
chiValue->setID(CHIVALUE_ID); |
| 641 |
< |
chiValue->setData(chi); |
| 642 |
< |
entry_plug->addProperty(chiValue); |
| 643 |
< |
|
| 605 |
< |
DoubleData* integralOfChidtValue = new DoubleData(); |
| 606 |
< |
integralOfChidtValue->setID(INTEGRALOFCHIDT_ID); |
| 607 |
< |
integralOfChidtValue->setData(integralOfChidt); |
| 608 |
< |
entry_plug->addProperty(integralOfChidtValue); |
| 609 |
< |
|
| 639 |
> |
//entry_plug->setBoxM( theBoxMat3 ); |
| 640 |
> |
DoubleArrayData* etaValue = new DoubleArrayData(); |
| 641 |
> |
etaValue->setID(ETAVALUE_ID); |
| 642 |
> |
etaValue->setData(eta, 9); |
| 643 |
> |
entry_plug->addProperty(etaValue); |
| 644 |
|
} |
| 611 |
– |
else |
| 612 |
– |
return NULL; |
| 645 |
|
|
| 614 |
– |
//get eta |
| 615 |
– |
for(int i = 0 ; i < 9; i++){ |
| 616 |
– |
foo = strtok(NULL, " ,;\t"); |
| 617 |
– |
if(foo == NULL){ |
| 618 |
– |
sprintf( painCave.errMsg, |
| 619 |
– |
"error in reading eta[%d] from %s\n", i, c_in_name ); |
| 620 |
– |
return strdup( painCave.errMsg ); |
| 621 |
– |
} |
| 622 |
– |
eta[i] = atof( foo ); |
| 623 |
– |
} |
| 624 |
– |
|
| 625 |
– |
//push eta into SimInfo::properties which can be |
| 626 |
– |
//retrieved by integrator later |
| 627 |
– |
//entry_plug->setBoxM( theBoxMat3 ); |
| 628 |
– |
DoubleArrayData* etaValue = new DoubleArrayData(); |
| 629 |
– |
etaValue->setID(ETAVALUE_ID); |
| 630 |
– |
etaValue->setData(eta, 9); |
| 631 |
– |
entry_plug->addProperty(etaValue); |
| 632 |
– |
|
| 633 |
– |
|
| 646 |
|
return NULL; |
| 647 |
|
} |
| 648 |
|
|
