automesh.f90

边界元程序,供力学工作者参考,希望对大家有所帮助

        SUBROUTINE AutoMesh
        USE CtrlData
        USE MeshData
        IMPLICIT DOUBLE PRECISION( a-h, o-z )
        ALLOCATABLE lsupt(:), ledgt(:,:)

        ALLOCATE( lsupt( nelem ), STAT = ierro )
        IF( ierro .NE. 0 ) nerrc = 4
        IF( nerrc .NE. 0 ) RETURN

        DO ielem = 1, nelem
        END DO
        DEALLOCATE( lsupt )
        END