X-Git-Url: http://git.salome-platform.org/gitweb/?a=blobdiff_plain;f=src%2FParaMEDMEMTest%2FParaMEDMEMTest_OverlapDEC.cxx;h=f6b14cf496b72f11bb4d509fb395a1532e9bd77a;hb=0b187729ac99d3e9e9bb9d2be8cb8600a783be6c;hp=c1f5bb92f5d4ed86908cb3b612343ef0c7c503a6;hpb=6f841c1f16f8b9d0b7ba50cf000ade240b2484b2;p=tools%2Fmedcoupling.git diff --git a/src/ParaMEDMEMTest/ParaMEDMEMTest_OverlapDEC.cxx b/src/ParaMEDMEMTest/ParaMEDMEMTest_OverlapDEC.cxx index c1f5bb92f..f6b14cf49 100644 --- a/src/ParaMEDMEMTest/ParaMEDMEMTest_OverlapDEC.cxx +++ b/src/ParaMEDMEMTest/ParaMEDMEMTest_OverlapDEC.cxx @@ -46,6 +46,7 @@ using namespace ParaMEDMEM; typedef MEDCouplingAutoRefCountObjectPtr MUMesh; typedef MEDCouplingAutoRefCountObjectPtr MFDouble; +typedef MEDCouplingAutoRefCountObjectPtr DADouble; //void ParaMEDMEMTest::testOverlapDEC_LMEC_seq() //{ @@ -180,17 +181,15 @@ typedef MEDCouplingAutoRefCountObjectPtr MFDouble; // // MPI_Barrier(MPI_COMM_WORLD); //} - -void prepareData1(int rank, ProcessorGroup * grp, - MEDCouplingUMesh *& meshS, MEDCouplingUMesh *& meshT, - ParaMESH*& parameshS, ParaMESH*& parameshT, - ParaFIELD*& parafieldS, ParaFIELD*& parafieldT) +// +void prepareData1(int rank, NatureOfField nature, + MEDCouplingFieldDouble *& fieldS, MEDCouplingFieldDouble *& fieldT) { if(rank==0) { const double coordsS[10]={0.,0.,0.5,0.,1.,0.,0.,0.5,0.5,0.5}; const double coordsT[6]={0.,0.,1.,0.,1.,1.}; - meshS=MEDCouplingUMesh::New(); + MUMesh meshS=MEDCouplingUMesh::New(); meshS->setMeshDimension(2); DataArrayDouble *myCoords=DataArrayDouble::New(); myCoords->alloc(5,2); @@ -202,14 +201,14 @@ void prepareData1(int rank, ProcessorGroup * grp, meshS->insertNextCell(INTERP_KERNEL::NORM_QUAD4,4,connS); meshS->insertNextCell(INTERP_KERNEL::NORM_TRI3,3,connS+4); meshS->finishInsertingCells(); - ComponentTopology comptopo; - parameshS=new ParaMESH(meshS, *grp,"source mesh"); - parafieldS=new ParaFIELD(ON_CELLS,NO_TIME,parameshS,comptopo); - parafieldS->getField()->setNature(ConservativeVolumic);//IntegralGlobConstraint - double *valsS=parafieldS->getField()->getArray()->getPointer(); + fieldS = MEDCouplingFieldDouble::New(ON_CELLS,NO_TIME); + DADouble arr = DataArrayDouble::New(); arr->alloc(meshS->getNumberOfCells(), 1); + fieldS->setMesh(meshS); fieldS->setArray(arr); + fieldS->setNature(nature); + double *valsS=fieldS->getArray()->getPointer(); valsS[0]=7.; valsS[1]=8.; // - meshT=MEDCouplingUMesh::New(); + MUMesh meshT=MEDCouplingUMesh::New(); meshT->setMeshDimension(2); myCoords=DataArrayDouble::New(); myCoords->alloc(3,2); @@ -220,10 +219,11 @@ void prepareData1(int rank, ProcessorGroup * grp, meshT->allocateCells(1); meshT->insertNextCell(INTERP_KERNEL::NORM_TRI3,3,connT); meshT->finishInsertingCells(); - parameshT=new ParaMESH(meshT,*grp,"target mesh"); - parafieldT=new ParaFIELD(ON_CELLS,NO_TIME,parameshT,comptopo); - parafieldT->getField()->setNature(ConservativeVolumic);//IntegralGlobConstraint - double *valsT=parafieldT->getField()->getArray()->getPointer(); + fieldT = MEDCouplingFieldDouble::New(ON_CELLS,NO_TIME); + DADouble arr2 = DataArrayDouble::New(); arr2->alloc(meshT->getNumberOfCells(), 1); + fieldT->setMesh(meshT); fieldT->setArray(arr2); + fieldT->setNature(nature); + double *valsT=fieldT->getArray()->getPointer(); valsT[0]=7.; } // @@ -231,7 +231,7 @@ void prepareData1(int rank, ProcessorGroup * grp, { const double coordsS[10]={1.,0.,0.5,0.5,1.,0.5,0.5,1.,1.,1.}; const double coordsT[6]={0.,0.,0.5,0.5,0.,1.}; - meshS=MEDCouplingUMesh::New(); + MUMesh meshS=MEDCouplingUMesh::New(); meshS->setMeshDimension(2); DataArrayDouble *myCoords=DataArrayDouble::New(); myCoords->alloc(5,2); @@ -243,15 +243,14 @@ void prepareData1(int rank, ProcessorGroup * grp, meshS->insertNextCell(INTERP_KERNEL::NORM_TRI3,3,connS); meshS->insertNextCell(INTERP_KERNEL::NORM_QUAD4,4,connS+3); meshS->finishInsertingCells(); - ComponentTopology comptopo; - parameshS=new ParaMESH(meshS,*grp,"source mesh"); - parafieldS=new ParaFIELD(ON_CELLS,NO_TIME,parameshS,comptopo); - parafieldS->getField()->setNature(ConservativeVolumic);//IntegralGlobConstraint - double *valsS=parafieldS->getField()->getArray()->getPointer(); - valsS[0]=9.; - valsS[1]=11.; + fieldS = MEDCouplingFieldDouble::New(ON_CELLS,NO_TIME); + DADouble arr = DataArrayDouble::New(); arr->alloc(meshS->getNumberOfCells(), 1); + fieldS->setMesh(meshS); fieldS->setArray(arr); + fieldS->setNature(nature); + double *valsS=fieldS->getArray()->getPointer(); + valsS[0]=9.; valsS[1]=11.; // - meshT=MEDCouplingUMesh::New(); + MUMesh meshT=MEDCouplingUMesh::New(); meshT->setMeshDimension(2); myCoords=DataArrayDouble::New(); myCoords->alloc(3,2); @@ -262,10 +261,11 @@ void prepareData1(int rank, ProcessorGroup * grp, meshT->allocateCells(1); meshT->insertNextCell(INTERP_KERNEL::NORM_TRI3,3,connT); meshT->finishInsertingCells(); - parameshT=new ParaMESH(meshT,*grp,"target mesh"); - parafieldT=new ParaFIELD(ON_CELLS,NO_TIME,parameshT,comptopo); - parafieldT->getField()->setNature(ConservativeVolumic);//IntegralGlobConstraint - double *valsT=parafieldT->getField()->getArray()->getPointer(); + fieldT = MEDCouplingFieldDouble::New(ON_CELLS,NO_TIME); + DADouble arr2 = DataArrayDouble::New(); arr2->alloc(meshT->getNumberOfCells(), 1); + fieldT->setMesh(meshT); fieldT->setArray(arr2); + fieldT->setNature(nature); + double *valsT=fieldT->getArray()->getPointer(); valsT[0]=8.; } // @@ -273,7 +273,7 @@ void prepareData1(int rank, ProcessorGroup * grp, { const double coordsS[8]={0.,0.5, 0.5,0.5, 0.,1., 0.5,1.}; const double coordsT[6]={0.5,0.5,0.,1.,1.,1.}; - meshS=MEDCouplingUMesh::New(); + MUMesh meshS=MEDCouplingUMesh::New(); meshS->setMeshDimension(2); DataArrayDouble *myCoords=DataArrayDouble::New(); myCoords->alloc(4,2); @@ -284,14 +284,14 @@ void prepareData1(int rank, ProcessorGroup * grp, meshS->allocateCells(1); meshS->insertNextCell(INTERP_KERNEL::NORM_QUAD4,4,connS); meshS->finishInsertingCells(); - ComponentTopology comptopo; - parameshS=new ParaMESH(meshS,*grp,"source mesh"); - parafieldS=new ParaFIELD(ON_CELLS,NO_TIME,parameshS,comptopo); - parafieldS->getField()->setNature(ConservativeVolumic);//IntegralGlobConstraint - double *valsS=parafieldS->getField()->getArray()->getPointer(); + fieldS = MEDCouplingFieldDouble::New(ON_CELLS,NO_TIME); + DADouble arr = DataArrayDouble::New(); arr->alloc(meshS->getNumberOfCells(), 1); + fieldS->setMesh(meshS); fieldS->setArray(arr); + fieldS->setNature(nature); + double *valsS=fieldS->getArray()->getPointer(); valsS[0]=10.; // - meshT=MEDCouplingUMesh::New(); + MUMesh meshT=MEDCouplingUMesh::New(); meshT->setMeshDimension(2); myCoords=DataArrayDouble::New(); myCoords->alloc(3,2); @@ -302,20 +302,160 @@ void prepareData1(int rank, ProcessorGroup * grp, meshT->allocateCells(1); meshT->insertNextCell(INTERP_KERNEL::NORM_TRI3,3,connT); meshT->finishInsertingCells(); - parameshT=new ParaMESH(meshT,*grp,"target mesh"); - parafieldT=new ParaFIELD(ON_CELLS,NO_TIME,parameshT,comptopo); - parafieldT->getField()->setNature(ConservativeVolumic);//IntegralGlobConstraint - double *valsT=parafieldT->getField()->getArray()->getPointer(); + fieldT = MEDCouplingFieldDouble::New(ON_CELLS,NO_TIME); + DADouble arr2 = DataArrayDouble::New(); arr2->alloc(meshT->getNumberOfCells(), 1); + fieldT->setMesh(meshT); fieldT->setArray(arr2); + fieldT->setNature(nature); + double *valsT=fieldT->getArray()->getPointer(); valsT[0]=9.; } +} +void prepareData2_buildOneSquare(MEDCouplingUMesh* & meshS_0, MEDCouplingUMesh* & meshT_0) +{ + const double coords[10] = {0.0,0.0, 0.0,1.0, 1.0,1.0, 1.0,0.0, 0.5,0.5}; + meshS_0 = MEDCouplingUMesh::New("source", 2); + DataArrayDouble *myCoords=DataArrayDouble::New(); + myCoords->alloc(5,2); + std::copy(coords,coords+10,myCoords->getPointer()); + meshS_0->setCoords(myCoords); myCoords->decrRef(); + int connS[4]={0,1,2,3}; + meshS_0->allocateCells(2); + meshS_0->insertNextCell(INTERP_KERNEL::NORM_QUAD4,4,connS); + // + meshT_0 = MEDCouplingUMesh::New("target", 2); + myCoords=DataArrayDouble::New(); + myCoords->alloc(5,2); + std::copy(coords,coords+10,myCoords->getPointer()); + meshT_0->setCoords(myCoords); + myCoords->decrRef(); + int connT[12]={0,1,4, 1,2,4, 2,3,4, 3,0,4}; + meshT_0->allocateCells(4); + meshT_0->insertNextCell(INTERP_KERNEL::NORM_TRI3,3,connT); + meshT_0->insertNextCell(INTERP_KERNEL::NORM_TRI3,3,connT+3); + meshT_0->insertNextCell(INTERP_KERNEL::NORM_TRI3,3,connT+6); + meshT_0->insertNextCell(INTERP_KERNEL::NORM_TRI3,3,connT+9); +} + +/** + * Prepare five (detached) QUAD4 disposed like this: + * (0) (1) (2) + * (3) (4) + * + * On the target side the global mesh is identical except that each QUAD4 is split in 4 TRI3 (along the diagonals). + * This is a case for two procs: + * - proc #0 has source squares 0,1,2 and target squares 0,3 (well, sets of TRI3s actually) + * - proc #1 has source squares 3,4 and target squares 1,2,4 + */ +void prepareData2(int rank, ProcessorGroup * grp, NatureOfField nature, + MEDCouplingUMesh *& meshS, MEDCouplingUMesh *& meshT, + ParaMESH*& parameshS, ParaMESH*& parameshT, + ParaFIELD*& parafieldS, ParaFIELD*& parafieldT, + bool stripPartOfSource=false, + int fieldCompoNum=1) +{ + MEDCouplingUMesh *meshS_0 = 0, *meshT_0 = 0; + prepareData2_buildOneSquare(meshS_0, meshT_0); + + if(rank==0) + { + const double tr1[] = {1.5, 0.0}; + MEDCouplingUMesh *meshS_1 = static_cast(meshS_0->deepCpy()); + meshS_1->translate(tr1); + const double tr2[] = {3.0, 0.0}; + MEDCouplingUMesh *meshS_2 = static_cast(meshS_0->deepCpy()); + meshS_2->translate(tr2); + + std::vector vec; + vec.push_back(meshS_0);vec.push_back(meshS_1); + if (!stripPartOfSource) + vec.push_back(meshS_2); + meshS = MEDCouplingUMesh::MergeUMeshes(vec); + meshS_1->decrRef(); meshS_2->decrRef(); + + ComponentTopology comptopo(fieldCompoNum); + parameshS=new ParaMESH(meshS, *grp,"source mesh"); + parafieldS=new ParaFIELD(ON_CELLS,ONE_TIME,parameshS,comptopo); + parafieldS->getField()->setNature(nature); + double *valsS=parafieldS->getField()->getArray()->getPointer(); + for(int i=0; i < fieldCompoNum; i++) + { + valsS[i] = 1. * (10^i); + valsS[fieldCompoNum+i] = 2. * (10^i); + if (!stripPartOfSource) + { + valsS[2*fieldCompoNum+i] = 3. * (10^i); + } + } + + // + const double tr3[] = {0.0, -1.5}; + MEDCouplingUMesh *meshT_3 = static_cast(meshT_0->deepCpy()); + meshT_3->translate(tr3); + vec.clear(); + vec.push_back(meshT_0);vec.push_back(meshT_3); + meshT = MEDCouplingUMesh::MergeUMeshes(vec); + meshT_3->decrRef(); + + parameshT=new ParaMESH(meshT,*grp,"target mesh"); + parafieldT=new ParaFIELD(ON_CELLS,ONE_TIME,parameshT,comptopo); + parafieldT->getField()->setNature(nature); + } + // + if(rank==1) + { + const double tr3[] = {0.0, -1.5}; + MEDCouplingUMesh *meshS_3 = static_cast(meshS_0->deepCpy()); + meshS_3->translate(tr3); + const double tr4[] = {1.5, -1.5}; + MEDCouplingUMesh *meshS_4 = static_cast(meshS_0->deepCpy()); + meshS_4->translate(tr4); + + std::vector vec; + vec.push_back(meshS_3);vec.push_back(meshS_4); + meshS = MEDCouplingUMesh::MergeUMeshes(vec); + meshS_3->decrRef(); meshS_4->decrRef(); + + ComponentTopology comptopo(fieldCompoNum); + parameshS=new ParaMESH(meshS, *grp,"source mesh"); + parafieldS=new ParaFIELD(ON_CELLS,ONE_TIME,parameshS,comptopo); + parafieldS->getField()->setNature(nature); + double *valsS=parafieldS->getField()->getArray()->getPointer(); + for(int i=0; i < fieldCompoNum; i++) + { + valsS[i] = 4. * (10^i); + valsS[fieldCompoNum+i] = 5. * (10^i); + } + + // + const double tr5[] = {1.5, 0.0}; + MEDCouplingUMesh *meshT_1 = static_cast(meshT_0->deepCpy()); + meshT_1->translate(tr5); + const double tr6[] = {3.0, 0.0}; + MEDCouplingUMesh *meshT_2 = static_cast(meshT_0->deepCpy()); + meshT_2->translate(tr6); + const double tr7[] = {1.5, -1.5}; + MEDCouplingUMesh *meshT_4 = static_cast(meshT_0->deepCpy()); + meshT_4->translate(tr7); + + vec.clear(); + vec.push_back(meshT_1);vec.push_back(meshT_2);vec.push_back(meshT_4); + meshT = MEDCouplingUMesh::MergeUMeshes(vec); + meshT_1->decrRef(); meshT_2->decrRef(); meshT_4->decrRef(); + + parameshT=new ParaMESH(meshT,*grp,"target mesh"); + parafieldT=new ParaFIELD(ON_CELLS,ONE_TIME,parameshT,comptopo); + parafieldT->getField()->setNature(nature); + } + meshS_0->decrRef(); + meshT_0->decrRef(); } /*! Test case from the official doc of the OverlapDEC. - * WARNING: bounding boxes are tweaked here to make the case more interesting (i.e. to avoid an all to all exchange + * WARNING: bounding boxes might be tweaked here to make the case more interesting (i.e. to avoid an all to all exchange * between all procs). */ -void ParaMEDMEMTest::testOverlapDEC1() +void testOverlapDEC_generic(int workSharingAlgo, double bbAdj) { int size, rank; MPI_Comm_size(MPI_COMM_WORLD,&size); @@ -324,48 +464,147 @@ void ParaMEDMEMTest::testOverlapDEC1() // printf("(%d) PID %d on localhost ready for attach\n", rank, getpid()); // fflush(stdout); - if (size != 3) return ; +// if (rank == 0) +// { +// int i=1, j=0; +// while (i!=0) +// j=2; +// } + if (size != 3) return ; int nproc = 3; std::set procs; - for (int i=0; igetArray()->getIJ(0,0),1e-12); + } + if(rank==1) + { + CPPUNIT_ASSERT_DOUBLES_EQUAL(8.5,mcfieldT->getArray()->getIJ(0,0),1e-12); + } + if(rank==2) + { + CPPUNIT_ASSERT_DOUBLES_EQUAL(10.5,mcfieldT->getArray()->getIJ(0,0),1e-12); + } + mcfieldS->decrRef(); + mcfieldT->decrRef(); + + MPI_Barrier(MPI_COMM_WORLD); +} + +void ParaMEDMEMTest::testOverlapDEC1() +{ /*!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! * HACK ON BOUNDING BOX TO MAKE THIS CASE SIMPLE AND USABLE IN DEBUG - * Bounding boxes are slightly smaller than should be thus localising the work to be done + * Bounding boxes are slightly smaller than should be, thus localizing the work to be done * and avoiding every proc talking to everyone else. + * Obviously this is NOT a good idea to do this in production code :-) * !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! */ - dec.setBoundingBoxAdjustmentAbs(-1.0e-12); + testOverlapDEC_generic(0,-1.0e-12); +} + +void ParaMEDMEMTest::testOverlapDEC1_bis() +{ + // Same BB hack as above + testOverlapDEC_generic(1,-1.0e-12); +} + +void ParaMEDMEMTest::testOverlapDEC1_ter() +{ + // Same BB hack as above + testOverlapDEC_generic(2, -1.0e-12); +} + + +/*! + * Same as testOverlapDEC1() but with regular bounding boxes. If you're looking for a nice debug case, + * testOverlapDEC1() is identical in terms of geometry and field values, and more appropriate. + */ +void ParaMEDMEMTest::testOverlapDEC2() +{ + testOverlapDEC_generic(0,1.0e-12); +} + +void ParaMEDMEMTest::testOverlapDEC2_bis() +{ + testOverlapDEC_generic(1,1.0e-12); +} + +void ParaMEDMEMTest::testOverlapDEC2_ter() +{ + testOverlapDEC_generic(2,1.0e-12); +} + + +/*! Test focused on the mapping of cell IDs. + * (i.e. when only part of the source/target mesh is transmitted) + */ +void ParaMEDMEMTest::testOverlapDEC3() +{ + int size, rank; + MPI_Comm_size(MPI_COMM_WORLD,&size); + MPI_Comm_rank(MPI_COMM_WORLD,&rank); + + int nproc = 2; + if (size != nproc) return ; + std::set procs; + for (int i=0; igetField(); if(rank==0) { - CPPUNIT_ASSERT_DOUBLES_EQUAL(8.75,parafieldT->getField()->getArray()->getIJ(0,0),1e-12); + CPPUNIT_ASSERT_EQUAL(8, resField->getNumberOfTuples()); + for(int i=0;i<4;i++) + CPPUNIT_ASSERT_DOUBLES_EQUAL(1.0,resField->getArray()->getIJ(i,0),1e-12); + for(int i=4;i<8;i++) + CPPUNIT_ASSERT_DOUBLES_EQUAL(4.0,resField->getArray()->getIJ(i,0),1e-12); } if(rank==1) { - CPPUNIT_ASSERT_DOUBLES_EQUAL(8.5,parafieldT->getField()->getArray()->getIJ(0,0),1e-12); - } - if(rank==2) - { - CPPUNIT_ASSERT_DOUBLES_EQUAL(10.5,parafieldT->getField()->getArray()->getIJ(0,0),1e-12); + CPPUNIT_ASSERT_EQUAL(12, resField->getNumberOfTuples()); + for(int i=0;i<4;i++) + CPPUNIT_ASSERT_DOUBLES_EQUAL(2.0,resField->getArray()->getIJ(i,0),1e-12); + for(int i=4;i<8;i++) + CPPUNIT_ASSERT_DOUBLES_EQUAL(3.0,resField->getArray()->getIJ(i,0),1e-12); + for(int i=8;i<12;i++) + CPPUNIT_ASSERT_DOUBLES_EQUAL(5.0,resField->getArray()->getIJ(i,0),1e-12); } delete parafieldS; delete parafieldT; @@ -378,20 +617,19 @@ void ParaMEDMEMTest::testOverlapDEC1() } /*! - * Same as testOverlapDEC1() but with regular bounding boxes. If you're looking for a nice debug case, - * testOverlapDEC1() is more appropriate. + * Tests: + * - default value + * - multi-component fields */ -void ParaMEDMEMTest::testOverlapDEC2() +void ParaMEDMEMTest::testOverlapDEC4() { int size, rank; MPI_Comm_size(MPI_COMM_WORLD,&size); MPI_Comm_rank(MPI_COMM_WORLD,&rank); - if (size != 3) return ; - - int nproc = 3; + int nproc = 2; + if (size != nproc) return ; std::set procs; - for (int i=0; igetField(); if(rank==0) { - CPPUNIT_ASSERT_DOUBLES_EQUAL(8.75,parafieldT->getField()->getArray()->getIJ(0,0),1e-12); + CPPUNIT_ASSERT_EQUAL(8, resField->getNumberOfTuples()); + for(int i=0;i<4;i++) + { + CPPUNIT_ASSERT_DOUBLES_EQUAL(1.0,resField->getArray()->getIJ(i*2,0),1e-12); + CPPUNIT_ASSERT_DOUBLES_EQUAL(10.0,resField->getArray()->getIJ(i*2+1,0),1e-12); + } + for(int i=4;i<8;i++) + { + CPPUNIT_ASSERT_DOUBLES_EQUAL(4.0,resField->getArray()->getIJ(i*2,0),1e-12); + CPPUNIT_ASSERT_DOUBLES_EQUAL(40.0,resField->getArray()->getIJ(i*2+1,0),1e-12); + } } if(rank==1) { - CPPUNIT_ASSERT_DOUBLES_EQUAL(8.5,parafieldT->getField()->getArray()->getIJ(0,0),1e-12); - } - if(rank==2) - { - CPPUNIT_ASSERT_DOUBLES_EQUAL(10.5,parafieldT->getField()->getArray()->getIJ(0,0),1e-12); + CPPUNIT_ASSERT_EQUAL(12, resField->getNumberOfTuples()); + for(int i=0;i<4;i++) + { + CPPUNIT_ASSERT_DOUBLES_EQUAL(2.0,resField->getArray()->getIJ(i*2,0),1e-12); + CPPUNIT_ASSERT_DOUBLES_EQUAL(20.0,resField->getArray()->getIJ(i*2+1,0),1e-12); + } + // Default value should be here: + for(int i=4;i<8;i++) + { + CPPUNIT_ASSERT_DOUBLES_EQUAL(defVal,resField->getArray()->getIJ(i*2,0),1e-12); + CPPUNIT_ASSERT_DOUBLES_EQUAL(defVal,resField->getArray()->getIJ(i*2+1,0),1e-12); + } + for(int i=8;i<12;i++) + { + CPPUNIT_ASSERT_DOUBLES_EQUAL(5.0,resField->getArray()->getIJ(i*2,0),1e-12); + CPPUNIT_ASSERT_DOUBLES_EQUAL(50.0,resField->getArray()->getIJ(i*2+1,0),1e-12); + } } delete parafieldS; delete parafieldT;