AA obsolete_lib.F FUNCTIONS DOT DOT PRODUCT OF TWO VECTORS SUBROUTINES APPLY_SEG_FLUX READ BOUNDARY FLUX AND APPLY TO SYSTEM EQS ASSEMBLE_SYS_EQS ASSEMBLE SYSTEM AND STORE POST SOLUTION DATA CALPRT CALCULATE PROPERTIES AT A LOCAL POINT ELHIGH FIND SYSTEM COLUMN HEIGHTS OF AN ELEMENT ESHAPE EVALUATE C0 ELEMENT INTERPOLATION FUNCTIONS GDERIV GLOBAL DERIVATIVES OF INTERPOLATION FUNCTIONS AT POINT I2BY2 CALCULATE THE DETERMINATE AND INVERSE OF A(2,2) JACOB CALCULATE THE JACOBIAN MATRIX AT A LOCAL POINT LAST_L FIND ELEMENT OF FIRST & LAST APPEARANCE OF EACH NODE MATPRT EXTRACT REAL MATERIAL PROPERTIES OF MATERIAL MATRIX_CONSTRAINTS APPLY BOUNDARY CONSTRAINT EQUATIONS TO SKYLINE MATWRT LIST REAL PROPERTIES BY MATERIAL NUMBER MODEL_98_BOTH MODEL BY BANDED OR SKYLINE MODES MODEL_98_METHODS MIXTURE OF BAND & SKYLINE & UNSYMMETRIC MODES MODEL_98_ORIG ORIGINAL F90 TEST VERSION OF MODEL PTCODE EXTRACT B.C. INDICATORS AT NODE SAVE_SKY_ROWS SAVE INDEPENDENT REACTION EQUATIONS FROM SKYLINE SKY_BC_GEN_OLD APPLY BOUNDARY CONSTRAINT EQUATIONS TO GENERAL SKYLINE SKY_FUL COPY SKYLINE S INTO SYMMETRIC FULL S AND PRINT SKY_TYPE_1 APPLY TYPE 1 MODIFICATION TO SYMMERTIC SKYLINE TET_RULE UNIT COORD QUADRATURE RULES FOR TETRAHEDRA ZZ obsolete_lib.F