initial upload

2025-12-17 11:00:57 +08:00
parent 2bc7b24a71
commit a09a73537f
4614 changed files with 3478433 additions and 2 deletions
--- a/src/local_element.h
+++ b/src/local_element.h
@@ -0,0 +1,97 @@
+*cd,local_element
+C ######################################################################
+C
+C     PURPOSE -
+C
+C       Declarations for local element information
+C
+C     CHANGE HISTORY -
+C
+C  $Log: local_element.h,v $
+C  Revision 2.00  2007/11/05 19:46:00  spchu
+C  Import to CVS
+C  
+CPVCS    
+CPVCS       Rev 1.7   Tue Oct 26 14:07:58 1999   dcg
+CPVCS    No change.
+CPVCS    
+CPVCS       Rev 1.6   Tue Jun 29 13:55:04 1999   jtg
+CPVCS    additional local element data structures added (ielmedge2,
+CPVCS    ielmface3,ielmface4,ielmnode0,ielmnode1,ielmnode2,ielmnode3)
+CPVCS    
+CPVCS       Rev 1.5   Thu Jan 21 20:57:42 1999   jtg
+CPVCS    common blocks moved after declarations and/or saves added
+C ######################################################################
+C
+      integer nelmtypes, 
+     *        maxnen, 
+     *        maxnef,
+     *        maxnee1, 
+     *        maxnee2
+      parameter ( nelmtypes=10, 
+     *            maxnen=10, 
+     *            maxnef=10,
+     *            maxnee1=4, 
+     *            maxnee2=12 )
+C
+      character*32 celmnames(nelmtypes)
+      common / c_local_element_data / celmnames
+      save / c_local_element_data /
+C
+      integer nelmnen(nelmtypes),
+     *        nelmnef(nelmtypes),
+     *        nelmnee(nelmtypes),
+     *        ielmface0(maxnef,nelmtypes),
+     *        ielmface1(maxnee1,maxnef,nelmtypes),
+     *        ielmface2(maxnee1,maxnef,nelmtypes),
+     *        ielmedge1(2,maxnee2,nelmtypes)
+      integer ifelmpnt,
+     *        ifelmlin,
+     *        ifelmtri,
+     *        ifelmqud,
+     *        ifelmtet,
+     *        ifelmpyr,
+     *        ifelmpri,
+     *        ifelmhex,
+     *        ifelmhyb,
+     *        ifelmply
+C
+      common / i_local_element_data / nelmnen,
+     *                                nelmnef,
+     *                                nelmnee,
+     *                                ielmface0,
+     *                                ielmface1,
+     *                                ielmface2,
+     *                                ielmedge1,
+     *                                ifelmpnt,
+     *                                ifelmlin,
+     *                                ifelmtri,
+     *                                ifelmqud,
+     *                                ifelmtet,
+     *                                ifelmpyr,
+     *                                ifelmpri,
+     *                                ifelmhex,
+     *                                ifelmhyb,
+     *                                ifelmply
+      save / i_local_element_data /
+C
+C ######################################################################
+C additional data structures for the local elements:
+C see explanations in blockcom.f
+C
+      integer ielmedge2(2,maxnee2,nelmtypes)
+     *       ,ielmface3(maxnef,nelmtypes)
+     *       ,ielmface4(maxnee1,maxnef,nelmtypes)
+     *       ,ielmnode0(maxnen,nelmtypes)
+     *       ,ielmnode1(maxnee1,maxnen,nelmtypes)
+     *       ,ielmnode2(maxnee1,maxnen,nelmtypes)
+     *       ,ielmnode3(maxnee1,maxnen,nelmtypes)
+
+      common / iadd_local_element_data / ielmedge2
+     *       ,ielmface3,ielmface4
+     *       ,ielmnode0,ielmnode1,ielmnode2,ielmnode3
+      save / iadd_local_element_data /
+C
+C ######################################################################
+
+