转化成C++语言 SUBROUTINE PRENODEIPPINDITPL0NCHE IMPLICIT REAL8A-HO-Z DIMENSION INDL0 DIMENSION XYZ3 CHARACTER AAA200 ITP=0 IADD=0 REWINDIPP 100 READIPP10

#include #include #include using namespace std;

void PRENODE(fstream& IPP, int* IND, int& ITP, int L0, int NCHE) { double XYZ[3]; char AAA[200]; ITP = 0; int IADD = 0; IPP.seekg(0, ios::beg); while (IPP.getline(AAA, 200)) { if (strncmp(AAA, "SHETNODE", 8) == 0) { sscanf(AAA + 9, "%d %lf %lf %lf", &IND[IADD], &XYZ[0], &XYZ[1], &XYZ[2]); IADD++; if (IND[IADD] == 0) { ITP = 1; } } } if (NCHE == 2) { cout << "******* Error in the following data " << endl; } cout << AAA << endl << endl; cout << endl; if (NCHE == 2) { cout << " Error in the following data *******" << endl; } cout << AAA << endl << endl; IPP.close();