vfeapglobals.f90

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

        !****************************************************************************
        !  Global data, PARAMETERs, and structures 
        !****************************************************************************

        MODULE VFEAPGlobals
        USE dflogm
        IMPLICIT NONE
        INTEGER * 4, PARAMETER, PUBLIC :: SIZEOFAPPNAME = 100
        INTEGER		ghInstance
        INTEGER		ghMODULE
        INTEGER		ghwndMain

        INCLUDE 'VFEAPCom.FD'

        INTEGER * 4  ghInstVFEAPCom;
        POINTER( gpSetRunFlag, SetRunFlag )
        TYPE (dialog) gdlg
        END MODULE