automesh.f90

来自「边界元程序,供力学工作者参考,希望对大家有所帮助」· F90 代码 · 共 15 行

        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