Changeset 9718

Timestamp:

09/09/11 07:45:54 (14 years ago)

Author:

Eric.Larour

Message:

Starting reshuffle of code to include automatic differentiation compilation
using adic.

Location:

issm/trunk/src

Files:

• Makefile.am (modified) (1 diff)
• ad (added)
• ad/Makefile.am (added)
• c/EnumDefinitions/EnumDefinitions.h (modified) (1 diff)
• c/modules/EnumToStringx/EnumToStringx.cpp (modified) (1 diff)
• c/modules/ModelProcessorx/CreateParameters.cpp (modified) (1 diff)
• c/modules/StringToEnumx/StringToEnumx.cpp (modified) (1 diff)
• c/solutions/prognostic_core_ad.cpp (deleted)
• m/enum/AdAnalysisEnum.m (added)
• m/enum/AdForwardEnum.m (added)
• m/enum/AdReverseEnum.m (added)

issm/trunk/src/Makefile.am

@@ -1 +1 @@
 EXTRA_DIST = m  perl  pro
-SUBDIRS = c mex
+SUBDIRS = c mex ad
 
 

issm/trunk/src/c/EnumDefinitions/EnumDefinitions.h

@@ -485 +485 @@
         SpcDynamicEnum,
         NumberOfEdgesEnum,
-
+        /*Automatic differentiation: */
+        AdAnalysisEnum,
+        AdForwardEnum,
+        AdReverseEnum,
         MaximumNumberOfEnums
 };

issm/trunk/src/c/modules/EnumToStringx/EnumToStringx.cpp

@@ -429 +429 @@
                 case SpcDynamicEnum : return "SpcDynamic";
                 case NumberOfEdgesEnum : return "NumberOfEdges";
+                case AdAnalysisEnum : return "AdAnalysis";
+                case AdForwardEnum : return "AdForward";
+                case AdReverseEnum : return "AdReverse";
                 default : return "unknown";
 

issm/trunk/src/c/modules/ModelProcessorx/CreateParameters.cpp

@@ -68 +68 @@
         parameters->AddObject(iomodel->CopyConstantObject(TransientIsgroundinglineEnum));
         parameters->AddObject(iomodel->CopyConstantObject(MaterialsRheologyLawEnum));
+        parameters->AddObject(iomodel->CopyConstantObject(AdAnalysisEnum));
+        parameters->AddObject(iomodel->CopyConstantObject(AdForwardEnum));
+        parameters->AddObject(iomodel->CopyConstantObject(AdReverseEnum));
 
         /*some parameters that did not come with the iomodel: */

issm/trunk/src/c/modules/StringToEnumx/StringToEnumx.cpp

@@ -427 +427 @@
         else if (strcmp(name,"SpcDynamic")==0) return SpcDynamicEnum;
         else if (strcmp(name,"NumberOfEdges")==0) return NumberOfEdgesEnum;
+        else if (strcmp(name,"AdAnalysis")==0) return AdAnalysisEnum;
+        else if (strcmp(name,"AdForward")==0) return AdForwardEnum;
+        else if (strcmp(name,"AdReverse")==0) return AdReverseEnum;
         else _error_("Enum %s not found",name);