Versions Compared

Key

  • This line was added.
  • This line was removed.
  • Formatting was changed.

...

Code Block
GiD_fBeginResultGroup(fd,"Analysis", 1.0d0, GiD_OnNodes, NULL);
GiD_fResultDescription(fd,"EscalarNodosScalarNodes", GiD_Scalar);
GiD_fResultDescription(fd,"VectorNodosVectorNodes", GiD_Vector);
GiD_fResultDescription(fd,"Matrix", GiD_Matrix);
GiD_fResultDescription(fd,"Local Axes", GiD_LocalAxes);
GiD_fResultDescription(fd,"A complex Scalar", GiD_ComplexScalar);
GiD_fResultDescription(fd,"A complex Vector", GiD_ComplexVector);
GiD_fResultDescription(fd,"A complex Matrix", GiD_ComplexMatrix);
for (int i = 0; i < 9; i++ ) {
  GiD_fWriteScalar(fd,nodes[i].id, Random());
  GiD_fWriteVector(fd,nodes[i].id, Random(), Random(), Random());
  GiD_fWrite3DMatrix(fd,nodes[i].id, Random(), Random(), Random(), Random(), Random(), Random());
  GiD_fWriteComplexScalar(fd,nodes[i].id, Random(), Random());
  GiD_fWriteComplexVector(fd,nodes[i].id, Random(), Random(), Random(), Random(), Random(), Random());
  GiD_fWrite3DMatrix(fd,nodes[i].id, Random(), Random(), Random(), Random(), Random(), Random(),
          Random(), Random(), Random(), Random(), Random(), Random());
}
GiD_EndResult(fd);

...

Code Block
CALL GID_FBEGINRESULTGROUP(fd,"Analysis", 1.0d0, 0, NULL)
CALL GID_FRESULTDESCRIPTION(fd,"EscalarNodosScalarNodes", 0)
CALL GID_FRESULTDESCRIPTION(fd,"VectorNodosVectorNodes",1)
CALL GID_FRESULTDESCRIPTION(fd,"Matrix",2)
CALL GID_FRESULTDESCRIPTION(fd,"Local Axes",5)
do idx=1,9
value = idx*1.5;
CALL GID_FWRITESCALAR(fd,nodes[i].id, value)
CALL GID_FWRITEVECTOR(fd,nodes[i].id, value, value*2, value*3)
CALL GID_FWRITE3DMATRIX(fd,i+1,value,value*2,value*3,value*4,value*7,value*1.1)
CALL GID_FWRITELOCALAXES(fd,i+1,value,value*3,value*5)
end do
GID_ENDRESULT(fd);

...